Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.3 by heimbach, Thu May 30 22:47:26 2002 UTC | revision 1.7 by heimbach, Mon Oct 27 22:32:55 2003 UTC | |
|---|---|---|
| # | Line 33 c == routine arguments == | Line 33 c == routine arguments == |
| 33 | ||
| 34 | integer mythid | integer mythid |
| 35 | ||
| 36 | #ifdef ALLOW_GRADIENT_CHECK | #ifdef ALLOW_GRDCHK |
| 37 | c == local variables == | c == local variables == |
| 38 | ||
| 39 | character*(max_len_mbuf) msgbuf | character*(max_len_mbuf) msgbuf |
| # | Line 99 c == end of interface == | Line 99 c == end of interface == |
| 99 | call print_message( msgbuf, standardmessageunit, | call print_message( msgbuf, standardmessageunit, |
| 100 | & SQUEEZE_RIGHT , mythid) | & SQUEEZE_RIGHT , mythid) |
| 101 | ||
| 102 | #endif /* ALLOW_GRADIENT_CHECK */ | #endif /* ALLOW_GRDCHK */ |
| 103 | ||
| 104 | return | return |
| 105 | end | end |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |