| File |
Line number |
Procedure |
Code |
|
./pkg/compon_communic/CPLR_SIG.h |
39 |
NO PROCEDURE |
integer LogUnit |
|
./pkg/compon_communic/CPLR_SIG.h |
40 |
NO PROCEDURE |
parameter( LogUnit=99 ) |
|
./pkg/compon_communic/comprecv_i4vec.F |
36 |
COMPRECV_I4VEC |
write(LogUnit,*) |
|
./pkg/compon_communic/comprecv_i4vec.F |
38 |
COMPRECV_I4VEC |
write(LogUnit,*) 'comprecv_i4vec: dataname=',dataname |
|
./pkg/compon_communic/comprecv_i4vec.F |
39 |
COMPRECV_I4VEC |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/comprecv_i4vec.F |
43 |
COMPRECV_I4VEC |
write(LogUnit,*) 'comprecv_i4vec: returned ierr=',ierr |
|
./pkg/compon_communic/comprecv_i4vec.F |
44 |
COMPRECV_I4VEC |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/comprecv_i4vec.F |
48 |
COMPRECV_I4VEC |
write(LogUnit,*) 'comprecv_i4vec: rank(W,G,L)=', |
|
./pkg/compon_communic/comprecv_i4vec.F |
57 |
COMPRECV_I4VEC |
write(LogUnit,*) 'comprecv_i4vec: length,header=', length, j |
|
./pkg/compon_communic/comprecv_r4.F |
35 |
COMPRECV_R4 |
write(LogUnit,*) 'comprecv_r4: calling MPI_Recv rank=',rank |
|
./pkg/compon_communic/comprecv_r4.F |
36 |
COMPRECV_R4 |
write(LogUnit,*) 'comprecv_r4: dataname=',dataname |
|
./pkg/compon_communic/comprecv_r4.F |
37 |
COMPRECV_R4 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/comprecv_r4.F |
41 |
COMPRECV_R4 |
write(LogUnit,*) 'comprecv_r4: returned ierr=',ierr |
|
./pkg/compon_communic/comprecv_r4.F |
42 |
COMPRECV_R4 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/comprecv_r4.F |
46 |
COMPRECV_R4 |
write(LogUnit,*) 'comprecv_r4tiles: rank(W,G)=', |
|
./pkg/compon_communic/comprecv_r4.F |
64 |
COMPRECV_R4 |
write(LogUnit,*) 'comprecv_r4: recvdname = ',recvdname |
|
./pkg/compon_communic/comprecv_r4.F |
65 |
COMPRECV_R4 |
write(LogUnit,*) 'comprecv_r4: dataname = ',dataname |
|
./pkg/compon_communic/comprecv_r4tiles.F |
41 |
COMPRECV_R4TILES |
write(LogUnit,*) 'comprecv_r4tiles: calling MPI_Recv rank=',rank |
|
./pkg/compon_communic/comprecv_r4tiles.F |
42 |
COMPRECV_R4TILES |
write(LogUnit,*) 'comprecv_r4tiles: dataname=',dataname |
|
./pkg/compon_communic/comprecv_r4tiles.F |
43 |
COMPRECV_R4TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
47 |
COMPRECV_R4TILES |
write(LogUnit,*) 'comprecv_r4tiles: returned ierr=',ierr |
|
./pkg/compon_communic/comprecv_r4tiles.F |
48 |
COMPRECV_R4TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
52 |
COMPRECV_R4TILES |
write(LogUnit,*) 'comprecv_r4tiles: rank(W,G)=', |
|
./pkg/compon_communic/comprecv_r4tiles.F |
70 |
COMPRECV_R4TILES |
write(LogUnit,*) 'comprecv_r4tiles: recvdname = ',recvdname |
|
./pkg/compon_communic/comprecv_r4tiles.F |
71 |
COMPRECV_R4TILES |
write(LogUnit,*) 'comprecv_r4tiles: dataname = ',dataname |
|
./pkg/compon_communic/comprecv_r8.F |
35 |
COMPRECV_R8 |
write(LogUnit,*) 'comprecv_r8: calling MPI_Recv rank=',rank |
|
./pkg/compon_communic/comprecv_r8.F |
36 |
COMPRECV_R8 |
write(LogUnit,*) 'comprecv_r8: dataname=',dataname |
|
./pkg/compon_communic/comprecv_r8.F |
37 |
COMPRECV_R8 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/comprecv_r8.F |
41 |
COMPRECV_R8 |
write(LogUnit,*) 'comprecv_r8: returned ierr=',ierr |
|
./pkg/compon_communic/comprecv_r8.F |
42 |
COMPRECV_R8 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/comprecv_r8.F |
46 |
COMPRECV_R8 |
write(LogUnit,*) 'comprecv_r8tiles: rank(W,G)=', |
|
./pkg/compon_communic/comprecv_r8.F |
64 |
COMPRECV_R8 |
write(LogUnit,*) 'comprecv_r8: recvdname = ',recvdname |
|
./pkg/compon_communic/comprecv_r8.F |
65 |
COMPRECV_R8 |
write(LogUnit,*) 'comprecv_r8: dataname = ',dataname |
|
./pkg/compon_communic/comprecv_r8tiles.F |
41 |
COMPRECV_R8TILES |
write(LogUnit,*) 'comprecv_r8tiles: calling MPI_Recv rank=',rank |
|
./pkg/compon_communic/comprecv_r8tiles.F |
42 |
COMPRECV_R8TILES |
write(LogUnit,*) 'comprecv_r8tiles: dataname=',dataname |
|
./pkg/compon_communic/comprecv_r8tiles.F |
43 |
COMPRECV_R8TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
47 |
COMPRECV_R8TILES |
write(LogUnit,*) 'comprecv_r8tiles: returned ierr=',ierr |
|
./pkg/compon_communic/comprecv_r8tiles.F |
48 |
COMPRECV_R8TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
52 |
COMPRECV_R8TILES |
write(LogUnit,*) 'comprecv_r8tiles: rank(W,G)=', |
|
./pkg/compon_communic/comprecv_r8tiles.F |
70 |
COMPRECV_R8TILES |
write(LogUnit,*) 'comprecv_r8tiles: recvdname = ',recvdname |
|
./pkg/compon_communic/comprecv_r8tiles.F |
71 |
COMPRECV_R8TILES |
write(LogUnit,*) 'comprecv_r8tiles: dataname = ',dataname |
|
./pkg/compon_communic/compsend_i4vec.F |
41 |
COMPSEND_I4VEC |
write(LogUnit,*) |
|
./pkg/compon_communic/compsend_i4vec.F |
43 |
COMPSEND_I4VEC |
write(LogUnit,*) 'compsend_i4vec: dataname=',dataname |
|
./pkg/compon_communic/compsend_i4vec.F |
44 |
COMPSEND_I4VEC |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/compsend_i4vec.F |
48 |
COMPSEND_I4VEC |
write(LogUnit,*) 'compsend_i4vec: returned ierr=',ierr |
|
./pkg/compon_communic/compsend_i4vec.F |
49 |
COMPSEND_I4VEC |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/compsend_i4vec.F |
53 |
COMPSEND_I4VEC |
write(LogUnit,*) 'compsend_i4vec: rank(W,G,L)=', |
|
./pkg/compon_communic/compsend_r4.F |
50 |
COMPSEND_R4 |
write(LogUnit,*) 'compsend_r4: calling MPI_Send dest=',dest |
|
./pkg/compon_communic/compsend_r4.F |
51 |
COMPSEND_R4 |
write(LogUnit,*) 'compsend_r4: dataname=',dataname |
|
./pkg/compon_communic/compsend_r4.F |
52 |
COMPSEND_R4 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/compsend_r4.F |
56 |
COMPSEND_R4 |
write(LogUnit,*) 'compsend_r4: returned ierr=',ierr |
|
./pkg/compon_communic/compsend_r4.F |
57 |
COMPSEND_R4 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/compsend_r4.F |
61 |
COMPSEND_R4 |
write(LogUnit,*) 'compsend_r4: rank(W,G,L)=', |
|
./pkg/compon_communic/compsend_r4tiles.F |
60 |
COMPSEND_R4TILES |
write(LogUnit,*) |
|
./pkg/compon_communic/compsend_r4tiles.F |
62 |
COMPSEND_R4TILES |
write(LogUnit,*) 'compsend_r4tiles: dataname=',dataname |
|
./pkg/compon_communic/compsend_r4tiles.F |
63 |
COMPSEND_R4TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/compsend_r4tiles.F |
67 |
COMPSEND_R4TILES |
write(LogUnit,*) 'compsend_r4tiles: returned ierr=',ierr |
|
./pkg/compon_communic/compsend_r4tiles.F |
68 |
COMPSEND_R4TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/compsend_r4tiles.F |
72 |
COMPSEND_R4TILES |
write(LogUnit,*) 'compsend_r4tiles: rank(W,G,L)=', |
|
./pkg/compon_communic/compsend_r8.F |
50 |
COMPSEND_R8 |
write(LogUnit,*) 'compsend_r8: calling MPI_Send dest=',dest |
|
./pkg/compon_communic/compsend_r8.F |
51 |
COMPSEND_R8 |
write(LogUnit,*) 'compsend_r8: dataname=',dataname |
|
./pkg/compon_communic/compsend_r8.F |
52 |
COMPSEND_R8 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/compsend_r8.F |
56 |
COMPSEND_R8 |
write(LogUnit,*) 'compsend_r8: returned ierr=',ierr |
|
./pkg/compon_communic/compsend_r8.F |
57 |
COMPSEND_R8 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/compsend_r8.F |
61 |
COMPSEND_R8 |
write(LogUnit,*) 'compsend_r8: rank(W,G,L)=', |
|
./pkg/compon_communic/compsend_r8tiles.F |
60 |
COMPSEND_R8TILES |
write(LogUnit,*) |
|
./pkg/compon_communic/compsend_r8tiles.F |
62 |
COMPSEND_R8TILES |
write(LogUnit,*) 'compsend_r8tiles: dataname=',dataname |
|
./pkg/compon_communic/compsend_r8tiles.F |
63 |
COMPSEND_R8TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/compsend_r8tiles.F |
67 |
COMPSEND_R8TILES |
write(LogUnit,*) 'compsend_r8tiles: returned ierr=',ierr |
|
./pkg/compon_communic/compsend_r8tiles.F |
68 |
COMPSEND_R8TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/compsend_r8tiles.F |
72 |
COMPSEND_R8TILES |
write(LogUnit,*) 'compsend_r8tiles: rank(W,G,L)=', |
|
./pkg/compon_communic/couprecv_i4vec.F |
38 |
COUPRECV_I4VEC |
write(LogUnit,*) 'couprecv_i4vec: compind = ',compind |
|
./pkg/compon_communic/couprecv_i4vec.F |
42 |
COUPRECV_I4VEC |
& write(LogUnit,*) 'couprecv_i4vec: ',component_Name(compind) |
|
./pkg/compon_communic/couprecv_i4vec.F |
44 |
COUPRECV_I4VEC |
& write(LogUnit,*) 'couprecv_i4vec: dataname=',dataname |
|
./pkg/compon_communic/couprecv_i4vec.F |
56 |
COUPRECV_I4VEC |
write(LogUnit,*) |
|
./pkg/compon_communic/couprecv_i4vec.F |
59 |
COUPRECV_I4VEC |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/couprecv_i4vec.F |
63 |
COUPRECV_I4VEC |
write(LogUnit,*) 'couprecv_i4vec: returned ierr=',ierr |
|
./pkg/compon_communic/couprecv_i4vec.F |
64 |
COUPRECV_I4VEC |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/couprecv_i4vec.F |
68 |
COUPRECV_I4VEC |
write(LogUnit,*) 'couprecv_i4vec: rank(W,G)=', |
|
./pkg/compon_communic/couprecv_i4vec.F |
78 |
COUPRECV_I4VEC |
write(LogUnit,*) 'couprecv_i4vec: length,header=', length, j |
|
./pkg/compon_communic/couprecv_i4vec.F |
93 |
COUPRECV_I4VEC |
write(LogUnit,'(A,I8,2A)') |
|
./pkg/compon_communic/couprecv_i4vec.F |
95 |
COUPRECV_I4VEC |
write(LogUnit,'(A,I6,A,I8,A)') |
|
./pkg/compon_communic/couprecv_r4.F |
34 |
COUPRECV_R4 |
write(LogUnit,*) 'couprecv_r4: compind = ',compind |
|
./pkg/compon_communic/couprecv_r4.F |
38 |
COUPRECV_R4 |
& write(LogUnit,*) 'couprecv_r4: ',component_Name(compind) |
|
./pkg/compon_communic/couprecv_r4.F |
40 |
COUPRECV_R4 |
& write(LogUnit,*) 'couprecv_r4: dataname=',dataname |
|
./pkg/compon_communic/couprecv_r4.F |
51 |
COUPRECV_R4 |
write(LogUnit,*) 'couprecv_r4: calling MPI_Recv rank=',rank, |
|
./pkg/compon_communic/couprecv_r4.F |
53 |
COUPRECV_R4 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/couprecv_r4.F |
57 |
COUPRECV_R4 |
write(LogUnit,*) 'couprecv_r4: returned ierr=',ierr |
|
./pkg/compon_communic/couprecv_r4.F |
58 |
COUPRECV_R4 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/couprecv_r4.F |
62 |
COUPRECV_R4 |
write(LogUnit,*) 'couprecv_r4tiles: rank(W,G)=', |
|
./pkg/compon_communic/couprecv_r4.F |
75 |
COUPRECV_R4 |
write(LogUnit,*) 'couprecv_r4tiles: Io,Ni=',Io,Ni |
|
./pkg/compon_communic/couprecv_r4.F |
79 |
COUPRECV_R4 |
write(LogUnit,*) 'couprecv_r4tiles: Jo,Nj=',Jo,Nj |
|
./pkg/compon_communic/couprecv_r4.F |
85 |
COUPRECV_R4 |
write(LogUnit,*) 'couprecv_r4: recvdname = ',recvdname |
|
./pkg/compon_communic/couprecv_r4.F |
86 |
COUPRECV_R4 |
write(LogUnit,*) 'couprecv_r4: dataname = ',dataname |
|
./pkg/compon_communic/couprecv_r4tiles.F |
34 |
COUPRECV_R4TILES |
write(LogUnit,*) 'couprecv_r4tiles: compind = ',compind |
|
./pkg/compon_communic/couprecv_r4tiles.F |
38 |
COUPRECV_R4TILES |
& write(LogUnit,*) 'couprecv_r4tiles: ',component_Name(compind) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
40 |
COUPRECV_R4TILES |
& write(LogUnit,*) 'couprecv_r4tiles: dataname=',dataname |
|
./pkg/compon_communic/couprecv_r4tiles.F |
55 |
COUPRECV_R4TILES |
write(LogUnit,*) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
58 |
COUPRECV_R4TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
62 |
COUPRECV_R4TILES |
write(LogUnit,*) 'couprecv_r4tiles: returned ierr=',ierr |
|
./pkg/compon_communic/couprecv_r4tiles.F |
63 |
COUPRECV_R4TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
67 |
COUPRECV_R4TILES |
write(LogUnit,*) 'couprecv_r4tiles: rank(W,G)=', |
|
./pkg/compon_communic/couprecv_r4tiles.F |
80 |
COUPRECV_R4TILES |
write(LogUnit,*) 'couprecv_r4tiles: Io,Ni=',Io,Ni |
|
./pkg/compon_communic/couprecv_r4tiles.F |
84 |
COUPRECV_R4TILES |
write(LogUnit,*) 'couprecv_r4tiles: Jo,Nj=',Jo,Nj |
|
./pkg/compon_communic/couprecv_r4tiles.F |
98 |
COUPRECV_R4TILES |
write(LogUnit,*) 'couprecv_r4tiles: recvdname = ',recvdname |
|
./pkg/compon_communic/couprecv_r4tiles.F |
99 |
COUPRECV_R4TILES |
write(LogUnit,*) 'couprecv_r4tiles: dataname = ',dataname |
|
./pkg/compon_communic/couprecv_r8.F |
34 |
COUPRECV_R8 |
write(LogUnit,*) 'couprecv_r8: compind = ',compind |
|
./pkg/compon_communic/couprecv_r8.F |
38 |
COUPRECV_R8 |
& write(LogUnit,*) 'couprecv_r8: ',component_Name(compind) |
|
./pkg/compon_communic/couprecv_r8.F |
40 |
COUPRECV_R8 |
& write(LogUnit,*) 'couprecv_r8: dataname=',dataname |
|
./pkg/compon_communic/couprecv_r8.F |
51 |
COUPRECV_R8 |
write(LogUnit,*) 'couprecv_r8: calling MPI_Recv rank=',rank, |
|
./pkg/compon_communic/couprecv_r8.F |
53 |
COUPRECV_R8 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/couprecv_r8.F |
57 |
COUPRECV_R8 |
write(LogUnit,*) 'couprecv_r8: returned ierr=',ierr |
|
./pkg/compon_communic/couprecv_r8.F |
58 |
COUPRECV_R8 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/couprecv_r8.F |
62 |
COUPRECV_R8 |
write(LogUnit,*) 'couprecv_r8tiles: rank(W,G)=', |
|
./pkg/compon_communic/couprecv_r8.F |
75 |
COUPRECV_R8 |
write(LogUnit,*) 'couprecv_r8tiles: Io,Ni=',Io,Ni |
|
./pkg/compon_communic/couprecv_r8.F |
79 |
COUPRECV_R8 |
write(LogUnit,*) 'couprecv_r8tiles: Jo,Nj=',Jo,Nj |
|
./pkg/compon_communic/couprecv_r8.F |
85 |
COUPRECV_R8 |
write(LogUnit,*) 'couprecv_r8: recvdname = ',recvdname |
|
./pkg/compon_communic/couprecv_r8.F |
86 |
COUPRECV_R8 |
write(LogUnit,*) 'couprecv_r8: dataname = ',dataname |
|
./pkg/compon_communic/couprecv_r8tiles.F |
34 |
COUPRECV_R8TILES |
write(LogUnit,*) 'couprecv_r8tiles: compind = ',compind |
|
./pkg/compon_communic/couprecv_r8tiles.F |
38 |
COUPRECV_R8TILES |
& write(LogUnit,*) 'couprecv_r8tiles: ',component_Name(compind) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
40 |
COUPRECV_R8TILES |
& write(LogUnit,*) 'couprecv_r8tiles: dataname=',dataname |
|
./pkg/compon_communic/couprecv_r8tiles.F |
55 |
COUPRECV_R8TILES |
write(LogUnit,*) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
58 |
COUPRECV_R8TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
62 |
COUPRECV_R8TILES |
write(LogUnit,*) 'couprecv_r8tiles: returned ierr=',ierr |
|
./pkg/compon_communic/couprecv_r8tiles.F |
63 |
COUPRECV_R8TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
67 |
COUPRECV_R8TILES |
write(LogUnit,*) 'couprecv_r8tiles: rank(W,G)=', |
|
./pkg/compon_communic/couprecv_r8tiles.F |
80 |
COUPRECV_R8TILES |
write(LogUnit,*) 'couprecv_r8tiles: Io,Ni=',Io,Ni |
|
./pkg/compon_communic/couprecv_r8tiles.F |
84 |
COUPRECV_R8TILES |
write(LogUnit,*) 'couprecv_r8tiles: Jo,Nj=',Jo,Nj |
|
./pkg/compon_communic/couprecv_r8tiles.F |
98 |
COUPRECV_R8TILES |
write(LogUnit,*) 'couprecv_r8tiles: recvdname = ',recvdname |
|
./pkg/compon_communic/couprecv_r8tiles.F |
99 |
COUPRECV_R8TILES |
write(LogUnit,*) 'couprecv_r8tiles: dataname = ',dataname |
|
./pkg/compon_communic/coupsend_i4vec.F |
37 |
COUPSEND_I4VEC |
write(LogUnit,*) 'coupsend_i4vec: compind = ',compind |
|
./pkg/compon_communic/coupsend_i4vec.F |
41 |
COUPSEND_I4VEC |
& write(LogUnit,*) 'coupsend_i4vec: ',component_Name(compind) |
|
./pkg/compon_communic/coupsend_i4vec.F |
43 |
COUPSEND_I4VEC |
& write(LogUnit,*) 'coupsend_i4vec: dataname=',dataname |
|
./pkg/compon_communic/coupsend_i4vec.F |
61 |
COUPSEND_I4VEC |
write(LogUnit,*) |
|
./pkg/compon_communic/coupsend_i4vec.F |
64 |
COUPSEND_I4VEC |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/coupsend_i4vec.F |
68 |
COUPSEND_I4VEC |
write(LogUnit,*) 'coupsend_i4vec: returned ierr=',ierr |
|
./pkg/compon_communic/coupsend_i4vec.F |
69 |
COUPSEND_I4VEC |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/coupsend_i4vec.F |
73 |
COUPSEND_I4VEC |
write(LogUnit,*) 'coupsend_i4vec: rank(W,G)=', |
|
./pkg/compon_communic/coupsend_r4.F |
34 |
COUPSEND_R4 |
write(LogUnit,*) 'coupsend_r4: compind = ',compind |
|
./pkg/compon_communic/coupsend_r4.F |
38 |
COUPSEND_R4 |
& write(LogUnit,*) 'coupsend_r4: ',component_Name(compind) |
|
./pkg/compon_communic/coupsend_r4.F |
40 |
COUPSEND_R4 |
& write(LogUnit,*) 'coupsend_r4: dataname=',dataname |
|
./pkg/compon_communic/coupsend_r4.F |
71 |
COUPSEND_R4 |
write(LogUnit,*) 'coupsend_r4: calling MPI_Send dest=',dest, |
|
./pkg/compon_communic/coupsend_r4.F |
73 |
COUPSEND_R4 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/coupsend_r4.F |
77 |
COUPSEND_R4 |
write(LogUnit,*) 'coupsend_r4: returned ierr=',ierr |
|
./pkg/compon_communic/coupsend_r4.F |
78 |
COUPSEND_R4 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/coupsend_r4.F |
82 |
COUPSEND_R4 |
write(LogUnit,*) 'coupsend_r4tiles: rank(W,G)=', |
|
./pkg/compon_communic/coupsend_r4tiles.F |
34 |
COUPSEND_R4TILES |
write(LogUnit,*) 'coupsend_r4tiles: compind = ',compind |
|
./pkg/compon_communic/coupsend_r4tiles.F |
38 |
COUPSEND_R4TILES |
& write(LogUnit,*) 'coupsend_r4tiles: ',component_Name(compind) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
40 |
COUPSEND_R4TILES |
& write(LogUnit,*) 'coupsend_r4tiles: dataname=',dataname |
|
./pkg/compon_communic/coupsend_r4tiles.F |
74 |
COUPSEND_R4TILES |
write(LogUnit,*) 'coupsend_r4tiles: calling MPI_Send dest=', |
|
./pkg/compon_communic/coupsend_r4tiles.F |
76 |
COUPSEND_R4TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
80 |
COUPSEND_R4TILES |
write(LogUnit,*) 'coupsend_r4tiles: returned ierr=',ierr |
|
./pkg/compon_communic/coupsend_r4tiles.F |
81 |
COUPSEND_R4TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
85 |
COUPSEND_R4TILES |
write(LogUnit,*) 'coupsend_r4tiles: rank(W,G)=', |
|
./pkg/compon_communic/coupsend_r8.F |
34 |
COUPSEND_R8 |
write(LogUnit,*) 'coupsend_r8: compind = ',compind |
|
./pkg/compon_communic/coupsend_r8.F |
38 |
COUPSEND_R8 |
& write(LogUnit,*) 'coupsend_r8: ',component_Name(compind) |
|
./pkg/compon_communic/coupsend_r8.F |
40 |
COUPSEND_R8 |
& write(LogUnit,*) 'coupsend_r8: dataname=',dataname |
|
./pkg/compon_communic/coupsend_r8.F |
71 |
COUPSEND_R8 |
write(LogUnit,*) 'coupsend_r8: calling MPI_Send dest=',dest, |
|
./pkg/compon_communic/coupsend_r8.F |
73 |
COUPSEND_R8 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/coupsend_r8.F |
77 |
COUPSEND_R8 |
write(LogUnit,*) 'coupsend_r8: returned ierr=',ierr |
|
./pkg/compon_communic/coupsend_r8.F |
78 |
COUPSEND_R8 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/coupsend_r8.F |
82 |
COUPSEND_R8 |
write(LogUnit,*) 'coupsend_r8tiles: rank(W,G)=', |
|
./pkg/compon_communic/coupsend_r8tiles.F |
34 |
COUPSEND_R8TILES |
write(LogUnit,*) 'coupsend_r8tiles: compind = ',compind |
|
./pkg/compon_communic/coupsend_r8tiles.F |
38 |
COUPSEND_R8TILES |
& write(LogUnit,*) 'coupsend_r8tiles: ',component_Name(compind) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
40 |
COUPSEND_R8TILES |
& write(LogUnit,*) 'coupsend_r8tiles: dataname=',dataname |
|
./pkg/compon_communic/coupsend_r8tiles.F |
74 |
COUPSEND_R8TILES |
write(LogUnit,*) 'coupsend_r8tiles: calling MPI_Send dest=', |
|
./pkg/compon_communic/coupsend_r8tiles.F |
76 |
COUPSEND_R8TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
80 |
COUPSEND_R8TILES |
write(LogUnit,*) 'coupsend_r8tiles: returned ierr=',ierr |
|
./pkg/compon_communic/coupsend_r8tiles.F |
81 |
COUPSEND_R8TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
85 |
COUPSEND_R8TILES |
write(LogUnit,*) 'coupsend_r8tiles: rank(W,G)=', |
|
./pkg/compon_communic/mitcomponent_init.F |
32 |
MITCOMPONENT_INIT |
msgUnit = LogUnit |
|
./pkg/compon_communic/mitcomponent_register.F |
53 |
MITCOMPONENT_REGISTER |
write(LogUnit,*) 'MITCOMPONENT_register: rank(W,G,L)=', |
|
./pkg/compon_communic/mitcomponent_register.F |
60 |
MITCOMPONENT_REGISTER |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
104 |
MITCOMPONENT_TILE_REGISTER |
write(LogUnit,'(A,I6,A,2I4)') |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
108 |
MITCOMPONENT_TILE_REGISTER |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
33 |
MITCOMPONENT_TILE_REGISTER |
write(LogUnit,'(A,I6,A,2I4)') |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
50 |
MITCOMPONENT_TILE_REGISTER |
write(LogUnit,'(A,I5,A,2I4,A,2I5,A,2I8)') |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
70 |
MITCOMPONENT_TILE_REGISTER |
write(LogUnit,*) 'MITCOMPONENT_tile_register: rank(W,G,L)=', |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
96 |
MITCOMPONENT_TILE_REGISTER |
write(LogUnit,*) 'MITCOMPONENT_tile_register: rank(W,G,L)=', |
|
./pkg/compon_communic/mitcoupler_init.F |
32 |
MITCOUPLER_INIT |
msgUnit = LogUnit |
|
./pkg/compon_communic/mitcoupler_register.F |
108 |
MITCOUPLER_REGISTER |
write(LogUnit,*) 'MITCOUPLER_register: proc,nx,ny = ',n, |
|
./pkg/compon_communic/mitcoupler_register.F |
113 |
MITCOUPLER_REGISTER |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/mitcoupler_register.F |
41 |
MITCOUPLER_REGISTER |
write(LogUnit,*) 'MITCOUPLER_register: compind = ',compind |
|
./pkg/compon_communic/mitcoupler_register.F |
57 |
MITCOUPLER_REGISTER |
write(LogUnit,*) 'MITCOUPLER_register: rank(W,G)=', |
|
./pkg/compon_communic/mitcoupler_register.F |
71 |
MITCOUPLER_REGISTER |
write(LogUnit,*) 'MITCOUPLER_tile_register: #tiles = ',numtiles |
|
./pkg/compon_communic/mitcoupler_register.F |
75 |
MITCOUPLER_REGISTER |
write(LogUnit,*) 'MITCOUPLER_register: nx = ',nx |
|
./pkg/compon_communic/mitcoupler_register.F |
79 |
MITCOUPLER_REGISTER |
write(LogUnit,*) 'MITCOUPLER_register: ny = ',ny |
|
./pkg/compon_communic/mitcoupler_register.F |
83 |
MITCOUPLER_REGISTER |
write(LogUnit,*) 'MITCOUPLER_register: i0 = ',i0 |
|
./pkg/compon_communic/mitcoupler_register.F |
87 |
MITCOUPLER_REGISTER |
write(LogUnit,*) 'MITCOUPLER_register: j0 = ',j0 |
|
./pkg/compon_communic/mitcoupler_register.F |
91 |
MITCOUPLER_REGISTER |
write(LogUnit,*) 'MITCOUPLER_register: i0 = ',i0 |
|
./pkg/compon_communic/mitcoupler_register.F |
95 |
MITCOUPLER_REGISTER |
write(LogUnit,*) 'MITCOUPLER_register: j0 = ',j0 |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
106 |
MITCOUPLER_TILE_REGISTER |
write(LogUnit,'(A,I5,A,2I5,A,2I8)') ' tile #:', j, |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
129 |
MITCOUPLER_TILE_REGISTER |
write(LogUnit,'(A,2I8,2(A,I8))') |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
135 |
MITCOUPLER_TILE_REGISTER |
write(LogUnit,'(3A)') 'MITCOUPLER_tile_register: comp. "', |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
139 |
MITCOUPLER_TILE_REGISTER |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
36 |
MITCOUPLER_TILE_REGISTER |
write(LogUnit,'(3A)') |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
45 |
MITCOUPLER_TILE_REGISTER |
write(LogUnit,'(2(A,I6))') |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
63 |
MITCOUPLER_TILE_REGISTER |
write(LogUnit,*) 'MITCOUPLER_tile_register: rank(W,G)=', |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
71 |
MITCOUPLER_TILE_REGISTER |
write(LogUnit,*) 'MITCOUPLER_tile_register: #tiles = ',numtiles |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
76 |
MITCOUPLER_TILE_REGISTER |
write(LogUnit,'(3(A,I6),A)') '- proc # =', n, |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
89 |
MITCOUPLER_TILE_REGISTER |
write(LogUnit,*) 'MITCOUPLER_tile_register: rank(W,G)=', |
|
./pkg/compon_communic/mitcplr_all_check.F |
51 |
MITCPLR_ALL_CHECK |
WRITE(LogUnit,'(2A)') ' *** ERROR *** ', errMsg |
|
./pkg/compon_communic/mitcplr_all_check.F |
53 |
MITCPLR_ALL_CHECK |
WRITE(LogUnit,'(A,I8,A)') |
|
./pkg/compon_communic/mitcplr_init1.F |
224 |
MITCPLR_INIT1 |
open(LogUnit,file=cbuf,status='unknown',form='formatted') |
|
./pkg/compon_communic/mitcplr_init1.F |
225 |
MITCPLR_INIT1 |
write(LogUnit,'(2a)') '========================================', |
|
./pkg/compon_communic/mitcplr_init1.F |
227 |
MITCPLR_INIT1 |
write(LogUnit,*) 'This is "',myTypeStr,'"' |
|
./pkg/compon_communic/mitcplr_init1.F |
228 |
MITCPLR_INIT1 |
write(LogUnit,*) 'myid in MPI_COMM_World = ',myid |
|
./pkg/compon_communic/mitcplr_init1.F |
230 |
MITCPLR_INIT1 |
& write(LogUnit,*) 'myid in MPI_COMM_Global = ',j |
|
./pkg/compon_communic/mitcplr_init2a.F |
23 |
MITCPLR_INIT2A |
if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2a: ', |
|
./pkg/compon_communic/mitcplr_init2a.F |
27 |
MITCPLR_INIT2A |
if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2a: ', |
|
./pkg/compon_communic/mitcplr_init2a.F |
29 |
MITCPLR_INIT2A |
if (VERB) write(LogUnit,*) 'MITCPLR_init2a: ', |
|
./pkg/compon_communic/mitcplr_init2a.F |
56 |
MITCPLR_INIT2A |
if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2a: ', |
|
./pkg/compon_communic/mitcplr_init2a.F |
80 |
MITCPLR_INIT2A |
if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2a: ', |
|
./pkg/compon_communic/mitcplr_init2a.F |
84 |
MITCPLR_INIT2A |
if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2a: ', |
|
./pkg/compon_communic/mitcplr_init2a.F |
93 |
MITCPLR_INIT2A |
if (VERB) write(LogUnit,*) 'MITCPLR_init2a: ', |
|
./pkg/compon_communic/mitcplr_init2a.F |
99 |
MITCPLR_INIT2A |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/mitcplr_init2b.F |
106 |
MITCPLR_INIT2B |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/mitcplr_init2b.F |
29 |
MITCPLR_INIT2B |
if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2b: ', |
|
./pkg/compon_communic/mitcplr_init2b.F |
33 |
MITCPLR_INIT2B |
if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2b: ', |
|
./pkg/compon_communic/mitcplr_init2b.F |
35 |
MITCPLR_INIT2B |
if (DEBUG) write(LogUnit,*) 'MITCPLR_init2b: ', |
|
./pkg/compon_communic/mitcplr_init2b.F |
64 |
MITCPLR_INIT2B |
if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2b: ', |
|
./pkg/compon_communic/mitcplr_init2b.F |
95 |
MITCPLR_INIT2B |
write(LogUnit,*) 'MITCPLR_init2b: ', |
|
./pkg/compon_communic/mitcplr_init2b.F |
99 |
MITCPLR_INIT2B |
write(LogUnit,*) 'MITCPLR_init2b: ', |