Symbol Description Uses
dataname 88


File Line number Procedure Code
./pkg/compon_communic/coupsend_r4tiles.F 2 COUPSEND_R4TILES 
      subroutine COUPSEND_R4TILES( component, dataname, Nx, Ny, arr )
./pkg/compon_communic/coupsend_r4tiles.F 35 COUPSEND_R4TILES 
     &  write(LogUnit,*) 'coupsend_r4tiles: dataname=',dataname
./pkg/compon_communic/coupsend_r4tiles.F 52 COUPSEND_R4TILES 
        call MITCPLR_CHAR2REAL( dataname, r4buf(9) )
./pkg/compon_communic/coupsend_r4tiles.F 65 COUPSEND_R4TILES 
        tag=generate_tag(123,bibj,dataname)
./pkg/compon_communic/coupsend_r4tiles.F 6 COUPSEND_R4TILES 
      character*(*) dataname
./pkg/compon_communic/comprecv_r8tiles.F 2 COMPRECV_R8TILES 
      subroutine COMPRECV_R8TILES( dataname, Ni,Oi,Nj,Oj,Nk,Tx,Ty, arr )
./pkg/compon_communic/comprecv_r8tiles.F 33 COMPRECV_R8TILES 
       tag=generate_tag(123,bibj,dataname)
./pkg/compon_communic/comprecv_r8tiles.F 39 COMPRECV_R8TILES 
        write(LogUnit,*) 'comprecv_r8tiles: dataname=',dataname
./pkg/compon_communic/comprecv_r8tiles.F 5 COMPRECV_R8TILES 
      character*(*) dataname
./pkg/compon_communic/comprecv_r8tiles.F 66 COMPRECV_R8TILES 
       if (recvdname .ne. dataname) then
./pkg/compon_communic/comprecv_r8tiles.F 68 COMPRECV_R8TILES 
        write(LogUnit,*) 'comprecv_r8tiles:  dataname = ',dataname
./pkg/compon_communic/couprecv_r8.F 2 COUPRECV_R8 
      subroutine COUPRECV_R8( component, dataname, Nx, Ny, arr )
./pkg/compon_communic/couprecv_r8.F 37 COUPRECV_R8 
     &  write(LogUnit,*) 'couprecv_r8: dataname=',dataname
./pkg/compon_communic/couprecv_r8.F 45 COUPRECV_R8 
       tag=generate_tag(102,n,dataname)
./pkg/compon_communic/couprecv_r8.F 6 COUPRECV_R8 
      character*(*) dataname
./pkg/compon_communic/couprecv_r8.F 81 COUPRECV_R8 
       if (recvdname .ne. dataname) then
./pkg/compon_communic/couprecv_r8.F 83 COUPRECV_R8 
        write(LogUnit,*) 'couprecv_r8:  dataname = ',dataname
./pkg/compon_communic/coupsend_r8tiles.F 2 COUPSEND_R8TILES 
      subroutine COUPSEND_R8TILES( component, dataname, Nx, Ny, arr )
./pkg/compon_communic/coupsend_r8tiles.F 35 COUPSEND_R8TILES 
     &  write(LogUnit,*) 'coupsend_r8tiles: dataname=',dataname
./pkg/compon_communic/coupsend_r8tiles.F 52 COUPSEND_R8TILES 
        call MITCPLR_CHAR2REAL( dataname, r8buf(9) )
./pkg/compon_communic/coupsend_r8tiles.F 65 COUPSEND_R8TILES 
        tag=generate_tag(123,bibj,dataname)
./pkg/compon_communic/coupsend_r8tiles.F 6 COUPSEND_R8TILES 
      character*(*) dataname
./pkg/compon_communic/comprecv_r8.F 27 COMPRECV_R8 
      tag=generate_tag(121,my_rank_in_global,dataname)
./pkg/compon_communic/comprecv_r8.F 2 COMPRECV_R8 
      subroutine COMPRECV_R8( dataname, Ni,Oi,Nj,Oj, arr )
./pkg/compon_communic/comprecv_r8.F 33 COMPRECV_R8 
       write(LogUnit,*) 'comprecv_r8: dataname=',dataname
./pkg/compon_communic/comprecv_r8.F 5 COMPRECV_R8 
      character*(*) dataname
./pkg/compon_communic/comprecv_r8.F 60 COMPRECV_R8 
      if (recvdname .ne. dataname) then
./pkg/compon_communic/comprecv_r8.F 62 COMPRECV_R8 
       write(LogUnit,*) 'comprecv_r8:  dataname = ',dataname
./pkg/compon_communic/compsend_r4.F 29 COMPSEND_R4 
      call MITCPLR_CHAR2REAL( dataname, r4buf(9) )
./pkg/compon_communic/compsend_r4.F 2 COMPSEND_R4 
      subroutine COMPSEND_R4( dataname, Ni,Oi,Nj,Oj, arr )
./pkg/compon_communic/compsend_r4.F 43 COMPSEND_R4 
      tag=generate_tag(102,my_rank_in_global,dataname)
./pkg/compon_communic/compsend_r4.F 48 COMPSEND_R4 
       write(LogUnit,*) 'compsend_r4: dataname=',dataname
./pkg/compon_communic/compsend_r4.F 5 COMPSEND_R4 
      character*(*) dataname
./pkg/compon_communic/compsend_r8tiles.F 2 COMPSEND_R8TILES 
      subroutine COMPSEND_R8TILES( dataname,Ni,Oi,Nj,Oj,Nk,Ti,Tj, arr )
./pkg/compon_communic/compsend_r8tiles.F 38 COMPSEND_R8TILES 
       call MITCPLR_CHAR2REAL( dataname, r8buf(9) )
./pkg/compon_communic/compsend_r8tiles.F 53 COMPSEND_R8TILES 
       tag=generate_tag(103,bibj,dataname)
./pkg/compon_communic/compsend_r8tiles.F 59 COMPSEND_R8TILES 
        write(LogUnit,*) 'compsend_r8tiles: dataname=',dataname
./pkg/compon_communic/compsend_r8tiles.F 5 COMPSEND_R8TILES 
      character*(*) dataname
./pkg/compon_communic/couprecv_r8tiles.F 2 COUPRECV_R8TILES 
      subroutine COUPRECV_R8TILES( component, dataname, Nx, Ny, arr )
./pkg/compon_communic/couprecv_r8tiles.F 37 COUPRECV_R8TILES 
     &  write(LogUnit,*) 'couprecv_r8tiles: dataname=',dataname
./pkg/compon_communic/couprecv_r8tiles.F 48 COUPRECV_R8TILES 
       tag=generate_tag(103,bibj,dataname)
./pkg/compon_communic/couprecv_r8tiles.F 6 COUPRECV_R8TILES 
      character*(*) dataname
./pkg/compon_communic/couprecv_r8tiles.F 94 COUPRECV_R8TILES 
       if (recvdname .ne. dataname) then
./pkg/compon_communic/couprecv_r8tiles.F 96 COUPRECV_R8TILES 
        write(LogUnit,*) 'couprecv_r8tiles:  dataname = ',dataname
./pkg/compon_communic/comprecv_r4.F 27 COMPRECV_R4 
      tag=generate_tag(121,my_rank_in_global,dataname)
./pkg/compon_communic/comprecv_r4.F 2 COMPRECV_R4 
      subroutine COMPRECV_R4( dataname, Ni,Oi,Nj,Oj, arr )
./pkg/compon_communic/comprecv_r4.F 33 COMPRECV_R4 
       write(LogUnit,*) 'comprecv_r4: dataname=',dataname
./pkg/compon_communic/comprecv_r4.F 5 COMPRECV_R4 
      character*(*) dataname
./pkg/compon_communic/comprecv_r4.F 60 COMPRECV_R4 
      if (recvdname .ne. dataname) then
./pkg/compon_communic/comprecv_r4.F 62 COMPRECV_R4 
       write(LogUnit,*) 'comprecv_r4:  dataname = ',dataname
./pkg/compon_communic/coupsend_r4.F 2 COUPSEND_R4 
      subroutine COUPSEND_R4( component, dataname, Nx, Ny, arr )
./pkg/compon_communic/coupsend_r4.F 35 COUPSEND_R4 
     &  write(LogUnit,*) 'coupsend_r4: dataname=',dataname
./pkg/compon_communic/coupsend_r4.F 49 COUPSEND_R4 
       call MITCPLR_CHAR2REAL( dataname, r4buf(9) )
./pkg/compon_communic/coupsend_r4.F 62 COUPSEND_R4 
       tag=generate_tag(121,n,dataname)
./pkg/compon_communic/coupsend_r4.F 6 COUPSEND_R4 
      character*(*) dataname
./pkg/compon_communic/compsend_r4tiles.F 2 COMPSEND_R4TILES 
      subroutine COMPSEND_R4TILES( dataname,Ni,Oi,Nj,Oj,Nk,Ti,Tj, arr )
./pkg/compon_communic/compsend_r4tiles.F 38 COMPSEND_R4TILES 
       call MITCPLR_CHAR2REAL( dataname, r4buf(9) )
./pkg/compon_communic/compsend_r4tiles.F 53 COMPSEND_R4TILES 
       tag=generate_tag(103,bibj,dataname)
./pkg/compon_communic/compsend_r4tiles.F 59 COMPSEND_R4TILES 
        write(LogUnit,*) 'compsend_r4tiles: dataname=',dataname
./pkg/compon_communic/compsend_r4tiles.F 5 COMPSEND_R4TILES 
      character*(*) dataname
./pkg/compon_communic/compsend_r8.F 29 COMPSEND_R8 
      call MITCPLR_CHAR2REAL( dataname, r8buf(9) )
./pkg/compon_communic/compsend_r8.F 2 COMPSEND_R8 
      subroutine COMPSEND_R8( dataname, Ni,Oi,Nj,Oj, arr )
./pkg/compon_communic/compsend_r8.F 43 COMPSEND_R8 
      tag=generate_tag(102,my_rank_in_global,dataname)
./pkg/compon_communic/compsend_r8.F 48 COMPSEND_R8 
       write(LogUnit,*) 'compsend_r8: dataname=',dataname
./pkg/compon_communic/compsend_r8.F 5 COMPSEND_R8 
      character*(*) dataname
./pkg/compon_communic/comprecv_r4tiles.F 2 COMPRECV_R4TILES 
      subroutine COMPRECV_R4TILES( dataname, Ni,Oi,Nj,Oj,Nk,Tx,Ty, arr )
./pkg/compon_communic/comprecv_r4tiles.F 33 COMPRECV_R4TILES 
       tag=generate_tag(123,bibj,dataname)
./pkg/compon_communic/comprecv_r4tiles.F 39 COMPRECV_R4TILES 
        write(LogUnit,*) 'comprecv_r4tiles: dataname=',dataname
./pkg/compon_communic/comprecv_r4tiles.F 5 COMPRECV_R4TILES 
      character*(*) dataname
./pkg/compon_communic/comprecv_r4tiles.F 66 COMPRECV_R4TILES 
       if (recvdname .ne. dataname) then
./pkg/compon_communic/comprecv_r4tiles.F 68 COMPRECV_R4TILES 
        write(LogUnit,*) 'comprecv_r4tiles:  dataname = ',dataname
./pkg/compon_communic/couprecv_r4tiles.F 2 COUPRECV_R4TILES 
      subroutine COUPRECV_R4TILES( component, dataname, Nx, Ny, arr )
./pkg/compon_communic/couprecv_r4tiles.F 37 COUPRECV_R4TILES 
     &  write(LogUnit,*) 'couprecv_r4tiles: dataname=',dataname
./pkg/compon_communic/couprecv_r4tiles.F 48 COUPRECV_R4TILES 
       tag=generate_tag(103,bibj,dataname)
./pkg/compon_communic/couprecv_r4tiles.F 6 COUPRECV_R4TILES 
      character*(*) dataname
./pkg/compon_communic/couprecv_r4tiles.F 94 COUPRECV_R4TILES 
       if (recvdname .ne. dataname) then
./pkg/compon_communic/couprecv_r4tiles.F 96 COUPRECV_R4TILES 
        write(LogUnit,*) 'couprecv_r4tiles:  dataname = ',dataname
./pkg/compon_communic/couprecv_r4.F 2 COUPRECV_R4 
      subroutine COUPRECV_R4( component, dataname, Nx, Ny, arr )
./pkg/compon_communic/couprecv_r4.F 37 COUPRECV_R4 
     &  write(LogUnit,*) 'couprecv_r4: dataname=',dataname
./pkg/compon_communic/couprecv_r4.F 45 COUPRECV_R4 
       tag=generate_tag(102,n,dataname)
./pkg/compon_communic/couprecv_r4.F 6 COUPRECV_R4 
      character*(*) dataname
./pkg/compon_communic/couprecv_r4.F 81 COUPRECV_R4 
       if (recvdname .ne. dataname) then
./pkg/compon_communic/couprecv_r4.F 83 COUPRECV_R4 
        write(LogUnit,*) 'couprecv_r4:  dataname = ',dataname
./pkg/compon_communic/coupsend_r8.F 2 COUPSEND_R8 
      subroutine COUPSEND_R8( component, dataname, Nx, Ny, arr )
./pkg/compon_communic/coupsend_r8.F 35 COUPSEND_R8 
     &  write(LogUnit,*) 'coupsend_r8: dataname=',dataname
./pkg/compon_communic/coupsend_r8.F 49 COUPSEND_R8 
       call MITCPLR_CHAR2REAL( dataname, r8buf(9) )
./pkg/compon_communic/coupsend_r8.F 62 COUPSEND_R8 
       tag=generate_tag(121,n,dataname)
./pkg/compon_communic/coupsend_r8.F 6 COUPSEND_R8 
      character*(*) dataname