Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.2 by jmc, Mon Oct 8 23:58:20 2007 UTC | revision 1.3 by jmc, Mon Sep 14 16:22:01 2009 UTC | |
|---|---|---|
| # | Line 54 C $Name$ | Line 54 C $Name$ |
| 54 | Jo=int(0.5+r8buf(2)) | Jo=int(0.5+r8buf(2)) |
| 55 | nx=int(0.5+r8buf(3)) | nx=int(0.5+r8buf(3)) |
| 56 | ny=int(0.5+r8buf(4)) | ny=int(0.5+r8buf(4)) |
| 57 | call mitcplr_real2char( r8buf(9), recvdname ) | call mitcplr_dbl2char( r8buf(9), recvdname ) |
| 58 | ||
| 59 | if (Io.ne.my_tile_i0(1)) stop 'comprecv_r8: bad Io' | if (Io.ne.my_tile_i0(1)) stop 'comprecv_r8: bad Io' |
| 60 | if (Jo.ne.my_tile_j0(1)) stop 'comprecv_r8: bad Jo' | if (Jo.ne.my_tile_j0(1)) stop 'comprecv_r8: bad Jo' |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |