Symbol Description Uses
i1 position of 1rst left parenthesis 143


File Line number Procedure Code
./pkg/exch2/w2_set_f2f_index.F 37 W2_SET_F2F_INDEX 
      INTEGER i, j, ii, jj, i1, j1, k, lo, ll
./pkg/exch2/w2_set_f2f_index.F 72 W2_SET_F2F_INDEX 
          i1 = MOD( NINT(facet_link(ii,jj)*10.), 10 )
./pkg/exch2/w2_set_f2f_index.F 73 W2_SET_F2F_INDEX 
          IF ( j1.NE.j .OR. i1.NE.i ) THEN
./pkg/exch2/w2_set_f2f_index.F 78 W2_SET_F2F_INDEX 
          IF ( i1.GE.1 .AND. i1.LE.4 ) THEN
./pkg/exch2/w2_set_f2f_index.F 81 W2_SET_F2F_INDEX 
     &      edge(i1),'.Edge facet #',j1,' (',facet_link(ii,jj),' )'
./pkg/flt/flt_interp_linear.F 138 FLT_TRILINEAR 
      INTEGER i1, j1, k1, i2, j2, k2
./pkg/flt/flt_interp_linear.F 152 FLT_TRILINEAR 
        i1 = INT(ix)
./pkg/flt/flt_interp_linear.F 153 FLT_TRILINEAR 
        ddx = ix - DFLOAT(i1)
./pkg/flt/flt_interp_linear.F 155 FLT_TRILINEAR 
        i1 = NINT(ix)
./pkg/flt/flt_interp_linear.F 156 FLT_TRILINEAR 
        ddx = 0.5 _d 0 + ix - DFLOAT(i1)
./pkg/flt/flt_interp_linear.F 176 FLT_TRILINEAR 
      i2 = i1 + 1
./pkg/flt/flt_interp_linear.F 187 FLT_TRILINEAR 
      uu = (1.-ddz)*( ( (1.-ddx)*(1.-ddy)*var(i1,j1,k1,bi,bj)
./pkg/flt/flt_interp_linear.F 190 FLT_TRILINEAR 
     &                + (1.-ddx)* ddy    *var(i1,j2,k1,bi,bj) ) )
./pkg/flt/flt_interp_linear.F 191 FLT_TRILINEAR 
     &   +   ddz   *( ( (1.-ddx)*(1.-ddy)*var(i1,j1,k2,bi,bj)
./pkg/flt/flt_interp_linear.F 194 FLT_TRILINEAR 
     &                + (1.-ddx)* ddy    *var(i1,j2,k2,bi,bj) ) )
./pkg/flt/flt_interp_linear.F 230 FLT_BILINEAR2D 
      INTEGER i1, j1, i2, j2
./pkg/flt/flt_interp_linear.F 244 FLT_BILINEAR2D 
        i1 = INT(ix)
./pkg/flt/flt_interp_linear.F 245 FLT_BILINEAR2D 
        ddx = ix - DFLOAT(i1)
./pkg/flt/flt_interp_linear.F 247 FLT_BILINEAR2D 
        i1 = NINT(ix)
./pkg/flt/flt_interp_linear.F 248 FLT_BILINEAR2D 
        ddx = 0.5 _d 0 + ix - DFLOAT(i1)
./pkg/flt/flt_interp_linear.F 260 FLT_BILINEAR2D 
      i2 = i1 + 1
./pkg/flt/flt_interp_linear.F 266 FLT_BILINEAR2D 
      uu =            ( (1.-ddx)*(1.-ddy)*var(i1,j1,bi,bj)
./pkg/flt/flt_interp_linear.F 269 FLT_BILINEAR2D 
     &                + (1.-ddx)* ddy    *var(i1,j2,bi,bj) )
./pkg/flt/flt_interp_linear.F 39 FLT_BILINEAR 
      INTEGER i1, j1, i2, j2, klp
./pkg/flt/flt_interp_linear.F 61 FLT_BILINEAR 
        i1 = INT(ix)
./pkg/flt/flt_interp_linear.F 62 FLT_BILINEAR 
        ddx = ix - DFLOAT(i1)
./pkg/flt/flt_interp_linear.F 64 FLT_BILINEAR 
        i1 = NINT(ix)
./pkg/flt/flt_interp_linear.F 65 FLT_BILINEAR 
        ddx = 0.5 _d 0 + ix - DFLOAT(i1)
./pkg/flt/flt_interp_linear.F 77 FLT_BILINEAR 
      i2 = i1 + 1
./pkg/flt/flt_interp_linear.F 84 FLT_BILINEAR 
        uu =          ( (1.-ddx)*(1.-ddy)*var(i1,j1,kl,bi,bj)
./pkg/flt/flt_interp_linear.F 87 FLT_BILINEAR 
     &                + (1.-ddx)* ddy    *var(i1,j2,kl,bi,bj) )
./pkg/flt/flt_interp_linear.F 90 FLT_BILINEAR 
        u11 = ( var(i1,j1,kl,bi,bj)+var(i1,j1,klp,bi,bj) )*0.5 _d 0
./pkg/flt/flt_interp_linear.F 93 FLT_BILINEAR 
        u12 = ( var(i1,j2,kl,bi,bj)+var(i1,j2,klp,bi,bj) )*0.5 _d 0
./pkg/gridalt/gridalt_update.F 30 GRIDALT_UPDATE 
       integer i1,i2,j1,j2,bi,bj
./pkg/gridalt/gridalt_update.F 40 GRIDALT_UPDATE 
       i1 = 1
./pkg/gridalt/gridalt_update.F 54 GRIDALT_UPDATE 
          do i = i1,i2
./pkg/gridalt/gridalt_update.F 75 GRIDALT_UPDATE 
          do i = i1,i2
./pkg/gridalt/make_phys_grid.F 122 MAKE_PHYS_GRID 
       do i = i1,i2
./pkg/gridalt/make_phys_grid.F 48 MAKE_PHYS_GRID 
       integer i1,i2,j1,j2,bi,bj
./pkg/gridalt/make_phys_grid.F 7 MAKE_PHYS_GRID 
     & nSx,nSy,i1,i2,j1,j2,bi,bj,Nrphys,Lbot,dpphys,numlevphys,nlperdyn)
./pkg/gridalt/make_phys_grid.F 97 MAKE_PHYS_GRID 
        do i = i1,i2+1
./pkg/mdsio/mdsio_read_field.F 111 MDS_READ_FIELD 
      INTEGER i1,i2,i,j,k,nNz
./pkg/mdsio/mdsio_read_field.F 435 MDS_READ_FIELD 
             i1 = bBij + 1 + (j-1)*sNx + (k-kLo)*sNx*sNy
./pkg/mdsio/mdsio_read_field.F 438 MDS_READ_FIELD 
              READ(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2)
./pkg/mdsio/mdsio_read_field.F 440 MDS_READ_FIELD 
              READ(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2)
./pkg/mdsio/mdsio_read_field.F 487 MDS_READ_FIELD 
           i1 = bBij + 1
./pkg/mdsio/mdsio_read_field.F 490 MDS_READ_FIELD 
             READ(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2)
./pkg/mdsio/mdsio_read_field.F 492 MDS_READ_FIELD 
             READ(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2)
./pkg/mdsio/mdsio_write_field.F 128 MDS_WRITE_FIELD 
      INTEGER i1,i2,i,j,k,nNz
./pkg/mdsio/mdsio_write_field.F 482 MDS_WRITE_FIELD 
             i1 = bBij + 1 + (j-1)*sNx + (k-kLo)*sNx*sNy
./pkg/mdsio/mdsio_write_field.F 485 MDS_WRITE_FIELD 
              WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2)
./pkg/mdsio/mdsio_write_field.F 487 MDS_WRITE_FIELD 
              WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2)
./pkg/mdsio/mdsio_write_field.F 512 MDS_WRITE_FIELD 
           i1 = bBij + 1
./pkg/mdsio/mdsio_write_field.F 515 MDS_WRITE_FIELD 
             WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2)
./pkg/mdsio/mdsio_write_field.F 517 MDS_WRITE_FIELD 
             WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2)
./pkg/mdsio/mdsio_writelocal.F 115 MDS_WRITELOCAL 
      INTEGER i1,i2,i,j,k
./pkg/mdsio/mdsio_writelocal.F 291 MDS_WRITELOCAL 
          i1 = bBij + 1
./pkg/mdsio/mdsio_writelocal.F 294 MDS_WRITELOCAL 
            CALL MDS_BYTESWAPR4( sNx*sNy*nNz, shared3dBuf_r4(i1) )
./pkg/mdsio/mdsio_writelocal.F 296 MDS_WRITELOCAL 
            CALL MDS_BYTESWAPR8( sNx*sNy*nNz, shared3dBuf_r8(i1) )
./pkg/mdsio/mdsio_writelocal.F 336 MDS_WRITELOCAL 
             i1 = bBij + 1 + (j-1)*sNx + (k-1)*sNx*sNy
./pkg/mdsio/mdsio_writelocal.F 339 MDS_WRITELOCAL 
               WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2)
./pkg/mdsio/mdsio_writelocal.F 341 MDS_WRITELOCAL 
               WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2)
./pkg/mdsio/mdsio_writelocal.F 366 MDS_WRITELOCAL 
            i1 = bBij + 1
./pkg/mdsio/mdsio_writelocal.F 369 MDS_WRITELOCAL 
              WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2)
./pkg/mdsio/mdsio_writelocal.F 371 MDS_WRITELOCAL 
              WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2)
./pkg/openad/the_model_main.F 314 THE_MODEL_MAIN 
      INTEGER i1, i2, i3, i4, i5
./pkg/openad/the_model_main.F 469 THE_MODEL_MAIN 
      do i1=1-olx,snx+olx
./pkg/openad/the_model_main.F 477 THE_MODEL_MAIN 
     +i1,',',i2,',',i3,',',i4,',',i5,') salt/theta ',
./pkg/openad/the_model_main.F 478 THE_MODEL_MAIN 
     +xx_salt(i1,i2,i3,i4,i5)d,'/',xx_theta(i1,i2,i3,i4,i5)d
./pkg/seaice/seaice_fgmres.F 343 SEAICE_FGMRES 
      integer i1, ii, j, jj, k, k1!, n1
./pkg/seaice/seaice_fgmres.F 454 SEAICE_FGMRES 
      i1 = i1Thid(myThid)
./pkg/seaice/seaice_fgmres.F 458 SEAICE_FGMRES 
         vv(k,i1,bi,bj)=wk2(k,bi,bj)
./pkg/seaice/seaice_fgmres.F 466 SEAICE_FGMRES 
       call SEAICE_SCALPROD(n, im+1, j, i1, vv, vv, t, myThid)
./pkg/seaice/seaice_fgmres.F 471 SEAICE_FGMRES 
          vv(k,i1,bi,bj) = vv(k,i1,bi,bj) - t*vv(k,j,bi,bj)
./pkg/seaice/seaice_fgmres.F 476 SEAICE_FGMRES 
      call SEAICE_SCALPROD(n, im+1, i1, i1, vv, vv, t, myThid)
./pkg/seaice/seaice_fgmres.F 478 SEAICE_FGMRES 
      hh(i1,i,myThid) = t
./pkg/seaice/seaice_fgmres.F 484 SEAICE_FGMRES 
          vv(k,i1,bi,bj) = vv(k,i1,bi,bj)*t
./pkg/seaice/seaice_fgmres.F 504 SEAICE_FGMRES 
      gam = sqrt(hh(i,i,myThid)**2 + hh(i1,i,myThid)**2)
./pkg/seaice/seaice_fgmres.F 508 SEAICE_FGMRES 
      s(i,myThid)   = hh(i1,i,myThid)/gam
./pkg/seaice/seaice_fgmres.F 524 SEAICE_FGMRES 
      rs(i1,myThid) = -s(i,myThid)*rs(i,myThid)
./pkg/seaice/seaice_fgmres.F 530 SEAICE_FGMRES 
     &     +           s(i,myThid)*hh(i1,i,myThid)
./pkg/seaice/seaice_fgmres.F 531 SEAICE_FGMRES 
      ro = abs(rs(i1,myThid))
./pkg/seaice/seaice_fgmres.F 580 SEAICE_FGMRES 
      i1 = i1Thid(myThid)
./pkg/seaice/seaice_fgmres.F 582 SEAICE_FGMRES 
       jj = i1-j+1
./pkg/seaice/seaice_fgmres.F 586 SEAICE_FGMRES 
      do j=1,i1
./pkg/seaice/seaice_fgmres.F 616 SEAICE_SCALPROD 
      subroutine SEAICE_SCALPROD(n,im,i1,i2,dx,dy,t,myThid)
./pkg/seaice/seaice_fgmres.F 629 SEAICE_SCALPROD 
      integer n, im, i1, i2
./pkg/seaice/seaice_fgmres.F 648 SEAICE_SCALPROD 
          dtemp(bi,bj) = dtemp(bi,bj) + dx(i,i1,bi,bj)*dy(i,i2,bi,bj)
./pkg/seaice/seaice_fgmres.F 657 SEAICE_SCALPROD 
     &        dx(i,    i1,bi,bj)*dy(i,    i2,bi,bj)
./pkg/seaice/seaice_fgmres.F 659 SEAICE_SCALPROD 
     &        dx(i + 1,i1,bi,bj)*dy(i + 1,i2,bi,bj)
./pkg/seaice/seaice_fgmres.F 661 SEAICE_SCALPROD 
     &        dx(i + 2,i1,bi,bj)*dy(i + 2,i2,bi,bj)
./pkg/seaice/seaice_fgmres.F 663 SEAICE_SCALPROD 
     &        dx(i + 3,i1,bi,bj)*dy(i + 3,i2,bi,bj)
./pkg/seaice/seaice_fgmres.F 665 SEAICE_SCALPROD 
     &        dx(i + 4,i1,bi,bj)*dy(i + 4,i2,bi,bj)
./pkg/aim_v23/phy_suflux_post.F 146 SUFLUX_POST 
         i1 = 1 + mod((J-1),sNx)
./pkg/aim_v23/phy_suflux_post.F 158 SUFLUX_POST 
     &        i1,j1,bi,bj,myThid,J,xC(i1,j1,bi,bj),yC(i1,j1,bi,bj)
./pkg/aim_v23/phy_suflux_post.F 93 SUFLUX_POST 
      INTEGER J,i1,j1
./eesupp/src/mds_byteswapr8.F 20 MDS_BYTESWAPR8 
      integer(kind=8) arr(n),i64,i1
./eesupp/src/mds_byteswapr8.F 25 MDS_BYTESWAPR8 
      i64(i1) = ishft(i1 .and. z'ff00000000000000',-56).or.
./eesupp/src/mds_byteswapr8.F 26 MDS_BYTESWAPR8 
     &          ishft(i1 .and. z'00ff000000000000',-40).or.
./eesupp/src/mds_byteswapr8.F 27 MDS_BYTESWAPR8 
     &          ishft(i1 .and. z'0000ff0000000000',-24).or.
./eesupp/src/mds_byteswapr8.F 28 MDS_BYTESWAPR8 
     &          ishft(i1 .and. z'000000ff00000000', -8).or.
./eesupp/src/mds_byteswapr8.F 29 MDS_BYTESWAPR8 
     &          ishft(i1 .and. z'00000000ff000000',  8).or.
./eesupp/src/mds_byteswapr8.F 30 MDS_BYTESWAPR8 
     &          ishft(i1 .and. z'0000000000ff0000', 24).or.
./eesupp/src/mds_byteswapr8.F 31 MDS_BYTESWAPR8 
     &          ishft(i1 .and. z'000000000000ff00', 40).or.
./eesupp/src/mds_byteswapr8.F 32 MDS_BYTESWAPR8 
     &          ishft(i1 .and. z'00000000000000ff', 56)
./eesupp/src/nml_change_syntax.F 110 NML_CHANGE_SYNTAX 
        IF ( record(i:i).EQ.'(' .AND. i1.EQ.0 ) i1 = -i
./eesupp/src/nml_change_syntax.F 111 NML_CHANGE_SYNTAX 
        IF ( record(i:i).EQ.':' .AND. i1.LT.0 ) THEN
./eesupp/src/nml_change_syntax.F 122 NML_CHANGE_SYNTAX 
            i1 = 1
./eesupp/src/nml_change_syntax.F 125 NML_CHANGE_SYNTAX 
        IF ( record(i:i).EQ.',' .AND. i1.LT.0 ) THEN
./eesupp/src/nml_change_syntax.F 129 NML_CHANGE_SYNTAX 
        IF ( record(i:i).EQ.')' .AND. i1.LT.0 ) THEN
./eesupp/src/nml_change_syntax.F 130 NML_CHANGE_SYNTAX 
          i1 = -i1
./eesupp/src/nml_change_syntax.F 139 NML_CHANGE_SYNTAX 
     &  '  i0,nWd,comma =',i0,nWd,comma,' ; i1,i2,i3,i4 =',i1,i2,i3,i4
./eesupp/src/nml_change_syntax.F 141 NML_CHANGE_SYNTAX 
      IF ( i4.EQ.0 .AND. i1.NE.0 ) THEN
./eesupp/src/nml_change_syntax.F 143 NML_CHANGE_SYNTAX 
        IF ( i1.NE.1 ) THEN
./eesupp/src/nml_change_syntax.F 157 NML_CHANGE_SYNTAX 
       IF ( i2.GT.i1+1 ) THEN
./eesupp/src/nml_change_syntax.F 158 NML_CHANGE_SYNTAX 
         is = IFNBLNK(record(i1+1:i2-1))
./eesupp/src/nml_change_syntax.F 159 NML_CHANGE_SYNTAX 
         ie = ILNBLNK(record(i1+1:i2-1))
./eesupp/src/nml_change_syntax.F 160 NML_CHANGE_SYNTAX 
         i = i1+is
./eesupp/src/nml_change_syntax.F 164 NML_CHANGE_SYNTAX 
          DO i=i1+is,i1+ie
./eesupp/src/nml_change_syntax.F 64 NML_CHANGE_SYNTAX 
      INTEGER i0, i1, i2, i3, i4
./eesupp/src/nml_change_syntax.F 87 NML_CHANGE_SYNTAX 
      i1 = 0
./eesupp/src/write_utils.F 181 WRITE_1D_RL 
      INTEGER i, j, ic, i1, i2, nCount
./eesupp/src/write_utils.F 214 WRITE_1D_RL 
        i1 = 1+ic-2
./eesupp/src/write_utils.F 217 WRITE_1D_RL 
        i1 = MAX(i1,1)
./eesupp/src/write_utils.F 219 WRITE_1D_RL 
        CALL PRINT_LIST_RL( fld(i1), i1, i2, index_type, .TRUE.,
./eesupp/src/write_utils.F 225 WRITE_1D_RL 
        i1 = MAX(lFld-2,1)
./eesupp/src/write_utils.F 227 WRITE_1D_RL 
        CALL PRINT_LIST_RL( fld(i1), i1, i2, index_type, .FALSE.,