8e80217e59
Former-commit-id:a02aeb236c[formerly9f19e3f712] [formerly06a8b51d6d[formerly 64fa9254b946eae7e61bbc3f513b7c3696c4f54f]] Former-commit-id:06a8b51d6dFormer-commit-id:3360eb6c5f
22 lines
441 B
Text
22 lines
441 B
Text
C MEMBER UDUNTB
|
|
C-----------------------------------------------------------------------
|
|
C
|
|
C @PROCESS LVL(77)
|
|
C
|
|
C INITIALIZE COMMON BLOCK UDUNTX
|
|
C
|
|
BLOCK DATA UDUNTB
|
|
C
|
|
INCLUDE 'uduntx'
|
|
C
|
|
C
|
|
DATA IDUFIL/0/,MDDIMN/13/,MDUNIT/12/
|
|
DATA DUDIMN/13*' '/
|
|
DATA DUUNIT/156*' '/
|
|
DATA DUCFAC/156*-999./
|
|
DATA DUTFAC/13*-999./
|
|
DATA NDUNDC/156*-999/
|
|
DATA NNUCNV/0/,MNUCNV/5/,UCNVAL/5*0.0/
|
|
C
|
|
C
|
|
END
|