9 lines
361 B
Text
9 lines
361 B
Text
C *--> FROM CMS(UDTYPX)
|
|
C DATA TYPE AND ATTRIBUTES COMMON BLOCK
|
|
COMMON /UDTYPX/ IDTFIL,MDTYPE,NDTYPE,IDTMIS(110),
|
|
* NDTVAL(110),NDTADD(110),IDTWRT(110),
|
|
* DTCODE(110),DTDIMN(110),DTUNIT(110),
|
|
* DTTIME(110),DTSRCH
|
|
CHARACTER*4 DTSRCH
|
|
CHARACTER*4 DTCODE,DTDIMN,DTUNIT,DTTIME
|
|
C
|