53 |
C mnc_curr_iter :: current iter for file names |
C mnc_curr_iter :: current iter for file names |
54 |
|
|
55 |
COMMON /PARM_MNC_I/ |
COMMON /PARM_MNC_I/ |
56 |
& mnc_curr_iter |
& mnc_def_imv, mnc_curr_iter |
57 |
|
INTEGER mnc_def_imv(2) |
58 |
INTEGER mnc_curr_iter |
INTEGER mnc_curr_iter |
59 |
|
|
60 |
C === PARM_MNC_R Common Block === |
C === PARM_MNC_R8 Common Block === |
61 |
C mnc_max_fsize :: maximum file size |
C mnc_max_fsize :: maximum file size |
62 |
|
|
63 |
COMMON /PARM_MNC_R/ |
COMMON /PARM_MNC_R8/ |
64 |
|
& mnc_def_dmv, |
65 |
& mnc_max_fsize, mnc_filefreq |
& mnc_max_fsize, mnc_filefreq |
66 |
|
REAL*8 mnc_def_dmv(2) |
67 |
REAL*8 mnc_max_fsize |
REAL*8 mnc_max_fsize |
68 |
REAL*8 mnc_filefreq |
REAL*8 mnc_filefreq |
69 |
|
|
70 |
|
C === PARM_MNC_R8 Common Block === |
71 |
|
COMMON /PARM_MNC_R4/ |
72 |
|
& mnc_def_rmv |
73 |
|
REAL*4 mnc_def_rmv(2) |
74 |
|
|
75 |
CEH3 ;;; Local Variables: *** |
CEH3 ;;; Local Variables: *** |
76 |
CEH3 ;;; mode:fortran *** |
CEH3 ;;; mode:fortran *** |
77 |
CEH3 ;;; End: *** |
CEH3 ;;; End: *** |