Symbol Description Uses
OFFSET 37


File Line number Procedure Code
./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