Symbol Description Uses
numprocs 82


File Line number Procedure Code
./pkg/compon_communic/couprecv_i4vec.F 24 COUPRECV_I4VEC 
      integer compind, numprocs
./pkg/compon_communic/couprecv_i4vec.F 36 COUPRECV_I4VEC 
      numprocs = num_component_procs(compind)
./pkg/compon_communic/couprecv_i4vec.F 37 COUPRECV_I4VEC 
      if (numprocs.lt.1) then
./pkg/compon_communic/couprecv_i4vec.F 47 COUPRECV_I4VEC 
      do n=1,numprocs
./pkg/compon_communic/couprecv_i4vec.F 58 COUPRECV_I4VEC 
     &    ' proc=',n,'/',numprocs
./pkg/compon_communic/couprecv_r4.F 22 COUPRECV_R4 
      integer compind,numprocs
./pkg/compon_communic/couprecv_r4.F 32 COUPRECV_R4 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/couprecv_r4.F 33 COUPRECV_R4 
      if (numprocs.lt.1) then
./pkg/compon_communic/couprecv_r4.F 43 COUPRECV_R4 
      do n=1,numprocs
./pkg/compon_communic/couprecv_r4.F 52 COUPRECV_R4 
     &    ' proc=',n,'/',numprocs
./pkg/compon_communic/couprecv_r4tiles.F 22 COUPRECV_R4TILES 
      integer compind,numprocs
./pkg/compon_communic/couprecv_r4tiles.F 32 COUPRECV_R4TILES 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/couprecv_r4tiles.F 33 COUPRECV_R4TILES 
      if (numprocs.lt.1) then
./pkg/compon_communic/couprecv_r4tiles.F 43 COUPRECV_R4TILES 
      do n=1,numprocs
./pkg/compon_communic/couprecv_r4tiles.F 57 COUPRECV_R4TILES 
     &    ' proc=',n,'/',numprocs,' tile=',bibj
./pkg/compon_communic/couprecv_r8.F 22 COUPRECV_R8 
      integer compind,numprocs
./pkg/compon_communic/couprecv_r8.F 32 COUPRECV_R8 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/couprecv_r8.F 33 COUPRECV_R8 
      if (numprocs.lt.1) then
./pkg/compon_communic/couprecv_r8.F 43 COUPRECV_R8 
      do n=1,numprocs
./pkg/compon_communic/couprecv_r8.F 52 COUPRECV_R8 
     &    ' proc=',n,'/',numprocs
./pkg/compon_communic/couprecv_r8tiles.F 22 COUPRECV_R8TILES 
      integer compind,numprocs
./pkg/compon_communic/couprecv_r8tiles.F 32 COUPRECV_R8TILES 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/couprecv_r8tiles.F 33 COUPRECV_R8TILES 
      if (numprocs.lt.1) then
./pkg/compon_communic/couprecv_r8tiles.F 43 COUPRECV_R8TILES 
      do n=1,numprocs
./pkg/compon_communic/couprecv_r8tiles.F 57 COUPRECV_R8TILES 
     &    ' proc=',n,'/',numprocs,' tile=',bibj
./pkg/compon_communic/coupsend_i4vec.F 23 COUPSEND_I4VEC 
      integer compind, numprocs
./pkg/compon_communic/coupsend_i4vec.F 35 COUPSEND_I4VEC 
      numprocs = num_component_procs(compind)
./pkg/compon_communic/coupsend_i4vec.F 36 COUPSEND_I4VEC 
      if (numprocs.lt.1) then
./pkg/compon_communic/coupsend_i4vec.F 52 COUPSEND_I4VEC 
      do n=1,numprocs
./pkg/compon_communic/coupsend_i4vec.F 63 COUPSEND_I4VEC 
     &    ' proc=',n,'/',numprocs
./pkg/compon_communic/coupsend_r4.F 23 COUPSEND_R4 
      integer compind,numprocs
./pkg/compon_communic/coupsend_r4.F 32 COUPSEND_R4 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/coupsend_r4.F 33 COUPSEND_R4 
      if (numprocs.lt.1) then
./pkg/compon_communic/coupsend_r4.F 43 COUPSEND_R4 
      do n=1,numprocs
./pkg/compon_communic/coupsend_r4.F 72 COUPSEND_R4 
     &    ' proc=',n,'/',numprocs
./pkg/compon_communic/coupsend_r4tiles.F 23 COUPSEND_R4TILES 
      integer compind,numprocs
./pkg/compon_communic/coupsend_r4tiles.F 32 COUPSEND_R4TILES 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/coupsend_r4tiles.F 33 COUPSEND_R4TILES 
      if (numprocs.lt.1) then
./pkg/compon_communic/coupsend_r4tiles.F 43 COUPSEND_R4TILES 
      do n=1,numprocs
./pkg/compon_communic/coupsend_r4tiles.F 75 COUPSEND_R4TILES 
     &     dest,' proc=',n,'/',numprocs,' tile=',bibj
./pkg/compon_communic/coupsend_r8.F 23 COUPSEND_R8 
      integer compind,numprocs
./pkg/compon_communic/coupsend_r8.F 32 COUPSEND_R8 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/coupsend_r8.F 33 COUPSEND_R8 
      if (numprocs.lt.1) then
./pkg/compon_communic/coupsend_r8.F 43 COUPSEND_R8 
      do n=1,numprocs
./pkg/compon_communic/coupsend_r8.F 72 COUPSEND_R8 
     &    ' proc=',n,'/',numprocs
./pkg/compon_communic/coupsend_r8tiles.F 23 COUPSEND_R8TILES 
      integer compind,numprocs
./pkg/compon_communic/coupsend_r8tiles.F 32 COUPSEND_R8TILES 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/coupsend_r8tiles.F 33 COUPSEND_R8TILES 
      if (numprocs.lt.1) then
./pkg/compon_communic/coupsend_r8tiles.F 43 COUPSEND_R8TILES 
      do n=1,numprocs
./pkg/compon_communic/coupsend_r8tiles.F 75 COUPSEND_R8TILES 
     &     dest,' proc=',n,'/',numprocs,' tile=',bibj
./pkg/compon_communic/mitcoupler_register.F 107 MITCOUPLER_REGISTER 
      do n=1,numprocs
./pkg/compon_communic/mitcoupler_register.F 25 MITCOUPLER_REGISTER 
      integer n,numprocs
./pkg/compon_communic/mitcoupler_register.F 39 MITCOUPLER_REGISTER 
      numprocs=num_component_procs(compind)
./pkg/compon_communic/mitcoupler_register.F 40 MITCOUPLER_REGISTER 
      if (numprocs.lt.1) then
./pkg/compon_communic/mitcoupler_register.F 46 MITCOUPLER_REGISTER 
      do n=1,numprocs
./pkg/compon_communic/mitcoupler_tile_register.F 25 MITCOUPLER_TILE_REGISTER 
      integer n,numprocs
./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 47 MITCOUPLER_TILE_REGISTER 
      if (numprocs.lt.1) then
./pkg/compon_communic/mitcoupler_tile_register.F 52 MITCOUPLER_TILE_REGISTER 
      do n=1,numprocs
./pkg/compon_communic/mitcplr_init1.F 200 MITCPLR_INIT1 
        call MPI_COMM_SIZE( MPI_COMM_compcplr(n), numprocs, ierr )
./pkg/compon_communic/mitcplr_init1.F 202 MITCPLR_INIT1 
     &     ' Size = ',numprocs,' MPI_COMM_SIZE ierr=',ierr
./pkg/compon_communic/mitcplr_init1.F 204 MITCPLR_INIT1 
     &     ' Rank/Size = ',j,' /',numprocs,
./pkg/compon_communic/mitcplr_init1.F 213 MITCPLR_INIT1 
       call MPI_COMM_SIZE( MPI_COMM_myglobal, numprocs, ierr )
./pkg/compon_communic/mitcplr_init1.F 215 MITCPLR_INIT1 
     &     ' Size = ',numprocs,' MPI_COMM_SIZE ierr=',ierr
./pkg/compon_communic/mitcplr_init1.F 217 MITCPLR_INIT1 
     &     ' Rank/Size = ',j,' /',numprocs
./pkg/compon_communic/mitcplr_init1.F 23 MITCPLR_INIT1 
      integer myid, numprocs, ierr
./pkg/compon_communic/mitcplr_init1.F 39 MITCPLR_INIT1 
      call MPI_COMM_SIZE( MPI_COMM_WORLD, numprocs, ierr )
./pkg/compon_communic/mitcplr_init1.F 41 MITCPLR_INIT1 
     &     ' Size = ',numprocs,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init1.F 43 MITCPLR_INIT1 
     &     ' Rank/Size = ',myid,' /',numprocs
./pkg/compon_communic/mitcplr_init1.F 54 MITCPLR_INIT1 
      do n=0,numprocs-1
./pkg/compon_communic/mitcplr_init2a.F 16 MITCPLR_INIT2A 
      integer myid, numprocs, ierr
./pkg/compon_communic/mitcplr_init2a.F 26 MITCPLR_INIT2A 
      call MPI_COMM_SIZE( MPI_COMM_myglobal, numprocs, ierr )
./pkg/compon_communic/mitcplr_init2a.F 28 MITCPLR_INIT2A 
     &     ' Size = ',numprocs,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init2a.F 30 MITCPLR_INIT2A 
     &     ' Rank/Size = ',myid,' /',numprocs
./pkg/compon_communic/mitcplr_init2a.F 38 MITCPLR_INIT2A 
      do n=0,numprocs-1
./pkg/compon_communic/mitcplr_init2a.F 96 MITCPLR_INIT2A 
     &     ' my_coupler_rank =',my_coupler_rank,' /',numprocs
./pkg/compon_communic/mitcplr_init2b.F 16 MITCPLR_INIT2B 
      integer myid, numprocs, ierr
./pkg/compon_communic/mitcplr_init2b.F 32 MITCPLR_INIT2B 
       call MPI_COMM_SIZE( MPI_COMM_temp, numprocs, ierr )
./pkg/compon_communic/mitcplr_init2b.F 34 MITCPLR_INIT2B 
     &     ' Size = ',numprocs,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init2b.F 36 MITCPLR_INIT2B 
     &     ' Rank/Size = ',myid,' /',numprocs
./pkg/compon_communic/mitcplr_init2b.F 46 MITCPLR_INIT2B 
       do n=0,numprocs-1