| File |
Line number |
Procedure |
Code |
|
./pkg/compon_communic/comprecv_r8tiles.F |
18 |
COMPRECV_R8TILES |
character*(MAXLEN_COMP_NAME) recvdname |
|
./pkg/compon_communic/comprecv_r8tiles.F |
60 |
COMPRECV_R8TILES |
call MITCPLR_REAL2CHAR( r8buf(9), recvdname ) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
66 |
COMPRECV_R8TILES |
if (recvdname .ne. dataname) then |
|
./pkg/compon_communic/comprecv_r8tiles.F |
67 |
COMPRECV_R8TILES |
write(LogUnit,*) 'comprecv_r8tiles: recvdname = ',recvdname |
|
./pkg/compon_communic/couprecv_r8.F |
22 |
COUPRECV_R8 |
character*(MAXLEN_COMP_NAME) recvdname |
|
./pkg/compon_communic/couprecv_r8.F |
80 |
COUPRECV_R8 |
call MITCPLR_REAL2CHAR( r8buf(9), recvdname ) |
|
./pkg/compon_communic/couprecv_r8.F |
81 |
COUPRECV_R8 |
if (recvdname .ne. dataname) then |
|
./pkg/compon_communic/couprecv_r8.F |
82 |
COUPRECV_R8 |
write(LogUnit,*) 'couprecv_r8: recvdname = ',recvdname |
|
./pkg/compon_communic/comprecv_r8.F |
18 |
COMPRECV_R8 |
character*(MAXLEN_COMP_NAME) recvdname |
|
./pkg/compon_communic/comprecv_r8.F |
54 |
COMPRECV_R8 |
call MITCPLR_REAL2CHAR( r8buf(9), recvdname ) |
|
./pkg/compon_communic/comprecv_r8.F |
60 |
COMPRECV_R8 |
if (recvdname .ne. dataname) then |
|
./pkg/compon_communic/comprecv_r8.F |
61 |
COMPRECV_R8 |
write(LogUnit,*) 'comprecv_r8: recvdname = ',recvdname |
|
./pkg/compon_communic/couprecv_r8tiles.F |
22 |
COUPRECV_R8TILES |
character*(MAXLEN_COMP_NAME) recvdname |
|
./pkg/compon_communic/couprecv_r8tiles.F |
93 |
COUPRECV_R8TILES |
call MITCPLR_REAL2CHAR( r8buf(9), recvdname ) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
94 |
COUPRECV_R8TILES |
if (recvdname .ne. dataname) then |
|
./pkg/compon_communic/couprecv_r8tiles.F |
95 |
COUPRECV_R8TILES |
write(LogUnit,*) 'couprecv_r8tiles: recvdname = ',recvdname |
|
./pkg/compon_communic/comprecv_r4.F |
18 |
COMPRECV_R4 |
character*(MAXLEN_COMP_NAME) recvdname |
|
./pkg/compon_communic/comprecv_r4.F |
54 |
COMPRECV_R4 |
call MITCPLR_REAL2CHAR( r4buf(9), recvdname ) |
|
./pkg/compon_communic/comprecv_r4.F |
60 |
COMPRECV_R4 |
if (recvdname .ne. dataname) then |
|
./pkg/compon_communic/comprecv_r4.F |
61 |
COMPRECV_R4 |
write(LogUnit,*) 'comprecv_r4: recvdname = ',recvdname |
|
./pkg/compon_communic/comprecv_r4tiles.F |
18 |
COMPRECV_R4TILES |
character*(MAXLEN_COMP_NAME) recvdname |
|
./pkg/compon_communic/comprecv_r4tiles.F |
60 |
COMPRECV_R4TILES |
call MITCPLR_REAL2CHAR( r4buf(9), recvdname ) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
66 |
COMPRECV_R4TILES |
if (recvdname .ne. dataname) then |
|
./pkg/compon_communic/comprecv_r4tiles.F |
67 |
COMPRECV_R4TILES |
write(LogUnit,*) 'comprecv_r4tiles: recvdname = ',recvdname |
|
./pkg/compon_communic/couprecv_r4tiles.F |
22 |
COUPRECV_R4TILES |
character*(MAXLEN_COMP_NAME) recvdname |
|
./pkg/compon_communic/couprecv_r4tiles.F |
93 |
COUPRECV_R4TILES |
call MITCPLR_REAL2CHAR( r4buf(9), recvdname ) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
94 |
COUPRECV_R4TILES |
if (recvdname .ne. dataname) then |
|
./pkg/compon_communic/couprecv_r4tiles.F |
95 |
COUPRECV_R4TILES |
write(LogUnit,*) 'couprecv_r4tiles: recvdname = ',recvdname |
|
./pkg/compon_communic/couprecv_r4.F |
22 |
COUPRECV_R4 |
character*(MAXLEN_COMP_NAME) recvdname |
|
./pkg/compon_communic/couprecv_r4.F |
80 |
COUPRECV_R4 |
call MITCPLR_REAL2CHAR( r4buf(9), recvdname ) |
|
./pkg/compon_communic/couprecv_r4.F |
81 |
COUPRECV_R4 |
if (recvdname .ne. dataname) then |
|
./pkg/compon_communic/couprecv_r4.F |
82 |
COUPRECV_R4 |
write(LogUnit,*) 'couprecv_r4: recvdname = ',recvdname |