522 |
& 'MNC_CW_ADD_VATTR_ANY WARNING: attribute name ''', |
& 'MNC_CW_ADD_VATTR_ANY WARNING: attribute name ''', |
523 |
& tname(n1:n2), ''' has more than ', MNC_MAX_CHAR, |
& tname(n1:n2), ''' has more than ', MNC_MAX_CHAR, |
524 |
& ' characters and has been truncated to fit' |
& ' characters and has been truncated to fit' |
525 |
CALL print_error(msgbuf, mythid) |
CALL PRINT_MESSAGE( msgbuf, errorMessageUnit, |
526 |
|
& SQUEEZE_RIGHT , myThid) |
527 |
C MNC_MAX_CHAR = n2 - n1 + 1 |
C MNC_MAX_CHAR = n2 - n1 + 1 |
528 |
n2 = MNC_MAX_CHAR + n1 - 1 |
n2 = MNC_MAX_CHAR + n1 - 1 |
529 |
ENDIF |
ENDIF |
539 |
& 'MNC_CW_ADD_VATTR_ANY WARNING: attribute value ''', |
& 'MNC_CW_ADD_VATTR_ANY WARNING: attribute value ''', |
540 |
& tval(n1:n2), ''' has more than ', MNC_MAX_CHAR, |
& tval(n1:n2), ''' has more than ', MNC_MAX_CHAR, |
541 |
& ' characters and has been truncated to fit' |
& ' characters and has been truncated to fit' |
542 |
CALL print_error(msgbuf, mythid) |
CALL PRINT_MESSAGE( msgbuf, errorMessageUnit, |
543 |
|
& SQUEEZE_RIGHT , myThid) |
544 |
n2 = MNC_MAX_CHAR + n1 - 1 |
n2 = MNC_MAX_CHAR + n1 - 1 |
545 |
ENDIF |
ENDIF |
546 |
|
|