FM403.f Source File


Contents

Source Code


Source Code

      PROGRAM FM403

C***********************************************************************00010403
C*****  FORTRAN 77                                                      00020403
C*****   FM403               FMTRW - (020)                              00030403
C*****                                                                  00040403
C***********************************************************************00050403
C*****  GENERAL PURPOSE                                      SUBSET REFS00060403
C*****    TO TEST SIMPLE FORMAT AND FORMATTED DATA              12.9.5.200070403
C*****    TRANSFER STATEMENTS IN EXTERNAL SEQUENTIAL I/O SO     13.1.1  00080403
C*****    THAT THESE FEATURES MAY BE USED IN OTHER TEST         12.8.1  00090403
C*****    PROGRAM SEGMENTS FOR INTEGER, REAL, AND LOGICAL               00100403
C*****    DATA TYPES.                                                   00110403
C*****  RESTRICTIONS OBSERVED                                   12.8.2  00120403
C*****  *  ALL FORMAT STATEMENTS ARE LABELED                    13.1.1  00130403
C*****  *  H DESCRIPTOR ARE NEVER REPEATED                      13.2.1  00140403
C*****  *  FOR W.D DESCRIPTORS, D IS ALWAYS SPECIFIED AND               00150403
C*****     W IS EQUAL TO OR GREATER THAN D                              00160403
C*****  *  FIELD WIDTH IS NEVER ZERO                            13.2.1  00170403
C*****  *  IF AN I/O LIST SPECIFIES AT LEAST ONE LIST ITEM      13.3    00180403
C*****     AT LEAST ONE REPEATABLE EDIT DESCRIPTOR MUST EXIST           00190403
C*****     IN THE FORMAT SPECIFICATION                                  00200403
C*****  *  ITEMS IN I/O LIST CORRESPOND TO EDIT DESCRIPTORS     13.3    00210403
C*****  *  NEGATIVE OUTPUT VALUES ARE SIGNED                    13.5.9  00220403
C*****  *  FIELD WIDTH NEVER EXCEEDED BY OUTPUT                 13.5.9  00230403
C*****  *  FOR I EDITING, EXTERNAL INPUT FIELDS ARE             13.5.9.100240403
C*****     INTEGER CONSTANTS                                            00250403
C*****  GENERAL COMMENTS                                                00260403
C*****    PLUS SIGNS FOR INPUT FIELDS ARE USUALLY OMITTED       13.5.9  00270403
C*****    FORMATTED WRITES WITHOUT AN I/O LIST (FORMAT          13.5.2  00280403
C*****    STATEMENTS TEST H AND X DESCRIPTORS AND SLASH         13.5.3  00290403
C*****    RECORD DIVIDERS)                                      13.5.4  00300403
C*****                                                                  00310403
CBB** ********************** BBCCOMNT **********************************00320403
C****                                                                   00330403
C****            1978 FORTRAN COMPILER VALIDATION SYSTEM                00340403
C****                          VERSION 2.1                              00350403
C****                                                                   00360403
C****                                                                   00370403
C****           SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO         00380403
C****          NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY           00390403
C****               SOFTWARE STANDARDS VALIDATION GROUP                 00400403
C****                      BUILDING 225  RM A266                        00410403
C****                     GAITHERSBURG, MD  20899                       00420403
C****                                                                   00430403
C****                                                                   00440403
C****                                                                   00450403
CBE** ********************** BBCCOMNT **********************************00460403
C  INPUT DATA TO THIS SEGMENT CONSISTS OF 27 CARD IMAGES IN COL. 1 - 80 00470403
COL.      1----------------------------------------------------------61 00480403
CARD  1     999                                                         00490403
CARD  2     555554444                                                   00500403
CARD  3     666  777777  8                                              00510403
CARD  4     333333111112222222255555444444444444                        00520403
CARD  5     7.7123456.7                                                 00530403
CARD  6     8.889.9997.123456                                           00540403
CARD  7     5.44446.5555533.133.133.133.1444.1                          00550403
CARD  8     5555.15555.1  66666.166666.1  44.22                         00560403
CARD  9     2.12.12.12.12.1666.3334.3334.3334.333                       00570403
CARD 10   -0.1E+01+0.22E-01 0.333E+02 0.4444E+03-0.55555E-03+0.666666E+ 00580403
COL.    62------------77                                                00590403
CARD 10 00+0.9876543E+12                                                00600403
COL.      1----------------------------------------------------------61 00610403
CARD 11   TABC                                                          00620403
CARD 12   FDEFFGHIT*+T1F/).TRUE..FALSE.                                 00630403
CARD 13     -9.9-9.9-9.9-9.9                                            00640403
CARD 14   9999999999                                                    00650403
CARD 15   .9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9        00660403
CARD 16   TFTFTFTFTF                                                    00670403
CARD 17     99999999                                                    00680403
CARD 18   9999999999999999TFFT9.99.99.99.99.9                           00690403
CARD 19        T   F         T    F                                     00700403
CARD 20     3334444.555550                                              00710403
CARD 21    9876.5498.7654E2 9876.54   987.654         86.4786E286.4786  00720403
CARD 22    9.8765698.7654E2  9876.54  987.654         86.4786E286.4786  00730403
CARD 23   122333544888611222                                            00740403
CARD 24   455666233444966111                                            00750403
CARD 25   788999377555899777                                            00760403
CARD 26   11112 334 559 880 11                                          00770403
CARD 27   6 778 995 441 222 00                                          00780403
C*****                                                                  00790403
C*****  S P E C I F I C A T I O N S  SEGMENT 020                        00800403
C*****                                                                  00810403
      DIMENSION EP1S(33),CMA1S(5),IAC1I(5),IAC2I(2,7),MCA1I(5)          00820403
      REAL A1S(5),A2S(2,2),A3S(3,3,3),AC1S(25),AC2S(5,6)                00830403
      INTEGER I2I(2,2),I3I(2,2,2),MCA3I(2,3,3)                          00840403
      LOGICAL MCA1B(7),A1B(2),A2B(2,2),A3B(2,2,2),AVB,CVB,DVB ,MCBVB    00850403
C*****                                                                  00860403
CBB** ********************** BBCINITA **********************************00870403
C**** SPECIFICATION STATEMENTS                                          00880403
C****                                                                   00890403
      CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20,      00900403
     1          ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13      00910403
CBE** ********************** BBCINITA **********************************00920403
CBB** ********************** BBCINITB **********************************00930403
C**** INITIALIZE SECTION                                                00940403
      DATA  ZVERS,                  ZVERSD,             ZDATE           00950403
     1      /'VERSION 2.1  ',  '93/10/21*21.02.00',  '*NO DATE*TIME'/   00960403
      DATA       ZCOMPL,             ZNAME,             ZTAPE           00970403
     1      /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/      00980403
      DATA       ZPROJ,           ZTAPED,         ZPROG                 00990403
     1      /'*NO PROJECT*',   '*NO TAPE DATE',  'XXXXX'/               01000403
      DATA   REMRKS /'                               '/                 01010403
C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED   01020403
C**** FOR IDENTIFYING THE TEST ENVIRONMENT                              01030403
C****                                                                   01040403
CZ01  ZVERS  = 'VERSION OF THE COMPILER VALIDATION SYSTEM'              01050403
CZ02  ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM'   01060403
CZ03  ZPROG  = 'PROGRAM NAME'                                           01070403
CZ04  ZDATE  = 'DATE OF TEST'                                           01080403
CZ05  ZCOMPL = 'COMPILER IDENTIFICATION'                                01090403
CZ06  ZPROJ  = 'PROJECT NUMBER/IDENTIFICATION'                          01100403
CZ07  ZNAME  = 'NAME OF USER'                                           01110403
CZ08  ZTAPE  = 'TAPE OWNER/ID'                                          01120403
CZ09  ZTAPED = 'DATE TAPE COPIED'                                       01130403
C                                                                       01140403
      IVPASS = 0                                                        01150403
      IVFAIL = 0                                                        01160403
      IVDELE = 0                                                        01170403
      IVINSP = 0                                                        01180403
      IVTOTL = 0                                                        01190403
      IVTOTN = 0                                                        01200403
      ICZERO = 0                                                        01210403
C                                                                       01220403
C     I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER.         01230403
      I01 = 05                                                          01240403
C     I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER.             01250403
      I02 = 06                                                          01260403
C                                                                       01270403
CX010   REPLACED BY FEXEC X-010 CONTROL CARD (CARD-READER UNIT NUMBER). 01280403
C     THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5      01290403
CX011   REPLACED BY FEXEC X-011 CONTROL CARD.  CX011 IS FOR SYSTEMS     01300403
C     REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010.  01310403
C                                                                       01320403
CX020   REPLACED BY FEXEC X-020 CONTROL CARD (PRINTER UNIT NUMBER).     01330403
C     THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6       01340403
CX021   REPLACED BY FEXEC X-021 CONTROL CARD.  CX021 IS FOR SYSTEMS     01350403
C     REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020.  01360403
C                                                                       01370403
CBE** ********************** BBCINITB **********************************01380403
C*****  I N P U T - O U T P U T  ASSIGNMENT STATEMENTS                  01390403
      IRVI = I01                                                        01400403
      NUVI = I02                                                        01410403
      IVTOTL = 59                                                       01420403
      ZPROG = 'FM403'                                                   01430403
CBB** ********************** BBCHED0A **********************************01440403
C****                                                                   01450403
C**** WRITE REPORT TITLE                                                01460403
C****                                                                   01470403
      WRITE (I02, 90002)                                                01480403
      WRITE (I02, 90006)                                                01490403
      WRITE (I02, 90007)                                                01500403
      WRITE (I02, 90008)  ZVERS, ZVERSD                                 01510403
      WRITE (I02, 90009)  ZPROG, ZPROG                                  01520403
      WRITE (I02, 90010)  ZDATE, ZCOMPL                                 01530403
CBE** ********************** BBCHED0A **********************************01540403
C*****    HEADER FORMAT STATEMENT                                       01550403
2000  FORMAT ( // 2X,"FMTRW - (020) FORMATTED DATA TRANSFER" //2X,      01560403
     1"SUBSET REFS - 12.9.5.2   13.3   13.5.9   " )                     01570403
      WRITE (NUVI,2000)                                                 01580403
CBB** ********************** BBCHED0B **********************************01590403
C**** WRITE DETAIL REPORT HEADERS                                       01600403
C****                                                                   01610403
      WRITE (I02,90004)                                                 01620403
      WRITE (I02,90004)                                                 01630403
      WRITE (I02,90013)                                                 01640403
      WRITE (I02,90014)                                                 01650403
      WRITE (I02,90015) IVTOTL                                          01660403
CBE** ********************** BBCHED0B **********************************01670403
CT001*  TEST 1 -  FORMAT WITH DIGITS 0-9 IN H FIELDS                    01680403
      IVTNUM = 1                                                        01690403
      REMRKS = '2 COMPUTED LINES EXPECTED'                              01700403
      WRITE (I02,80004) IVTNUM, REMRKS                                  01710403
      WRITE (I02,80020)                                                 01720403
      WRITE (I02,70010)                                                 01730403
70010 FORMAT (25X,"  10101010101010101010" ,"999999999","88888888"/27X, 01740403
     1"7777777","666666","55555","4444","333","22","1")                 01750403
      IVINSP = IVINSP + 1                                               01760403
      WRITE (I02,70011)                                                 01770403
70011 FORMAT(" ",16X,"CORRECT:  " ,22X,"CORRESPONDING LINE MUST MATCH" )01780403
      WRITE (I02,70012)                                                 01790403
70012 FORMAT (25X,'  1010101010101010101099999999988888888',            01800403
     1        /25X,'  7777777666666555554444333221         ')           01810403
CT002*  TEST 2 -  FORMAT  CONTAINING ALL LETTERS (A-Z) IN H FIELDS AND  01820403
C*****            A VARIABLE NUMBER OF BLANKS IN H AND X FIELDS         01830403
      IVTNUM = 2                                                        01840403
      REMRKS = '9 COMPUTED LINES EXPECTED'                              01850403
      WRITE (I02,80004) IVTNUM, REMRKS                                  01860403
      WRITE (I02,80020)                                                 01870403
      WRITE (I02,70020)                                                 01880403
70020 FORMAT(27X,"AAA",5X,"     ","BBB",10X,"CCC"/28X,"DDD",9X,"EEE"    01890403
     1,"         ","FFF"/29X,"GGG",8X,"HHH","        ","III"/27X,"   "  01900403
     2,"JJJ","       ","KKK",7X,"LLL"/31X,"MMM",6X,"NNN","      ","OOO"/01910403
     3 32X,"PPP","     ","QQQ",5X,"RRR"/33X,"SSS",4X,"TTT","    ","UUU"/01920403
     4                                                             27X, 01930403
     5 "       VVV   ","WWW",3X,"XXX"/37X,"YYY",3X,"ZZZ")               01940403
      IVINSP = IVINSP + 1                                               01950403
      WRITE (I02,70011)                                                 01960403
      WRITE (I02,70021)                                                 01970403
70021 FORMAT (27X,'AAA          BBB          CCC',                      01980403
     1       /27X,' DDD         EEE         FFF ',                      01990403
     2       /27X,'  GGG        HHH        III  ',                      02000403
     3       /27X,'   JJJ       KKK       LLL   ',                      02010403
     4       /27X,'    MMM      NNN      OOO    ',                      02020403
     5       /27X,'     PPP     QQQ     RRR     ',                      02030403
     6       /27X,'      SSS    TTT    UUU      ',                      02040403
     7       /27X,'       VVV   WWW   XXX       ',                      02050403
     8       /27X,'          YYY   ZZZ          ')                      02060403
CT003*  TEST 3 - FORMAT CONTAINING H FIELD WITH ALL POSSIBLE            02070403
C*****           SPECIAL CHARACTERS                                     02080403
      IVTNUM = 3                                                        02090403
      WRITE (I02,80004) IVTNUM                                          02100403
      WRITE (I02,80020)                                                 02110403
      WRITE (I02,70030)                                                 02120403
70030 FORMAT (25X,"  = + - * / ( ) , . '" )                             02130403
      IVINSP = IVINSP + 1                                               02140403
      WRITE (I02,80022)                                                 02150403
      WRITE (I02,70031)                                                 02160403
70031 FORMAT (25X,  '  = + - * / ( ) , . ''')                           02170403
C*****  FORMAT  TO TEST VERTICAL SPACING                                02180403
C*****                                                       12.9.5.2.3 02190403
CT004*  TEST 4 - FORMAT STATEMENT ENDING WITH ONE SLASH DESCRIPTOR      02200403
      IVTNUM = 4                                                        02210403
      REMRKS = 'SLASH DESCRIPTOR'                                       02220403
      WRITE (I02,80004) IVTNUM, REMRKS                                  02230403
      WRITE (I02,70040)                                                 02240403
70040 FORMAT(15X,                            "  FORMAT( '   SKIP 1 LINE'02250403
     1  /)" /)                                                          02260403
      IVINSP = IVINSP + 1                                               02270403
      WRITE (I02,70041)                                                 02280403
70041 FORMAT(17X,"ONE BLANK LINE SHOULD APPEAR ABOVE" )                 02290403
C  ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS                             02300403
      WRITE (I02,90002)                                                 02310403
      WRITE (I02,90013)                                                 02320403
      WRITE (I02,90014)                                                 02330403
CT005*  TEST 5 - FORMAT STATEMENT ENDING WITH TWO SLASH DESCRIPTORS     02340403
      IVTNUM = 5                                                        02350403
      WRITE (I02,80004) IVTNUM                                          02360403
      WRITE (I02,70050)                                                 02370403
70050 FORMAT(15X,"  FORMAT('   SKIP 2 LINES'   //)"  //)                02380403
      IVINSP = IVINSP + 1                                               02390403
      WRITE (I02,70051)                                                 02400403
70051 FORMAT(17X,"TWO BLANK LINES SHOULD APPEAR ABOVE" )                02410403
CT006*  TEST 6 - FORMAT STATEMENT ENDING WITH THREE SLASH DESCRIPTORS   02420403
      IVTNUM = 6                                                        02430403
      WRITE (I02,80004) IVTNUM                                          02440403
      WRITE (I02,70060)                                                 02450403
70060 FORMAT(15X,"  FORMAT('   SKIP 3 LINES '  ///)"  ///)              02460403
      IVINSP = IVINSP + 1                                               02470403
      WRITE (I02,70061)                                                 02480403
70061 FORMAT(17X,"THREE BLANK LINES SHOULD APPEAR ABOVE" )              02490403
CT007*  TEST 7 - FORMAT STATEMENT CONTAINING IMBEDDED SLASH DESCRIPTORS 02500403
      IVTNUM = 7                                                        02510403
      REMRKS = 'IMBEDDED SLASHES'                                       02520403
      WRITE (I02,80004) IVTNUM, REMRKS                                  02530403
      WRITE (I02,70070)                                                 02540403
70070 FORMAT( 17X,"1 BLANK LINE SHOULD APPEAR BELOW"  //                02550403
     1        17X,"2 BLANK LINES SHOULD APPEAR BELOW" ///               02560403
     2        17X,"3 BLANK LINES SHOULD APPEAR BELOW" / 3(/),           02570403
     3        17X,"0 BLANK LINES SHOULD APPEAR BELOW" /                 02580403
     4        17X,"END IMBEDDED SLASHES TEST        " )                 02590403
      IVINSP = IVINSP + 1                                               02600403
CT008*  TEST 8 - FORMS CONTROL USING '0' FOR DOUBLE SPACING             02610403
      IVTNUM = 8                                                        02620403
      REMRKS = 'DOUBLE SPACE'                                           02630403
      WRITE (I02,80004) IVTNUM, REMRKS                                  02640403
      WRITE (I02,70080)                                                 02650403
70080 FORMAT( 17X,"1 BLANK LINE SHOULD APPEAR BELOW " / "0",            02660403
     1        17X,"END DOUBLE SPACE TEST            " )                 02670403
      IVINSP = IVINSP + 1                                               02680403
CT009*  TEST 9 - FORMS CONTROL USING '+' FOR OVERPRINTING               02690403
      IVTNUM = 9                                                        02700403
      REMRKS = 'OVERPRINT'                                              02710403
      WRITE (I02,80004) IVTNUM, REMRKS                                  02720403
      WRITE (I02,70090)                                                 02730403
70090 FORMAT(/17X,"!FIRST PRINT LINE!     OVER" ,/"+",                  02740403
     1        17X,"                    P R I N T  !SECOND PRINT LINE!" )02750403
      IVINSP = IVINSP + 1                                               02760403
CT010*  TEST 10 - FORMS CONTROL USING '1' FOR PAGE EJECTION             02770403
      IVTNUM = 10                                                       02780403
      REMRKS = 'PAGE ADVANCE'                                           02790403
      WRITE (I02,80004) IVTNUM, REMRKS                                  02800403
      WRITE (I02,70100)                                                 02810403
70100 FORMAT(/17X,"THIS SHOULD BE THE LAST LINE ON THIS PAGE" /,        02820403
     1"1                NEW PAGE:  END OF VERTICAL SPACING TESTS" )     02830403
      IVINSP = IVINSP + 1                                               02840403
C  WRITE PAGE HEADERS                                                   02850403
      WRITE (I02,90004)                                                 02860403
      WRITE (I02,90013)                                                 02870403
      WRITE (I02,90014)                                                 02880403
C*****    FORMATTED DATA TRANSFER I/O STATEMENTS WITH INTEGER  12.8.1   02890403
C*****    VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST. (THE    12.8.2   02900403
C*****    NUMBER OF ITEMS IN THE LIST IS VARIABLE.) SOME       13.2.1   02910403
C*****    FORMAT STATEMENTS CONTAIN REPEATED FIELDS.                    02920403
C*****    FORMATS CONTAIN I EDIT DESCRIPTORS.                  13.5.9.1 02930403
C*****    FIELD WIDTHS ARE FROM 1 TO 5 DIGITS.                 13.3     02940403
C*****  INPUT CARD   1                                                  02950403
2009  FORMAT (2X,I3)                                                    02960403
      READ (IRVI,2009) JACVI                                            02970403
C*****  INPUT CARD   2                                                  02980403
2010  FORMAT (1X,I5,1X,I4)                                              02990403
      READ (IRVI,2010) KBCVI, IAC1I(1)                                  03000403
C*****  INPUT CARD   3                                                  03010403
2011  FORMAT (2X,I3,2X,3I2,2X,I1)                                       03020403
      READ (IRVI,2011) IAC2I(1,2), LCCVI, IAC1I(5), IHDVI, MCA3I(1,2,3) 03030403
C*****  INPUT CARD   4                                                  03040403
2012  FORMAT (2X,2(I3),1(I5), 4I2 ,5I1,3 I4 )                           03050403
      READ (IRVI,2012) MDCVI, IAC2I(2,2), IAC1I(4), NECVI, IAC1I(3),    03060403
     1     IAC2I(2,3), IAC2I(2,1), MRRVI, IGDVI, KGVI, IEDVI, IAC2I(1,1)03070403
     2     ,IAC1I(2), IAC2I(2,7), MCA3I(2,1,3)                          03080403
CT011*  TEST 11 - I CONVERSION                                          03090403
      IVTNUM = 11                                                       03100403
      WRITE (I02,80004) IVTNUM                                          03110403
      WRITE (I02,80020)                                                 03120403
      WRITE (I02,70110) JACVI                                           03130403
70110 FORMAT (25X,I5)                                                   03140403
      IVINSP = IVINSP + 1                                               03150403
      WRITE (I02,80022)                                                 03160403
      WRITE (I02,70111)                                                 03170403
70111 FORMAT (25X,"  999")                                              03180403
CT012*  TEST 12 - I CONVERSION                                          03190403
      IVTNUM = 12                                                       03200403
      WRITE (I02,80004) IVTNUM                                          03210403
      WRITE (I02,80020)                                                 03220403
      WRITE (I02,70120) KBCVI, IAC1I(1)                                 03230403
70120 FORMAT (26X,I5,1X,I4)                                             03240403
      IVINSP = IVINSP + 1                                               03250403
      WRITE (I02,80022)                                                 03260403
      WRITE (I02,70121)                                                 03270403
70121 FORMAT (26X," 5555 4444" )                                        03280403
CT013*  TEST 13 - I CONVERSION                                          03290403
      IVTNUM = 13                                                       03300403
      WRITE (I02,80004) IVTNUM                                          03310403
      WRITE (I02,80020)                                                 03320403
      WRITE (I02,70130) IAC2I(1,2),LCCVI, IAC1I(5), IHDVI, MCA3I(1,2,3) 03330403
70130 FORMAT (27X,I3,2X,3I2,2X,I1)                                      03340403
      IVINSP = IVINSP + 1                                               03350403
      WRITE (I02,80022)                                                 03360403
      WRITE (I02,70131)                                                 03370403
70131 FORMAT (27X,"666  777777  8" )                                    03380403
CT014*  TEST 14 - I CONVERSION                                          03390403
      IVTNUM = 14                                                       03400403
      WRITE (I02,80004) IVTNUM                                          03410403
      WRITE (I02,80020)                                                 03420403
      WRITE (I02,70140)                                                 03430403
      WRITE (I02,70140) MDCVI, IAC2I(2,2), IAC1I(4), NECVI, IAC1I(3),   03440403
     1     IAC2I(2,3), IAC2I(2,1), MRRVI, IGDVI, KGVI, IEDVI, IAC2I(1,1)03450403
     2     ,IAC1I(2), IAC2I(2,7), MCA3I(2,1,3)                          03460403
70140 FORMAT (27X,2(I3),1(I5), 4I2 ,5I1,3 I4 )                          03470403
      IVINSP = IVINSP + 1                                               03480403
      WRITE (I02,80022)                                                 03490403
      WRITE (I02,70141)                                                 03500403
70141 FORMAT (27X,"333333111112222222255555444444444444" )              03510403
C*****    FORMATTED DATA TRANSFER I/O STATEMENTS WITH REAL       12.8.1 03520403
C*****    VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST.(THE       12.8.2 03530403
C*****    NUMBER OF ITEMS IN THE LIST IS VARIABLE.) ONLY F     13.5.9.2 03540403
C*****    EDIT DESCRIPTORS ARE USED IN THE FORMAT            13.5.9.2.1 03550403
C*****    STATEMENTS.  SOME F EDIT DESCRIPTORS ARE REPEATED.       13.3 03560403
C*****    FIELD WIDTH ALWAYS CONTAINS 1 POSITION FOR DECIMAL PT.        03570403
C*****    FIELD WIDTH IS FROM 1 TO 7 DIGITS. PLACEMENT OF               03580403
C*****    DECIMAL POINT IS VARIABLE. SOME F FIELDS ARE                  03590403
C*****    REPEATED                                                      03600403
C*****  INPUT CARD   5                                                  03610403
2018  FORMAT (2X,F3.1,F8.1)                                             03620403
      READ (IRVI,2018) ACVS, CMAVS                                      03630403
C*****  INPUT CARD   6                                                  03640403
2019  FORMAT(2X,F4.2,F5.3,F8.6)                                         03650403
      READ (IRVI,2019) A1S(2), BCVS, CMBVS                              03660403
C*****  INPUT CARD   7                                                  03670403
2020  FORMAT (2X,F6.4,F7.5,4F4.1,F5.1)                                  03680403
      READ (IRVI,2020) HHCVS, CMCVS, GGCVS, FFCVS, A1S(1), AC1S(25),    03690403
     1    AC2S(4,1)                                                     03700403
C*****  INPUT CARD   8                                                  03710403
2021  FORMAT (2X,2(F6.1),2X,2F7.1  ,2X,F5.2)                            03720403
      READ (IRVI,2021) AC1S(18), AC1S(7), AC2S(4,4) , AC1S(8), AC1S(10) 03730403
C*****  INPUT CARD   9                                                  03740403
2022  FORMAT (2X,5(F3.1),F7.3,3F5.3  )                                  03750403
      READ (IRVI,2022) AC2S(3,3) , AC2S(5,1), CCVS, AC1S(12), DCVS,     03760403
     1    AC1S(13), AC1S(5), A3S(1,1,2), AC2S(3,5)                      03770403
CT015*  TEST 15 - F CONVERSION                                          03780403
      IVTNUM = 15                                                       03790403
      WRITE (I02,80004) IVTNUM                                          03800403
      WRITE (I02,80020)                                                 03810403
      WRITE (I02,70150) ACVS, CMAVS                                     03820403
70150 FORMAT (27X,F3.1,F8.1)                                            03830403
      IVINSP = IVINSP + 1                                               03840403
      WRITE (I02,80022)                                                 03850403
      WRITE (I02,70151)                                                 03860403
70151 FORMAT (27X,"7.7123456.7" )                                       03870403
CT016*  TEST 16 - F CONVERSION                                          03880403
      IVTNUM = 16                                                       03890403
      WRITE (I02,80004) IVTNUM                                          03900403
      WRITE (I02,80020)                                                 03910403
      WRITE (I02,70160) A1S(2), BCVS, CMBVS                             03920403
70160 FORMAT(27X,F4.2,F5.3,F8.6)                                        03930403
      IVINSP = IVINSP + 1                                               03940403
      WRITE (I02,80022)                                                 03950403
      WRITE (I02,70161)                                                 03960403
70161 FORMAT (27X,"8.889.9997.123456" )                                 03970403
CT017*  TEST 17 - F CONVERSION                                          03980403
      IVTNUM = 17                                                       03990403
      WRITE (I02,80004) IVTNUM                                          04000403
      WRITE (I02,80020)                                                 04010403
      WRITE (I02,70170) HHCVS,CMCVS, GGCVS, FFCVS, A1S(1), AC1S(25)     04020403
     1    ,AC2S(4,1)                                                    04030403
70170 FORMAT (27X,F6.4,F7.5,4F4.1,F5.1)                                 04040403
      IVINSP = IVINSP + 1                                               04050403
      WRITE (I02,80022)                                                 04060403
      WRITE (I02,70171)                                                 04070403
70171 FORMAT (27X,"5.44446.5555533.133.133.133.1444.1" )                04080403
CT018*  TEST 18 - F CONVERSION                                          04090403
      IVTNUM = 18                                                       04100403
      WRITE (I02,80004) IVTNUM                                          04110403
      WRITE (I02,80020)                                                 04120403
      WRITE (I02,70180) AC1S(18),AC1S(7), AC2S(4,4) , AC1S(8), AC1S(10) 04130403
70180 FORMAT (27X,2(F6.1),2X,2F7.1  ,2X,F5.2)                           04140403
      IVINSP = IVINSP + 1                                               04150403
      WRITE (I02,80022)                                                 04160403
      WRITE (I02,70181)                                                 04170403
70181 FORMAT (27X,"5555.15555.1  66666.166666.1  44.22"  )              04180403
CT019*  TEST 19 - F CONVERSION                                          04190403
      IVTNUM = 19                                                       04200403
      WRITE (I02,80004) IVTNUM                                          04210403
      WRITE (I02,80020)                                                 04220403
      WRITE (I02,70190) AC2S(3,3) , AC2S(5,1), CCVS, AC1S(12), DCVS,    04230403
     1    AC1S(13), AC1S(5),  A3S(1,1,2), AC2S(3,5)                     04240403
70190  FORMAT (27X,5(F3.1),F7.3,3F5.3  )                                04250403
      IVINSP = IVINSP + 1                                               04260403
      WRITE (I02,80022)                                                 04270403
      WRITE (I02,70191)                                                 04280403
70191 FORMAT (27X,"2.12.12.12.12.1666.3334.3334.3334.333" )             04290403
C*****    FORMATTED DATA TRANSFER I/O STATEMENTS WITH REAL       12.8.1 04300403
C*****    VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST.           12.8.2 04310403
C*****    E EDIT DESCRIPTORS ARE USED IN THE FORMAT            13.5.9.2 04320403
C*****    STATEMENTS. SOME E EDIT DESCRIPTORS ARE REPEATED   13.5.9.2.2 04330403
C*****    (FIELD WIDTH ALWAYS INCLUDES 6 EXTRA POSITIONS                04340403
C*****    TO PROVIDE FOR SIGN, DECIMAL POINT AND EXPONENT.       13.5.9 04350403
C*****    PROVISION IS ALWAYS MADE FOR THE DIGIT ZERO        13.5.9.2.1 04360403
C*****    BEFORE THE DECIMAL POINT)                                     04370403
C*****    THE NUMBER OF DECIMAL PLACES VARIES FROM 1                    04380403
C*****    TO 7 DIGITS.                                                  04390403
C*****  INPUT CARD  10                                                  04400403
2029  FORMAT (E8.1,E9.2,E10.3,E11.4,E12.5,E13.6,E14.7)                  04410403
      READ (IRVI,2029) AVS, BVS, EP1S(5), AC2S(1,5), CVS, AC2S(5,4),    04420403
     1      A3S(2,1,2)                                                  04430403
CT020*  TEST 20 - E CONVERSION                                          04440403
      IVTNUM = 20                                                       04450403
      REMRKS = 'LEADING PLUS SIGN/ZERO OPTIONAL'                        04460403
      WRITE (I02,80004) IVTNUM, REMRKS                                  04470403
      WRITE (I02,80020)                                                 04480403
      WRITE (I02,70200) AVS, BVS                                        04490403
70200 FORMAT (27X,E8.1,2X,E9.2)                                         04500403
      IVINSP = IVINSP + 1                                               04510403
      WRITE (I02,70201)                                                 04520403
70201 FORMAT (" ",16X,"CORRECT:  " ,22X,"2 CORRECT ANSWERS POSSIBLE" )  04530403
      WRITE (I02,70202)                                                 04540403
70202 FORMAT (27X,"-0.1E+01  +0.22E-01" /                               04550403
     1        27X,"-0.1+001  +0.22-001" )                               04560403
C  ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS                             04570403
      WRITE (I02,90002)                                                 04580403
      WRITE (I02,90013)                                                 04590403
      WRITE (I02,90014)                                                 04600403
CT021*  TEST 21 - E CONVERSION                                          04610403
      IVTNUM = 21                                                       04620403
      WRITE (I02,80004) IVTNUM, REMRKS                                  04630403
      WRITE (I02,80020)                                                 04640403
      WRITE (I02,70210) EP1S(5), AC2S(1,5)                              04650403
70210 FORMAT (27X,E10.3,2X,E11.4)                                       04660403
      IVINSP = IVINSP + 1                                               04670403
      WRITE (I02,70201)                                                 04680403
      WRITE (I02,70211)                                                 04690403
70211 FORMAT (27X,"+0.333E+02  +0.4444E+03" /                           04700403
     1        27X,"+0.333+002  +0.4444+003" )                           04710403
CT022*  TEST 22 - E CONVERSION                                          04720403
      IVTNUM = 22                                                       04730403
      WRITE (I02,80004) IVTNUM, REMRKS                                  04740403
      WRITE (I02,80020)                                                 04750403
      WRITE (I02,70220) CVS, AC2S(5,4)                                  04760403
70220 FORMAT (27X,E12.5,2X,E13.6)                                       04770403
      IVINSP = IVINSP + 1                                               04780403
      WRITE (I02,70201)                                                 04790403
      WRITE (I02,70221)                                                 04800403
70221 FORMAT (27X,"-0.55555E-03  +0.666666E+00" /                       04810403
     1        27X,"-0.55555-003  +0.666666+000" )                       04820403
CT023*  TEST 23 - E CONVERSION                                          04830403
      IVTNUM = 23                                                       04840403
      WRITE (I02,80004) IVTNUM, REMRKS                                  04850403
      WRITE (I02,80020)                                                 04860403
      WRITE (I02,70230) A3S(2,1,2)                                      04870403
70230 FORMAT (27X,E14.7)                                                04880403
      IVINSP = IVINSP + 1                                               04890403
      WRITE (I02,70201)                                                 04900403
      WRITE (I02,70231)                                                 04910403
70231 FORMAT (27X,"+0.9876543E+12" /                                    04920403
     1        27X,"+0.9876543+012" )                                    04930403
C*****    FORMATTED DATA TRANSFER I/O STATEMENTS WITH LOGICAL   12.8.2  04940403
C*****    VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST           13.5.10 04950403
C*****    SOME L EDIT DESCRIPTORS ARE REPEATED.                         04960403
C*****    L EDIT DESCRIPTORS ARE USED IN THE FORMAT STATEMENTS   13.2.1 04970403
C*****  INPUT CARD   11                                                 04980403
2033  FORMAT (L4)                                                       04990403
      READ (IRVI,2033) A2B(2,1)                                         05000403
C*****  INPUT CARD   12                                                 05010403
2034  FORMAT ( 2L4, L3, L2, L3, L6, L7)                                 05020403
      READ (IRVI,2034) MCA1B(1), MCBVB, A2B(1,1), A3B(1,1,1), CVB,      05030403
     1     DVB, A3B(1,2,1)                                              05040403
CT024*  TEST 24 - L CONVERSION                                          05050403
      IVTNUM = 24                                                       05060403
      WRITE (I02,80004) IVTNUM                                          05070403
      WRITE (I02,80020)                                                 05080403
      WRITE (I02,70240) A2B(2,1), MCA1B(1), MCBVB, A2B(1,1), A3B(1,1,1),05090403
     1     CVB, DVB, A3B(1,2,1)                                         05100403
70240 FORMAT (24X, 3(L4), L3, L2, L3,                                   05110403
     1  2(L1))                                                          05120403
      IVINSP = IVINSP + 1                                               05130403
      WRITE (I02,80022)                                                 05140403
      WRITE (I02,70241)                                                 05150403
70241 FORMAT (27X,"T   F   F  T T  FTF" )                               05160403
C*****        FORMATTED DATA TRANSFER STATEMENTS WITH ARRAY    12.8.2   05170403
C*****        NAMES OF SEVERAL TYPES IN AN I/O LIST. THE       12.9.5.2 05180403
C*****        NUMBER OF ITEMS IN THE LIST IS VARIABLE. SOME    13.2.1   05190403
C*****        EDIT DESCRIPTORS ARE REPEATED.                            05200403
C*****        OPTIONAL COMMA BEFORE AND AFTER A SLASH                   05210403
C*****  INPUT CARDS  13, 14                                             05220403
2037  FORMAT(2X,4(F4.1)/5(I2))                                          05230403
      READ (IRVI,2037) A2S, MCA1I                                       05240403
C*****  INPUT CARDS  15, 16                                             05250403
2038  FORMAT(27(F2.1)/5(L1),5L1)                                        05260403
      READ (IRVI,2038)  A3S, A1B, A3B                                   05270403
C*****  INPUT CARDS  17, 18                                             05280403
2039  FORMAT (2X,2(I2,I2),/,2(2(I2,I2)),2(L1,L1),2(F3.1,F3.1),F3.1)     05290403
      READ (IRVI,2039) I2I, I3I, A2B, CMA1S                             05300403
CT025*  TEST 25 THRU 28 - UNSUBSCRIPTED ARRAY NAME IN I/O LISTS         05310403
      WRITE (I02,70250) A2S, MCA1I, A3S, A1B                            05320403
70250 FORMAT ("    25    INSPECT" /" ",16X,"COMPUTED: " /27X,4(F4.1)/   05330403
     1" ",16X,"CORRECT:  " /27X,"-9.9-9.9-9.9-9.9" / "    26    INSPECT"05340403
     2/" ",16X,"COMPUTED: " /27X,5(I2)/" ",16X,"CORRECT:  " /27X,       05350403
     3"9999999999" /"    27    INSPECT" ,32X,"LEADING PLUS SIGN/ZERO " ,05360403
     4"OPTIONAL"/" ",16X,"COMPUTED: " ,22X,"3 COMPUTED LINES EXPECTED"  05370403
     5/27X,3(3(F4.1))/27X,2(2(F4.1,F4.1)),F4.1/27X,9F4.1/" ",16X,       05380403
     6"CORRECT:  " ,22X,"EACH RESULT LINE SHOULD EQUAL" /               05390403
     7        27X," 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9" /              05400403
     8        "    28    INSPECT" /" ",16X,"COMPUTED: " /27X,2L1/       05410403
     9        " ",16X,"CORRECT:  " /27X,"TF")                           05420403
      IVINSP = IVINSP + 4                                               05430403
C  ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS                             05440403
      WRITE (I02,90002)                                                 05450403
      WRITE (I02,90013)                                                 05460403
      WRITE (I02,90014)                                                 05470403
CT029*  TEST 29 THRU 33 - UNSUBSCRIPTED ARRAY NAMES IN I/O LISTS        05480403
      WRITE (I02,70290) A3B, I2I, I3I, A2B, CMA1S                       05490403
70290 FORMAT ("    29    INSPECT" /" ",16X,"COMPUTED: " /27X,8(L1)/" ", 05500403
     116X,"CORRECT:  " /27X,"TFTFTFTF"/"    30    INSPECT" /" ",16X,    05510403
     2"COMPUTED: " /27X,4(I2)/" ",16X,"CORRECT:  " /27X,"99999999"/     05520403
     3 "    31    INSPECT"/" ",16X,"COMPUTED: " /27X,8(I2)/" ",16X,     05530403
     4"CORRECT:  " /27X,"9999999999999999" /"    32    INSPECT" /" ",   05540403
     516X,"COMPUTED: " /27X,4(L1)/" ",16X,"CORRECT:  " /27X,"TFFT"/     05550403
     6 "    33    INSPECT"/" ",16X,"COMPUTED: " /27X,5(F3.1)/           05560403
     7        " ",16X,"CORRECT:  " ,/,                                  05570403
     8        27X,"9.99.99.99.99.9" )                                   05580403
      IVINSP = IVINSP + 5                                               05590403
CT034*  TEST 34 - FORMATTED DATA TRANSFER STATEMENT TO TEST     13.5.10 05600403
C*****            THAT OPTIONAL BLANKS MAY PRECEDE A LOGICAL INPUT FIELD05610403
C*****  INPUT CARD   19                                                 05620403
70340 FORMAT ( L6, L4, L10, L5)                                         05630403
      READ (IRVI,70340) AVB, MCA1B(2), A2B(1,2), A3B(2,1,2)             05640403
      IVTNUM = 34                                                       05650403
      REMRKS = 'LEADING BLANKS ARE REQUIRED'                            05660403
      WRITE (I02,80004) IVTNUM, REMRKS                                  05670403
      WRITE (I02,80020)                                                 05680403
      WRITE (I02,70341) AVB, MCA1B(2), A2B(1,2), A3B(2,1,2)             05690403
70341 FORMAT (27X,L6, L4, L10, L5)                                      05700403
      IVINSP = IVINSP + 1                                               05710403
      WRITE (I02,80022)                                                 05720403
      WRITE (I02,70342)                                                 05730403
70342 FORMAT (27X,"     T   F         T    F" )                         05740403
CT035*  TEST 35                                                         05750403
C*****    FORMATTED DATA TRANSFER TO TEST F EDIT DESCRIPTORS 13.5.9.2.1 05760403
C*****    WHERE D IS EQUAL TO ZERO                                      05770403
C*****  INPUT CARD   20                                                 05780403
70350 FORMAT (2X, F3.0, F5.0, F5.5, F1.0)                               05790403
      READ (IRVI,70350) AVS, BVS, CVS, DVS                              05800403
      IVTNUM = 35                                                       05810403
      WRITE (I02,80004) IVTNUM                                          05820403
      WRITE (I02,80020)                                                 05830403
      WRITE (I02,70351) AVS, BVS                                        05840403
70351 FORMAT (27X,F4.0,4X,F5.0)                                         05850403
      IVINSP = IVINSP + 1                                               05860403
      WRITE (I02,80022)                                                 05870403
      WRITE (I02,70352)                                                 05880403
70352 FORMAT (27X,"333.",4X,"4444.")                                    05890403
CT036*  TEST 36                                                         05900403
C*****    FORMATTED DATA TRANSFER TO TEST F EDIT DESCRIPTORS 13.5.9.2.1 05910403
C*****    WHERE W EQUALS D+1 AND WHERE D IS EQUAL TO ZERO        13.2.1 05920403
      IVTNUM = 36                                                       05930403
      WRITE (I02,80004) IVTNUM                                          05940403
      WRITE (I02,80020)                                                 05950403
      WRITE (I02,70360) CVS, DVS                                        05960403
70360 FORMAT (27X,F6.5,2X,F2.0)                                         05970403
      IVINSP = IVINSP + 1                                               05980403
      WRITE (I02,80022)                                                 05990403
      WRITE (I02,70361)                                                 06000403
70361 FORMAT (27X,".55555  0." )                                        06010403
CT037*  TEST 37                                                         06020403
C*****    FORMATTED WRITES TO TEST THAT LEADING BLANKS           13.5.9 06030403
C*****    ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT              06040403
C*****    PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE              06050403
C*****    I EDIT DESCRIPTORS                                            06060403
      IVTNUM = 37                                                       06070403
      WRITE (I02,80004) IVTNUM, REMRKS                                  06080403
      WRITE (I02,80020)                                                 06090403
      WRITE (I02,70370) MCA3I(1,2,3)                                    06100403
70370 FORMAT (27X,I3)                                                   06110403
      IVINSP = IVINSP + 1                                               06120403
      WRITE (I02,80022)                                                 06130403
      WRITE (I02,70371)                                                 06140403
70371 FORMAT (27X,"  8")                                                06150403
CT038*  TEST 38                                                         06160403
C*****    FORMATTED WRITES TO TEST THAT LEADING BLANKS           13.5.9 06170403
C*****    ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT              06180403
C*****    PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE              06190403
C*****    I EDIT DESCRIPTORS                                            06200403
      IVTNUM = 38                                                       06210403
      WRITE (I02,80004) IVTNUM, REMRKS                                  06220403
      WRITE (I02,80020)                                                 06230403
      WRITE (I02,70380) IAC1I(3)                                        06240403
70380 FORMAT (27X,I4)                                                   06250403
      IVINSP = IVINSP + 1                                               06260403
      WRITE (I02,80022)                                                 06270403
      WRITE (I02,70381)                                                 06280403
70381 FORMAT (27X,"  22")                                               06290403
CT039*  TEST 39                                                         06300403
C*****    FORMATTED WRITES TO TEST THAT LEADING BLANKS           13.5.9 06310403
C*****    ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT              06320403
C*****    PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE              06330403
C*****    I EDIT DESCRIPTORS                                            06340403
      IVTNUM = 39                                                       06350403
      WRITE (I02,80004) IVTNUM, REMRKS                                  06360403
      WRITE (I02,80020)                                                 06370403
      WRITE (I02,70390) NECVI                                           06380403
70390 FORMAT (27X,I5)                                                   06390403
      IVINSP = IVINSP + 1                                               06400403
      WRITE (I02,80022)                                                 06410403
      WRITE (I02,70391)                                                 06420403
70391 FORMAT (27X,"   22")                                              06430403
C  ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS                             06440403
      WRITE (I02,90002)                                                 06450403
      WRITE (I02,90013)                                                 06460403
      WRITE (I02,90014)                                                 06470403
CT040*  TEST 40                                                         06480403
C*****    FORMATTED WRITES TO TEST THAT LEADING BLANKS           13.5.9 06490403
C*****    ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT              06500403
C*****    PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE              06510403
C*****    I EDIT DESCRIPTORS                                            06520403
      IVTNUM = 40                                                       06530403
      WRITE (I02,80004) IVTNUM, REMRKS                                  06540403
      WRITE (I02,80020)                                                 06550403
      WRITE (I02,70400) IAC1I(3)                                        06560403
70400 FORMAT (27X,I6)                                                   06570403
      IVINSP = IVINSP + 1                                               06580403
      WRITE (I02,80022)                                                 06590403
      WRITE (I02,70401)                                                 06600403
70401 FORMAT (27X,"    22")                                             06610403
CT041*  TEST 41                                                         06620403
C*****    FORMATTED WRITES TO TEST THAT LEADING BLANKS           13.5.9 06630403
C*****    ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT              06640403
C*****    PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE              06650403
C*****    I EDIT DESCRIPTORS                                            06660403
      IVTNUM = 41                                                       06670403
      WRITE (I02,80004) IVTNUM, REMRKS                                  06680403
      WRITE (I02,80020)                                                 06690403
      WRITE (I02,70410) IAC2I(2,3)                                      06700403
70410 FORMAT (27X,I7)                                                   06710403
      IVINSP = IVINSP + 1                                               06720403
      WRITE (I02,80022)                                                 06730403
      WRITE (I02,70411)                                                 06740403
70411 FORMAT (27X,"     22")                                            06750403
CT042*  TEST 42                                                         06760403
C*****    FORMATTED WRITES TO TEST THAT LEADING BLANKS           13.5.9 06770403
C*****    ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT              06780403
C*****    PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE              06790403
C*****    F EDIT DESCRIPTORS                                            06800403
      IVTNUM = 42                                                       06810403
      WRITE (I02,80004) IVTNUM, REMRKS                                  06820403
      WRITE (I02,80020)                                                 06830403
      WRITE (I02,70420) ACVS                                            06840403
70420 FORMAT (27X,F5.1)                                                 06850403
      IVINSP = IVINSP + 1                                               06860403
      WRITE (I02,80022)                                                 06870403
      WRITE (I02,70421)                                                 06880403
70421 FORMAT (27X,"  7.7")                                              06890403
CT043*  TEST 43                                                         06900403
CT043*  TEST 43 - FORMATTED WRITES TO TEST THAT LEADING BLANKS   13.5.9 06910403
C*****            ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT      06920403
C*****            PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE      06930403
C*****            F EDIT DESCRIPTORS                                    06940403
      IVTNUM = 43                                                       06950403
      WRITE (I02,80004) IVTNUM, REMRKS                                  06960403
      WRITE (I02,80020)                                                 06970403
      WRITE (I02,70430) A1S(2)                                          06980403
70430 FORMAT (27X,F7.2)                                                 06990403
      IVINSP = IVINSP + 1                                               07000403
      WRITE (I02,80022)                                                 07010403
      WRITE (I02,70431)                                                 07020403
70431 FORMAT (27X,"   8.88")                                            07030403
CT044*  TEST 44 - FORMATTED WRITES TO TEST THAT LEADING BLANKS   13.5.9 07040403
C*****            ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT      07050403
C*****            PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE      07060403
C*****            F EDIT DESCRIPTORS                                    07070403
      IVTNUM = 44                                                       07080403
      WRITE (I02,80004) IVTNUM, REMRKS                                  07090403
      WRITE (I02,80020)                                                 07100403
      WRITE (I02,70440) BCVS                                            07110403
70440 FORMAT (27X,F9.3)                                                 07120403
      IVINSP = IVINSP + 1                                               07130403
      WRITE (I02,80022)                                                 07140403
      WRITE (I02,70441)                                                 07150403
70441 FORMAT (27X,"    9.999")                                          07160403
CT045*  TEST 45                                                         07170403
C*****    FORMATTED WRITES TO TEST THAT LEADING BLANKS           13.5.9 07180403
C*****    ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT              07190403
C*****    PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE              07200403
C*****    F EDIT DESCRIPTORS                                            07210403
      IVTNUM = 45                                                       07220403
      WRITE (I02,80004) IVTNUM, REMRKS                                  07230403
      WRITE (I02,80020)                                                 07240403
      WRITE (I02,70450) HHCVS                                           07250403
70450 FORMAT (27X,F11.4)                                                07260403
      IVINSP = IVINSP + 1                                               07270403
      WRITE (I02,80022)                                                 07280403
      WRITE (I02,70451)                                                 07290403
70451 FORMAT (27X,"     5.4444" )                                       07300403
CT046*  TEST 46                                                         07310403
C*****    FORMATTED WRITES TO TEST THAT LEADING BLANKS           13.5.9 07320403
C*****    ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT              07330403
C*****    PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE              07340403
C*****    F EDIT DESCRIPTORS                                            07350403
      IVTNUM = 46                                                       07360403
      WRITE (I02,80004) IVTNUM, REMRKS                                  07370403
      WRITE (I02,80020)                                                 07380403
      WRITE (I02,70460) CMCVS                                           07390403
70460 FORMAT (27X,F13.5)                                                07400403
      IVINSP = IVINSP + 1                                               07410403
      WRITE (I02,80022)                                                 07420403
      WRITE (I02,70461)                                                 07430403
70461 FORMAT (27X,"      6.55555" )                                     07440403
CT047*  TEST 47                                                         07450403
C*****    FORMATTED WRITES TO TEST THAT LEADING BLANKS           13.5.9 07460403
C*****    ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT              07470403
C*****    PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE              07480403
C*****    F EDIT DESCRIPTORS                                            07490403
      IVTNUM = 47                                                       07500403
      WRITE (I02,80004) IVTNUM, REMRKS                                  07510403
      WRITE (I02,80020)                                                 07520403
      WRITE (I02,70470) CMBVS                                           07530403
70470 FORMAT (27X,F15.6)                                                07540403
      IVINSP = IVINSP + 1                                               07550403
      WRITE (I02,80022)                                                 07560403
      WRITE (I02,70471)                                                 07570403
70471 FORMAT (27X,"       7.123456" )                                   07580403
CT048*  TEST 48                                                         07590403
C*****    FORMATTED WRITES TO TEST THAT LEADING BLANKS           13.5.9 07600403
C*****    ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT              07610403
C*****    PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE              07620403
C*****    E EDIT DESCRIPTORS                                            07630403
      IVTNUM = 48                                                       07640403
      WRITE (I02,80004) IVTNUM, REMRKS                                  07650403
      WRITE (I02,80020)                                                 07660403
      WRITE (I02,70480) DCVS                                            07670403
70480 FORMAT (27X,E10.2)                                                07680403
      IVINSP = IVINSP + 1                                               07690403
      WRITE (I02,70201)                                                 07700403
      WRITE (I02,70481)                                                 07710403
70481 FORMAT (27X,"  0.21E+01" /                                        07720403
     1        27X,"  0.21+001" )                                        07730403
CT049*  TEST 49                                                         07740403
C*****    FORMATTED WRITES TO TEST THAT LEADING BLANKS           13.5.9 07750403
C*****    ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT              07760403
C*****    PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE              07770403
C*****    E EDIT DESCRIPTORS                                            07780403
      IVTNUM = 49                                                       07790403
      WRITE (I02,80004) IVTNUM, REMRKS                                  07800403
      WRITE (I02,80020)                                                 07810403
      WRITE (I02,70490) AC1S(25)                                        07820403
70490 FORMAT (27X,E12.3)                                                07830403
      IVINSP = IVINSP + 1                                               07840403
      WRITE (I02,70201)                                                 07850403
      WRITE (I02,70491)                                                 07860403
70491 FORMAT (27X,"   0.331E+02" /                                      07870403
     1        27X,"   0.331+002" )                                      07880403
C  ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS                             07890403
      WRITE (I02,90002)                                                 07900403
      WRITE (I02,90013)                                                 07910403
      WRITE (I02,90014)                                                 07920403
CT050*  TEST 50                                                         07930403
C*****    FORMATTED WRITES TO TEST THAT LEADING BLANKS           13.5.9 07940403
C*****    ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT              07950403
C*****    PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE              07960403
C*****    E EDIT DESCRIPTORS                                            07970403
      IVTNUM = 50                                                       07980403
      WRITE (I02,80004) IVTNUM, REMRKS                                  07990403
      WRITE (I02,80020)                                                 08000403
      WRITE (I02,70500) AC2S(4,1)                                       08010403
70500 FORMAT (27X,E14.4)                                                08020403
      IVINSP = IVINSP + 1                                               08030403
      WRITE (I02,70201)                                                 08040403
      WRITE (I02,70501)                                                 08050403
70501 FORMAT (27X,"    0.4441E+03" /                                    08060403
     1        27X,"    0.4441+003" )                                    08070403
CT051*  TEST 51                                                         08080403
C*****    FORMATTED WRITES TO TEST THAT LEADING BLANKS           13.5.9 08090403
C*****    ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT              08100403
C*****    PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE              08110403
C*****    E EDIT DESCRIPTORS                                            08120403
      IVTNUM = 51                                                       08130403
      WRITE (I02,80004) IVTNUM, REMRKS                                  08140403
      WRITE (I02,80020)                                                 08150403
      WRITE (I02,70510) AC1S(7)                                         08160403
70510 FORMAT (27X,E16.5)                                                08170403
      IVINSP = IVINSP + 1                                               08180403
      WRITE (I02,70201)                                                 08190403
      WRITE (I02,70511)                                                 08200403
70511 FORMAT (27X,"     0.55551E+04" /                                  08210403
     1        27X,"     0.55551+004" )                                  08220403
CT052*  TEST 52                                                         08230403
C*****    FORMATTED WRITES TO TEST THAT LEADING BLANKS           13.5.9 08240403
C*****    ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT              08250403
C*****    PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE              08260403
C*****    E EDIT DESCRIPTORS                                            08270403
      IVTNUM = 52                                                       08280403
      WRITE (I02,80004) IVTNUM, REMRKS                                  08290403
      WRITE (I02,80020)                                                 08300403
      WRITE (I02,70520) AC1S(8)                                         08310403
70520 FORMAT (27X,E18.6)                                                08320403
      IVINSP = IVINSP + 1                                               08330403
      WRITE (I02,70201)                                                 08340403
      WRITE (I02,70521)                                                 08350403
70521 FORMAT (27X,"      0.666661E+05" /                                08360403
     1        27X,"      0.666661+005" )                                08370403
CT053*  TEST 53                                                         08380403
C*****    FORMATTED WRITES TO TEST THAT LEADING BLANKS           13.5.9 08390403
C*****    ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT              08400403
C*****    PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE              08410403
C*****    E EDIT DESCRIPTORS                                            08420403
      IVTNUM = 53                                                       08430403
      WRITE (I02,80004) IVTNUM, REMRKS                                  08440403
      WRITE (I02,80020)                                                 08450403
      WRITE (I02,70530) CMAVS                                           08460403
70530 FORMAT (27X,E20.7)                                                08470403
      IVINSP = IVINSP + 1                                               08480403
      WRITE (I02,70201)                                                 08490403
      WRITE (I02,70531)                                                 08500403
70531 FORMAT (27X,"       0.1234567E+06" /                              08510403
     1        27X,"       0.1234567+006" )                              08520403
CT054*  TEST 54                                                         08530403
C*****    SCALE FACTOR APPLIED TO F AND E EDIT DESCRIPTORS              08540403
C*****    ON READ, BUT NOT ON WRITE                                     08550403
C*****  INPUT CARD   21                                                 08560403
2050  FORMAT(2PF8.3,-2PE9.4,F9.4,0PF9.4,9X,-2PE9.4,F9.4)                08570403
      READ(IRVI,2050)EP1S(16),EP1S(17),EP1S(18), EP1S(19),              08580403
     1   EP1S(20),EP1S(22)                                              08590403
      IVTNUM = 54                                                       08600403
      WRITE (I02,80004) IVTNUM, REMRKS                                  08610403
      WRITE (I02,80020)                                                 08620403
      WRITE (I02,70540) EP1S(16),EP1S(17),EP1S(18)                      08630403
70540 FORMAT (27X,F12.4, E12.4, F12.2)                                  08640403
      IVINSP = IVINSP + 1                                               08650403
      WRITE (I02,70201)                                                 08660403
      WRITE (I02,70541)                                                 08670403
70541 FORMAT (27X,"     98.7654  0.9877E+04   987654.00" /              08680403
     1        27X,"              0.9877+004            " )              08690403
CT055*  TEST 55                                                         08700403
C*****    SCALE FACTOR APPLIED TO F AND E EDIT DESCRIPTORS              08710403
C*****    ON READ, BUT NOT ON WRITE                                     08720403
      IVTNUM = 55                                                       08730403
      WRITE (I02,80004) IVTNUM, REMRKS                                  08740403
      WRITE (I02,80020)                                                 08750403
      WRITE (I02,70550) EP1S(19),EP1S(20),EP1S(22)                      08760403
70550 FORMAT( 27X,F12.3, E12.4,F12.3 )                                  08770403
      IVINSP = IVINSP + 1                                               08780403
      WRITE (I02,70201)                                                 08790403
      WRITE (I02,70551)                                                 08800403
70552      FORMAT (" ",48X,"   OR")                                     08800403
           WRITE (I02,70552)                                            08800403
70553      FORMAT (27X,"     987.654  0.8648E+04    8647.859" /         08800403
     1     27X,"              0.8648+004            " )                 08800403
           WRITE (I02,70553)                                            08800403
           WRITE (I02,90004)                                            08800403
70551 FORMAT (27X,"     987.654  0.8648E+04    8647.860" /              08810403
     1        27X,"              0.8648+004            " )              08820403
CT056*  TEST 56                                                         08830403
C*****    SCALE FACTOR APPLIED TO  F AND E EDIT  DESCRIPTORS            08840403
C*****    ON WRITE, BUT, NOT ON READ                                    08850403
C*****  INPUT CARD   22                                                 08860403
2053  FORMAT(F8.2,E9.4,F9.2,F9.3,9X,E9.4,F9.4)                          08870403
      READ(IRVI,2053) AC1S(1),AC1S(2),AC1S(3),AC1S(4),                  08880403
     1  AC1S(20),AC1S(23)                                               08890403
       IVTNUM = 56                                                      08900403
      WRITE (I02,80004) IVTNUM, REMRKS                                  08910403
      WRITE (I02,80020)                                                 08920403
      WRITE (I02,70560) AC1S(1),AC1S(2),AC1S(3)                         08930403
70560 FORMAT (27X,2PF12.2, -2PE12.4,F12.4)                              08940403
      IVINSP = IVINSP + 1                                               08950403
      WRITE (I02,70201)                                                 08960403
      WRITE (I02,70561)                                                 08970403
70561 FORMAT (27X,"      987.66  0.0099E+06     98.7654" /              08980403
     1        27X,"              0.0099+006            " )              08990403
CT057*  TEST 57 - SCALE FACTOR APPLIED TO  F AND E EDIT  DESCRIPTORS    09000403
C*****            ON WRITE, BUT, NOT ON READ                            09010403
      IVTNUM = 57                                                       09020403
      WRITE (I02,80004) IVTNUM, REMRKS                                  09030403
      WRITE (I02,80020)                                                 09040403
      WRITE (I02,70570) AC1S(4), AC1S(20),AC1S(23)                      09050403
70570 FORMAT (27X,1PE12.2,   -2PE12.4,  2PF12.2 )                       09060403
      IVINSP = IVINSP + 1                                               09070403
      WRITE (I02,70201)                                                 09080403
      WRITE (I02,70571)                                                 09090403
70571 FORMAT (27X,"    9.88E+02  0.0086E+06     8647.86" /              09100403
     1        27X,"    9.88+002  0.0086+006            " )              09110403
CT058*  TEST 58 - I/O FORMAT RESCAN                                     09120403
C*****  INPUT CARDS  23, 24, 25                                         09130403
2055  FORMAT( I1,I2,I3)                                                 09140403
      READ(IRVI,2055) I2I,IAC1I                                         09150403
      IVTNUM = 58                                                       09160403
      REMRKS = '3 COMPUTED LINES EXPECTED'                              09170403
      WRITE (I02,80004) IVTNUM, REMRKS                                  09180403
      WRITE (I02,80020)                                                 09190403
      WRITE(I02,70580) I2I(1,1),I2I(2,1),I2I(1,2),I2I(2,2),IAC1I        09200403
70580 FORMAT (27X,I4,I5,I6)                                             09210403
      IVINSP = IVINSP + 1                                               09220403
      WRITE (I02,70011)                                                 09230403
      WRITE (I02,70581)                                                 09240403
70581 FORMAT (27X,"   1   22   333" /                                   09250403
     1        27X,"   4   55   666" /                                   09260403
     2        27X,"   7   88   999" )                                   09270403
C  ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS                             09280403
      WRITE (I02,90002)                                                 09290403
      WRITE (I02,90013)                                                 09300403
      WRITE (I02,90014)                                                 09310403
C*****  INPUT CARDS  26, 27                                             09320403
2058  FORMAT(I4, 2(I1,1X,I2))                                           09330403
      READ( IRVI,2058) I2I, IAC1I                                       09340403
CT059*  TEST 59 - I/O FORMAT RESCAN                                     09350403
      IVTNUM = 59                                                       09360403
      REMRKS = '2 COMPUTED LINES EXPECTED'                              09370403
      WRITE (I02,80004) IVTNUM, REMRKS                                  09380403
      WRITE (I02,80020)                                                 09390403
      WRITE( I02,70590) I2I(2,1),I2I(2,2),IAC1I(2),IAC1I(4)             09400403
70590 FORMAT (27X,I4," **",1(27X,I4," ''",(I4," ((")))                  09410403
      IVINSP = IVINSP + 1                                               09420403
      WRITE (I02,70011)                                                 09430403
      WRITE (I02,70591)                                                 09440403
70591 FORMAT(27X,"   2 **",30X,"4 ''   6 ((" ,/                         09450403
     1       27X,"   8 ''")                                             09460403
CBB** ********************** BBCSUM0  **********************************09470403
C**** WRITE OUT TEST SUMMARY                                            09480403
C****                                                                   09490403
      IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP                        09500403
      WRITE (I02, 90004)                                                09510403
      WRITE (I02, 90014)                                                09520403
      WRITE (I02, 90004)                                                09530403
      WRITE (I02, 90020) IVPASS                                         09540403
      WRITE (I02, 90022) IVFAIL                                         09550403
      WRITE (I02, 90024) IVDELE                                         09560403
      WRITE (I02, 90026) IVINSP                                         09570403
      WRITE (I02, 90028) IVTOTN, IVTOTL                                 09580403
CBE** ********************** BBCSUM0  **********************************09590403
CBB** ********************** BBCFOOT0 **********************************09600403
C**** WRITE OUT REPORT FOOTINGS                                         09610403
C****                                                                   09620403
      WRITE (I02,90016) ZPROG, ZPROG                                    09630403
      WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED                     09640403
      WRITE (I02,90019)                                                 09650403
CBE** ********************** BBCFOOT0 **********************************09660403
CBB** ********************** BBCFMT0A **********************************09670403
C**** FORMATS FOR TEST DETAIL LINES                                     09680403
C****                                                                   09690403
80000 FORMAT (" ",2X,I3,4X,"DELETED",32X,A31)                           09700403
80002 FORMAT (" ",2X,I3,4X," PASS  ",32X,A31)                           09710403
80004 FORMAT (" ",2X,I3,4X,"INSPECT",32X,A31)                           09720403
80008 FORMAT (" ",2X,I3,4X," FAIL  ",32X,A31)                           09730403
80010 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",15X,"COMPUTED= " ,           09740403
     1I6,/," ",15X,"CORRECT=  " ,I6)                                    09750403
80012 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           09760403
     1E12.5,/," ",16X,"CORRECT=  " ,E12.5)                              09770403
80018 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           09780403
     1A21,/," ",16X,"CORRECT=  " ,A21)                                  09790403
80020 FORMAT (" ",16X,"COMPUTED= " ,A21,1X,A31)                         09800403
80022 FORMAT (" ",16X,"CORRECT=  " ,A21,1X,A31)                         09810403
80024 FORMAT (" ",16X,"COMPUTED= " ,I6,16X,A31)                         09820403
80026 FORMAT (" ",16X,"CORRECT=  " ,I6,16X,A31)                         09830403
80028 FORMAT (" ",16X,"COMPUTED= " ,E12.5,10X,A31)                      09840403
80030 FORMAT (" ",16X,"CORRECT=  " ,E12.5,10X,A31)                      09850403
80050 FORMAT (" ",48X,A31)                                              09860403
CBE** ********************** BBCFMT0A **********************************09870403
CBB** ********************** BBCFMT0B **********************************09880403
C**** FORMAT STATEMENTS FOR PAGE HEADERS                                09890403
C****                                                                   09900403
90002 FORMAT ("1")                                                      09910403
90004 FORMAT (" ")                                                      09920403
90006 FORMAT (" ",20X,"NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY" )09930403
90007 FORMAT (" ",19X,"FORTRAN COMPILER VALIDATION SYSTEM" )            09940403
90008 FORMAT (" ",21X,A13,A17)                                          09950403
90009 FORMAT (" ",/," *",A5,"BEGIN*",12X,"TEST RESULTS - " ,A5,/)       09960403
90010 FORMAT (" ",8X,"TEST DATE*TIME= " ,A17,"  -  COMPILER= " ,A20)    09970403
90013 FORMAT (" "," TEST   ","PASS/FAIL " ,6X,"DISPLAYED RESULTS" ,     09980403
     1       7X,"REMARKS",24X)                                          09990403
90014 FORMAT (" ","----------------------------------------------" ,    10000403
     1        "---------------------------------" )                     10010403
90015 FORMAT (" ",48X,"THIS PROGRAM HAS " ,I3," TESTS",/)               10020403
C****                                                                   10030403
C**** FORMAT STATEMENTS FOR REPORT FOOTINGS                             10040403
C****                                                                   10050403
90016 FORMAT (" ",/," *",A5,"END*",14X,"END OF TEST - " ,A5,/)          10060403
90018 FORMAT (" ",A13,13X,A20,"   *   ",A10,"/",                        10070403
     1        A13)                                                      10080403
90019 FORMAT (" ","FOR OFFICIAL USE ONLY     " ,35X,"COPYRIGHT  1982" ) 10090403
C****                                                                   10100403
C**** FORMAT STATEMENTS FOR RUN SUMMARY                                 10110403
C****                                                                   10120403
90020 FORMAT (" ",21X,I5," TESTS PASSED" )                              10130403
90022 FORMAT (" ",21X,I5," TESTS FAILED" )                              10140403
90024 FORMAT (" ",21X,I5," TESTS DELETED" )                             10150403
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" )                  10160403
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" )                  10170403
CBE** ********************** BBCFMT0B **********************************10180403
C*****                                                                  10190403
C*****    END OF TEST SEGMENT 020                                       10200403
      STOP                                                              10210403
      END                                                               10220403
                                                                        10230403
                                                                        10240403