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