Symbol Description Uses
compind 187


File Line number Procedure Code
./pkg/compon_communic/couprecv_i4vec.F 24 COUPRECV_I4VEC 
      integer compind, numprocs
./pkg/compon_communic/couprecv_i4vec.F 33 COUPRECV_I4VEC 
      compind = mitcplr_match_comp( component )
./pkg/compon_communic/couprecv_i4vec.F 34 COUPRECV_I4VEC 
      if (compind.le.0) STOP 'couprecv_i4vec: Bad component id'
./pkg/compon_communic/couprecv_i4vec.F 35 COUPRECV_I4VEC 
      comm = MPI_COMM_compcplr( compind )
./pkg/compon_communic/couprecv_i4vec.F 36 COUPRECV_I4VEC 
      numprocs = num_component_procs(compind)
./pkg/compon_communic/couprecv_i4vec.F 38 COUPRECV_I4VEC 
        write(LogUnit,*) 'couprecv_i4vec: compind = ',compind
./pkg/compon_communic/couprecv_i4vec.F 42 COUPRECV_I4VEC 
     &  write(LogUnit,*) 'couprecv_i4vec: ',component_Name(compind)
./pkg/compon_communic/couprecv_i4vec.F 53 COUPRECV_I4VEC 
       rank = rank_component_procs(n,compind)
./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_i4vec.F 23 COUPSEND_I4VEC 
      integer compind, numprocs
./pkg/compon_communic/coupsend_i4vec.F 32 COUPSEND_I4VEC 
      compind = mitcplr_match_comp( component )
./pkg/compon_communic/coupsend_i4vec.F 33 COUPSEND_I4VEC 
      if (compind.le.0) STOP 'coupsend_i4vec: Bad component id'
./pkg/compon_communic/coupsend_i4vec.F 34 COUPSEND_I4VEC 
      comm = MPI_COMM_compcplr( compind )
./pkg/compon_communic/coupsend_i4vec.F 35 COUPSEND_I4VEC 
      numprocs = num_component_procs(compind)
./pkg/compon_communic/coupsend_i4vec.F 37 COUPSEND_I4VEC 
        write(LogUnit,*) 'coupsend_i4vec: compind = ',compind
./pkg/compon_communic/coupsend_i4vec.F 41 COUPSEND_I4VEC 
     &  write(LogUnit,*) 'coupsend_i4vec: ',component_Name(compind)
./pkg/compon_communic/coupsend_i4vec.F 58 COUPSEND_I4VEC 
       dest = rank_component_procs(n,compind)
./pkg/compon_communic/coupsend_r4.F 23 COUPSEND_R4 
      integer compind,numprocs
./pkg/compon_communic/coupsend_r4.F 29 COUPSEND_R4 
      compind=mitcplr_match_comp( component )
./pkg/compon_communic/coupsend_r4.F 30 COUPSEND_R4 
      if (compind.le.0) stop 'coupsend_r4: Bad component id'
./pkg/compon_communic/coupsend_r4.F 31 COUPSEND_R4 
      comm=MPI_COMM_compcplr( compind )
./pkg/compon_communic/coupsend_r4.F 32 COUPSEND_R4 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/coupsend_r4.F 34 COUPSEND_R4 
       write(LogUnit,*) 'coupsend_r4: compind = ',compind
./pkg/compon_communic/coupsend_r4.F 38 COUPSEND_R4 
     &  write(LogUnit,*) 'coupsend_r4: ',component_Name(compind)
./pkg/compon_communic/coupsend_r4.F 46 COUPSEND_R4 
       Io=component_tile_i0(1,n,compind)
./pkg/compon_communic/coupsend_r4.F 47 COUPSEND_R4 
       Jo=component_tile_j0(1,n,compind)
./pkg/compon_communic/coupsend_r4.F 48 COUPSEND_R4 
       Ni=component_tile_nx(1,n,compind)
./pkg/compon_communic/coupsend_r4.F 49 COUPSEND_R4 
       Nj=component_tile_ny(1,n,compind)
./pkg/compon_communic/coupsend_r4.F 68 COUPSEND_R4 
       dest=rank_component_procs(n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 23 COUPSEND_R4TILES 
      integer compind,numprocs
./pkg/compon_communic/coupsend_r4tiles.F 29 COUPSEND_R4TILES 
      compind=mitcplr_match_comp( component )
./pkg/compon_communic/coupsend_r4tiles.F 30 COUPSEND_R4TILES 
      if (compind.le.0) stop 'coupsend_r4tiles: Bad component id'
./pkg/compon_communic/coupsend_r4tiles.F 31 COUPSEND_R4TILES 
      comm=MPI_COMM_compcplr( compind )
./pkg/compon_communic/coupsend_r4tiles.F 32 COUPSEND_R4TILES 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/coupsend_r4tiles.F 34 COUPSEND_R4TILES 
       write(LogUnit,*) 'coupsend_r4tiles: compind = ',compind
./pkg/compon_communic/coupsend_r4tiles.F 38 COUPSEND_R4TILES 
     &  write(LogUnit,*) 'coupsend_r4tiles: ',component_Name(compind)
./pkg/compon_communic/coupsend_r4tiles.F 46 COUPSEND_R4TILES 
       do bibj=1,component_num_tiles(n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 49 COUPSEND_R4TILES 
        Io=component_tile_i0(bibj,n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 50 COUPSEND_R4TILES 
        Jo=component_tile_j0(bibj,n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 51 COUPSEND_R4TILES 
        Ni=component_tile_nx(bibj,n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 52 COUPSEND_R4TILES 
        Nj=component_tile_ny(bibj,n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 71 COUPSEND_R4TILES 
        dest=rank_component_procs(n,compind)
./pkg/compon_communic/coupsend_r8.F 23 COUPSEND_R8 
      integer compind,numprocs
./pkg/compon_communic/coupsend_r8.F 29 COUPSEND_R8 
      compind=mitcplr_match_comp( component )
./pkg/compon_communic/coupsend_r8.F 30 COUPSEND_R8 
      if (compind.le.0) stop 'coupsend_r8: Bad component id'
./pkg/compon_communic/coupsend_r8.F 31 COUPSEND_R8 
      comm=MPI_COMM_compcplr( compind )
./pkg/compon_communic/coupsend_r8.F 32 COUPSEND_R8 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/coupsend_r8.F 34 COUPSEND_R8 
       write(LogUnit,*) 'coupsend_r8: compind = ',compind
./pkg/compon_communic/coupsend_r8.F 38 COUPSEND_R8 
     &  write(LogUnit,*) 'coupsend_r8: ',component_Name(compind)
./pkg/compon_communic/coupsend_r8.F 46 COUPSEND_R8 
       Io=component_tile_i0(1,n,compind)
./pkg/compon_communic/coupsend_r8.F 47 COUPSEND_R8 
       Jo=component_tile_j0(1,n,compind)
./pkg/compon_communic/coupsend_r8.F 48 COUPSEND_R8 
       Ni=component_tile_nx(1,n,compind)
./pkg/compon_communic/coupsend_r8.F 49 COUPSEND_R8 
       Nj=component_tile_ny(1,n,compind)
./pkg/compon_communic/coupsend_r8.F 68 COUPSEND_R8 
       dest=rank_component_procs(n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 23 COUPSEND_R8TILES 
      integer compind,numprocs
./pkg/compon_communic/coupsend_r8tiles.F 29 COUPSEND_R8TILES 
      compind=mitcplr_match_comp( component )
./pkg/compon_communic/coupsend_r8tiles.F 30 COUPSEND_R8TILES 
      if (compind.le.0) stop 'coupsend_r8tiles: Bad component id'
./pkg/compon_communic/coupsend_r8tiles.F 31 COUPSEND_R8TILES 
      comm=MPI_COMM_compcplr( compind )
./pkg/compon_communic/coupsend_r8tiles.F 32 COUPSEND_R8TILES 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/coupsend_r8tiles.F 34 COUPSEND_R8TILES 
       write(LogUnit,*) 'coupsend_r8tiles: compind = ',compind
./pkg/compon_communic/coupsend_r8tiles.F 38 COUPSEND_R8TILES 
     &  write(LogUnit,*) 'coupsend_r8tiles: ',component_Name(compind)
./pkg/compon_communic/coupsend_r8tiles.F 46 COUPSEND_R8TILES 
       do bibj=1,component_num_tiles(n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 49 COUPSEND_R8TILES 
        Io=component_tile_i0(bibj,n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 50 COUPSEND_R8TILES 
        Jo=component_tile_j0(bibj,n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 51 COUPSEND_R8TILES 
        Ni=component_tile_nx(bibj,n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 52 COUPSEND_R8TILES 
        Nj=component_tile_ny(bibj,n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 71 COUPSEND_R8TILES 
        dest=rank_component_procs(n,compind)
./pkg/compon_communic/mitcoupler_register.F 100 MITCOUPLER_REGISTER 
       component_tile_nx(1,n,compind)=nx
./pkg/compon_communic/mitcoupler_register.F 101 MITCOUPLER_REGISTER 
       component_tile_ny(1,n,compind)=ny
./pkg/compon_communic/mitcoupler_register.F 102 MITCOUPLER_REGISTER 
       component_tile_i0(1,n,compind)=i0
./pkg/compon_communic/mitcoupler_register.F 103 MITCOUPLER_REGISTER 
       component_tile_j0(1,n,compind)=j0
./pkg/compon_communic/mitcoupler_register.F 109 MITCOUPLER_REGISTER 
     &    component_tile_nx(1,n,compind),component_tile_ny(1,n,compind)
./pkg/compon_communic/mitcoupler_register.F 27 MITCOUPLER_REGISTER 
      integer compind,count,dtype,tag,rank
./pkg/compon_communic/mitcoupler_register.F 36 MITCOUPLER_REGISTER 
      compind=mitcplr_match_comp( compName )
./pkg/compon_communic/mitcoupler_register.F 37 MITCOUPLER_REGISTER 
      if (compind.le.0) STOP 'MITCOUPLER_register: Bad component'
./pkg/compon_communic/mitcoupler_register.F 38 MITCOUPLER_REGISTER 
      comm=MPI_COMM_compcplr( compind )
./pkg/compon_communic/mitcoupler_register.F 39 MITCOUPLER_REGISTER 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/mitcoupler_register.F 41 MITCOUPLER_REGISTER 
       write(LogUnit,*) 'MITCOUPLER_register: compind = ',compind
./pkg/compon_communic/mitcoupler_register.F 52 MITCOUPLER_REGISTER 
       rank=rank_component_procs(n,compind)
./pkg/compon_communic/mitcoupler_register.F 99 MITCOUPLER_REGISTER 
       component_num_tiles(n,compind)=1
./pkg/compon_communic/mitcoupler_tile_register.F 100 MITCOUPLER_TILE_REGISTER 
        component_tile_nx(j,n,compind) = nx
./pkg/compon_communic/mitcoupler_tile_register.F 101 MITCOUPLER_TILE_REGISTER 
        component_tile_ny(j,n,compind) = ny
./pkg/compon_communic/mitcoupler_tile_register.F 102 MITCOUPLER_TILE_REGISTER 
        component_tile_i0(j,n,compind) = i0
./pkg/compon_communic/mitcoupler_tile_register.F 103 MITCOUPLER_TILE_REGISTER 
        component_tile_j0(j,n,compind) = j0
./pkg/compon_communic/mitcoupler_tile_register.F 27 MITCOUPLER_TILE_REGISTER 
      integer compind,count,dtype,tag,rank
./pkg/compon_communic/mitcoupler_tile_register.F 40 MITCOUPLER_TILE_REGISTER 
      compind=mitcplr_match_comp( compName )
./pkg/compon_communic/mitcoupler_tile_register.F 41 MITCOUPLER_TILE_REGISTER 
      if (compind.le.0) STOP 'MITCOUPLER_tile_register: Bad component'
./pkg/compon_communic/mitcoupler_tile_register.F 42 MITCOUPLER_TILE_REGISTER 
      comm=MPI_COMM_compcplr( compind )
./pkg/compon_communic/mitcoupler_tile_register.F 43 MITCOUPLER_TILE_REGISTER 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/mitcoupler_tile_register.F 46 MITCOUPLER_TILE_REGISTER 
     &        ' compind=', compind, ' ; numprocs=', numprocs
./pkg/compon_communic/mitcoupler_tile_register.F 58 MITCOUPLER_TILE_REGISTER 
       rank=rank_component_procs(n,compind)
./pkg/compon_communic/mitcoupler_tile_register.F 74 MITCOUPLER_TILE_REGISTER 
       component_num_tiles(n,compind)=numtiles
./pkg/compon_communic/mitcoupler_tile_register.F 84 MITCOUPLER_TILE_REGISTER 
        rank=rank_component_procs(n,compind)
./pkg/compon_communic/mitcplr_init1.F 101 MITCPLR_INIT1 
       j=num_compcplr_procs(compind)
./pkg/compon_communic/mitcplr_init1.F 102 MITCPLR_INIT1 
       rank_compcplr_procs(j,compind)=rank_coupler_procs(1)
./pkg/compon_communic/mitcplr_init1.F 103 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 82 MITCPLR_INIT1 
        compind=mitcplr_match_comp( cbuf )
./pkg/compon_communic/mitcplr_init1.F 84 MITCPLR_INIT1 
     &    ' compind=',compind
./pkg/compon_communic/mitcplr_init1.F 85 MITCPLR_INIT1 
        num_component_procs(compind)=num_component_procs(compind) + 1
./pkg/compon_communic/mitcplr_init1.F 86 MITCPLR_INIT1 
        j=num_component_procs(compind)
./pkg/compon_communic/mitcplr_init1.F 87 MITCPLR_INIT1 
        rank_component_procs(j,compind)=ibuf(1)
./pkg/compon_communic/mitcplr_init1.F 96 MITCPLR_INIT1 
      do compind=1,num_components
./pkg/compon_communic/mitcplr_init1.F 97 MITCPLR_INIT1 
       num_compcplr_procs(compind)=num_component_procs(compind) + 1
./pkg/compon_communic/mitcplr_init1.F 98 MITCPLR_INIT1 
       do j=1,num_compcplr_procs(compind)
./pkg/compon_communic/mitcplr_init1.F 99 MITCPLR_INIT1 
        rank_compcplr_procs(j,compind)=rank_component_procs(j,compind)
./pkg/compon_communic/mitcplr_init2b.F 100 MITCPLR_INIT2B 
     &      MPI_COMM_compcplr(compind),
./pkg/compon_communic/mitcplr_init2b.F 101 MITCPLR_INIT2B 
     &     ' c+c ranks = ',(rank_compcplr_procs(j,compind),
./pkg/compon_communic/mitcplr_init2b.F 102 MITCPLR_INIT2B 
     &                        j=1,num_compcplr_procs(compind) )
./pkg/compon_communic/mitcplr_init2b.F 18 MITCPLR_INIT2B 
      integer n,j,lenbuf,compind
./pkg/compon_communic/mitcplr_init2b.F 23 MITCPLR_INIT2B 
      do compind = 1,num_components
./pkg/compon_communic/mitcplr_init2b.F 25 MITCPLR_INIT2B 
       MPI_COMM_temp=MPI_COMM_compcplr(compind)
./pkg/compon_communic/mitcplr_init2b.F 42 MITCPLR_INIT2B 
       num_component_procs(compind)=0
./pkg/compon_communic/mitcplr_init2b.F 43 MITCPLR_INIT2B 
       num_compcplr_procs(compind)=0
./pkg/compon_communic/mitcplr_init2b.F 71 MITCPLR_INIT2B 
         num_compcplr_procs(compind)=num_compcplr_procs(compind) + 1
./pkg/compon_communic/mitcplr_init2b.F 72 MITCPLR_INIT2B 
         j=num_compcplr_procs(compind)
./pkg/compon_communic/mitcplr_init2b.F 73 MITCPLR_INIT2B 
         rank_compcplr_procs(j,compind)=ibuf(1)
./pkg/compon_communic/mitcplr_init2b.F 76 MITCPLR_INIT2B 
         num_component_procs(compind)=num_component_procs(compind) + 1
./pkg/compon_communic/mitcplr_init2b.F 77 MITCPLR_INIT2B 
         j=num_component_procs(compind)
./pkg/compon_communic/mitcplr_init2b.F 78 MITCPLR_INIT2B 
         rank_component_procs(j,compind)=ibuf(1)
./pkg/compon_communic/mitcplr_init2b.F 79 MITCPLR_INIT2B 
         num_compcplr_procs(compind)=num_compcplr_procs(compind) + 1
./pkg/compon_communic/mitcplr_init2b.F 80 MITCPLR_INIT2B 
         j=num_compcplr_procs(compind)
./pkg/compon_communic/mitcplr_init2b.F 81 MITCPLR_INIT2B 
         rank_compcplr_procs(j,compind)=ibuf(1)
./pkg/compon_communic/mitcplr_init2b.F 94 MITCPLR_INIT2B 
      do compind = 1,num_components
./pkg/compon_communic/mitcplr_init2b.F 96 MITCPLR_INIT2B 
     &      MPI_COMM_compcplr(compind),
./pkg/compon_communic/mitcplr_init2b.F 97 MITCPLR_INIT2B 
     &     ' comp. ranks = ',(rank_component_procs(j,compind),
./pkg/compon_communic/mitcplr_init2b.F 98 MITCPLR_INIT2B 
     &                        j=1,num_component_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 )