| File |
Line number |
Procedure |
Code |
|
./pkg/mdsio/mdsio_read_meta.F |
122 |
MDS_READ_META |
nFldFil = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
179 |
MDS_READ_META |
nFldFil = -1 |
|
./pkg/mdsio/mdsio_read_meta.F |
346 |
MDS_READ_META |
IF ( nFldFil.EQ.0 .AND. |
|
./pkg/mdsio/mdsio_read_meta.F |
348 |
MDS_READ_META |
READ(lineBuf(12:iL),'(I4)') nFldFil |
|
./pkg/mdsio/mdsio_read_meta.F |
349 |
MDS_READ_META |
IF ( nFldFil.GT.nFlds .AND. nFlds.GE.1 ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
351 |
MDS_READ_META |
& nFldFil, ' too large ( >', nFlds, ' )' |
|
./pkg/mdsio/mdsio_read_meta.F |
359 |
MDS_READ_META |
IF ( nFldFil.GE.1 .AND. nFlds.GE.1 .AND. |
|
./pkg/mdsio/mdsio_read_meta.F |
361 |
MDS_READ_META |
DO j=1,nFldFil,20 |
|
./pkg/mdsio/mdsio_read_meta.F |
363 |
MDS_READ_META |
& (fldList(i),i=j,MIN(nFldFil,j+19)) |
|
./pkg/mdsio/mdsio_read_meta.F |
374 |
MDS_READ_META |
& nFldFil, ' , j=', j |
|
./pkg/mdsio/mdsio_read_meta.F |
403 |
MDS_READ_META |
nFlds = nFldFil |
|
./pkg/mdsio/mdsio_read_meta.F |
91 |
MDS_READ_META |
INTEGER nDimFil, nFldFil, nTimFil |