Symbol Description Uses
component_tile_j0 10



File Line number Procedure Code
./pkg/compon_communic/CPLR_SIG.h 115 NO PROCEDURE
      integer component_tile_j0(MAX_TILES,MAX_PROCS,MAX_COMPONENTS)
./pkg/compon_communic/CPLR_SIG.h 128 NO PROCEDURE
     &  component_tile_j0,
./pkg/compon_communic/couprecv_r4tiles.F 89 COUPRECV_R4TILES
       if (Jo.ne.component_tile_j0(bibj,n,compind))
./pkg/compon_communic/couprecv_r8tiles.F 89 COUPRECV_R8TILES
       if (Jo.ne.component_tile_j0(bibj,n,compind))
./pkg/compon_communic/coupsend_r4.F 47 COUPSEND_R4
       Jo=component_tile_j0(1,n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 50 COUPSEND_R4TILES
        Jo=component_tile_j0(bibj,n,compind)
./pkg/compon_communic/coupsend_r8.F 47 COUPSEND_R8
       Jo=component_tile_j0(1,n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 50 COUPSEND_R8TILES
        Jo=component_tile_j0(bibj,n,compind)
./pkg/compon_communic/mitcoupler_register.F 103 MITCOUPLER_REGISTER
       component_tile_j0(1,n,compind)=j0
./pkg/compon_communic/mitcoupler_tile_register.F 103 MITCOUPLER_TILE_REGISTER
        component_tile_j0(j,n,compind) = j0