| File |
Line number |
Procedure |
Code |
|
./pkg/mdsio/mdsio_read_meta.F |
124 |
MDS_READ_META |
nFldFil = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
181 |
MDS_READ_META |
nFldFil = -1 |
|
./pkg/mdsio/mdsio_read_meta.F |
355 |
MDS_READ_META |
IF ( nFldFil.EQ.0 .AND. |
|
./pkg/mdsio/mdsio_read_meta.F |
357 |
MDS_READ_META |
READ(lineBuf(12:iL),'(I4)') nFldFil |
|
./pkg/mdsio/mdsio_read_meta.F |
358 |
MDS_READ_META |
IF ( nFldFil.GT.nFlds .AND. nFlds.GE.1 ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
360 |
MDS_READ_META |
& nFldFil, ' too large ( >', nFlds, ' )' |
|
./pkg/mdsio/mdsio_read_meta.F |
368 |
MDS_READ_META |
IF ( nFldFil.GE.1 .AND. nFlds.GE.1 .AND. |
|
./pkg/mdsio/mdsio_read_meta.F |
370 |
MDS_READ_META |
DO j=1,nFldFil,20 |
|
./pkg/mdsio/mdsio_read_meta.F |
372 |
MDS_READ_META |
& (fldList(i),i=j,MIN(nFldFil,j+19)) |
|
./pkg/mdsio/mdsio_read_meta.F |
383 |
MDS_READ_META |
& nFldFil, ' , j=', j |
|
./pkg/mdsio/mdsio_read_meta.F |
412 |
MDS_READ_META |
nFlds = nFldFil |
|
./pkg/mdsio/mdsio_read_meta.F |
92 |
MDS_READ_META |
INTEGER nDimFil, nFldFil, nTimFil |