ADAS Subroutine xxsszd
SUBROUTINE XXSSZD( USRGRP , USRTYP , USREXT ) C----------------------------------------------------------------------- C C ****************** FORTRAN77 SUBROUTINE: XXSSZD ********************* C C PURPOSE: ADAS ROUTINE - SETS UP THE DEFAULT USEGRP, USRTYP AND USREXT C WHICH IDENTIFY THE FILENAME AND EXTENSION TO BE READ IN C SUBROUTINE SSZD. IT WORKS IN THE SAME MANNER AS XXUID WHICH C WHICH ALLOWS THE DEFAULT USER SPACE TO BE SET C C C USRGRP: VALUE ON INPUT => USRGRP: VALUE ON OUTPUT C C ? CURRENT ADAS DATA GROUPNAME C * DEFAULT ADAS DATA GROUPNAME C <BLANK> *** USRGRP VALUE NOT CHANGED *** C <OTHER> *** USRGRP VALUE NOT CHANGED *** C C C USRTYP: VALUE ON INPUT => USRTYP: VALUE ON OUTPUT C C ? CURRENT ADAS DATA TYPEPNAME C * DEFAULT ADAS DATA TYPEGROUPNAME C <BLANK> *** USRTYP VALUE NOT CHANGED *** C <OTHER> *** USRTYP VALUE NOT CHANGED *** C C C USREXT: VALUE ON INPUT => USREXT: VALUE ON OUTPUT C C ? CURRENT ADAS DATA MEMBER EXTENS. C * DEFAULT ADAS DATA MEMBER EXTENS C <BLANK> *** USREXT VALUE NOT CHANGED *** C <OTHER> *** USREXT VALUE NOT CHANGED *** C C ? => QUERIES CURRENT ADAS DATA USRGRP, USRTYP OR USREXT C SETTING. C * => SETS ADAS DATA USEGRP, USRTYP OR USREXT SETTING C TO DEFAULT VALUE. C <BLANK> => SETS ADAS DATA USRGRP, USRTYP OR USREXT SETTING C TO DEFAULT VALUE. C <OTHER> => SETS ADAS DATA USRGRP, USRTYP OR USREXT SETTING C TO INPUT VALUE. C C CALLING PROGRAM: SSZD AND MAIN PROGRAMS USING SSZD C C SUBROUTINE: C C I/O : (C*8) USRGRP = USRGRP UNDER WHICH ADAS DATA IS STORED C (IF BLANK DEFAULTS TO DEFGRP) C CA I/O : (C*80) USRTYP = OPTIONAL SUBDIRECTORY FOR FILE C (IF BLANK DEFAULTS TO DEFTYP) C C (IF BLANK DEFAULTS TO DEFEXT) C C (C*8) DEFGRP = PARAMETER = DEFAULT USER GROUP FOR ADAS C DATA SOURCE C CA (C*80) DEFTYP = OPTIONAL SUB-DIRECTORY DEFAULT IS BLANK C DATA SOURCE C C (C*3) DEFEXT = PARAMETER = DEFAULT USER EXTENSION FOR ADAS C DATA SOURCE C C (C*8) ADASGR = CURRENT ADAS DATA SOURCE GROUP C CA (C*80) ADASTY = OPTIONAL SUB-DIRECTORY C C (C*3) ADASEX = CURRENT ADAS DATA SOURCE EXTENSION C C C ROUTINES: C ROUTINE SOURCE BRIEF DESCRIPTION C ------------------------------------------------------------ C C NOTE: C TO CHECK CURRENT ADAS SOURCE USRGRP, USRTYP AND USREXT C CALL XXSSZD WITH ?`S AS INPUTS. C C AUTHOR: HUGH P. SUMMERS, JET C K1/1/67 C JET EXT. 4941 C C DATE: 2/09/93 C C UPDATE: L. JALOTA - 10/11/94 : MODIFIED FOR USE UNDER UNIX C INCREASED STRING LENGTHS C UPDATE: L. JALOTA - 22/11/94 : TIDIED UP CHARACTER LENGTH DEFINITIONS. C----------------------------------------------------------------------- CHARACTER*3 USREXT CHARACTER*8 USRGRP CHARACTER*80 USRTYP