Symbol | Description | Uses |
lenm | 14 |
File | Line number | Procedure | Code |
./pkg/mnc/mnc_utils.F | 106 | MNC_GET_IND |
lenm = ILNBLNK(msgbuf) |
./pkg/mnc/mnc_utils.F | 107 | MNC_GET_IND |
CALL PRINT_ERROR(msgbuf(1:lenm), myThid) |
./pkg/mnc/mnc_utils.F | 40 | MNC_HANDLE_ERR |
integer i,lenm |
./pkg/mnc/mnc_utils.F | 52 | MNC_HANDLE_ERR |
lenm = ILNBLNK(msgbuf) |
./pkg/mnc/mnc_utils.F | 53 | MNC_HANDLE_ERR |
print *, msgbuf(1:lenm) |
./pkg/mnc/mnc_utils.F | 54 | MNC_HANDLE_ERR |
CALL PRINT_ERROR(msgbuf(1:lenm), mythid) |
./pkg/mnc/mnc_utils.F | 58 | MNC_HANDLE_ERR |
lenm = ILNBLNK(msg) |
./pkg/mnc/mnc_utils.F | 59 | MNC_HANDLE_ERR |
lenm = MIN(lenm,MAX_LEN_MBUF-11) |
./pkg/mnc/mnc_utils.F | 60 | MNC_HANDLE_ERR |
write(msgbuf,'(2a)') 'MNC ERROR: ', msg(1:lenm) |
./pkg/mnc/mnc_utils.F | 61 | MNC_HANDLE_ERR |
lenm = ILNBLNK(msgbuf) |
./pkg/mnc/mnc_utils.F | 62 | MNC_HANDLE_ERR |
print *, msgbuf(1:lenm) |
./pkg/mnc/mnc_utils.F | 63 | MNC_HANDLE_ERR |
CALL PRINT_ERROR(msgbuf(1:lenm), mythid) |
./pkg/mnc/mnc_utils.F | 95 | MNC_GET_IND |
integer n, i, nf, ind, lenm |