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