Symbol Description Uses
i0 11


File Line number Procedure Code
./pkg/compon_communic/mitcomponent_register.F 32 MITCOMPONENT_REGISTER 
      ibuf(4)=i0
./pkg/compon_communic/mitcomponent_register.F 38 MITCOMPONENT_REGISTER 
      my_tile_i0(1)=i0
./pkg/compon_communic/mitcomponent_register.F 5 MITCOMPONENT_REGISTER 
      subroutine MITCOMPONENT_REGISTER( nx, ny, i0, j0 )
./pkg/compon_communic/mitcomponent_register.F 9 MITCOMPONENT_REGISTER 
      integer nx,ny,i0,j0
./pkg/compon_communic/mitcoupler_register.F 28 MITCOUPLER_REGISTER 
      integer j,numtiles,nx,ny,i0,j0
./pkg/compon_communic/mitcoupler_register.F 64 MITCOUPLER_REGISTER 
       i0=ibuf(4)
./pkg/compon_communic/mitcoupler_register.F 79 MITCOUPLER_REGISTER 
       if (i0.lt.1) then
./pkg/compon_communic/mitcoupler_register.F 80 MITCOUPLER_REGISTER 
        write(LogUnit,*) 'MITCOUPLER_register: i0 = ',i0
./pkg/compon_communic/mitcoupler_register.F 87 MITCOUPLER_REGISTER 
       if (i0+nx-1.gt.nnx) then
./pkg/compon_communic/mitcoupler_register.F 88 MITCOUPLER_REGISTER 
        write(LogUnit,*) 'MITCOUPLER_register: i0 = ',i0
./pkg/compon_communic/mitcoupler_register.F 99 MITCOUPLER_REGISTER 
       component_tile_i0(1,n,compind)=i0