Symbol Description Uses
nx 75



File Line number Procedure Code
./pkg/compon_communic/mitcoupler_register.F 25 MITCOUPLER_REGISTER
      integer j,numtiles,nx,ny,i0,j0
./pkg/compon_communic/mitcoupler_register.F 59 MITCOUPLER_REGISTER
       nx=ibuf(2)
./pkg/compon_communic/mitcoupler_register.F 68 MITCOUPLER_REGISTER
       if (nx.lt.1) then
./pkg/compon_communic/mitcoupler_register.F 69 MITCOUPLER_REGISTER
        write(LogUnit,*) 'MITCOUPLER_register: nx = ',nx
./pkg/compon_communic/mitcoupler_register.F 84 MITCOUPLER_REGISTER
       if (i0+nx-1.gt.nnx) then
./pkg/compon_communic/mitcoupler_register.F 94 MITCOUPLER_REGISTER
       component_tile_nx(1,n,compind)=nx