      PROGRAM FM102

C     COMMENT SECTION.                                                  00010102
C                                                                       00020102
C     FM102                                                             00030102
C                                                                       00040102
C         THIS ROUTINE IS A TEST OF THE A FORMAT AND IS TAPE AND PRINTER00050102
C     ORIENTED.  THE ROUTINE CAN ALSO BE USED FOR DISK.  BOTH THE READ  00060102
C     AND WRITE STATEMENTS ARE TESTED.  VARIABLES IN THE INPUT AND      00070102
C     OUTPUT LISTS ARE ALPHANUMERIC INTEGERS AND ARRAY ELEMENTS OR      00080102
C     ARRAY NAME REFERENCES.  ALL READ AND WRITE STATEMENTS ARE DONE    00090102
C     WITH FORMAT STATEMENTS.  THE ROUTINE HAS AN OPTIONAL SECTION OF   00100102
C     CODE TO DUMP THE FILE AFTER IT HAS BEEN WRITTEN.  DO LOOPS AND    00110102
C     DO-IMPLIED LISTS ARE USED IN CONJUNCTION WITH A ONE DIMENSIONAL   00120102
C     INTEGER ARRAY FOR THE DUMP SECTION.                               00130102
C                                                                       00140102
C          THIS ROUTINE WRITES A SINGLE SEQUENTIAL FILE WHICH IS        00150102
C     REWOUND AND READ SEQUENTIALLY FORWARD.   EVERY RECORD IS READ AND 00160102
C     CHECKED FOR ACCURACY AND THE END OF FILE ON RECORD 31 IS ALSO     00170102
C     CHECKED.  DURING THE READ AND CHECK PROCESS THE FILE IS REWOUND   00180102
C     TWICE.  THE FIRST PASS CHECKS THE ODD NUMBERED RECORDS AND THE    00190102
C     SECOND PASS CHECKS THE EVEN NUMBERED RECORDS.                     00200102
C                                                                       00210102
C          THE LINE CONTINUATION IN COLUMN 6 IS USED IN  READ, WRITE,   00220102
C     AND FORMAT STATEMENTS.  FOR BOTH SYNTAX AND SEMANTIC TESTS, ALL   00230102
C     STATEMENTS SHOULD BE CHECKED VISUALLY FOR THE PROPER FUNCTIONING  00240102
C     OF THE CONTINUATION LINE.                                         00250102
C                                                                       00260102
C      REFERENCES                                                       00270102
C        AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN,       00280102
C              X3.9-1978                                                00290102
C                                                                       00300102
C        SECTION 8, SPECIFICATION STATEMENTS                            00310102
C        SECTION 9, DATA STATEMENT                                      00320102
C        SECTION 11.10, DO STATEMENT                                    00330102
C        SECTION 12, INPUT/OUTPUT STATEMENTS                            00340102
C        SECTION 12.8.2, INPUT/OUTPUT LIST                              00350102
C        SECTION 12.9.5.2, FORMATTED DATA TRANSFER                      00360102
C        SECTION 13, FORMAT STATEMENT                                   00370102
C        SECTION 13.2.1, EDIT DESCRIPTORS                               00380102
C                                                                       00390102
      COMMON IACN11(60), IACN12(30)                                     00400102
C                                                                       00410102
      DIMENSION ITEST(7)                                                00420102
      DIMENSION IADN11(60), IADN12(30)                                  00430102
      DIMENSION IDUMP(136)                                              00440102
      CHARACTER*1 NINE,IADN11,IACN11,IDUMP                              00450102
      CHARACTER*2 IADN12,IACN12                                         00460102
      DATA NINE/'9'/                                                    00470102
      DATA IADN11 /'0', '1', '2', '3', '4', '5', '6', '7', '8', '9',    00480102
     1'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M',  00490102
     2'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z',  00500102
     3' ', '=', '+', '-', '*', '/', '(', ')', ',', '.','*', '0', '*',   00510102
     4'1', '.', '2', ',', '3', ')', '4', '(', '5', '/', '6' /           00520102
      DATA IADN12 /                                                     00530102
     1'6/', '5(', '4)','3,', '2.', '1*', '0*', '.,', ')(', '/*', '-+',  00540102
     2'= ', 'ZY', 'XW', 'VU', 'TS', 'RQ', 'PO', 'NM', 'LK', 'JI', 'HG'  00550102
     3,'FE', 'DC', 'BA', '98', '76', '54', '32', '10' /                 00560102
77701 FORMAT ( 80A1 )                                                   00570102
77702 FORMAT (10X,"PREMATURE EOF ONLY " ,I3," RECORDS LUN " ,I2, " OUT O00580102
     1F ",I3," RECORDS")                                                00590102
77703 FORMAT (10X,"FILE ON LUN " ,I2," OK... ",I3," RECORDS")           00600102
77704 FORMAT (10X,"FILE ON LUN " ,I2," TOO LONG MORE THAN " ,I3, " RECOR00610102
     1DS")                                                              00620102
77705 FORMAT ( 1X,80A1)                                                 00630102
77706 FORMAT (10X,"FILE I08 CREATED WITH 31 SEQUENTIAL RECORDS" )       00640102
77751 FORMAT (I3, 2I2, 3I3, I4, 60A1 )                                  00650102
77752 FORMAT ( I3, 2I2, 3I3, I4, 30A2 )                                 00660102
C                                                                       00670102
C                                                                       00680102
C      **********************************************************       00690102
C                                                                       00700102
C         A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE         00710102
C     BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD  00720102
C     PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00730102
C     FEDERAL COBOL COMPILER TESTING SERVICE.  THE FORTRAN COMPILER     00740102
C     VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00750102
C     DATA, AND AN EXECUTIVE SYSTEM.  EACH AUDIT ROUTINE IS A FORTRAN   00760102
C     PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC  00770102
C     LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00780102
C     OF EXECUTING THESE TESTS.                                         00790102
C                                                                       00800102
C         THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00810102
C     FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978.                 00820102
C                                                                       00830102
C         SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO -             00840102
C                                                                       00850102
C              NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY           00860102
C                   SOFTWARE STANDARDS VALIDATION GROUP                 00870102
C                          BUILDING 225  RM A266                        00880102
C                         GAITHERSBURG, MD  20899                       00890102
C      **********************************************************       00900102
C                                                                       00910102
C                                                                       00920102
C                                                                       00930102
C     INITIALIZATION SECTION                                            00940102
C                                                                       00950102
C     INITIALIZE CONSTANTS                                              00960102
C      **************                                                   00970102
C     I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER.         00980102
      I01 = 5                                                           00990102
C     I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER.             01000102
      I02 = 6                                                           01010102
C     SYSTEM ENVIRONMENT SECTION                                        01020102
C                                                                       01030102
CX010    THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-010 CONTROL CARD. 01040102
C     THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5      01050102
C     (UNIT NUMBER FOR CARD READER).                                    01060102
CX011    THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 01070102
C     THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL            01080102
C     FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE.         01090102
C                                                                       01100102
CX020    THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-020 CONTROL CARD. 01110102
C     THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6      01120102
C     (UNIT NUMBER FOR PRINTER).                                        01130102
CX021    THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 01140102
C     THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL            01150102
C     FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE.         01160102
C                                                                       01170102
      IVPASS=0                                                          01180102
      IVFAIL=0                                                          01190102
      IVDELE=0                                                          01200102
      ICZERO=0                                                          01210102
C                                                                       01220102
C     WRITE PAGE HEADERS                                                01230102
      WRITE (I02,90000)                                                 01240102
      WRITE (I02,90001)                                                 01250102
      WRITE (I02,90002)                                                 01260102
      WRITE (I02, 90002)                                                01270102
      WRITE (I02,90003)                                                 01280102
      WRITE (I02,90002)                                                 01290102
      WRITE (I02,90004)                                                 01300102
      WRITE (I02,90002)                                                 01310102
      WRITE (I02,90011)                                                 01320102
      WRITE (I02,90002)                                                 01330102
      WRITE (I02,90002)                                                 01340102
      WRITE (I02,90005)                                                 01350102
      WRITE (I02,90006)                                                 01360102
      WRITE (I02,90002)                                                 01370102
C                                                                       01380102
C     DEFAULT ASSIGNMENT FOR FILE 03 IS I08 = 7                         01390102
      I08 = 95                                                          01400102
CX080 THIS CARD IS REPLACED BY THE CONTENTS OF CARD X-080               01410102
CX081 THIS CARD IS REPLACED BY THE CONTENTS OF CARD X-081               01420102
C                                                                       01430102
C     WRITE SECTION....                                                 01440102
C                                                                       01450102
C     THIS SECTION OF CODE BUILDS A UNIT RECORD FILE ON LUN I08 THAT IS 01460102
C     80 CHARACTERS PER RECORD, 31 RECORDS LONG, AND CONSISTS OF ONLY   01470102
C     INTEGERS AND ALPHANUMERICS ( I AND A FORMAT ).  THIS ROUTINE HAS  01480102
C     ONLY ONE FILE AND FOR PURPOSES OF IDENTIFICATION IS FILE 03.      01490102
C     ALL ARRAY ELEMENT DATA FOR THE ALPHANUMERIC CHARACTERS IS SET BY  01500102
C     THE DATA INITIALIZATION STATEMENT.                                01510102
      IPROG = 102                                                       01520102
      IFILE = 03                                                        01530102
      ILUN = I08                                                        01540102
      ITOTR = 31                                                        01550102
      IRLGN = 80                                                        01560102
      IEOF = 0000                                                       01570102
      IFLIP = 1                                                         01580102
      DO 234 IRNUM = 1, 31                                              01590102
      IF ( IRNUM .EQ. 31 ) IEOF = 9999                                  01600102
      IF ( IFLIP - 1 )  232, 232, 233                                   01610102
  232 WRITE ( I08, 77751 )  IPROG,IFILE,ILUN,IRNUM,ITOTR,IRLGN,IEOF,IADN01620102
     111                                                                01630102
      IFLIP = 2                                                         01640102
      GO TO 234                                                         01650102
  233 WRITE ( I08, 77752 ) IPROG,IFILE,ILUN,IRNUM,ITOTR,IRLGN,IEOF,IADN101660102
     12                                                                 01670102
      IFLIP = 1                                                         01680102
  234 CONTINUE                                                          01690102
      WRITE (I02,77706)                                                 01700102
C                                                                       01710102
C     REWIND SECTION                                                    01720102
C                                                                       01730102
      REWIND I08                                                        01740102
C                                                                       01750102
C     READ SECTION....                                                  01760102
C                                                                       01770102
      IVTNUM =  23                                                      01780102
C                                                                       01790102
C     ****  TEST  23  THRU  TEST  38  ****                              01800102
C     TEST 23 THRU 38  -  THESE TESTS READ THE FILE SEQUENTIALLY FORWARD01810102
C     AND CHECK THE ODD NUMBERED RECORDS FOR THE RECORD NUMBER AND THE  01820102
C     VALUE OF SEVERAL OF THE DATA ITEMS WHICH SHOULD REMAIN CONSTANT   01830102
C     FROM RECORD TO RECORD.                                            01840102
C                                                                       01850102
      IRTST = 1                                                         01860102
      DO 383 I = 1, 16                                                  01870102
C     THE INTEGER VARIABLE IS INITIALIZED TO ZERO FOR EACH TEST 23 - 38.01880102
      IVON01 = 0                                                        01890102
C     READ AN ODD NUMBERED RECORD....                                   01900102
      READ ( I08, 77751 )  ITEST, IACN11                                01910102
      IF ( ITEST(4) .EQ. IRTST )  IVON01 = IVON01 + 1                   01920102
C     THE ELEMENT (4) SHOULD EQUAL THE RECORD NUMBER....                01930102
      IF ( IACN11(1) .EQ. IADN11(1) )  IVON01 = IVON01 + 1              01940102
C     THE ELEMENT (1) SHOULD EQUAL IADN11(1) = '0'   ....               01950102
      IF ( IACN11(11) .EQ. IADN11(11) )  IVON01 = IVON01 + 1            01960102
C     THE ELEMENT (11) SHOULD EQUAL IADN11(11) = 'A' ....               01970102
      IF ( IACN11(36) .EQ. IADN11(36) )  IVON01 = IVON01 + 1            01980102
C     THE ELEMENT (36) SHOULD EQUAL IADN11(36) = 'Z' ....               01990102
      IF ( IACN11(44) .EQ. IADN11(44) )  IVON01 = IVON01 + 1            02000102
C     THE ELEMENT (44) SHOULD EQUAL IADN11(44) = ')' ....               02010102
      IF ( IACN11(60) .EQ. IADN11(60) ) IVON01 = IVON01 + 1             02020102
C     THE ELEMENT (60) SHOULD EQUAL IADN11(60) = '6' ....               02030102
      IF ( IVON01 - 6 )  20230, 10230, 20230                            02040102
C     WHEN IVON01 = 6  THEN ALL SIX OF THE ITEST ELEMENTS THAT WERE     02050102
C     CHECKED HAD THE EXPECTED VALUES....  IF IVON01 DOES NOT EQUAL 6   02060102
C     THEN AT LEAST ONE OF THE VALUES WAS INCORRECT....                 02070102
10230 IVPASS = IVPASS + 1                                               02080102
      WRITE (I02,80001) IVTNUM                                          02090102
      GO TO 382                                                         02100102
20230 IVFAIL = IVFAIL + 1                                               02110102
      IVCOMP = IVON01                                                   02120102
      IVCORR = 6                                                        02130102
      WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR                          02140102
  382 CONTINUE                                                          02150102
C     DO NOT READ PAST RECORD NUMBER 31 ON THE I = 16 LOOP....          02160102
      IF ( I .EQ. 16 )  GO TO 391                                       02170102
C     SKIP OVER THE EVEN NUMBERED RECORDS BY AN EXTRA READ....          02180102
      READ ( I08, 77752 )  ITEST, IACN12                                02190102
      IVTNUM = IVTNUM + 1                                               02200102
C     INCREMENT THE TEST NUMBER....                                     02210102
      IRTST = IRTST + 2                                                 02220102
C     INCREMENT THE RECORD NUMBER COUNTER....                           02230102
  383 CONTINUE                                                          02240102
      IF ( ICZERO )  30230, 391, 30230                                  02250102
30230 IVDELE = IVDELE + 1                                               02260102
      WRITE (I02,80003) IVTNUM                                          02270102
  391 CONTINUE                                                          02280102
      IVTNUM =  39                                                      02290102
C                                                                       02300102
C      ****  TEST  39  ****                                             02310102
C     TEST 39  -  THIS CHECKS FOR THE END OF FILE INDICATOR ON THE 31ST 02320102
C     RECORD.  THE EOF INDICATOR IS ITEST(7) AND SHOULD EQUAL 9999      02330102
C                                                                       02340102
      IF (ICZERO) 30390,  390, 30390                                    02350102
  390 CONTINUE                                                          02360102
      IVCOMP = ITEST(7)                                                 02370102
      GO TO 40390                                                       02380102
30390 IVDELE = IVDELE + 1                                               02390102
      WRITE (I02,80003) IVTNUM                                          02400102
      IF (ICZERO) 40390,  401, 40390                                    02410102
40390 IF ( IVCOMP - 9999 )  20390, 10390, 20390                         02420102
10390 IVPASS = IVPASS + 1                                               02430102
      WRITE (I02,80001) IVTNUM                                          02440102
      GO TO  401                                                        02450102
20390 IVFAIL = IVFAIL + 1                                               02460102
      IVCORR = 9999                                                     02470102
      WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR                          02480102
  401 CONTINUE                                                          02490102
C     REWIND THE FILE AGAIN....                                         02500102
      REWIND I08                                                        02510102
C     READ THE FILE AGAIN                                               02520102
      IVTNUM =  40                                                      02530102
C     ****  TEST 40  THRU  54  ****                                     02540102
C     TEST 40 THRU 54  -  THESE TESTS CHECK THE EVEN NUMBERED RECORDS   02550102
C     FOR THE CORRECT RECORD NUMBER AND THE VALUE OF SEVERAL DATA ITEMS 02560102
C     WHICH SHOULD REMAIN CONSTANT FOR EACH RECORD.  THESE READ CHECKS  02570102
C     USE A DIFFERENT FORMAT THAN TESTS 23 THRU 38 BECAUSE THE RECORDS  02580102
C     WERE WRITTEN USING A FLIP-FLOP BETWEEN TWO FORMATS.               02590102
C                                                                       02600102
      IRTST = 2                                                         02610102
C     THIS RECORD POINTER IS INITIALIZED TO THE SECOND (EVEN) RECORD    02620102
      DO 532 I = 1, 15                                                  02630102
C     THE INTEGER VARIABLE IS INITIALIZED TO ZERO FOR EACH TEST 40 - 54 02640102
      IVON01 = 0                                                        02650102
C     SKIP OVER THE ODD NUMBERED RECORDS....                            02660102
      READ ( I08, 77751 )  ITEST, IACN11                                02670102
C     READ THE EVEN NUMBERED RECORDS....                                02680102
      READ ( I08, 77752 )  ITEST, IACN12                                02690102
      IF ( ITEST(4) .EQ. IRTST )  IVON01 = IVON01 + 1                   02700102
C     CHECK THE RECORD NUMBER....                                       02710102
      IF ( IACN12(1) .EQ. IADN12(1) )  IVON01 = IVON01 + 1              02720102
C     ELEMENT (1) SHOULD EQUAL '6/'    ....                             02730102
      IF ( IACN12(11) .EQ. IADN12(11) )  IVON01 = IVON01 + 1            02740102
C     ELEMENT (11) SHOULD EQUAL '-+'   ....                             02750102
      IF ( IACN12(16) .EQ. IADN12(16) )  IVON01 = IVON01 + 1            02760102
C     ELEMENT (16) SHOULD EQUAL 'TS'   ....                             02770102
      IF ( IACN12(23) .EQ. IADN12(23) )  IVON01 = IVON01 + 1            02780102
C     ELEMENT (23) SHOULD EQUAL 'FE'   ....    (THE SYMBOL FOR IRONY)   02790102
      IF ( IACN12(30) .EQ. IADN12(30) )  IVON01 = IVON01 + 1            02800102
C     ELEMENT (30) SHOULD EQUAL '10'   ....                             02810102
      IF ( IVON01 - 6 )  20400, 10400, 20400                            02820102
10400 IVPASS = IVPASS + 1                                               02830102
      WRITE (I02,80001) IVTNUM                                          02840102
      GO TO 402                                                         02850102
20400 IVFAIL = IVFAIL + 1                                               02860102
      IVCOMP = IVON01                                                   02870102
      IVCORR = 6                                                        02880102
      WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR                          02890102
  402 CONTINUE                                                          02900102
      IVTNUM = IVTNUM + 1                                               02910102
C     INCREMENT THE TEST NUMBER....                                     02920102
      IRTST = IRTST + 2                                                 02930102
C     INCREMENT THE RECORD NUMBER COUNTER....                           02940102
  532 CONTINUE                                                          02950102
      IF ( ICZERO )  30400, 411, 30400                                  02960102
30400 IVDELE = IVDELE + 1                                               02970102
      WRITE (I02,80003) IVTNUM                                          02980102
  411 CONTINUE                                                          02990102
C     THIS CODE IS OPTIONALLY COMPILED AND IS USED TO DUMP THE FILE 03  03000102
C     TO THE LINE PRINTER.                                              03010102
CDB**                                                                   03020102
C     ILUN = I08                                                        03030102
C     ITOTR = 31                                                        03040102
C     IRLGN = 80                                                        03050102
C7777 REWIND ILUN                                                       03060102
C     DO 7778  IRNUM = 1, ITOTR                                         03070102
C     READ (ILUN,77701) (IDUMP(ICHAR), ICHAR = 1, IRLGN)                03080102
C     WRITE ( I02,77705) (IDUMP(ICHAR), ICHAR = 1, IRLGN)               03090102
C     IF ( IDUMP(20) .EQ. NINE )  GO TO  7779                           03100102
C7778 CONTINUE                                                          03110102
C     GO TO 7782                                                        03120102
C7779 IF ( IRNUM - ITOTR )   7780,  7781,  7782                         03130102
C7780 WRITE (I02,77702) IRNUM,ILUN,ITOTR                                03140102
C     GO TO  7784                                                       03150102
C7781 WRITE (I02,77703) ILUN,ITOTR                                      03160102
C     GO TO  7784                                                       03170102
C7782 WRITE (I02,77704) ILUN, ITOTR                                     03180102
C     DO  7783 I = 1, 5                                                 03190102
C     READ (ILUN,77701) (IDUMP(ICHAR), ICHAR = 1, IRLGN)                03200102
C     WRITE ( I02,77705) (IDUMP(ICHAR), ICHAR = 1, IRLGN)               03210102
C     IF ( IDUMP(20) .EQ. NINE )  GO TO   7784                          03220102
C7783 CONTINUE                                                          03230102
C7784 GO TO 99999                                                       03240102
CDE**                                                                   03250102
C     WRITE PAGE FOOTINGS AND RUN SUMMARIES                             03260102
99999 CONTINUE                                                          03270102
      WRITE (I02,90002)                                                 03280102
      WRITE (I02,90006)                                                 03290102
      WRITE (I02,90002)                                                 03300102
      WRITE (I02,90002)                                                 03310102
      WRITE (I02,90007)                                                 03320102
      WRITE (I02,90002)                                                 03330102
      WRITE (I02,90008)  IVFAIL                                         03340102
      WRITE (I02,90009) IVPASS                                          03350102
      WRITE (I02,90010) IVDELE                                          03360102
C                                                                       03370102
C                                                                       03380102
C     TERMINATE ROUTINE EXECUTION                                       03390102
      STOP                                                              03400102
C                                                                       03410102
C     FORMAT STATEMENTS FOR PAGE HEADERS                                03420102
90000 FORMAT ("1")                                                      03430102
90002 FORMAT (" ")                                                      03440102
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" )            03450102
90003 FORMAT (" ",21X,"VERSION 2.1" )                                   03460102
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" )        03470102
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 03480102
90006 FORMAT (" ",5X,"----------------------------------------------" ) 03490102
90011 FORMAT (" ",18X,"SUBSET LEVEL TEST" )                             03500102
C                                                                       03510102
C     FORMAT STATEMENTS FOR RUN SUMMARIES                               03520102
90008 FORMAT (" ",15X,I5," ERRORS ENCOUNTERED" )                        03530102
90009 FORMAT (" ",15X,I5," TESTS PASSED" )                              03540102
90010 FORMAT (" ",15X,I5," TESTS DELETED" )                             03550102
C                                                                       03560102
C     FORMAT STATEMENTS FOR TEST RESULTS                                03570102
80001 FORMAT (" ",4X,I5,7X,"PASS")                                      03580102
80002 FORMAT (" ",4X,I5,7X,"FAIL")                                      03590102
80003 FORMAT (" ",4X,I5,7X,"DELETED")                                   03600102
80004 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6)                         03610102
80005 FORMAT (" ",4X,I5,7X,"FAIL",4X,E12.5,3X,E12.5)                    03620102
C                                                                       03630102
90007 FORMAT (" ",20X,"END OF PROGRAM FM102" )                          03640102
      END                                                               03650102