Symbol Description Uses
compind 173


File Line number Procedure Code
./pkg/compon_communic/couprecv_r4.F 22 COUPRECV_R4 
      integer compind,numprocs
./pkg/compon_communic/couprecv_r4.F 29 COUPRECV_R4 
      compind=mitcplr_match_comp( component )
./pkg/compon_communic/couprecv_r4.F 30 COUPRECV_R4 
      if (compind.le.0) stop 'couprecv_r4: Bad component id'
./pkg/compon_communic/couprecv_r4.F 31 COUPRECV_R4 
      comm=MPI_COMM_compcplr( compind )
./pkg/compon_communic/couprecv_r4.F 32 COUPRECV_R4 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/couprecv_r4.F 34 COUPRECV_R4 
       write(LogUnit,*) 'couprecv_r4: compind = ',compind
./pkg/compon_communic/couprecv_r4.F 38 COUPRECV_R4 
     &  write(LogUnit,*) 'couprecv_r4: ',component_Name(compind)
./pkg/compon_communic/couprecv_r4.F 49 COUPRECV_R4 
       rank=rank_component_procs(n,compind)
./pkg/compon_communic/couprecv_r4tiles.F 22 COUPRECV_R4TILES 
      integer compind,numprocs
./pkg/compon_communic/couprecv_r4tiles.F 29 COUPRECV_R4TILES 
      compind=mitcplr_match_comp( component )
./pkg/compon_communic/couprecv_r4tiles.F 30 COUPRECV_R4TILES 
      if (compind.le.0) stop 'couprecv_r4tiles: Bad component id'
./pkg/compon_communic/couprecv_r4tiles.F 31 COUPRECV_R4TILES 
      comm=MPI_COMM_compcplr( compind )
./pkg/compon_communic/couprecv_r4tiles.F 32 COUPRECV_R4TILES 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/couprecv_r4tiles.F 34 COUPRECV_R4TILES 
       write(LogUnit,*) 'couprecv_r4tiles: compind = ',compind
./pkg/compon_communic/couprecv_r4tiles.F 38 COUPRECV_R4TILES 
     &  write(LogUnit,*) 'couprecv_r4tiles: ',component_Name(compind)
./pkg/compon_communic/couprecv_r4tiles.F 46 COUPRECV_R4TILES 
       do bibj=1,component_num_tiles(n,compind)
./pkg/compon_communic/couprecv_r4tiles.F 52 COUPRECV_R4TILES 
       rank=rank_component_procs(n,compind)
./pkg/compon_communic/couprecv_r4tiles.F 87 COUPRECV_R4TILES 
       if (Io.ne.component_tile_i0(bibj,n,compind))
./pkg/compon_communic/couprecv_r4tiles.F 89 COUPRECV_R4TILES 
       if (Jo.ne.component_tile_j0(bibj,n,compind))
./pkg/compon_communic/couprecv_r4tiles.F 91 COUPRECV_R4TILES 
       if (Ni.ne.component_tile_nx(bibj,n,compind))
./pkg/compon_communic/couprecv_r4tiles.F 93 COUPRECV_R4TILES 
       if (Nj.ne.component_tile_ny(bibj,n,compind))
./pkg/compon_communic/couprecv_r8.F 22 COUPRECV_R8 
      integer compind,numprocs
./pkg/compon_communic/couprecv_r8.F 29 COUPRECV_R8 
      compind=mitcplr_match_comp( component )
./pkg/compon_communic/couprecv_r8.F 30 COUPRECV_R8 
      if (compind.le.0) stop 'couprecv_r8: Bad component id'
./pkg/compon_communic/couprecv_r8.F 31 COUPRECV_R8 
      comm=MPI_COMM_compcplr( compind )
./pkg/compon_communic/couprecv_r8.F 32 COUPRECV_R8 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/couprecv_r8.F 34 COUPRECV_R8 
       write(LogUnit,*) 'couprecv_r8: compind = ',compind
./pkg/compon_communic/couprecv_r8.F 38 COUPRECV_R8 
     &  write(LogUnit,*) 'couprecv_r8: ',component_Name(compind)
./pkg/compon_communic/couprecv_r8.F 49 COUPRECV_R8 
       rank=rank_component_procs(n,compind)
./pkg/compon_communic/couprecv_r8tiles.F 22 COUPRECV_R8TILES 
      integer compind,numprocs
./pkg/compon_communic/couprecv_r8tiles.F 29 COUPRECV_R8TILES 
      compind=mitcplr_match_comp( component )
./pkg/compon_communic/couprecv_r8tiles.F 30 COUPRECV_R8TILES 
      if (compind.le.0) stop 'couprecv_r8tiles: Bad component id'
./pkg/compon_communic/couprecv_r8tiles.F 31 COUPRECV_R8TILES 
      comm=MPI_COMM_compcplr( compind )
./pkg/compon_communic/couprecv_r8tiles.F 32 COUPRECV_R8TILES 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/couprecv_r8tiles.F 34 COUPRECV_R8TILES 
       write(LogUnit,*) 'couprecv_r8tiles: compind = ',compind
./pkg/compon_communic/couprecv_r8tiles.F 38 COUPRECV_R8TILES 
     &  write(LogUnit,*) 'couprecv_r8tiles: ',component_Name(compind)
./pkg/compon_communic/couprecv_r8tiles.F 46 COUPRECV_R8TILES 
       do bibj=1,component_num_tiles(n,compind)
./pkg/compon_communic/couprecv_r8tiles.F 52 COUPRECV_R8TILES 
       rank=rank_component_procs(n,compind)
./pkg/compon_communic/couprecv_r8tiles.F 87 COUPRECV_R8TILES 
       if (Io.ne.component_tile_i0(bibj,n,compind))
./pkg/compon_communic/couprecv_r8tiles.F 89 COUPRECV_R8TILES 
       if (Jo.ne.component_tile_j0(bibj,n,compind))
./pkg/compon_communic/couprecv_r8tiles.F 91 COUPRECV_R8TILES 
       if (Ni.ne.component_tile_nx(bibj,n,compind))
./pkg/compon_communic/couprecv_r8tiles.F 93 COUPRECV_R8TILES 
       if (Nj.ne.component_tile_ny(bibj,n,compind))
./pkg/compon_communic/coupsend_r4.F 21 COUPSEND_R4 
      integer compind,numprocs
./pkg/compon_communic/coupsend_r4.F 27 COUPSEND_R4 
      compind=mitcplr_match_comp( component )
./pkg/compon_communic/coupsend_r4.F 28 COUPSEND_R4 
      if (compind.le.0) stop 'coupsend_r4: Bad component id'
./pkg/compon_communic/coupsend_r4.F 29 COUPSEND_R4 
      comm=MPI_COMM_compcplr( compind )
./pkg/compon_communic/coupsend_r4.F 30 COUPSEND_R4 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/coupsend_r4.F 32 COUPSEND_R4 
       write(LogUnit,*) 'coupsend_r4: compind = ',compind
./pkg/compon_communic/coupsend_r4.F 36 COUPSEND_R4 
     &  write(LogUnit,*) 'coupsend_r4: ',component_Name(compind)
./pkg/compon_communic/coupsend_r4.F 44 COUPSEND_R4 
       Io=component_tile_i0(1,n,compind)
./pkg/compon_communic/coupsend_r4.F 45 COUPSEND_R4 
       Jo=component_tile_j0(1,n,compind)
./pkg/compon_communic/coupsend_r4.F 46 COUPSEND_R4 
       Ni=component_tile_nx(1,n,compind)
./pkg/compon_communic/coupsend_r4.F 47 COUPSEND_R4 
       Nj=component_tile_ny(1,n,compind)
./pkg/compon_communic/coupsend_r4.F 66 COUPSEND_R4 
       dest=rank_component_procs(n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 21 COUPSEND_R4TILES 
      integer compind,numprocs
./pkg/compon_communic/coupsend_r4tiles.F 27 COUPSEND_R4TILES 
      compind=mitcplr_match_comp( component )
./pkg/compon_communic/coupsend_r4tiles.F 28 COUPSEND_R4TILES 
      if (compind.le.0) stop 'coupsend_r4tiles: Bad component id'
./pkg/compon_communic/coupsend_r4tiles.F 29 COUPSEND_R4TILES 
      comm=MPI_COMM_compcplr( compind )
./pkg/compon_communic/coupsend_r4tiles.F 30 COUPSEND_R4TILES 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/coupsend_r4tiles.F 32 COUPSEND_R4TILES 
       write(LogUnit,*) 'coupsend_r4tiles: compind = ',compind
./pkg/compon_communic/coupsend_r4tiles.F 36 COUPSEND_R4TILES 
     &  write(LogUnit,*) 'coupsend_r4tiles: ',component_Name(compind)
./pkg/compon_communic/coupsend_r4tiles.F 44 COUPSEND_R4TILES 
       do bibj=1,component_num_tiles(n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 47 COUPSEND_R4TILES 
        Io=component_tile_i0(bibj,n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 48 COUPSEND_R4TILES 
        Jo=component_tile_j0(bibj,n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 49 COUPSEND_R4TILES 
        Ni=component_tile_nx(bibj,n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 50 COUPSEND_R4TILES 
        Nj=component_tile_ny(bibj,n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 69 COUPSEND_R4TILES 
        dest=rank_component_procs(n,compind)
./pkg/compon_communic/coupsend_r8.F 21 COUPSEND_R8 
      integer compind,numprocs
./pkg/compon_communic/coupsend_r8.F 27 COUPSEND_R8 
      compind=mitcplr_match_comp( component )
./pkg/compon_communic/coupsend_r8.F 28 COUPSEND_R8 
      if (compind.le.0) stop 'coupsend_r8: Bad component id'
./pkg/compon_communic/coupsend_r8.F 29 COUPSEND_R8 
      comm=MPI_COMM_compcplr( compind )
./pkg/compon_communic/coupsend_r8.F 30 COUPSEND_R8 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/coupsend_r8.F 32 COUPSEND_R8 
       write(LogUnit,*) 'coupsend_r8: compind = ',compind
./pkg/compon_communic/coupsend_r8.F 36 COUPSEND_R8 
     &  write(LogUnit,*) 'coupsend_r8: ',component_Name(compind)
./pkg/compon_communic/coupsend_r8.F 44 COUPSEND_R8 
       Io=component_tile_i0(1,n,compind)
./pkg/compon_communic/coupsend_r8.F 45 COUPSEND_R8 
       Jo=component_tile_j0(1,n,compind)
./pkg/compon_communic/coupsend_r8.F 46 COUPSEND_R8 
       Ni=component_tile_nx(1,n,compind)
./pkg/compon_communic/coupsend_r8.F 47 COUPSEND_R8 
       Nj=component_tile_ny(1,n,compind)
./pkg/compon_communic/coupsend_r8.F 66 COUPSEND_R8 
       dest=rank_component_procs(n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 21 COUPSEND_R8TILES 
      integer compind,numprocs
./pkg/compon_communic/coupsend_r8tiles.F 27 COUPSEND_R8TILES 
      compind=mitcplr_match_comp( component )
./pkg/compon_communic/coupsend_r8tiles.F 28 COUPSEND_R8TILES 
      if (compind.le.0) stop 'coupsend_r8tiles: Bad component id'
./pkg/compon_communic/coupsend_r8tiles.F 29 COUPSEND_R8TILES 
      comm=MPI_COMM_compcplr( compind )
./pkg/compon_communic/coupsend_r8tiles.F 30 COUPSEND_R8TILES 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/coupsend_r8tiles.F 32 COUPSEND_R8TILES 
       write(LogUnit,*) 'coupsend_r8tiles: compind = ',compind
./pkg/compon_communic/coupsend_r8tiles.F 36 COUPSEND_R8TILES 
     &  write(LogUnit,*) 'coupsend_r8tiles: ',component_Name(compind)
./pkg/compon_communic/coupsend_r8tiles.F 44 COUPSEND_R8TILES 
       do bibj=1,component_num_tiles(n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 47 COUPSEND_R8TILES 
        Io=component_tile_i0(bibj,n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 48 COUPSEND_R8TILES 
        Jo=component_tile_j0(bibj,n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 49 COUPSEND_R8TILES 
        Ni=component_tile_nx(bibj,n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 50 COUPSEND_R8TILES 
        Nj=component_tile_ny(bibj,n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 69 COUPSEND_R8TILES 
        dest=rank_component_procs(n,compind)
./pkg/compon_communic/mitcomponent_init.F 27 MITCOMPONENT_INIT 
      integer compind
./pkg/compon_communic/mitcoupler_init.F 27 MITCOUPLER_INIT 
      integer compind
./pkg/compon_communic/mitcoupler_register.F 100 MITCOUPLER_REGISTER 
       component_tile_j0(1,n,compind)=j0
./pkg/compon_communic/mitcoupler_register.F 106 MITCOUPLER_REGISTER 
     &    component_tile_nx(1,n,compind),component_tile_ny(1,n,compind)
./pkg/compon_communic/mitcoupler_register.F 25 MITCOUPLER_REGISTER 
      integer compind,count,dtype,tag,rank
./pkg/compon_communic/mitcoupler_register.F 33 MITCOUPLER_REGISTER 
      compind=mitcplr_match_comp( compName )
./pkg/compon_communic/mitcoupler_register.F 34 MITCOUPLER_REGISTER 
      if (compind.le.0) stop 'MITCOUPLER_register: Bad component'
./pkg/compon_communic/mitcoupler_register.F 35 MITCOUPLER_REGISTER 
      comm=MPI_COMM_compcplr( compind )
./pkg/compon_communic/mitcoupler_register.F 36 MITCOUPLER_REGISTER 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/mitcoupler_register.F 38 MITCOUPLER_REGISTER 
       write(LogUnit,*) 'MITCOUPLER_register: compind = ',compind
./pkg/compon_communic/mitcoupler_register.F 49 MITCOUPLER_REGISTER 
       rank=rank_component_procs(n,compind)
./pkg/compon_communic/mitcoupler_register.F 96 MITCOUPLER_REGISTER 
       component_num_tiles(n,compind)=1
./pkg/compon_communic/mitcoupler_register.F 97 MITCOUPLER_REGISTER 
       component_tile_nx(1,n,compind)=nx
./pkg/compon_communic/mitcoupler_register.F 98 MITCOUPLER_REGISTER 
       component_tile_ny(1,n,compind)=ny
./pkg/compon_communic/mitcoupler_register.F 99 MITCOUPLER_REGISTER 
       component_tile_i0(1,n,compind)=i0
./pkg/compon_communic/mitcoupler_tile_register.F 25 MITCOUPLER_TILE_REGISTER 
      integer compind,count,dtype,tag,rank
./pkg/compon_communic/mitcoupler_tile_register.F 33 MITCOUPLER_TILE_REGISTER 
      compind=mitcplr_match_comp( compName )
./pkg/compon_communic/mitcoupler_tile_register.F 34 MITCOUPLER_TILE_REGISTER 
      if (compind.le.0) stop 'MITCOUPLER_tile_register: Bad component'
./pkg/compon_communic/mitcoupler_tile_register.F 35 MITCOUPLER_TILE_REGISTER 
      comm=MPI_COMM_compcplr( compind )
./pkg/compon_communic/mitcoupler_tile_register.F 36 MITCOUPLER_TILE_REGISTER 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/mitcoupler_tile_register.F 38 MITCOUPLER_TILE_REGISTER 
       write(LogUnit,*) 'MITCOUPLER_tile_register: compind = ',compind
./pkg/compon_communic/mitcoupler_tile_register.F 49 MITCOUPLER_TILE_REGISTER 
       rank=rank_component_procs(n,compind)
./pkg/compon_communic/mitcoupler_tile_register.F 65 MITCOUPLER_TILE_REGISTER 
       component_num_tiles(n,compind)=numtiles
./pkg/compon_communic/mitcoupler_tile_register.F 73 MITCOUPLER_TILE_REGISTER 
        rank=rank_component_procs(n,compind)
./pkg/compon_communic/mitcoupler_tile_register.F 84 MITCOUPLER_TILE_REGISTER 
        component_tile_nx(j,n,compind)=ibuf(1)
./pkg/compon_communic/mitcoupler_tile_register.F 85 MITCOUPLER_TILE_REGISTER 
        component_tile_ny(j,n,compind)=ibuf(2)
./pkg/compon_communic/mitcoupler_tile_register.F 86 MITCOUPLER_TILE_REGISTER 
        component_tile_i0(j,n,compind)=ibuf(3)
./pkg/compon_communic/mitcoupler_tile_register.F 87 MITCOUPLER_TILE_REGISTER 
        component_tile_j0(j,n,compind)=ibuf(4)
./pkg/compon_communic/mitcplr_init1.F 100 MITCPLR_INIT1 
       j=num_compcplr_procs(compind)
./pkg/compon_communic/mitcplr_init1.F 101 MITCPLR_INIT1 
       rank_compcplr_procs(j,compind)=rank_coupler_procs(1)
./pkg/compon_communic/mitcplr_init1.F 102 MITCPLR_INIT1 
       call MITCPLR_SORTRANKS( j, rank_compcplr_procs(1,compind) )
./pkg/compon_communic/mitcplr_init1.F 182 MITCPLR_INIT1 
       compind=mitcplr_match_comp( myTypeStr )
./pkg/compon_communic/mitcplr_init1.F 183 MITCPLR_INIT1 
       my_component_ind=compind
./pkg/compon_communic/mitcplr_init1.F 184 MITCPLR_INIT1 
       MPI_COMM_mylocal=MPI_COMM_component( compind )
./pkg/compon_communic/mitcplr_init1.F 185 MITCPLR_INIT1 
       MPI_COMM_myglobal=MPI_COMM_compcplr( compind )
./pkg/compon_communic/mitcplr_init1.F 186 MITCPLR_INIT1 
       my_component_name=component_Name( compind )
./pkg/compon_communic/mitcplr_init1.F 190 MITCPLR_INIT1 
     &   ' component num=',compind,
./pkg/compon_communic/mitcplr_init1.F 28 MITCPLR_INIT1 
      integer compind
./pkg/compon_communic/mitcplr_init1.F 81 MITCPLR_INIT1 
        compind=mitcplr_match_comp( cbuf )
./pkg/compon_communic/mitcplr_init1.F 83 MITCPLR_INIT1 
     &    ' compind=',compind
./pkg/compon_communic/mitcplr_init1.F 84 MITCPLR_INIT1 
        num_component_procs(compind)=num_component_procs(compind) + 1
./pkg/compon_communic/mitcplr_init1.F 85 MITCPLR_INIT1 
        j=num_component_procs(compind)
./pkg/compon_communic/mitcplr_init1.F 86 MITCPLR_INIT1 
        rank_component_procs(j,compind)=ibuf(1)
./pkg/compon_communic/mitcplr_init1.F 95 MITCPLR_INIT1 
      do compind=1,num_components
./pkg/compon_communic/mitcplr_init1.F 96 MITCPLR_INIT1 
       num_compcplr_procs(compind)=num_component_procs(compind) + 1
./pkg/compon_communic/mitcplr_init1.F 97 MITCPLR_INIT1 
       do j=1,num_compcplr_procs(compind)
./pkg/compon_communic/mitcplr_init1.F 98 MITCPLR_INIT1 
        rank_compcplr_procs(j,compind)=rank_component_procs(j,compind)
./pkg/compon_communic/mitcplr_init2b.F 16 MITCPLR_INIT2B 
      integer n,j,lenbuf,compind
./pkg/compon_communic/mitcplr_init2b.F 20 MITCPLR_INIT2B 
      do compind = 1,num_components
./pkg/compon_communic/mitcplr_init2b.F 22 MITCPLR_INIT2B 
       MPI_COMM_temp=MPI_COMM_compcplr(compind)
./pkg/compon_communic/mitcplr_init2b.F 39 MITCPLR_INIT2B 
       num_component_procs(compind)=0
./pkg/compon_communic/mitcplr_init2b.F 40 MITCPLR_INIT2B 
       num_compcplr_procs(compind)=0
./pkg/compon_communic/mitcplr_init2b.F 68 MITCPLR_INIT2B 
         num_compcplr_procs(compind)=num_compcplr_procs(compind) + 1
./pkg/compon_communic/mitcplr_init2b.F 69 MITCPLR_INIT2B 
         j=num_compcplr_procs(compind)
./pkg/compon_communic/mitcplr_init2b.F 70 MITCPLR_INIT2B 
         rank_compcplr_procs(j,compind)=ibuf(1)
./pkg/compon_communic/mitcplr_init2b.F 73 MITCPLR_INIT2B 
         num_component_procs(compind)=num_component_procs(compind) + 1
./pkg/compon_communic/mitcplr_init2b.F 74 MITCPLR_INIT2B 
         j=num_component_procs(compind)
./pkg/compon_communic/mitcplr_init2b.F 75 MITCPLR_INIT2B 
         rank_component_procs(j,compind)=ibuf(1)
./pkg/compon_communic/mitcplr_init2b.F 76 MITCPLR_INIT2B 
         num_compcplr_procs(compind)=num_compcplr_procs(compind) + 1
./pkg/compon_communic/mitcplr_init2b.F 77 MITCPLR_INIT2B 
         j=num_compcplr_procs(compind)
./pkg/compon_communic/mitcplr_init2b.F 78 MITCPLR_INIT2B 
         rank_compcplr_procs(j,compind)=ibuf(1)
./pkg/compon_communic/mitcplr_init2b.F 91 MITCPLR_INIT2B 
      do compind = 1,num_components
./pkg/compon_communic/mitcplr_init2b.F 93 MITCPLR_INIT2B 
     &      MPI_COMM_compcplr(compind),
./pkg/compon_communic/mitcplr_init2b.F 94 MITCPLR_INIT2B 
     &     ' comp. ranks = ',(rank_component_procs(j,compind),
./pkg/compon_communic/mitcplr_init2b.F 95 MITCPLR_INIT2B 
     &                        j=1,num_component_procs(compind) )
./pkg/compon_communic/mitcplr_init2b.F 97 MITCPLR_INIT2B 
     &      MPI_COMM_compcplr(compind),
./pkg/compon_communic/mitcplr_init2b.F 98 MITCPLR_INIT2B 
     &     ' c+c ranks = ',(rank_compcplr_procs(j,compind),
./pkg/compon_communic/mitcplr_init2b.F 99 MITCPLR_INIT2B 
     &                        j=1,num_compcplr_procs(compind) )
./pkg/compon_communic/mitcplr_initcomp.F 10 MITCPLR_INITCOMP 
      integer compind
./pkg/compon_communic/mitcplr_initcomp.F 15 MITCPLR_INITCOMP 
      component_List(compind)=carg
./pkg/compon_communic/mitcplr_initcomp.F 17 MITCPLR_INITCOMP 
      num_component_procs( compind ) = 0
./pkg/compon_communic/mitcplr_initcomp.F 18 MITCPLR_INITCOMP 
      num_compcplr_procs( compind ) = 0
./pkg/compon_communic/mitcplr_initcomp.F 19 MITCPLR_INITCOMP 
      component_Name( compind ) = carg
./pkg/compon_communic/mitcplr_initcomp.F 5 MITCPLR_INITCOMP 
      subroutine MITCPLR_INITCOMP( compind, carg )