Search Site | Contact Details | FAQ

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
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk