FTN4,L
C 
C      NAME:     CLERR
C      SOURCE:   92067-18465
C      RELOC:    92067-16104
C      PGMR:     C.M.M. 
C 
C  ***************************************************************
C  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS     *
C  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
C  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
C  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
C  ***************************************************************
C 
C 
      SUBROUTINE CLERR(I,L,LU),92067-16104 REV.1903 790203
C 
C 
C     CLERR IS THE ERROR POSTING ROUTINE FOR COMPL & CLOAD
C     IT REPORTS THE ERROR CODE PASSED INTO THE SUBROUTINE
C     IN PARAMETER ' I ' TO THE LU PASSED IN ' LU '.
C     THE ' L ' PARAMETER IS USED TO SEPERATE CLOAD FROM
C     COMPL.
C               L = 0   MEANS PROGRAM CLOAD 
C 
C 
      DIMENSION IERMG(8)
      DATA IERMG/2H/C,2HLO,2HAD,2H: ,2HCL,2H- ,2H  ,2H  / 
C 
      IKVT(IERR) = 2H00 + (IERR/10*256) + MOD(IERR,10)
C 
C 
1     IF(L .EQ. 0) GO TO 100
      IERMG(2) = 2HOM 
      IERMG(3) = 2HPL 
C 
100   IERMG(7) = IKVT(I)
      CALL EXEC(2,LU,IERMG,7) 
      CALL PTERR(IERMG(5),IER)
      RETURN
      END 
      END$
      