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$