Symbol Description Uses
Lena 78


File Line number Procedure Code
./pkg/fizhi/fizhi_utils.F 100 STRIPINT 
      IF(Lena.EQ.IB) THEN
./pkg/fizhi/fizhi_utils.F 102 STRIPINT 
        DO 100 I=1,Lena
./pkg/fizhi/fizhi_utils.F 107 STRIPINT 
        DO 300 I=1,Lena
./pkg/fizhi/fizhi_utils.F 110 STRIPINT 
        DO 400 I=1,IB-Lena
./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 126 PASTE 
      Lena    = MIN(IB,IA-OFFSET)
./pkg/fizhi/fizhi_utils.F 130 PASTE 
      DO 100 I=1,Lena
./pkg/fizhi/fizhi_utils.F 141 PSTBMP 
      INTEGER OFFSET,Lena,i,j
./pkg/fizhi/fizhi_utils.F 144 PSTBMP 
      Lena    = MIN(IB,IA-OFFSET)
./pkg/fizhi/fizhi_utils.F 148 PSTBMP 
      DO 100 I=1,Lena
./pkg/fizhi/fizhi_utils.F 159 STRINT 
      INTEGER OFFSET,Lena,i,j
./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 167 STRINT 
        DO 100 I=1,Lena
./pkg/fizhi/fizhi_utils.F 172 STRINT 
        DO 300 I=1,Lena
./pkg/fizhi/fizhi_utils.F 175 STRINT 
        DO 400 I=1,IB-Lena
./pkg/fizhi/fizhi_utils.F 176 STRINT 
        B(Lena+I,J) = A(Lena+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 395 STRIPIT 
      integer   i,j,Lena,offset
./pkg/fizhi/fizhi_utils.F 398 STRIPIT 
      Lena    = min(ib,irun-offset)
./pkg/fizhi/fizhi_utils.F 401 STRIPIT 
      if(Lena.eq.ib) then
./pkg/fizhi/fizhi_utils.F 403 STRIPIT 
        do 100 i=1,Lena
./pkg/fizhi/fizhi_utils.F 408 STRIPIT 
        do 300 i=1,Lena
./pkg/fizhi/fizhi_utils.F 411 STRIPIT 
        do 400 i=1,ib-Lena
./pkg/fizhi/fizhi_utils.F 412 STRIPIT 
        b(Lena+i,j) = a(Lena+offset-1,j)
./pkg/fizhi/fizhi_utils.F 422 STRIPITINT 
      integer i,j,Lena,offset
./pkg/fizhi/fizhi_utils.F 425 STRIPITINT 
      Lena = min(ib,irun-offset)
./pkg/fizhi/fizhi_utils.F 428 STRIPITINT 
      if(Lena.eq.ib) then
./pkg/fizhi/fizhi_utils.F 430 STRIPITINT 
        do 100 i=1,Lena
./pkg/fizhi/fizhi_utils.F 435 STRIPITINT 
        do 300 i=1,Lena
./pkg/fizhi/fizhi_utils.F 438 STRIPITINT 
        do 400 i=1,ib-Lena
./pkg/fizhi/fizhi_utils.F 439 STRIPITINT 
        b(Lena+i,j) = a(Lena+offset-1,j)
./pkg/fizhi/fizhi_utils.F 448 PASTIT 
      integer ib,ia,L,k,irun,Lena,offset
./pkg/fizhi/fizhi_utils.F 453 PASTIT 
      Lena    = min(ib,irun-offset)
./pkg/fizhi/fizhi_utils.F 457 PASTIT 
      do 100 i=1,Lena
./pkg/fizhi/fizhi_utils.F 465 PSTBITINT 
      integer ib,ia,L,k,irun,Lena,offset
./pkg/fizhi/fizhi_utils.F 471 PSTBITINT 
      Lena    = min(ib,irun-offset)
./pkg/fizhi/fizhi_utils.F 475 PSTBITINT 
      do 100 i=1,Lena
./pkg/fizhi/fizhi_utils.F 484 PSTBMPIT 
      integer ib,ia,L,k,irun,Lena,offset
./pkg/fizhi/fizhi_utils.F 489 PSTBMPIT 
      Lena    = min(ib,irun-offset)
./pkg/fizhi/fizhi_utils.F 493 PSTBMPIT 
      do 100 i=1,Lena
./pkg/fizhi/fizhi_utils.F 522 STRIP2TILE 
      integer i,k,Lena,offset
./pkg/fizhi/fizhi_utils.F 525 STRIP2TILE 
      Lena    = min(ib,irun-offset)
./pkg/fizhi/fizhi_utils.F 528 STRIP2TILE 
      if(Lena.eq.ib) then
./pkg/fizhi/fizhi_utils.F 530 STRIP2TILE 
        do 100 i=1,Lena
./pkg/fizhi/fizhi_utils.F 535 STRIP2TILE 
        do 300 i=1,Lena
./pkg/fizhi/fizhi_utils.F 538 STRIP2TILE 
        do 400 i=1,ib-Lena
./pkg/fizhi/fizhi_utils.F 539 STRIP2TILE 
        b(Lena+i,k) = a(indx(Lena+offset-1),k)
./pkg/fizhi/fizhi_utils.F 577 PASTE2GRD_OLD 
      integer i,L,offset,Lena
./pkg/fizhi/fizhi_utils.F 580 PASTE2GRD_OLD 
      Lena    = min(ib,numpts-offset)
./pkg/fizhi/fizhi_utils.F 584 PASTE2GRD_OLD 
      do i=1,Lena
./pkg/fizhi/fizhi_utils.F 624 PASTE2GRD 
      integer i,L,offset,Lena
./pkg/fizhi/fizhi_utils.F 628 PASTE2GRD 
      Lena    = min(ib,numpts-offset)
./pkg/fizhi/fizhi_utils.F 634 PASTE2GRD 
       do i= 1,Lena
./pkg/fizhi/fizhi_utils.F 644 PASTE2GRD 
       do i= 1,Lena
./pkg/fizhi/fizhi_utils.F 65 STRIP 
      INTEGER OFFSET,Lena,i,j
./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 73 STRIP 
        DO 100 I=1,Lena
./pkg/fizhi/fizhi_utils.F 78 STRIP 
        DO 300 I=1,Lena
./pkg/fizhi/fizhi_utils.F 81 STRIP 
        DO 400 I=1,IB-Lena
./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 97 STRIPINT 
      Lena    = MIN(IB,IA-OFFSET)
./pkg/diagnostics/diag_vegtile_fill.F 102 DIAG_VEGTILE_FILL 
          Lena   = MIN(ib,numpts-offset)
./pkg/diagnostics/diag_vegtile_fill.F 154 DIAG_VEGTILE_FILL 
            DO ivt = 1,Lena
./pkg/diagnostics/diag_vegtile_fill.F 166 DIAG_VEGTILE_FILL 
            DO ivt = 1,Lena
./pkg/diagnostics/diag_vegtile_fill.F 223 DIAG_VEGTILE_FILL 
           Lena    = MIN(ib,numpts-offset)
./pkg/diagnostics/diag_vegtile_fill.F 228 DIAG_VEGTILE_FILL 
           DO ivt = 1,Lena
./pkg/diagnostics/diag_vegtile_fill.F 238 DIAG_VEGTILE_FILL 
             DO ivt = 1,Lena
./pkg/diagnostics/diag_vegtile_fill.F 248 DIAG_VEGTILE_FILL 
             DO ivt = 1,Lena
./pkg/diagnostics/diag_vegtile_fill.F 63 DIAG_VEGTILE_FILL 
      INTEGER offset, Lena