| File |
Line number |
Procedure |
Code |
|
./pkg/compon_communic/CPLR_SIG.h |
60 |
NO PROCEDURE |
real*4 r4buf(MAX_R4_BUFLEN) |
|
./pkg/compon_communic/CPLR_SIG.h |
63 |
NO PROCEDURE |
& r4buf,r8buf |
|
./pkg/compon_communic/coupsend_r4tiles.F |
48 |
COUPSEND_R4TILES |
r4buf(1)=float( Io ) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
49 |
COUPSEND_R4TILES |
r4buf(2)=float( Jo ) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
50 |
COUPSEND_R4TILES |
r4buf(3)=float( Ni ) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
51 |
COUPSEND_R4TILES |
r4buf(4)=float( Nj ) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
52 |
COUPSEND_R4TILES |
call MITCPLR_CHAR2REAL( dataname, r4buf(9) ) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
58 |
COUPSEND_R4TILES |
r4buf(ij)=arr(Io+i-1,Jo+j-1) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
73 |
COUPSEND_R4TILES |
call MPI_SEND( r4buf, count, dtype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/compsend_r4.F |
25 |
COMPSEND_R4 |
r4buf(1)=float(Io) |
|
./pkg/compon_communic/compsend_r4.F |
26 |
COMPSEND_R4 |
r4buf(2)=float(Ni) |
|
./pkg/compon_communic/compsend_r4.F |
27 |
COMPSEND_R4 |
r4buf(3)=float(Jo) |
|
./pkg/compon_communic/compsend_r4.F |
28 |
COMPSEND_R4 |
r4buf(4)=float(Nj) |
|
./pkg/compon_communic/compsend_r4.F |
29 |
COMPSEND_R4 |
call MITCPLR_CHAR2REAL( dataname, r4buf(9) ) |
|
./pkg/compon_communic/compsend_r4.F |
35 |
COMPSEND_R4 |
r4buf(ij)=arr(i,j) |
|
./pkg/compon_communic/compsend_r4.F |
51 |
COMPSEND_R4 |
call MPI_SEND( r4buf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/comprecv_r4.F |
36 |
COMPRECV_R4 |
call MPI_RECV(r4buf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/comprecv_r4.F |
50 |
COMPRECV_R4 |
Io=int(0.5+r4buf(1)) |
|
./pkg/compon_communic/comprecv_r4.F |
51 |
COMPRECV_R4 |
Jo=int(0.5+r4buf(2)) |
|
./pkg/compon_communic/comprecv_r4.F |
52 |
COMPRECV_R4 |
nx=int(0.5+r4buf(3)) |
|
./pkg/compon_communic/comprecv_r4.F |
53 |
COMPRECV_R4 |
ny=int(0.5+r4buf(4)) |
|
./pkg/compon_communic/comprecv_r4.F |
54 |
COMPRECV_R4 |
call MITCPLR_REAL2CHAR( r4buf(9), recvdname ) |
|
./pkg/compon_communic/comprecv_r4.F |
70 |
COMPRECV_R4 |
arr(i,j)=r4buf(ij) |
|
./pkg/compon_communic/coupsend_r4.F |
45 |
COUPSEND_R4 |
r4buf(1)=float( Io ) |
|
./pkg/compon_communic/coupsend_r4.F |
46 |
COUPSEND_R4 |
r4buf(2)=float( Jo ) |
|
./pkg/compon_communic/coupsend_r4.F |
47 |
COUPSEND_R4 |
r4buf(3)=float( Ni ) |
|
./pkg/compon_communic/coupsend_r4.F |
48 |
COUPSEND_R4 |
r4buf(4)=float( Nj ) |
|
./pkg/compon_communic/coupsend_r4.F |
49 |
COUPSEND_R4 |
call MITCPLR_CHAR2REAL( dataname, r4buf(9) ) |
|
./pkg/compon_communic/coupsend_r4.F |
55 |
COUPSEND_R4 |
r4buf(ij)=arr(Io+i-1,Jo+j-1) |
|
./pkg/compon_communic/coupsend_r4.F |
70 |
COUPSEND_R4 |
call MPI_SEND( r4buf, count, dtype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/compsend_r4tiles.F |
34 |
COMPSEND_R4TILES |
r4buf(1)=float( my_tile_i0(bibj) ) |
|
./pkg/compon_communic/compsend_r4tiles.F |
35 |
COMPSEND_R4TILES |
r4buf(2)=float( my_tile_nx(bibj) ) |
|
./pkg/compon_communic/compsend_r4tiles.F |
36 |
COMPSEND_R4TILES |
r4buf(3)=float( my_tile_j0(bibj) ) |
|
./pkg/compon_communic/compsend_r4tiles.F |
37 |
COMPSEND_R4TILES |
r4buf(4)=float( my_tile_ny(bibj) ) |
|
./pkg/compon_communic/compsend_r4tiles.F |
38 |
COMPSEND_R4TILES |
call MITCPLR_CHAR2REAL( dataname, r4buf(9) ) |
|
./pkg/compon_communic/compsend_r4tiles.F |
45 |
COMPSEND_R4TILES |
r4buf(ij)=arr(i,j,k,bi,bj) |
|
./pkg/compon_communic/compsend_r4tiles.F |
62 |
COMPSEND_R4TILES |
call MPI_SEND( r4buf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
42 |
COMPRECV_R4TILES |
call MPI_RECV(r4buf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
56 |
COMPRECV_R4TILES |
Io=int(0.5+r4buf(1)) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
57 |
COMPRECV_R4TILES |
Jo=int(0.5+r4buf(2)) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
58 |
COMPRECV_R4TILES |
nx=int(0.5+r4buf(3)) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
59 |
COMPRECV_R4TILES |
ny=int(0.5+r4buf(4)) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
60 |
COMPRECV_R4TILES |
call MITCPLR_REAL2CHAR( r4buf(9), recvdname ) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
77 |
COMPRECV_R4TILES |
arr(i,j,k,bi,bj)=r4buf(ij) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
104 |
COUPRECV_R4TILES |
arr(Io+i-1,Jo+j-1)=r4buf(ij) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
57 |
COUPRECV_R4TILES |
call MPI_RECV(r4buf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
71 |
COUPRECV_R4TILES |
Io=int(0.5+r4buf(1)) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
72 |
COUPRECV_R4TILES |
Ni=int(0.5+r4buf(2)) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
73 |
COUPRECV_R4TILES |
Jo=int(0.5+r4buf(3)) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
74 |
COUPRECV_R4TILES |
Nj=int(0.5+r4buf(4)) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
93 |
COUPRECV_R4TILES |
call MITCPLR_REAL2CHAR( r4buf(9), recvdname ) |
|
./pkg/compon_communic/couprecv_r4.F |
52 |
COUPRECV_R4 |
call MPI_RECV(r4buf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/couprecv_r4.F |
66 |
COUPRECV_R4 |
Io=int(0.5+r4buf(1)) |
|
./pkg/compon_communic/couprecv_r4.F |
67 |
COUPRECV_R4 |
Ni=int(0.5+r4buf(2)) |
|
./pkg/compon_communic/couprecv_r4.F |
68 |
COUPRECV_R4 |
Jo=int(0.5+r4buf(3)) |
|
./pkg/compon_communic/couprecv_r4.F |
69 |
COUPRECV_R4 |
Nj=int(0.5+r4buf(4)) |
|
./pkg/compon_communic/couprecv_r4.F |
80 |
COUPRECV_R4 |
call MITCPLR_REAL2CHAR( r4buf(9), recvdname ) |
|
./pkg/compon_communic/couprecv_r4.F |
91 |
COUPRECV_R4 |
arr(Io+i-1,Jo+j-1)=r4buf(ij) |