| File |
Line number |
Procedure |
Code |
|
./pkg/compon_communic/comprecv_r4.F |
21 |
COMPRECV_R4 |
character*(MAXLEN_COMP_NAME) recvdname |
|
./pkg/compon_communic/comprecv_r4.F |
57 |
COMPRECV_R4 |
call MITCPLR_REAL2CHAR( r4buf(9), recvdname ) |
|
./pkg/compon_communic/comprecv_r4.F |
63 |
COMPRECV_R4 |
if (recvdname .ne. dataname) then |
|
./pkg/compon_communic/comprecv_r4.F |
64 |
COMPRECV_R4 |
write(LogUnit,*) 'comprecv_r4: recvdname = ',recvdname |
|
./pkg/compon_communic/comprecv_r4tiles.F |
21 |
COMPRECV_R4TILES |
character*(MAXLEN_COMP_NAME) recvdname |
|
./pkg/compon_communic/comprecv_r4tiles.F |
63 |
COMPRECV_R4TILES |
call MITCPLR_REAL2CHAR( r4buf(9), recvdname ) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
69 |
COMPRECV_R4TILES |
if (recvdname .ne. dataname) then |
|
./pkg/compon_communic/comprecv_r4tiles.F |
70 |
COMPRECV_R4TILES |
write(LogUnit,*) 'comprecv_r4tiles: recvdname = ',recvdname |
|
./pkg/compon_communic/comprecv_r8.F |
21 |
COMPRECV_R8 |
character*(MAXLEN_COMP_NAME) recvdname |
|
./pkg/compon_communic/comprecv_r8.F |
57 |
COMPRECV_R8 |
call MITCPLR_DBL2CHAR( r8buf(9), recvdname ) |
|
./pkg/compon_communic/comprecv_r8.F |
63 |
COMPRECV_R8 |
if (recvdname .ne. dataname) then |
|
./pkg/compon_communic/comprecv_r8.F |
64 |
COMPRECV_R8 |
write(LogUnit,*) 'comprecv_r8: recvdname = ',recvdname |
|
./pkg/compon_communic/comprecv_r8tiles.F |
21 |
COMPRECV_R8TILES |
character*(MAXLEN_COMP_NAME) recvdname |
|
./pkg/compon_communic/comprecv_r8tiles.F |
63 |
COMPRECV_R8TILES |
call MITCPLR_DBL2CHAR( r8buf(9), recvdname ) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
69 |
COMPRECV_R8TILES |
if (recvdname .ne. dataname) then |
|
./pkg/compon_communic/comprecv_r8tiles.F |
70 |
COMPRECV_R8TILES |
write(LogUnit,*) 'comprecv_r8tiles: recvdname = ',recvdname |
|
./pkg/compon_communic/couprecv_r4.F |
25 |
COUPRECV_R4 |
character*(MAXLEN_COMP_NAME) recvdname |
|
./pkg/compon_communic/couprecv_r4.F |
83 |
COUPRECV_R4 |
call MITCPLR_REAL2CHAR( r4buf(9), recvdname ) |
|
./pkg/compon_communic/couprecv_r4.F |
84 |
COUPRECV_R4 |
if (recvdname .ne. dataname) then |
|
./pkg/compon_communic/couprecv_r4.F |
85 |
COUPRECV_R4 |
write(LogUnit,*) 'couprecv_r4: recvdname = ',recvdname |
|
./pkg/compon_communic/couprecv_r4tiles.F |
25 |
COUPRECV_R4TILES |
character*(MAXLEN_COMP_NAME) recvdname |
|
./pkg/compon_communic/couprecv_r4tiles.F |
96 |
COUPRECV_R4TILES |
call MITCPLR_REAL2CHAR( r4buf(9), recvdname ) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
97 |
COUPRECV_R4TILES |
if (recvdname .ne. dataname) then |
|
./pkg/compon_communic/couprecv_r4tiles.F |
98 |
COUPRECV_R4TILES |
write(LogUnit,*) 'couprecv_r4tiles: recvdname = ',recvdname |
|
./pkg/compon_communic/couprecv_r8.F |
25 |
COUPRECV_R8 |
character*(MAXLEN_COMP_NAME) recvdname |
|
./pkg/compon_communic/couprecv_r8.F |
83 |
COUPRECV_R8 |
call MITCPLR_DBL2CHAR( r8buf(9), recvdname ) |
|
./pkg/compon_communic/couprecv_r8.F |
84 |
COUPRECV_R8 |
if (recvdname .ne. dataname) then |
|
./pkg/compon_communic/couprecv_r8.F |
85 |
COUPRECV_R8 |
write(LogUnit,*) 'couprecv_r8: recvdname = ',recvdname |
|
./pkg/compon_communic/couprecv_r8tiles.F |
25 |
COUPRECV_R8TILES |
character*(MAXLEN_COMP_NAME) recvdname |
|
./pkg/compon_communic/couprecv_r8tiles.F |
96 |
COUPRECV_R8TILES |
call MITCPLR_DBL2CHAR( r8buf(9), recvdname ) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
97 |
COUPRECV_R8TILES |
if (recvdname .ne. dataname) then |
|
./pkg/compon_communic/couprecv_r8tiles.F |
98 |
COUPRECV_R8TILES |
write(LogUnit,*) 'couprecv_r8tiles: recvdname = ',recvdname |