| 1 | c
|
|---|
| 2 | c Restart parameters and variables
|
|---|
| 3 | c
|
|---|
| 4 | integer max_rst
|
|---|
| 5 | common /crst_i/ max_rst ! for full restart
|
|---|
| 6 |
|
|---|
| 7 | integer nxr,nyr,nzr,nelr,nelgr,istpr,ifiler,nfiler
|
|---|
| 8 | $ ,nxo,nyo,nzo,nrg
|
|---|
| 9 | $ ,wdsizr,wdsizo
|
|---|
| 10 | $ ,nfileo,nproc_o,nfldr
|
|---|
| 11 | $ ,er(lelr),nelB,nelBr
|
|---|
| 12 | common /cmfi_i/ nxr,nyr,nzr,nelr,nelgr,istpr,ifiler,nfiler
|
|---|
| 13 | $ , nxo,nyo,nzo,nrg
|
|---|
| 14 | $ , wdsizr,wdsizo
|
|---|
| 15 | $ , nfileo,nproc_o,nfldr
|
|---|
| 16 | $ , er,nelB,nelBr
|
|---|
| 17 |
|
|---|
| 18 | integer iHeaderSize
|
|---|
| 19 | parameter(iHeaderSize=132)
|
|---|
| 20 |
|
|---|
| 21 | real timer
|
|---|
| 22 | common /cmfi_r/ timer
|
|---|
| 23 |
|
|---|
| 24 | character*3 ihdr
|
|---|
| 25 | character*10 rdcode
|
|---|
| 26 | character*80 mfi_fname
|
|---|
| 27 | common /cmfi_c/ ihdr,rdcode,mfi_fname
|
|---|
| 28 |
|
|---|
| 29 | character*1 rdcode1(10)
|
|---|
| 30 | equivalence (rdcode,rdcode1)
|
|---|
| 31 |
|
|---|
| 32 | logical ifgetx ,ifgetu ,ifgetp ,ifgett ,ifgtps (ldimt1),ifgtim
|
|---|
| 33 | $ ,ifgetxr,ifgetur,ifgetpr,ifgettr,ifgtpsr(ldimt1),ifgtimr
|
|---|
| 34 | $ ,if_byte_sw,ifgetz,ifgetw,ifdiro
|
|---|
| 35 | common /cmfi_l/ ifgetx,ifgetu,ifgetp,ifgett,ifgtps,ifgtim
|
|---|
| 36 | $ ,ifgetxr,ifgetur,ifgetpr,ifgettr,ifgtpsr,ifgtimr
|
|---|
| 37 | $ ,if_byte_sw,ifgetz,ifgetw,ifdiro
|
|---|
| 38 |
|
|---|
| 39 | integer fid0,fid0r,pid0,pid1,pid0r,pid1r,pid00
|
|---|
| 40 | common /cmfi_p/ fid0,fid0r,pid0,pid1,pid0r,pid1r,pid00
|
|---|
| 41 |
|
|---|
| 42 | integer ifh_mbyte
|
|---|
| 43 | common /i4mpiio/ ifh_mbyte
|
|---|
