52 |
C mnc_curr_iter :: current iter for file names |
C mnc_curr_iter :: current iter for file names |
53 |
|
|
54 |
COMMON /PARM_MNC_I/ |
COMMON /PARM_MNC_I/ |
55 |
& mnc_curr_iter, mnc_filefreq |
& mnc_curr_iter |
56 |
INTEGER mnc_curr_iter |
INTEGER mnc_curr_iter |
|
INTEGER mnc_filefreq |
|
57 |
|
|
58 |
C === PARM_MNC_R Common Block === |
C === PARM_MNC_R Common Block === |
59 |
C mnc_max_fsize :: maximum file size |
C mnc_max_fsize :: maximum file size |
60 |
|
|
61 |
COMMON /PARM_MNC_R/ |
COMMON /PARM_MNC_R/ |
62 |
& mnc_max_fsize |
& mnc_max_fsize, mnc_filefreq |
63 |
REAL*8 mnc_max_fsize |
REAL*8 mnc_max_fsize |
64 |
|
REAL*8 mnc_filefreq |
65 |
|
|
66 |
CEH3 ;;; Local Variables: *** |
CEH3 ;;; Local Variables: *** |
67 |
CEH3 ;;; mode:fortran *** |
CEH3 ;;; mode:fortran *** |