Symbol Description Uses
kLo 1rst level to - fill in / extract from - arrFld 76


File Line number Procedure Code
./pkg/mdsio/mdsio_pass_r4torl.F 100 MDS_PASS_R4TORL 
            kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r4torl.F 15 MDS_PASS_R4TORL 
      SUBROUTINE MDS_PASS_R4TORL( buffer, arrFld, nNz, kLo, kSize,
./pkg/mdsio/mdsio_pass_r4torl.F 44 MDS_PASS_R4TORL 
      INTEGER kLo
./pkg/mdsio/mdsio_pass_r4torl.F 62 MDS_PASS_R4TORL 
             kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r4torl.F 75 MDS_PASS_R4TORL 
             kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r4torl.F 91 MDS_PASS_R4TORL 
            kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r4tors.F 100 MDS_PASS_R4TORS 
            kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r4tors.F 15 MDS_PASS_R4TORS 
      SUBROUTINE MDS_PASS_R4TORS( buffer, arrFld, nNz, kLo, kSize,
./pkg/mdsio/mdsio_pass_r4tors.F 44 MDS_PASS_R4TORS 
      INTEGER kLo
./pkg/mdsio/mdsio_pass_r4tors.F 62 MDS_PASS_R4TORS 
             kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r4tors.F 75 MDS_PASS_R4TORS 
             kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r4tors.F 91 MDS_PASS_R4TORS 
            kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r8torl.F 100 MDS_PASS_R8TORL 
            kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r8torl.F 15 MDS_PASS_R8TORL 
      SUBROUTINE MDS_PASS_R8TORL( buffer, arrFld, nNz, kLo, kSize,
./pkg/mdsio/mdsio_pass_r8torl.F 44 MDS_PASS_R8TORL 
      INTEGER kLo
./pkg/mdsio/mdsio_pass_r8torl.F 62 MDS_PASS_R8TORL 
             kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r8torl.F 75 MDS_PASS_R8TORL 
             kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r8torl.F 91 MDS_PASS_R8TORL 
            kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r8tors.F 100 MDS_PASS_R8TORS 
            kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r8tors.F 15 MDS_PASS_R8TORS 
      SUBROUTINE MDS_PASS_R8TORS( buffer, arrFld, nNz, kLo, kSize,
./pkg/mdsio/mdsio_pass_r8tors.F 44 MDS_PASS_R8TORS 
      INTEGER kLo
./pkg/mdsio/mdsio_pass_r8tors.F 62 MDS_PASS_R8TORS 
             kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r8tors.F 75 MDS_PASS_R8TORS 
             kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r8tors.F 91 MDS_PASS_R8TORS 
            kLev = kLo+k-1
./pkg/mdsio/mdsio_read_field.F 130 MDS_READ_FIELD 
      nNz = 1 + kHi - kLo
./pkg/mdsio/mdsio_read_field.F 14 MDS_READ_FIELD 
     I   kSize,kLo,kHi,
./pkg/mdsio/mdsio_read_field.F 152 MDS_READ_FIELD 
      IF ( kLo.LT.1 .OR. kHi.GT.kSize ) THEN
./pkg/mdsio/mdsio_read_field.F 159 MDS_READ_FIELD 
     &    ' , kLo=', kLo, ' , kHi=', kHi
./pkg/mdsio/mdsio_read_field.F 267 MDS_READ_FIELD 
       DO k=kLo,kHi
./pkg/mdsio/mdsio_read_field.F 271 MDS_READ_FIELD 
          irec = 1 + k-kLo + (irecord-1)*nNz
./pkg/mdsio/mdsio_read_field.F 406 MDS_READ_FIELD 
           DO k=kLo,kHi
./pkg/mdsio/mdsio_read_field.F 410 MDS_READ_FIELD 
     &            +( k-kLo + (irecord-1)*nNz )*global_nTx*ySize
./pkg/mdsio/mdsio_read_field.F 411 MDS_READ_FIELD 
             i1 = bBij + 1 + (j-1)*sNx + (k-kLo)*sNx*sNy
./pkg/mdsio/mdsio_read_field.F 412 MDS_READ_FIELD 
             i2 = bBij +         j*sNx + (k-kLo)*sNx*sNy
./pkg/mdsio/mdsio_read_field.F 508 MDS_READ_FIELD 
     I                    nNz, kLo, kSize, 0, 0, .TRUE., myThid )
./pkg/mdsio/mdsio_read_field.F 511 MDS_READ_FIELD 
     I                    nNz, kLo, kSize, 0, 0, .TRUE., myThid )
./pkg/mdsio/mdsio_read_field.F 522 MDS_READ_FIELD 
     I                    nNz, kLo, kSize, 0, 0, .TRUE., myThid )
./pkg/mdsio/mdsio_read_field.F 525 MDS_READ_FIELD 
     I                    nNz, kLo, kSize, 0, 0, .TRUE., myThid )
./pkg/mdsio/mdsio_read_field.F 77 MDS_READ_FIELD 
      INTEGER kSize, kLo, kHi
./pkg/mdsio/mdsio_write_field.F 155 MDS_WRITE_FIELD 
      nNz = 1 + kHi - kLo
./pkg/mdsio/mdsio_write_field.F 15 MDS_WRITE_FIELD 
     I   kSize,kLo,kHi,
./pkg/mdsio/mdsio_write_field.F 179 MDS_WRITE_FIELD 
      IF ( kLo.LT.1 .OR. kHi.GT.kSize ) THEN
./pkg/mdsio/mdsio_write_field.F 186 MDS_WRITE_FIELD 
     &    ' , kLo=', kLo, ' , kHi=', kHi
./pkg/mdsio/mdsio_write_field.F 252 MDS_WRITE_FIELD 
       DO k=kLo,kHi
./pkg/mdsio/mdsio_write_field.F 253 MDS_WRITE_FIELD 
        zeroBuff = k.EQ.kLo
./pkg/mdsio/mdsio_write_field.F 310 MDS_WRITE_FIELD 
          irec = 1 + k-kLo + (irecord-1)*nNz
./pkg/mdsio/mdsio_write_field.F 340 MDS_WRITE_FIELD 
     I                    nNz, kLo, kSize, 0,0, .FALSE., myThid )
./pkg/mdsio/mdsio_write_field.F 343 MDS_WRITE_FIELD 
     I                    nNz, kLo, kSize, 0,0, .FALSE., myThid )
./pkg/mdsio/mdsio_write_field.F 354 MDS_WRITE_FIELD 
     I                    nNz, kLo, kSize, 0,0, .FALSE., myThid )
./pkg/mdsio/mdsio_write_field.F 357 MDS_WRITE_FIELD 
     I                    nNz, kLo, kSize, 0,0, .FALSE., myThid )
./pkg/mdsio/mdsio_write_field.F 438 MDS_WRITE_FIELD 
           DO k=kLo,kHi
./pkg/mdsio/mdsio_write_field.F 442 MDS_WRITE_FIELD 
     &            +( k-kLo + (irecord-1)*nNz )*global_nTx*ySize
./pkg/mdsio/mdsio_write_field.F 443 MDS_WRITE_FIELD 
             i1 = bBij + 1 + (j-1)*sNx + (k-kLo)*sNx*sNy
./pkg/mdsio/mdsio_write_field.F 444 MDS_WRITE_FIELD 
             i2 = bBij +         j*sNx + (k-kLo)*sNx*sNy
./pkg/mdsio/mdsio_write_field.F 90 MDS_WRITE_FIELD 
      INTEGER kSize, kLo, kHi
./pkg/rw/read_mflds.F 365 READ_MFLDS_LEV_RL 
     I                fPrec, kSiz, kLo, kHi, myIter, myThid )
./pkg/rw/read_mflds.F 396 READ_MFLDS_LEV_RL 
      INTEGER kSiz, kLo, kHi
./pkg/rw/read_mflds.F 474 READ_MFLDS_LEV_RL 
     I                       fType, kSiz, kLo, kHi,
./pkg/rw/read_rec.F 388 READ_REC_LEV_RS 
     I                           fName, fPrec, kSiz, kLo, kHi,
./pkg/rw/read_rec.F 410 READ_REC_LEV_RS 
      INTEGER kSiz, kLo, kHi
./pkg/rw/read_rec.F 441 READ_REC_LEV_RS 
     I                     fType, kSiz, kLo, kHi,
./pkg/rw/read_rec.F 453 READ_REC_LEV_RL 
     I                           fName, fPrec, kSiz, kLo, kHi,
./pkg/rw/read_rec.F 475 READ_REC_LEV_RL 
      INTEGER kSiz, kLo, kHi
./pkg/rw/read_rec.F 506 READ_REC_LEV_RL 
     I                     fType, kSiz, kLo, kHi,
./pkg/rw/write_rec.F 443 WRITE_REC_LEV_RS 
     I                            fName, fPrec, kSiz, kLo, kHi, field,
./pkg/rw/write_rec.F 464 WRITE_REC_LEV_RS 
      INTEGER kSiz, kLo, kHi
./pkg/rw/write_rec.F 499 WRITE_REC_LEV_RS 
     I                      fType, kSiz, kLo, kHi, dummyRL, field,
./pkg/rw/write_rec.F 510 WRITE_REC_LEV_RL 
     I                            fName, fPrec, kSiz, kLo, kHi, field,
./pkg/rw/write_rec.F 531 WRITE_REC_LEV_RL 
      INTEGER kSiz, kLo, kHi
./pkg/rw/write_rec.F 566 WRITE_REC_LEV_RL 
     I                      fType, kSiz, kLo, kHi, field, dummyRS,
./eesupp/src/print.F 1112 PRINT_MAPRL 
     I        iLo,   iHi,   jLo,   jHi,  kLo,  kHi, nBx, nBy,
./eesupp/src/print.F 1169 PRINT_MAPRL 
      INTEGER kLo, kHi
./eesupp/src/print.F 1171 PRINT_MAPRL 
      _RL fld(iLo:iHi,jLo:jHi,kLo:kHi,nBx,nBy)
./eesupp/src/print.F 679 PRINT_MAPRS 
     I        iLo,   iHi,   jLo,   jHi,  kLo,  kHi, nBx, nBy,
./eesupp/src/print.F 736 PRINT_MAPRS 
      INTEGER kLo, kHi
./eesupp/src/print.F 738 PRINT_MAPRS 
      _RS fld(iLo:iHi,jLo:jHi,kLo:kHi,nBx,nBy)