Parent Directory | Revision Log | Revision Graph | Patch
revision 1.4 by jmc, Tue Apr 28 23:27:24 2009 UTC | revision 1.5 by jmc, Sun Dec 27 23:40:03 2009 UTC | |
---|---|---|
# | Line 25 C myThid :: my Thread Id number | Line 25 C myThid :: my Thread Id number |
25 | INTEGER myThid | INTEGER myThid |
26 | CEOP | CEOP |
27 | ||
28 | #ifdef ALLOW_MYPACKAGE | |
29 | C !LOCAL VARIABLES: | C !LOCAL VARIABLES: |
30 | C msgBuf :: Informational/error meesage buffer | C msgBuf :: Informational/error message buffer |
31 | CHARACTER*(MAX_LEN_MBUF) msgBuf | CHARACTER*(MAX_LEN_MBUF) msgBuf |
32 | ||
#ifdef ALLOW_MYPACKAGE | ||
33 | _BEGIN_MASTER(myThid) | _BEGIN_MASTER(myThid) |
34 | ||
35 | WRITE(msgBuf,'(A)') 'MYPACKAGE_CHECK: #define MYPACKAGE' | WRITE(msgBuf,'(A)') 'MYPACKAGE_CHECK: #define MYPACKAGE' |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |