Symbol Description Uses
compind 173


File Line number Procedure Code
./pkg/compon_communic/coupsend_r4tiles.F 18 COUPSEND_R4TILES 
      integer compind,numprocs
./pkg/compon_communic/coupsend_r4tiles.F 24 COUPSEND_R4TILES 
      compind=mitcplr_match_comp( component )
./pkg/compon_communic/coupsend_r4tiles.F 25 COUPSEND_R4TILES 
      if (compind.le.0) stop 'coupsend_r4tiles: Bad component id'
./pkg/compon_communic/coupsend_r4tiles.F 26 COUPSEND_R4TILES 
      comm=MPI_COMM_compcplr( compind )
./pkg/compon_communic/coupsend_r4tiles.F 27 COUPSEND_R4TILES 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/coupsend_r4tiles.F 29 COUPSEND_R4TILES 
       write(LogUnit,*) 'coupsend_r4tiles: compind = ',compind
./pkg/compon_communic/coupsend_r4tiles.F 33 COUPSEND_R4TILES 
     &  write(LogUnit,*) 'coupsend_r4tiles: ',component_Name(compind)
./pkg/compon_communic/coupsend_r4tiles.F 41 COUPSEND_R4TILES 
       do bibj=1,component_num_tiles(n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 44 COUPSEND_R4TILES 
        Io=component_tile_i0(bibj,n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 45 COUPSEND_R4TILES 
        Jo=component_tile_j0(bibj,n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 46 COUPSEND_R4TILES 
        Ni=component_tile_nx(bibj,n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 47 COUPSEND_R4TILES 
        Nj=component_tile_ny(bibj,n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 66 COUPSEND_R4TILES 
        dest=rank_component_procs(n,compind)
./pkg/compon_communic/couprecv_r8.F 19 COUPRECV_R8 
      integer compind,numprocs
./pkg/compon_communic/couprecv_r8.F 26 COUPRECV_R8 
      compind=mitcplr_match_comp( component )
./pkg/compon_communic/couprecv_r8.F 27 COUPRECV_R8 
      if (compind.le.0) stop 'couprecv_r8: Bad component id'
./pkg/compon_communic/couprecv_r8.F 28 COUPRECV_R8 
      comm=MPI_COMM_compcplr( compind )
./pkg/compon_communic/couprecv_r8.F 29 COUPRECV_R8 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/couprecv_r8.F 31 COUPRECV_R8 
       write(LogUnit,*) 'couprecv_r8: compind = ',compind
./pkg/compon_communic/couprecv_r8.F 35 COUPRECV_R8 
     &  write(LogUnit,*) 'couprecv_r8: ',component_Name(compind)
./pkg/compon_communic/couprecv_r8.F 46 COUPRECV_R8 
       rank=rank_component_procs(n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 18 COUPSEND_R8TILES 
      integer compind,numprocs
./pkg/compon_communic/coupsend_r8tiles.F 24 COUPSEND_R8TILES 
      compind=mitcplr_match_comp( component )
./pkg/compon_communic/coupsend_r8tiles.F 25 COUPSEND_R8TILES 
      if (compind.le.0) stop 'coupsend_r8tiles: Bad component id'
./pkg/compon_communic/coupsend_r8tiles.F 26 COUPSEND_R8TILES 
      comm=MPI_COMM_compcplr( compind )
./pkg/compon_communic/coupsend_r8tiles.F 27 COUPSEND_R8TILES 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/coupsend_r8tiles.F 29 COUPSEND_R8TILES 
       write(LogUnit,*) 'coupsend_r8tiles: compind = ',compind
./pkg/compon_communic/coupsend_r8tiles.F 33 COUPSEND_R8TILES 
     &  write(LogUnit,*) 'coupsend_r8tiles: ',component_Name(compind)
./pkg/compon_communic/coupsend_r8tiles.F 41 COUPSEND_R8TILES 
       do bibj=1,component_num_tiles(n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 44 COUPSEND_R8TILES 
        Io=component_tile_i0(bibj,n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 45 COUPSEND_R8TILES 
        Jo=component_tile_j0(bibj,n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 46 COUPSEND_R8TILES 
        Ni=component_tile_nx(bibj,n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 47 COUPSEND_R8TILES 
        Nj=component_tile_ny(bibj,n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 66 COUPSEND_R8TILES 
        dest=rank_component_procs(n,compind)
./pkg/compon_communic/couprecv_r8tiles.F 19 COUPRECV_R8TILES 
      integer compind,numprocs
./pkg/compon_communic/couprecv_r8tiles.F 26 COUPRECV_R8TILES 
      compind=mitcplr_match_comp( component )
./pkg/compon_communic/couprecv_r8tiles.F 27 COUPRECV_R8TILES 
      if (compind.le.0) stop 'couprecv_r8tiles: Bad component id'
./pkg/compon_communic/couprecv_r8tiles.F 28 COUPRECV_R8TILES 
      comm=MPI_COMM_compcplr( compind )
./pkg/compon_communic/couprecv_r8tiles.F 29 COUPRECV_R8TILES 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/couprecv_r8tiles.F 31 COUPRECV_R8TILES 
       write(LogUnit,*) 'couprecv_r8tiles: compind = ',compind
./pkg/compon_communic/couprecv_r8tiles.F 35 COUPRECV_R8TILES 
     &  write(LogUnit,*) 'couprecv_r8tiles: ',component_Name(compind)
./pkg/compon_communic/couprecv_r8tiles.F 43 COUPRECV_R8TILES 
       do bibj=1,component_num_tiles(n,compind)
./pkg/compon_communic/couprecv_r8tiles.F 49 COUPRECV_R8TILES 
       rank=rank_component_procs(n,compind)
./pkg/compon_communic/couprecv_r8tiles.F 84 COUPRECV_R8TILES 
       if (Io.ne.component_tile_i0(bibj,n,compind))
./pkg/compon_communic/couprecv_r8tiles.F 86 COUPRECV_R8TILES 
       if (Jo.ne.component_tile_j0(bibj,n,compind))
./pkg/compon_communic/couprecv_r8tiles.F 88 COUPRECV_R8TILES 
       if (Ni.ne.component_tile_nx(bibj,n,compind))
./pkg/compon_communic/couprecv_r8tiles.F 90 COUPRECV_R8TILES 
       if (Nj.ne.component_tile_ny(bibj,n,compind))
./pkg/compon_communic/coupsend_r4.F 18 COUPSEND_R4 
      integer compind,numprocs
./pkg/compon_communic/coupsend_r4.F 24 COUPSEND_R4 
      compind=mitcplr_match_comp( component )
./pkg/compon_communic/coupsend_r4.F 25 COUPSEND_R4 
      if (compind.le.0) stop 'coupsend_r4: Bad component id'
./pkg/compon_communic/coupsend_r4.F 26 COUPSEND_R4 
      comm=MPI_COMM_compcplr( compind )
./pkg/compon_communic/coupsend_r4.F 27 COUPSEND_R4 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/coupsend_r4.F 29 COUPSEND_R4 
       write(LogUnit,*) 'coupsend_r4: compind = ',compind
./pkg/compon_communic/coupsend_r4.F 33 COUPSEND_R4 
     &  write(LogUnit,*) 'coupsend_r4: ',component_Name(compind)
./pkg/compon_communic/coupsend_r4.F 41 COUPSEND_R4 
       Io=component_tile_i0(1,n,compind)
./pkg/compon_communic/coupsend_r4.F 42 COUPSEND_R4 
       Jo=component_tile_j0(1,n,compind)
./pkg/compon_communic/coupsend_r4.F 43 COUPSEND_R4 
       Ni=component_tile_nx(1,n,compind)
./pkg/compon_communic/coupsend_r4.F 44 COUPSEND_R4 
       Nj=component_tile_ny(1,n,compind)
./pkg/compon_communic/coupsend_r4.F 63 COUPSEND_R4 
       dest=rank_component_procs(n,compind)
./pkg/compon_communic/mitcoupler_tile_register.F 22 MITCOUPLER_TILE_REGISTER 
      integer compind,count,dtype,tag,rank
./pkg/compon_communic/mitcoupler_tile_register.F 30 MITCOUPLER_TILE_REGISTER 
      compind=mitcplr_match_comp( compName )
./pkg/compon_communic/mitcoupler_tile_register.F 31 MITCOUPLER_TILE_REGISTER 
      if (compind.le.0) stop 'MITCOUPLER_tile_register: Bad component'
./pkg/compon_communic/mitcoupler_tile_register.F 32 MITCOUPLER_TILE_REGISTER 
      comm=MPI_COMM_compcplr( compind )
./pkg/compon_communic/mitcoupler_tile_register.F 33 MITCOUPLER_TILE_REGISTER 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/mitcoupler_tile_register.F 35 MITCOUPLER_TILE_REGISTER 
       write(LogUnit,*) 'MITCOUPLER_tile_register: compind = ',compind
./pkg/compon_communic/mitcoupler_tile_register.F 46 MITCOUPLER_TILE_REGISTER 
       rank=rank_component_procs(n,compind)
./pkg/compon_communic/mitcoupler_tile_register.F 62 MITCOUPLER_TILE_REGISTER 
       component_num_tiles(n,compind)=numtiles
./pkg/compon_communic/mitcoupler_tile_register.F 70 MITCOUPLER_TILE_REGISTER 
        rank=rank_component_procs(n,compind)
./pkg/compon_communic/mitcoupler_tile_register.F 81 MITCOUPLER_TILE_REGISTER 
        component_tile_nx(j,n,compind)=ibuf(1)
./pkg/compon_communic/mitcoupler_tile_register.F 82 MITCOUPLER_TILE_REGISTER 
        component_tile_ny(j,n,compind)=ibuf(2)
./pkg/compon_communic/mitcoupler_tile_register.F 83 MITCOUPLER_TILE_REGISTER 
        component_tile_i0(j,n,compind)=ibuf(3)
./pkg/compon_communic/mitcoupler_tile_register.F 84 MITCOUPLER_TILE_REGISTER 
        component_tile_j0(j,n,compind)=ibuf(4)
./pkg/compon_communic/couprecv_r4tiles.F 19 COUPRECV_R4TILES 
      integer compind,numprocs
./pkg/compon_communic/couprecv_r4tiles.F 26 COUPRECV_R4TILES 
      compind=mitcplr_match_comp( component )
./pkg/compon_communic/couprecv_r4tiles.F 27 COUPRECV_R4TILES 
      if (compind.le.0) stop 'couprecv_r4tiles: Bad component id'
./pkg/compon_communic/couprecv_r4tiles.F 28 COUPRECV_R4TILES 
      comm=MPI_COMM_compcplr( compind )
./pkg/compon_communic/couprecv_r4tiles.F 29 COUPRECV_R4TILES 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/couprecv_r4tiles.F 31 COUPRECV_R4TILES 
       write(LogUnit,*) 'couprecv_r4tiles: compind = ',compind
./pkg/compon_communic/couprecv_r4tiles.F 35 COUPRECV_R4TILES 
     &  write(LogUnit,*) 'couprecv_r4tiles: ',component_Name(compind)
./pkg/compon_communic/couprecv_r4tiles.F 43 COUPRECV_R4TILES 
       do bibj=1,component_num_tiles(n,compind)
./pkg/compon_communic/couprecv_r4tiles.F 49 COUPRECV_R4TILES 
       rank=rank_component_procs(n,compind)
./pkg/compon_communic/couprecv_r4tiles.F 84 COUPRECV_R4TILES 
       if (Io.ne.component_tile_i0(bibj,n,compind))
./pkg/compon_communic/couprecv_r4tiles.F 86 COUPRECV_R4TILES 
       if (Jo.ne.component_tile_j0(bibj,n,compind))
./pkg/compon_communic/couprecv_r4tiles.F 88 COUPRECV_R4TILES 
       if (Ni.ne.component_tile_nx(bibj,n,compind))
./pkg/compon_communic/couprecv_r4tiles.F 90 COUPRECV_R4TILES 
       if (Nj.ne.component_tile_ny(bibj,n,compind))
./pkg/compon_communic/mitcomponent_init.F 24 MITCOMPONENT_INIT 
      integer compind
./pkg/compon_communic/couprecv_r4.F 19 COUPRECV_R4 
      integer compind,numprocs
./pkg/compon_communic/couprecv_r4.F 26 COUPRECV_R4 
      compind=mitcplr_match_comp( component )
./pkg/compon_communic/couprecv_r4.F 27 COUPRECV_R4 
      if (compind.le.0) stop 'couprecv_r4: Bad component id'
./pkg/compon_communic/couprecv_r4.F 28 COUPRECV_R4 
      comm=MPI_COMM_compcplr( compind )
./pkg/compon_communic/couprecv_r4.F 29 COUPRECV_R4 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/couprecv_r4.F 31 COUPRECV_R4 
       write(LogUnit,*) 'couprecv_r4: compind = ',compind
./pkg/compon_communic/couprecv_r4.F 35 COUPRECV_R4 
     &  write(LogUnit,*) 'couprecv_r4: ',component_Name(compind)
./pkg/compon_communic/couprecv_r4.F 46 COUPRECV_R4 
       rank=rank_component_procs(n,compind)
./pkg/compon_communic/coupsend_r8.F 18 COUPSEND_R8 
      integer compind,numprocs
./pkg/compon_communic/coupsend_r8.F 24 COUPSEND_R8 
      compind=mitcplr_match_comp( component )
./pkg/compon_communic/coupsend_r8.F 25 COUPSEND_R8 
      if (compind.le.0) stop 'coupsend_r8: Bad component id'
./pkg/compon_communic/coupsend_r8.F 26 COUPSEND_R8 
      comm=MPI_COMM_compcplr( compind )
./pkg/compon_communic/coupsend_r8.F 27 COUPSEND_R8 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/coupsend_r8.F 29 COUPSEND_R8 
       write(LogUnit,*) 'coupsend_r8: compind = ',compind
./pkg/compon_communic/coupsend_r8.F 33 COUPSEND_R8 
     &  write(LogUnit,*) 'coupsend_r8: ',component_Name(compind)
./pkg/compon_communic/coupsend_r8.F 41 COUPSEND_R8 
       Io=component_tile_i0(1,n,compind)
./pkg/compon_communic/coupsend_r8.F 42 COUPSEND_R8 
       Jo=component_tile_j0(1,n,compind)
./pkg/compon_communic/coupsend_r8.F 43 COUPSEND_R8 
       Ni=component_tile_nx(1,n,compind)
./pkg/compon_communic/coupsend_r8.F 44 COUPSEND_R8 
       Nj=component_tile_ny(1,n,compind)
./pkg/compon_communic/coupsend_r8.F 63 COUPSEND_R8 
       dest=rank_component_procs(n,compind)
./pkg/compon_communic/mitcplr_initcomp.F 12 MITCPLR_INITCOMP 
      component_List(compind)=carg
./pkg/compon_communic/mitcplr_initcomp.F 14 MITCPLR_INITCOMP 
      num_component_procs( compind ) = 0
./pkg/compon_communic/mitcplr_initcomp.F 15 MITCPLR_INITCOMP 
      num_compcplr_procs( compind ) = 0
./pkg/compon_communic/mitcplr_initcomp.F 16 MITCPLR_INITCOMP 
      component_Name( compind ) = carg
./pkg/compon_communic/mitcplr_initcomp.F 2 MITCPLR_INITCOMP 
      subroutine MITCPLR_INITCOMP( compind, carg )
./pkg/compon_communic/mitcplr_initcomp.F 7 MITCPLR_INITCOMP 
      integer compind
./pkg/compon_communic/mitcplr_init1.F 179 MITCPLR_INIT1 
       compind=mitcplr_match_comp( myTypeStr )
./pkg/compon_communic/mitcplr_init1.F 180 MITCPLR_INIT1 
       my_component_ind=compind
./pkg/compon_communic/mitcplr_init1.F 181 MITCPLR_INIT1 
       MPI_COMM_mylocal=MPI_COMM_component( compind )
./pkg/compon_communic/mitcplr_init1.F 182 MITCPLR_INIT1 
       MPI_COMM_myglobal=MPI_COMM_compcplr( compind )
./pkg/compon_communic/mitcplr_init1.F 183 MITCPLR_INIT1 
       my_component_name=component_Name( compind )
./pkg/compon_communic/mitcplr_init1.F 187 MITCPLR_INIT1 
     &   ' component num=',compind,
./pkg/compon_communic/mitcplr_init1.F 25 MITCPLR_INIT1 
      integer compind
./pkg/compon_communic/mitcplr_init1.F 78 MITCPLR_INIT1 
        compind=mitcplr_match_comp( cbuf )
./pkg/compon_communic/mitcplr_init1.F 80 MITCPLR_INIT1 
     &    ' compind=',compind
./pkg/compon_communic/mitcplr_init1.F 81 MITCPLR_INIT1 
        num_component_procs(compind)=num_component_procs(compind) + 1
./pkg/compon_communic/mitcplr_init1.F 82 MITCPLR_INIT1 
        j=num_component_procs(compind)
./pkg/compon_communic/mitcplr_init1.F 83 MITCPLR_INIT1 
        rank_component_procs(j,compind)=ibuf(1)
./pkg/compon_communic/mitcplr_init1.F 92 MITCPLR_INIT1 
      do compind=1,num_components
./pkg/compon_communic/mitcplr_init1.F 93 MITCPLR_INIT1 
       num_compcplr_procs(compind)=num_component_procs(compind) + 1
./pkg/compon_communic/mitcplr_init1.F 94 MITCPLR_INIT1 
       do j=1,num_compcplr_procs(compind)
./pkg/compon_communic/mitcplr_init1.F 95 MITCPLR_INIT1 
        rank_compcplr_procs(j,compind)=rank_component_procs(j,compind)
./pkg/compon_communic/mitcplr_init1.F 97 MITCPLR_INIT1 
       j=num_compcplr_procs(compind)
./pkg/compon_communic/mitcplr_init1.F 98 MITCPLR_INIT1 
       rank_compcplr_procs(j,compind)=rank_coupler_procs(1)
./pkg/compon_communic/mitcplr_init1.F 99 MITCPLR_INIT1 
       call MITCPLR_SORTRANKS( j, rank_compcplr_procs(1,compind) )
./pkg/compon_communic/mitcplr_init2b.F 13 MITCPLR_INIT2B 
      integer n,j,lenbuf,compind
./pkg/compon_communic/mitcplr_init2b.F 17 MITCPLR_INIT2B 
      do compind = 1,num_components
./pkg/compon_communic/mitcplr_init2b.F 19 MITCPLR_INIT2B 
       MPI_COMM_temp=MPI_COMM_compcplr(compind)
./pkg/compon_communic/mitcplr_init2b.F 36 MITCPLR_INIT2B 
       num_component_procs(compind)=0
./pkg/compon_communic/mitcplr_init2b.F 37 MITCPLR_INIT2B 
       num_compcplr_procs(compind)=0
./pkg/compon_communic/mitcplr_init2b.F 65 MITCPLR_INIT2B 
         num_compcplr_procs(compind)=num_compcplr_procs(compind) + 1
./pkg/compon_communic/mitcplr_init2b.F 66 MITCPLR_INIT2B 
         j=num_compcplr_procs(compind)
./pkg/compon_communic/mitcplr_init2b.F 67 MITCPLR_INIT2B 
         rank_compcplr_procs(j,compind)=ibuf(1)
./pkg/compon_communic/mitcplr_init2b.F 70 MITCPLR_INIT2B 
         num_component_procs(compind)=num_component_procs(compind) + 1
./pkg/compon_communic/mitcplr_init2b.F 71 MITCPLR_INIT2B 
         j=num_component_procs(compind)
./pkg/compon_communic/mitcplr_init2b.F 72 MITCPLR_INIT2B 
         rank_component_procs(j,compind)=ibuf(1)
./pkg/compon_communic/mitcplr_init2b.F 73 MITCPLR_INIT2B 
         num_compcplr_procs(compind)=num_compcplr_procs(compind) + 1
./pkg/compon_communic/mitcplr_init2b.F 74 MITCPLR_INIT2B 
         j=num_compcplr_procs(compind)
./pkg/compon_communic/mitcplr_init2b.F 75 MITCPLR_INIT2B 
         rank_compcplr_procs(j,compind)=ibuf(1)
./pkg/compon_communic/mitcplr_init2b.F 88 MITCPLR_INIT2B 
      do compind = 1,num_components
./pkg/compon_communic/mitcplr_init2b.F 90 MITCPLR_INIT2B 
     &      MPI_COMM_compcplr(compind),
./pkg/compon_communic/mitcplr_init2b.F 91 MITCPLR_INIT2B 
     &     ' comp. ranks = ',(rank_component_procs(j,compind),
./pkg/compon_communic/mitcplr_init2b.F 92 MITCPLR_INIT2B 
     &                        j=1,num_component_procs(compind) )
./pkg/compon_communic/mitcplr_init2b.F 94 MITCPLR_INIT2B 
     &      MPI_COMM_compcplr(compind),
./pkg/compon_communic/mitcplr_init2b.F 95 MITCPLR_INIT2B 
     &     ' c+c ranks = ',(rank_compcplr_procs(j,compind),
./pkg/compon_communic/mitcplr_init2b.F 96 MITCPLR_INIT2B 
     &                        j=1,num_compcplr_procs(compind) )
./pkg/compon_communic/mitcoupler_init.F 24 MITCOUPLER_INIT 
      integer compind
./pkg/compon_communic/mitcoupler_register.F 103 MITCOUPLER_REGISTER 
     &    component_tile_nx(1,n,compind),component_tile_ny(1,n,compind)
./pkg/compon_communic/mitcoupler_register.F 22 MITCOUPLER_REGISTER 
      integer compind,count,dtype,tag,rank
./pkg/compon_communic/mitcoupler_register.F 30 MITCOUPLER_REGISTER 
      compind=mitcplr_match_comp( compName )
./pkg/compon_communic/mitcoupler_register.F 31 MITCOUPLER_REGISTER 
      if (compind.le.0) stop 'MITCOUPLER_register: Bad component'
./pkg/compon_communic/mitcoupler_register.F 32 MITCOUPLER_REGISTER 
      comm=MPI_COMM_compcplr( compind )
./pkg/compon_communic/mitcoupler_register.F 33 MITCOUPLER_REGISTER 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/mitcoupler_register.F 35 MITCOUPLER_REGISTER 
       write(LogUnit,*) 'MITCOUPLER_register: compind = ',compind
./pkg/compon_communic/mitcoupler_register.F 46 MITCOUPLER_REGISTER 
       rank=rank_component_procs(n,compind)
./pkg/compon_communic/mitcoupler_register.F 93 MITCOUPLER_REGISTER 
       component_num_tiles(n,compind)=1
./pkg/compon_communic/mitcoupler_register.F 94 MITCOUPLER_REGISTER 
       component_tile_nx(1,n,compind)=nx
./pkg/compon_communic/mitcoupler_register.F 95 MITCOUPLER_REGISTER 
       component_tile_ny(1,n,compind)=ny
./pkg/compon_communic/mitcoupler_register.F 96 MITCOUPLER_REGISTER 
       component_tile_i0(1,n,compind)=i0
./pkg/compon_communic/mitcoupler_register.F 97 MITCOUPLER_REGISTER 
       component_tile_j0(1,n,compind)=j0