68 |
C the meta-file content is stored in common block (header: RW_MFLDS.h) |
C the meta-file content is stored in common block (header: RW_MFLDS.h) |
69 |
C to be reachable by all threads |
C to be reachable by all threads |
70 |
|
|
71 |
|
C Note: 1) Output arguments should not be shared variables (= not in common block) |
72 |
|
C 2) Only master-thread returns a valid filePrec (others just return 0) |
73 |
|
|
74 |
C !USES: |
C !USES: |
75 |
IMPLICIT NONE |
IMPLICIT NONE |
76 |
#include "SIZE.h" |
#include "SIZE.h" |
115 |
|
|
116 |
C----- |
C----- |
117 |
|
|
118 |
|
C- Initialise output arguments: |
119 |
|
nbFields = 0 |
120 |
|
filePrec = 0 |
121 |
|
|
122 |
#ifdef RW_SAFE_MFLDS |
#ifdef RW_SAFE_MFLDS |
123 |
i = ILNBLNK(mFldsFile) |
i = ILNBLNK(mFldsFile) |
124 |
IF ( i.NE.0 ) THEN |
IF ( i.NE.0 ) THEN |
181 |
c IF ( nFl3D.EQ.0 ) nFl3D = nFlds |
c IF ( nFl3D.EQ.0 ) nFl3D = nFlds |
182 |
ENDIF |
ENDIF |
183 |
|
|
|
C- set output arguments: |
|
|
nbFields = nFlds |
|
|
|
|
184 |
C- write to Standard Output |
C- write to Standard Output |
185 |
IF ( debugLevel.GE.debLevA ) THEN |
IF ( debugLevel.GE.debLevA ) THEN |
186 |
ioUnit = standardMessageUnit |
ioUnit = standardMessageUnit |
223 |
_END_MASTER( myThid ) |
_END_MASTER( myThid ) |
224 |
_BARRIER |
_BARRIER |
225 |
|
|
226 |
|
C- set output arguments: |
227 |
|
nbFields = nFlds |
228 |
|
|
229 |
RETURN |
RETURN |
230 |
END |
END |
231 |
|
|