FTN4
      SUBROUTINE FMPER(IER,IPBUF,LU),92082-1X004 REV.2001 791119
C 
C 
C 
C 
C     DATE: 11-19-79
C     NAME: FMPER 
C     SOURCE: 92082-18004 
C     RELOC:  PART OF 92082-12001 
C     PGMR:  C.M.M. 
C 
C  ***************************************************************
C  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980.  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 
C 
C 
C 
      DIMENSION IPBUF(3),IFMGR(16)
      DATA IFMGR/ 2H  ,2HFM,2HGR,2H-0,2H00,2H E,2HRR,2HOR,2H O,2HN ,
     &            2HFI,2HLE,2H  ,2H  ,2H  ,2H  /
C 
C 
      ISPACE(IDUM) = EXEC(2,LU,2H  ,1)
      IKVT(IER) = 2H00 + (IER/10*256) + MOD(IER,10) 
C 
C 
C      ALL THE FMPER ROUTINE FORMATS AN FMGR-XXX ERROR MESSAGE
C 
C     IER = ERROR CODE   0 - 99 
C     IPBUF = 3 WORD ARRAY CONTAINING FILE NAME 
C 
C 
C 
C 
C 
      IFMGR(14) = IPBUF(1)
      IFMGR(15) = IPBUF(2)
      IFMGR(16) = IPBUF(3)
      IF (IER .GE.0) IFMGR(4) = 2H 0
      IF (IER .LT.0) IFMGR(4) = 2H-0
      IFMGR(5) = IKVT(IABS(IER))
      CALL REIO(2,LU,IFMGR,16)
      IA = ISPACE(IDUM) 
      RETURN
      END 
      END$
                                                                                                                                                                