Search Site | Contact Details | FAQ

ADAS Subroutine c2vrdc

C
      SUBROUTINE C2VRDC( ICIND  ,
     &                   NBSEL  ,
     &                   CDONOR , CRECVR, CFSTAT , CTYPE ,
     &                   SCI    ,
     &                   SDONOR , SRECVR, SFSTAT , STYPE
     &                 )
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: C2VRDC *********************
C
C  PURPOSE: TO SETUP DONOR/RECVR CHARACTER STRINGS FOR USE WITH SETTING
C           ISPF VARIABLES WHEN  SELECTED CROSS-SECTIONS ARE DISPLAYED.
C
C  CALLING PROGRAM: C2PAN2
C
C  SUBROUTINE:
C
C  INPUT : (I*4)   ICIND    = SELECTED/REQUESTED CROSS-SECTION DATA-BLOCK
C                             INDEX.
C
C  INPUT : (I*4)   NBSEL    = NUMBER OF DATA-BLOCK CROSS-SECTIONS.
C
C  INPUT : (C*9)   CDONOR() = INPUT DATA FILE: DONOR ION IDENTIFICATION
C                             DIMENSION: DATA-BLOCK INDEX
C  INPUT : (C*9)   CRECVR() = INPUT DATA FILE: RECEIVER ION IDENTIFICATION
C                             DIMENSION: DATA-BLOCK INDEX
C  INPUT : (C*10)  CFSTAT() = INPUT DATA FILE: FINAL STATE SPECIFICATION
C                             DIMENSION: DATA-BLOCK INDEX
C  INPUT : (C*2)   CTYPE()  = INPUT DATA FILE: CROSS-SECTION TYPE
C                             DIMENSION: DATA-BLOCK INDEX
C                             DIMENSION: DATA-BLOCK INDEX
C
C  OUTPUT: (C*3)   SCI      = ISPF PANEL VARIABLE: DATA-BLOCK INDEX
C
C  OUTPUT: (C*9)   SDONOR   = ISPF PANEL VARIABLE: DONOR ION IDENTIFICATION
C  OUTPUT: (C*9)   SRECVR   = ISPF PANEL VARIABLE: RECEIVER ION IDENTIFICATION
C  OUTPUT: (C*10)  SFSTAT   = ISPF PANEL VARIABLE: FINAL STATE SPECIFICATION
C  OUTPUT: (C*2)   STYPE    = ISPF PANEL VARIABLE: CROSS-SECTION TYPE
C
C
C ROUTINES: NONE
C
C AUTHOR:  H. P. SUMMERS, UNIVERSITY OF STRATHCLYDE
C          JA8.08
C          TEL.  0141-553-4196
C
C DATE:    15/11/95
C
C UNIX-IDL PORT: H.P.SUMMERS
C
C VERSION: 1.1				DATE: 19-11-96
C MODIFIED: WILLIAM OSBORN (TESSELLA SUPPORT SERVICES PLC)
C	    - PUT UNDER S.C.C.S. CONTROL
C
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
C
C-----------------------------------------------------------------------
      CHARACTER*9         CDONOR(NBSEL)
      CHARACTER*10        CFSTAT(NBSEL)
      CHARACTER*9         CRECVR(NBSEL)
      CHARACTER*2         CTYPE(NBSEL)
      CHARACTER*3         SCI
      CHARACTER*9         SDONOR
      CHARACTER*10        SFSTAT
      CHARACTER*9         SRECVR
      CHARACTER*2         STYPE
      INTEGER             ICIND,       NBSEL
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk