8e80217e59
Former-commit-id:a02aeb236c[formerly9f19e3f712] [formerly06a8b51d6d[formerly 64fa9254b946eae7e61bbc3f513b7c3696c4f54f]] Former-commit-id:06a8b51d6dFormer-commit-id:3360eb6c5f
8 lines
290 B
Text
8 lines
290 B
Text
C *--> FROM SCOMMON.SORDRX
|
|
C COMPUTATION ORDER ARRAYS
|
|
COMMON /SORDRX/ MFGIDS,FGIDS(100),NRMPFG(100),
|
|
* MRMPID,RMPID(500),MAPSR(500),
|
|
* MRMPDP,RMPDP(100),
|
|
* MFMPID,FMPID(20000)
|
|
CHARACTER*8 FGIDS,RMPID,RMPDP,FMPID
|
|
C
|