Parent Directory | Revision Log | Revision Graph | Patch
revision 1.34 by heimbach, Fri May 26 03:06:06 2006 UTC | revision 1.35 by heimbach, Wed Jun 28 21:24:54 2006 UTC | |
---|---|---|
# | Line 178 CEOP | Line 178 CEOP |
178 | & CALL PACKAGES_CHECK_ERROR('DIAGNOSTICS', myThid ) | & CALL PACKAGES_CHECK_ERROR('DIAGNOSTICS', myThid ) |
179 | #endif | #endif |
180 | ||
181 | #ifdef ALLOW_MYPACKAGE | |
182 | IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid ) | |
183 | #else | |
184 | IF (useMYPACKAGE) CALL PACKAGES_CHECK_ERROR('MYPACKAGE', myThid) | |
185 | #endif | |
186 | ||
187 | RETURN | RETURN |
188 | END | END |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |