49 |
CEOP |
CEOP |
50 |
|
|
51 |
C !LOCAL VARIABLES: |
C !LOCAL VARIABLES: |
52 |
|
#ifdef ALLOW_MNC |
53 |
INTEGER im, ix, iv, ist |
INTEGER im, ix, iv, ist |
54 |
PARAMETER ( iv = nStats - 2 , im = nStats - 1 , ix = nStats ) |
PARAMETER ( iv = nStats - 2 , im = nStats - 1 , ix = nStats ) |
55 |
INTEGER i, j, k |
INTEGER i, j, k |
57 |
CHARACTER*(3) stat_typ(5) |
CHARACTER*(3) stat_typ(5) |
58 |
INTEGER ILNBLNK |
INTEGER ILNBLNK |
59 |
EXTERNAL ILNBLNK |
EXTERNAL ILNBLNK |
|
#ifdef ALLOW_MNC |
|
60 |
INTEGER ii, ilen |
INTEGER ii, ilen |
61 |
CHARACTER*(MAX_LEN_FNAM) diag_mnc_bn |
CHARACTER*(MAX_LEN_FNAM) diag_mnc_bn |
|
CHARACTER*(5) ctmp |
|
62 |
INTEGER CW_DIMS, NLEN |
INTEGER CW_DIMS, NLEN |
63 |
PARAMETER ( CW_DIMS = 10 ) |
PARAMETER ( CW_DIMS = 10 ) |
64 |
PARAMETER ( NLEN = 80 ) |
PARAMETER ( NLEN = 80 ) |
67 |
CHARACTER*(NLEN) d_cw_gname |
CHARACTER*(NLEN) d_cw_gname |
68 |
CHARACTER*(NLEN) d_cw_gname0 |
CHARACTER*(NLEN) d_cw_gname0 |
69 |
CHARACTER*(NLEN) dn_blnk |
CHARACTER*(NLEN) dn_blnk |
70 |
|
#ifdef DIAGST_MNC_NEEDSWORK |
71 |
|
CHARACTER*(5) ctmp |
72 |
_RS ztmp(Nr+Nrphys) |
_RS ztmp(Nr+Nrphys) |
73 |
|
#endif |
74 |
_RL stmp(Nr+Nrphys+1,nRegions+1) |
_RL stmp(Nr+Nrphys+1,nRegions+1) |
75 |
#endif /* ALLOW_MNC */ |
#endif /* ALLOW_MNC */ |
76 |
|
|