Symbol Description Uses
OFFSET 37


File Line number Procedure Code
./pkg/fizhi/fizhi_utils.F 103 STRIPINT 
        B(I,J) = A(I+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 108 STRIPINT 
        B(I,J) = A(I+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 111 STRIPINT 
        B(Lena+I,J) = A(Lena+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 123 PASTE 
      INTEGER OFFSET,Lena,i,j
./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 127 PASTE 
      OFFSET = OFFSET+1
./pkg/fizhi/fizhi_utils.F 131 PASTE 
      A(I+OFFSET-1,J) = B(I,J)
./pkg/fizhi/fizhi_utils.F 141 PSTBMP 
      INTEGER OFFSET,Lena,i,j
./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 145 PSTBMP 
      OFFSET = OFFSET+1
./pkg/fizhi/fizhi_utils.F 149 PSTBMP 
      A(I+OFFSET-1,J) = A(I+OFFSET-1,J) + B(I,J)
./pkg/fizhi/fizhi_utils.F 159 STRINT 
      INTEGER OFFSET,Lena,i,j
./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 163 STRINT 
      OFFSET = OFFSET+1
./pkg/fizhi/fizhi_utils.F 168 STRINT 
        B(I,J) = A(I+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 173 STRINT 
        B(I,J) = A(I+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 176 STRINT 
        B(Lena+I,J) = A(Lena+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 65 STRIP 
      INTEGER OFFSET,Lena,i,j
./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 69 STRIP 
      OFFSET = OFFSET+1
./pkg/fizhi/fizhi_utils.F 74 STRIP 
        B(I,J) = A(I+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 79 STRIP 
        B(I,J) = A(I+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 82 STRIP 
        B(Lena+I,J) = A(Lena+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 94 STRIPINT 
      INTEGER OFFSET,Lena,i,j
./pkg/fizhi/fizhi_utils.F 96 STRIPINT 
      OFFSET = IB*(K-1)
./pkg/fizhi/fizhi_utils.F 97 STRIPINT 
      Lena    = MIN(IB,IA-OFFSET)
./pkg/fizhi/fizhi_utils.F 98 STRIPINT 
      OFFSET = OFFSET+1