35 |
|
|
36 |
C !LOCAL VARIABLES: |
C !LOCAL VARIABLES: |
37 |
C === Local variables === |
C === Local variables === |
38 |
C msgBuf :: Informational/error meesage buffer |
C msgBuf :: Informational/error message buffer |
39 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
40 |
CHARACTER*(MAX_LEN_MBUF) msgLwc,msgUpc |
CHARACTER*(MAX_LEN_MBUF) msgLwc,msgUpc |
41 |
INTEGER iLen |
INTEGER iLen |
61 |
& '==> Re-compile with pkg "',msgLwc(1:iLen), |
& '==> Re-compile with pkg "',msgLwc(1:iLen), |
62 |
& '" in file "packages.conf"' |
& '" in file "packages.conf"' |
63 |
CALL PRINT_ERROR( msgBuf, myThid ) |
CALL PRINT_ERROR( msgBuf, myThid ) |
64 |
|
CALL ALL_PROC_DIE( myThid ) |
65 |
STOP 'ABNORMAL END: S/R PACKAGE_ERROR_MSG' |
STOP 'ABNORMAL END: S/R PACKAGE_ERROR_MSG' |
66 |
|
|
67 |
RETURN |
RETURN |