e2ecdcfe33
Former-commit-id:a02aeb236c[formerly9f19e3f712] [formerlya02aeb236c[formerly9f19e3f712] [formerly06a8b51d6d[formerly 64fa9254b946eae7e61bbc3f513b7c3696c4f54f]]] Former-commit-id:06a8b51d6dFormer-commit-id:8e80217e59[formerly3360eb6c5f] Former-commit-id:377dcd10b9
10 lines
457 B
Text
10 lines
457 B
Text
C *--> FROM DACOMMON.DAUSRC
|
|
C ASAP USER CONTROL INFORMATION
|
|
COMMON /DAUSRC/ MXUSRC,NMUSRC,
|
|
* NUCREC(20),CTRLID(20),ICPPDB(20),NUCPRD(20),
|
|
* MAXLIN(20),UCNAME(20),IPRFLG(20),IACTIV(20),
|
|
* IUCRX1(2,20),IPRMES(20),IPROUT(20),IPSFLG(20),
|
|
* IXFRFG(20),IUCRX2(11,20),IUCRX3(16,20)
|
|
CHARACTER*8 CTRLID
|
|
CHARACTER*24 UCNAME
|
|
C
|