| File |
Line number |
Procedure |
Code |
|
./pkg/compon_communic/comprecv_r4.F |
30 |
COMPRECV_R4 |
tag=generate_tag(121,my_rank_in_global,dataname) |
|
./pkg/compon_communic/comprecv_r4.F |
36 |
COMPRECV_R4 |
write(LogUnit,*) 'comprecv_r4: dataname=',dataname |
|
./pkg/compon_communic/comprecv_r4.F |
5 |
COMPRECV_R4 |
subroutine COMPRECV_R4( dataname, Ni,Oi,Nj,Oj, arr ) |
|
./pkg/compon_communic/comprecv_r4.F |
63 |
COMPRECV_R4 |
if (recvdname .ne. dataname) then |
|
./pkg/compon_communic/comprecv_r4.F |
65 |
COMPRECV_R4 |
write(LogUnit,*) 'comprecv_r4: dataname = ',dataname |
|
./pkg/compon_communic/comprecv_r4.F |
8 |
COMPRECV_R4 |
character*(*) dataname |
|
./pkg/compon_communic/comprecv_r4tiles.F |
36 |
COMPRECV_R4TILES |
tag=generate_tag(123,bibj,dataname) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
42 |
COMPRECV_R4TILES |
write(LogUnit,*) 'comprecv_r4tiles: dataname=',dataname |
|
./pkg/compon_communic/comprecv_r4tiles.F |
5 |
COMPRECV_R4TILES |
subroutine COMPRECV_R4TILES( dataname, Ni,Oi,Nj,Oj,Nk,Tx,Ty, arr ) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
69 |
COMPRECV_R4TILES |
if (recvdname .ne. dataname) then |
|
./pkg/compon_communic/comprecv_r4tiles.F |
71 |
COMPRECV_R4TILES |
write(LogUnit,*) 'comprecv_r4tiles: dataname = ',dataname |
|
./pkg/compon_communic/comprecv_r4tiles.F |
8 |
COMPRECV_R4TILES |
character*(*) dataname |
|
./pkg/compon_communic/comprecv_r8.F |
30 |
COMPRECV_R8 |
tag=generate_tag(121,my_rank_in_global,dataname) |
|
./pkg/compon_communic/comprecv_r8.F |
36 |
COMPRECV_R8 |
write(LogUnit,*) 'comprecv_r8: dataname=',dataname |
|
./pkg/compon_communic/comprecv_r8.F |
5 |
COMPRECV_R8 |
subroutine COMPRECV_R8( dataname, Ni,Oi,Nj,Oj, arr ) |
|
./pkg/compon_communic/comprecv_r8.F |
63 |
COMPRECV_R8 |
if (recvdname .ne. dataname) then |
|
./pkg/compon_communic/comprecv_r8.F |
65 |
COMPRECV_R8 |
write(LogUnit,*) 'comprecv_r8: dataname = ',dataname |
|
./pkg/compon_communic/comprecv_r8.F |
8 |
COMPRECV_R8 |
character*(*) dataname |
|
./pkg/compon_communic/comprecv_r8tiles.F |
36 |
COMPRECV_R8TILES |
tag=generate_tag(123,bibj,dataname) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
42 |
COMPRECV_R8TILES |
write(LogUnit,*) 'comprecv_r8tiles: dataname=',dataname |
|
./pkg/compon_communic/comprecv_r8tiles.F |
5 |
COMPRECV_R8TILES |
subroutine COMPRECV_R8TILES( dataname, Ni,Oi,Nj,Oj,Nk,Tx,Ty, arr ) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
69 |
COMPRECV_R8TILES |
if (recvdname .ne. dataname) then |
|
./pkg/compon_communic/comprecv_r8tiles.F |
71 |
COMPRECV_R8TILES |
write(LogUnit,*) 'comprecv_r8tiles: dataname = ',dataname |
|
./pkg/compon_communic/comprecv_r8tiles.F |
8 |
COMPRECV_R8TILES |
character*(*) dataname |
|
./pkg/compon_communic/compsend_r4.F |
32 |
COMPSEND_R4 |
call MITCPLR_CHAR2REAL( dataname, r4buf(9) ) |
|
./pkg/compon_communic/compsend_r4.F |
46 |
COMPSEND_R4 |
tag=generate_tag(102,my_rank_in_global,dataname) |
|
./pkg/compon_communic/compsend_r4.F |
51 |
COMPSEND_R4 |
write(LogUnit,*) 'compsend_r4: dataname=',dataname |
|
./pkg/compon_communic/compsend_r4.F |
5 |
COMPSEND_R4 |
subroutine COMPSEND_R4( dataname, Ni,Oi,Nj,Oj, arr ) |
|
./pkg/compon_communic/compsend_r4.F |
8 |
COMPSEND_R4 |
character*(*) dataname |
|
./pkg/compon_communic/compsend_r4tiles.F |
41 |
COMPSEND_R4TILES |
call MITCPLR_CHAR2REAL( dataname, r4buf(9) ) |
|
./pkg/compon_communic/compsend_r4tiles.F |
56 |
COMPSEND_R4TILES |
tag=generate_tag(103,bibj,dataname) |
|
./pkg/compon_communic/compsend_r4tiles.F |
5 |
COMPSEND_R4TILES |
subroutine COMPSEND_R4TILES( dataname,Ni,Oi,Nj,Oj,Nk,Ti,Tj, arr ) |
|
./pkg/compon_communic/compsend_r4tiles.F |
62 |
COMPSEND_R4TILES |
write(LogUnit,*) 'compsend_r4tiles: dataname=',dataname |
|
./pkg/compon_communic/compsend_r4tiles.F |
8 |
COMPSEND_R4TILES |
character*(*) dataname |
|
./pkg/compon_communic/compsend_r8.F |
32 |
COMPSEND_R8 |
call MITCPLR_CHAR2DBL( dataname, r8buf(9) ) |
|
./pkg/compon_communic/compsend_r8.F |
46 |
COMPSEND_R8 |
tag=generate_tag(102,my_rank_in_global,dataname) |
|
./pkg/compon_communic/compsend_r8.F |
51 |
COMPSEND_R8 |
write(LogUnit,*) 'compsend_r8: dataname=',dataname |
|
./pkg/compon_communic/compsend_r8.F |
5 |
COMPSEND_R8 |
subroutine COMPSEND_R8( dataname, Ni,Oi,Nj,Oj, arr ) |
|
./pkg/compon_communic/compsend_r8.F |
8 |
COMPSEND_R8 |
character*(*) dataname |
|
./pkg/compon_communic/compsend_r8tiles.F |
41 |
COMPSEND_R8TILES |
call MITCPLR_CHAR2DBL( dataname, r8buf(9) ) |
|
./pkg/compon_communic/compsend_r8tiles.F |
56 |
COMPSEND_R8TILES |
tag=generate_tag(103,bibj,dataname) |
|
./pkg/compon_communic/compsend_r8tiles.F |
5 |
COMPSEND_R8TILES |
subroutine COMPSEND_R8TILES( dataname,Ni,Oi,Nj,Oj,Nk,Ti,Tj, arr ) |
|
./pkg/compon_communic/compsend_r8tiles.F |
62 |
COMPSEND_R8TILES |
write(LogUnit,*) 'compsend_r8tiles: dataname=',dataname |
|
./pkg/compon_communic/compsend_r8tiles.F |
8 |
COMPSEND_R8TILES |
character*(*) dataname |
|
./pkg/compon_communic/couprecv_r4.F |
40 |
COUPRECV_R4 |
& write(LogUnit,*) 'couprecv_r4: dataname=',dataname |
|
./pkg/compon_communic/couprecv_r4.F |
48 |
COUPRECV_R4 |
tag=generate_tag(102,n,dataname) |
|
./pkg/compon_communic/couprecv_r4.F |
5 |
COUPRECV_R4 |
subroutine COUPRECV_R4( component, dataname, Nx, Ny, arr ) |
|
./pkg/compon_communic/couprecv_r4.F |
84 |
COUPRECV_R4 |
if (recvdname .ne. dataname) then |
|
./pkg/compon_communic/couprecv_r4.F |
86 |
COUPRECV_R4 |
write(LogUnit,*) 'couprecv_r4: dataname = ',dataname |
|
./pkg/compon_communic/couprecv_r4.F |
9 |
COUPRECV_R4 |
character*(*) dataname |
|
./pkg/compon_communic/couprecv_r4tiles.F |
40 |
COUPRECV_R4TILES |
& write(LogUnit,*) 'couprecv_r4tiles: dataname=',dataname |
|
./pkg/compon_communic/couprecv_r4tiles.F |
51 |
COUPRECV_R4TILES |
tag=generate_tag(103,bibj,dataname) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
5 |
COUPRECV_R4TILES |
subroutine COUPRECV_R4TILES( component, dataname, Nx, Ny, arr ) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
97 |
COUPRECV_R4TILES |
if (recvdname .ne. dataname) then |
|
./pkg/compon_communic/couprecv_r4tiles.F |
99 |
COUPRECV_R4TILES |
write(LogUnit,*) 'couprecv_r4tiles: dataname = ',dataname |
|
./pkg/compon_communic/couprecv_r4tiles.F |
9 |
COUPRECV_R4TILES |
character*(*) dataname |
|
./pkg/compon_communic/couprecv_r8.F |
40 |
COUPRECV_R8 |
& write(LogUnit,*) 'couprecv_r8: dataname=',dataname |
|
./pkg/compon_communic/couprecv_r8.F |
48 |
COUPRECV_R8 |
tag=generate_tag(102,n,dataname) |
|
./pkg/compon_communic/couprecv_r8.F |
5 |
COUPRECV_R8 |
subroutine COUPRECV_R8( component, dataname, Nx, Ny, arr ) |
|
./pkg/compon_communic/couprecv_r8.F |
84 |
COUPRECV_R8 |
if (recvdname .ne. dataname) then |
|
./pkg/compon_communic/couprecv_r8.F |
86 |
COUPRECV_R8 |
write(LogUnit,*) 'couprecv_r8: dataname = ',dataname |
|
./pkg/compon_communic/couprecv_r8.F |
9 |
COUPRECV_R8 |
character*(*) dataname |
|
./pkg/compon_communic/couprecv_r8tiles.F |
40 |
COUPRECV_R8TILES |
& write(LogUnit,*) 'couprecv_r8tiles: dataname=',dataname |
|
./pkg/compon_communic/couprecv_r8tiles.F |
51 |
COUPRECV_R8TILES |
tag=generate_tag(103,bibj,dataname) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
5 |
COUPRECV_R8TILES |
subroutine COUPRECV_R8TILES( component, dataname, Nx, Ny, arr ) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
97 |
COUPRECV_R8TILES |
if (recvdname .ne. dataname) then |
|
./pkg/compon_communic/couprecv_r8tiles.F |
99 |
COUPRECV_R8TILES |
write(LogUnit,*) 'couprecv_r8tiles: dataname = ',dataname |
|
./pkg/compon_communic/couprecv_r8tiles.F |
9 |
COUPRECV_R8TILES |
character*(*) dataname |
|
./pkg/compon_communic/coupsend_r4.F |
38 |
COUPSEND_R4 |
& write(LogUnit,*) 'coupsend_r4: dataname=',dataname |
|
./pkg/compon_communic/coupsend_r4.F |
52 |
COUPSEND_R4 |
call MITCPLR_CHAR2REAL( dataname, r4buf(9) ) |
|
./pkg/compon_communic/coupsend_r4.F |
5 |
COUPSEND_R4 |
subroutine COUPSEND_R4( component, dataname, Nx, Ny, arr ) |
|
./pkg/compon_communic/coupsend_r4.F |
65 |
COUPSEND_R4 |
tag=generate_tag(121,n,dataname) |
|
./pkg/compon_communic/coupsend_r4.F |
9 |
COUPSEND_R4 |
character*(*) dataname |
|
./pkg/compon_communic/coupsend_r4tiles.F |
38 |
COUPSEND_R4TILES |
& write(LogUnit,*) 'coupsend_r4tiles: dataname=',dataname |
|
./pkg/compon_communic/coupsend_r4tiles.F |
55 |
COUPSEND_R4TILES |
call MITCPLR_CHAR2REAL( dataname, r4buf(9) ) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
5 |
COUPSEND_R4TILES |
subroutine COUPSEND_R4TILES( component, dataname, Nx, Ny, arr ) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
68 |
COUPSEND_R4TILES |
tag=generate_tag(123,bibj,dataname) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
9 |
COUPSEND_R4TILES |
character*(*) dataname |
|
./pkg/compon_communic/coupsend_r8.F |
38 |
COUPSEND_R8 |
& write(LogUnit,*) 'coupsend_r8: dataname=',dataname |
|
./pkg/compon_communic/coupsend_r8.F |
52 |
COUPSEND_R8 |
call MITCPLR_CHAR2DBL( dataname, r8buf(9) ) |
|
./pkg/compon_communic/coupsend_r8.F |
5 |
COUPSEND_R8 |
subroutine COUPSEND_R8( component, dataname, Nx, Ny, arr ) |
|
./pkg/compon_communic/coupsend_r8.F |
65 |
COUPSEND_R8 |
tag=generate_tag(121,n,dataname) |
|
./pkg/compon_communic/coupsend_r8.F |
9 |
COUPSEND_R8 |
character*(*) dataname |
|
./pkg/compon_communic/coupsend_r8tiles.F |
38 |
COUPSEND_R8TILES |
& write(LogUnit,*) 'coupsend_r8tiles: dataname=',dataname |
|
./pkg/compon_communic/coupsend_r8tiles.F |
55 |
COUPSEND_R8TILES |
call MITCPLR_CHAR2DBL( dataname, r8buf(9) ) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
5 |
COUPSEND_R8TILES |
subroutine COUPSEND_R8TILES( component, dataname, Nx, Ny, arr ) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
68 |
COUPSEND_R8TILES |
tag=generate_tag(123,bibj,dataname) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
9 |
COUPSEND_R8TILES |
character*(*) dataname |