e2ecdcfe33
Former-commit-id:a02aeb236c[formerly9f19e3f712] [formerlya02aeb236c[formerly9f19e3f712] [formerly06a8b51d6d[formerly 64fa9254b946eae7e61bbc3f513b7c3696c4f54f]]] Former-commit-id:06a8b51d6dFormer-commit-id:8e80217e59[formerly3360eb6c5f] Former-commit-id:377dcd10b9
16 lines
532 B
Text
16 lines
532 B
Text
C *--> FROM SCOMMON.DIMSTAN
|
|
C ARRAYS FOR STAN PARAMETERS
|
|
CHARACTER*8 STAID,TSTAID
|
|
CHARACTER*20 DESCRP,TDESCRP
|
|
DIMENSION STALOC(2),STALOCO(2),STACOR(2)
|
|
PARAMETER (MGPS=4)
|
|
DIMENSION GPS(MGPS),IPARM(MGPS)
|
|
CHARACTER*4 GPS
|
|
PARAMETER (MSRCCD=5,MSRCID=2)
|
|
DIMENSION SRCCD(MSRCCD),SRCID(MSRCID,MSRCCD)
|
|
CHARACTER*4 SRCCD,SRCID
|
|
PARAMETER (MGOESN=10)
|
|
DIMENSION GOESN(MGOESN)
|
|
PARAMETER (MCDASN=10)
|
|
DIMENSION CDASN(MCDASN)
|
|
C
|