ADAS Subroutine e7titl
SUBROUTINE E7TITL( IBSEL , DSNAME , & CWAVEL , CIION , CICODE , CISCRP , CITYPE , & TITLX & ) C----------------------------------------------------------------------- C C ****************** FORTRAN77 SUBROUTINE: E7TITL ********************* C C PURPOSE: TO CREATE THE DESCRIPTIVE TITLE FOR SELECTED DATA-BLOCK. C C CALLING PROGRAM: ADAS507/SGCF C C SUBROUTINE: C C INPUT : (I*4) IBSEL = SELECTED DATA-BLOCK: INDEX C INPUT : (C*44) DSFULL = FULL MVS INPUT DATA SET NAME C C C INPUT : (C*10) CWAVEL = SELECTED DATA-BLOCK: WAVELENGTH C INPUT : (C*5) CIION = SELECTED DATA-BLOCK: RADIATING ION C INPUT : (C*8) CICODE = SELECTED DATA-BLOCK: SOURCE CODE C INPUT : (C*8) CISCRP = SELECTED DATA-BLOCK: SOURCE SCRIPT C INPUT : (C*5) CITYPE = SELECTED DATA-BLOCK: RADIATION TYPE C C OUTPUT: (C*80) TITLX = SELECTED DATA-BLOCK: DESCRIPTIVE TITLE C C (C*2) C2 = GENERAL USE 2 BYTE CHARACTER STRING C C ROUTINES: NONE C C AUTHOR: H. P. SUMMERS, JET C K1/1/57 C JET EXT. 4941 C C DATE: 18/04/94 C C VERSION : 1.1 C DATE : 25-01-2001 C MODIFIED : Martin O'Mullane C - Ported to unix from JETSHP.ADASXX50.FORT C C----------------------------------------------------------------------- C----------------------------------------------------------------------- CHARACTER*8 CICODE CHARACTER*5 CIION CHARACTER*8 CISCRP CHARACTER*5 CITYPE CHARACTER*10 CWAVEL CHARACTER*80 DSNAME CHARACTER*120 TITLX INTEGER IBSEL