Symbol Description Uses
offset 93


File Line number Procedure Code
./pkg/fizhi/fizhi_utils.F 395 STRIPIT 
      integer   i,j,Lena,offset
./pkg/fizhi/fizhi_utils.F 397 STRIPIT 
      offset = ib*(k-1)
./pkg/fizhi/fizhi_utils.F 398 STRIPIT 
      Lena    = min(ib,irun-offset)
./pkg/fizhi/fizhi_utils.F 399 STRIPIT 
      offset = offset+1
./pkg/fizhi/fizhi_utils.F 404 STRIPIT 
        b(i,j) = a(i+offset-1,j)
./pkg/fizhi/fizhi_utils.F 409 STRIPIT 
        b(i,j) = a(i+offset-1,j)
./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 424 STRIPITINT 
      offset = ib*(k-1)
./pkg/fizhi/fizhi_utils.F 425 STRIPITINT 
      Lena = min(ib,irun-offset)
./pkg/fizhi/fizhi_utils.F 426 STRIPITINT 
      offset = offset+1
./pkg/fizhi/fizhi_utils.F 431 STRIPITINT 
        b(i,j) = a(i+offset-1,j)
./pkg/fizhi/fizhi_utils.F 436 STRIPITINT 
        b(i,j) = a(i+offset-1,j)
./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 452 PASTIT 
      offset = ib*(k-1)
./pkg/fizhi/fizhi_utils.F 453 PASTIT 
      Lena    = min(ib,irun-offset)
./pkg/fizhi/fizhi_utils.F 454 PASTIT 
      offset = offset+1
./pkg/fizhi/fizhi_utils.F 458 PASTIT 
      a(i+offset-1,j) = b(i,j)
./pkg/fizhi/fizhi_utils.F 465 PSTBITINT 
      integer ib,ia,L,k,irun,Lena,offset
./pkg/fizhi/fizhi_utils.F 470 PSTBITINT 
      offset = ib*(k-1)
./pkg/fizhi/fizhi_utils.F 471 PSTBITINT 
      Lena    = min(ib,irun-offset)
./pkg/fizhi/fizhi_utils.F 472 PSTBITINT 
      offset = offset+1
./pkg/fizhi/fizhi_utils.F 476 PSTBITINT 
      a(i+offset-1,j) = a(i+offset-1,j) + float(b(i,j))
./pkg/fizhi/fizhi_utils.F 484 PSTBMPIT 
      integer ib,ia,L,k,irun,Lena,offset
./pkg/fizhi/fizhi_utils.F 488 PSTBMPIT 
      offset = ib*(k-1)
./pkg/fizhi/fizhi_utils.F 489 PSTBMPIT 
      Lena    = min(ib,irun-offset)
./pkg/fizhi/fizhi_utils.F 490 PSTBMPIT 
      offset = offset+1
./pkg/fizhi/fizhi_utils.F 494 PSTBMPIT 
      a(i+offset-1,j) = a(i+offset-1,j) + b(i,j)
./pkg/fizhi/fizhi_utils.F 522 STRIP2TILE 
      integer i,k,Lena,offset
./pkg/fizhi/fizhi_utils.F 524 STRIP2TILE 
      offset = ib*(npeice-1)
./pkg/fizhi/fizhi_utils.F 525 STRIP2TILE 
      Lena    = min(ib,irun-offset)
./pkg/fizhi/fizhi_utils.F 526 STRIP2TILE 
      offset = offset+1
./pkg/fizhi/fizhi_utils.F 531 STRIP2TILE 
        b(i,k) = a(indx(i+offset-1),k)
./pkg/fizhi/fizhi_utils.F 536 STRIP2TILE 
        b(i,k) = a(indx(i+offset-1),k)
./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 579 PASTE2GRD_OLD 
      offset = ib*(npeice-1)
./pkg/fizhi/fizhi_utils.F 580 PASTE2GRD_OLD 
      Lena    = min(ib,numpts-offset)
./pkg/fizhi/fizhi_utils.F 581 PASTE2GRD_OLD 
      offset = offset+1
./pkg/fizhi/fizhi_utils.F 585 PASTE2GRD_OLD 
       a(indx(i+offset-1),L) = a(indx(i+offset-1),L) + b(i,L)*chfr(i)
./pkg/fizhi/fizhi_utils.F 624 PASTE2GRD 
      integer i,L,offset,Lena
./pkg/fizhi/fizhi_utils.F 627 PASTE2GRD 
      offset = ib*(npeice-1)
./pkg/fizhi/fizhi_utils.F 628 PASTE2GRD 
      Lena    = min(ib,numpts-offset)
./pkg/fizhi/fizhi_utils.F 629 PASTE2GRD 
      offset = offset+1
./pkg/fizhi/fizhi_utils.F 635 PASTE2GRD 
        if( a(indx(i+offset-1),L).eq.undef .or. b(i,L).eq.undef ) then
./pkg/fizhi/fizhi_utils.F 636 PASTE2GRD 
         a(indx(i+offset-1),L) = undef
./pkg/fizhi/fizhi_utils.F 638 PASTE2GRD 
         a(indx(i+offset-1),L)=a(indx(i+offset-1),L) + b(i,L)*chfr(i)
./pkg/fizhi/fizhi_utils.F 645 PASTE2GRD 
        a(indx(i+offset-1),L)=a(indx(i+offset-1),L) + b(i,L)*chfr(i)