36 |
C !LOCAL VARIABLES: |
C !LOCAL VARIABLES: |
37 |
C fn :: character buffer for creating filename |
C fn :: character buffer for creating filename |
38 |
C prec :: precision of pickup files |
C prec :: precision of pickup files |
|
C lgf :: flag to write "global" files |
|
39 |
C k :: loop index |
C k :: loop index |
40 |
INTEGER prec, iChar, lChar, k |
INTEGER prec |
41 |
CHARACTER*(MAX_LEN_FNAM) fn |
CHARACTER*(MAX_LEN_FNAM) fn |
|
LOGICAL lgf |
|
42 |
|
|
43 |
WRITE(fn,'(A,I10.10)') 'pickup_fizhi.',myIter |
WRITE(fn,'(A,I10.10)') 'pickup_fizhi.',myIter |
44 |
prec = precFloat64 |
prec = precFloat64 |