Symbol Description Uses
IB 36



File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 1288 RAS
       IB = IC(NC)
./pkg/fizhi/fizhi_moist.F 1296 RAS
       CALL CLOUD(nn,lng, LENC, K, NLTOP, nlayr, IB, RASBLF,SETRAS,FRAC
./pkg/fizhi/fizhi_moist.F 1339 RAS
      DO L=IB,K
./pkg/fizhi/fizhi_moist.F 1347 RAS
      DO L=IB,K
./pkg/fizhi/fizhi_utils.F 100 STRIPINT
      IF(Lena.EQ.IB) THEN
./pkg/fizhi/fizhi_utils.F 110 STRIPINT
        DO 400 I=1,IB-Lena
./pkg/fizhi/fizhi_utils.F 118 PASTE
      SUBROUTINE PASTE(B,A,IB,IA,L,K)
./pkg/fizhi/fizhi_utils.F 121 PASTE
      _RL A(IA,L), B(IB,L)
./pkg/fizhi/fizhi_utils.F 125 PASTE
      OFFSET = IB*(K-1)
./pkg/fizhi/fizhi_utils.F 126 PASTE
      Lena    = MIN(IB,IA-OFFSET)
./pkg/fizhi/fizhi_utils.F 136 PSTBMP
      SUBROUTINE PSTBMP(B,A,IB,IA,L,K)
./pkg/fizhi/fizhi_utils.F 139 PSTBMP
      _RL A(IA,L), B(IB,L)
./pkg/fizhi/fizhi_utils.F 143 PSTBMP
      OFFSET = IB*(K-1)
./pkg/fizhi/fizhi_utils.F 144 PSTBMP
      Lena    = MIN(IB,IA-OFFSET)
./pkg/fizhi/fizhi_utils.F 154 STRINT
      SUBROUTINE STRINT(A,B,IA,IB,L,K)
./pkg/fizhi/fizhi_utils.F 157 STRINT
      INTEGER A(IA,L), B(IB,L)
./pkg/fizhi/fizhi_utils.F 161 STRINT
      OFFSET = IB*(K-1)
./pkg/fizhi/fizhi_utils.F 162 STRINT
      Lena = MIN(IB,IA-OFFSET)
./pkg/fizhi/fizhi_utils.F 165 STRINT
      IF(Lena.EQ.IB) THEN
./pkg/fizhi/fizhi_utils.F 175 STRINT
        DO 400 I=1,IB-Lena
./pkg/fizhi/fizhi_utils.F 60 STRIP
      SUBROUTINE STRIP(A,B,IA,IB,L,K)
./pkg/fizhi/fizhi_utils.F 63 STRIP
      _RL A(IA,L), B(IB,L)
./pkg/fizhi/fizhi_utils.F 67 STRIP
      OFFSET = IB*(K-1)
./pkg/fizhi/fizhi_utils.F 68 STRIP
      Lena    = MIN(IB,IA-OFFSET)
./pkg/fizhi/fizhi_utils.F 71 STRIP
      IF(Lena.EQ.IB) THEN
./pkg/fizhi/fizhi_utils.F 81 STRIP
        DO 400 I=1,IB-Lena
./pkg/fizhi/fizhi_utils.F 89 STRIPINT
      SUBROUTINE STRIPINT(A,B,IA,IB,L,K)
./pkg/fizhi/fizhi_utils.F 92 STRIPINT
      INTEGER A(IA,L), B(IB,L)
./pkg/fizhi/fizhi_utils.F 96 STRIPINT
      OFFSET = IB*(K-1)
./pkg/fizhi/fizhi_utils.F 97 STRIPINT
      Lena    = MIN(IB,IA-OFFSET)
./pkg/zonal_filt/fftpack.F 1813 R8FFTI1
         IB = NF-I+2
./pkg/zonal_filt/fftpack.F 1814 R8FFTI1
         IFAC(IB+2) = IFAC(IB+1)
./pkg/zonal_filt/fftpack.F 907 RFFTI1
         IB = NF-I+2
./pkg/zonal_filt/fftpack.F 908 RFFTI1
         IFAC(IB+2) = IFAC(IB+1)