FM833.f Source File


Contents

Source Code


Source Code

      PROGRAM FM833

C***********************************************************************00010833
C*****  FORTRAN 77                                                      00020833
C*****   FM833                                                          00030833
C*****                       YGEN6 - (211)                              00040833
C*****                                                                  00050833
C***********************************************************************00060833
C*****  GENERAL PURPOSE                                         ANS REF 00070833
C*****      TEST GENERIC FUNCTIONS                               15.3   00080833
C*****       SPECIFIC AND GENERIC NAME OF SAME FUNCTION WITH    TABLE 5 00090833
C*****       SAME TYPE OF ARGUMENT IN A STATEMENT                       00100833
C*****                                                                  00110833
CBB** ********************** BBCCOMNT **********************************00120833
C****                                                                   00130833
C****            1978 FORTRAN COMPILER VALIDATION SYSTEM                00140833
C****                          VERSION 2.1                              00150833
C****                                                                   00160833
C****                                                                   00170833
C****           SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO         00180833
C****          NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY           00190833
C****               SOFTWARE STANDARDS VALIDATION GROUP                 00200833
C****                      BUILDING 225  RM A266                        00210833
C****                     GAITHERSBURG, MD  20899                       00220833
C****                                                                   00230833
C****                                                                   00240833
C****                                                                   00250833
CBE** ********************** BBCCOMNT **********************************00260833
C*****                                                                  00270833
C*****  S P E C I F I C A T I O N S  SEGMENT 211                        00280833
        DOUBLE PRECISION AVD, BVD, CVD, DVCORR                          00290833
        COMPLEX AVC, BVC, ZVCORR                                        00300833
        REAL R2E(2)                                                     00310833
        EQUIVALENCE (AVC, R2E)                                          00320833
C*****                                                                  00330833
CBB** ********************** BBCINITA **********************************00340833
C**** SPECIFICATION STATEMENTS                                          00350833
C****                                                                   00360833
      CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20,      00370833
     1          ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13      00380833
CBE** ********************** BBCINITA **********************************00390833
CBB** ********************** BBCINITB **********************************00400833
C**** INITIALIZE SECTION                                                00410833
      DATA  ZVERS,                  ZVERSD,             ZDATE           00420833
     1      /'VERSION 2.1  ',  '93/10/21*21.02.00',  '*NO DATE*TIME'/   00430833
      DATA       ZCOMPL,             ZNAME,             ZTAPE           00440833
     1      /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/      00450833
      DATA       ZPROJ,           ZTAPED,         ZPROG                 00460833
     1      /'*NO PROJECT*',   '*NO TAPE DATE',  'XXXXX'/               00470833
      DATA   REMRKS /'                               '/                 00480833
C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED   00490833
C**** FOR IDENTIFYING THE TEST ENVIRONMENT                              00500833
C****                                                                   00510833
CZ01  ZVERS  = 'VERSION OF THE COMPILER VALIDATION SYSTEM'              00520833
CZ02  ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM'   00530833
CZ03  ZPROG  = 'PROGRAM NAME'                                           00540833
CZ04  ZDATE  = 'DATE OF TEST'                                           00550833
CZ05  ZCOMPL = 'COMPILER IDENTIFICATION'                                00560833
CZ06  ZPROJ  = 'PROJECT NUMBER/IDENTIFICATION'                          00570833
CZ07  ZNAME  = 'NAME OF USER'                                           00580833
CZ08  ZTAPE  = 'TAPE OWNER/ID'                                          00590833
CZ09  ZTAPED = 'DATE TAPE COPIED'                                       00600833
C                                                                       00610833
      IVPASS = 0                                                        00620833
      IVFAIL = 0                                                        00630833
      IVDELE = 0                                                        00640833
      IVINSP = 0                                                        00650833
      IVTOTL = 0                                                        00660833
      IVTOTN = 0                                                        00670833
      ICZERO = 0                                                        00680833
C                                                                       00690833
C     I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER.         00700833
      I01 = 05                                                          00710833
C     I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER.             00720833
      I02 = 06                                                          00730833
C                                                                       00740833
CX010   REPLACED BY FEXEC X-010 CONTROL CARD (CARD-READER UNIT NUMBER). 00750833
C     THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5      00760833
CX011   REPLACED BY FEXEC X-011 CONTROL CARD.  CX011 IS FOR SYSTEMS     00770833
C     REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010.  00780833
C                                                                       00790833
CX020   REPLACED BY FEXEC X-020 CONTROL CARD (PRINTER UNIT NUMBER).     00800833
C     THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6       00810833
CX021   REPLACED BY FEXEC X-021 CONTROL CARD.  CX021 IS FOR SYSTEMS     00820833
C     REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020.  00830833
C                                                                       00840833
CBE** ********************** BBCINITB **********************************00850833
      NUVI = I02                                                        00860833
      IVTOTL = 11                                                       00870833
      ZPROG = 'FM833'                                                   00880833
CBB** ********************** BBCHED0A **********************************00890833
C****                                                                   00900833
C**** WRITE REPORT TITLE                                                00910833
C****                                                                   00920833
      WRITE (I02, 90002)                                                00930833
      WRITE (I02, 90006)                                                00940833
      WRITE (I02, 90007)                                                00950833
      WRITE (I02, 90008)  ZVERS, ZVERSD                                 00960833
      WRITE (I02, 90009)  ZPROG, ZPROG                                  00970833
      WRITE (I02, 90010)  ZDATE, ZCOMPL                                 00980833
CBE** ********************** BBCHED0A **********************************00990833
C*****                                                                  01000833
C*****    HEADER FOR SEGMENT 211                                        01010833
        WRITE(NUVI,21100)                                               01020833
21100   FORMAT( " ", /  " YGEN6 - (211) GENERIC FUNCTIONS --" //        01030833
     1  "  SPECIFIC AND GENERIC NAME OF SAME FUNCTION IN A STATEMENT" //01040833
     2  "  ANS REF. - 15.3" )                                           01050833
CBB** ********************** BBCHED0B **********************************01060833
C**** WRITE DETAIL REPORT HEADERS                                       01070833
C****                                                                   01080833
      WRITE (I02,90004)                                                 01090833
      WRITE (I02,90004)                                                 01100833
      WRITE (I02,90013)                                                 01110833
      WRITE (I02,90014)                                                 01120833
      WRITE (I02,90015) IVTOTL                                          01130833
CBE** ********************** BBCHED0B **********************************01140833
C*****                                                                  01150833
CT001*  TEST 1                      TEST OF ISIGN AND SIGN WITH INTEGER 01160833
           IVTNUM = 1                                                   01170833
        KVI = 5                                                         01180833
        JVI = -3                                                        01190833
        LVI = ISIGN(KVI, JVI) - SIGN(KVI, JVI)                          01200833
           IF (LVI -  0) 20010, 10010, 20010                            01210833
10010      IVPASS = IVPASS + 1                                          01220833
           WRITE (NUVI, 80002) IVTNUM                                   01230833
           GO TO 0011                                                   01240833
20010      IVFAIL = IVFAIL + 1                                          01250833
           IVCORR =     0                                               01260833
           WRITE (NUVI, 80010) IVTNUM, LVI, IVCORR                      01270833
 0011      CONTINUE                                                     01280833
CT002*  TEST 2                         TEST OF AMAX1 AND MAX WITH REALS 01290833
           IVTNUM = 2                                                   01300833
        BVS = 2.5                                                       01310833
        CVS = 3.5                                                       01320833
        AVS = AMAX1(BVS, CVS) - MAX(BVS, CVS)                           01330833
           IF (AVS + 0.50000E-04) 20020, 10020, 40020                   01340833
40020      IF (AVS - 0.50000E-04) 10020, 10020, 20020                   01350833
10020      IVPASS = IVPASS + 1                                          01360833
           WRITE (NUVI, 80002) IVTNUM                                   01370833
           GO TO 0021                                                   01380833
20020      IVFAIL = IVFAIL + 1                                          01390833
           RVCORR = 0.0000                                              01400833
           WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR                      01410833
 0021      CONTINUE                                                     01420833
CT003*  TEST 3                    TEST OF DEXP AND EXP WITH DOUBLE PREC 01430833
           IVTNUM = 3                                                   01440833
        BVD = 1.0D0                                                     01450833
        AVD = DEXP(BVD) - EXP(BVD)                                      01460833
           IF (AVD + 0.5000000000D-09) 20030, 10030, 40030              01470833
40030      IF (AVD - 0.5000000000D-09) 10030, 10030, 20030              01480833
10030      IVPASS = IVPASS + 1                                          01490833
           WRITE (NUVI, 80002) IVTNUM                                   01500833
           GO TO 0031                                                   01510833
20030      IVFAIL = IVFAIL + 1                                          01520833
           DVCORR = 0.00000000D+00                                      01530833
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      01540833
 0031      CONTINUE                                                     01550833
CT004*  TEST 4                  TEST OF DTANH AND TANH WITH DOUBLE PREC 01560833
           IVTNUM = 4                                                   01570833
        BVD = 0.5D0                                                     01580833
        AVD = DTANH(BVD) - TANH(BVD)                                    01590833
           IF (AVD + 0.5000000000D-09) 20040, 10040, 40040              01600833
40040      IF (AVD - 0.5000000000D-09) 10040, 10040, 20040              01610833
10040      IVPASS = IVPASS + 1                                          01620833
           WRITE (NUVI, 80002) IVTNUM                                   01630833
           GO TO 0041                                                   01640833
20040      IVFAIL = IVFAIL + 1                                          01650833
           DVCORR = 0.00000000D+00                                      01660833
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      01670833
 0041      CONTINUE                                                     01680833
CT005*  TEST 5                  TEST OF DASIN AND ASIN WITH DOUBLE PREC 01690833
           IVTNUM = 5                                                   01700833
        BVD = -1.0D0                                                    01710833
        AVD = DASIN(BVD) - ASIN(BVD)                                    01720833
           IF (AVD + 0.5000000000D-09) 20050, 10050, 40050              01730833
40050      IF (AVD - 0.5000000000D-09) 10050, 10050, 20050              01740833
10050      IVPASS = IVPASS + 1                                          01750833
           WRITE (NUVI, 80002) IVTNUM                                   01760833
           GO TO 0051                                                   01770833
20050      IVFAIL = IVFAIL + 1                                          01780833
           DVCORR = 0.00000000D+00                                      01790833
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      01800833
 0051      CONTINUE                                                     01810833
CT006*  TEST 6                 TEST OF DNINT AND ANINT WITH DOUBLE PREC 01820833
           IVTNUM = 6                                                   01830833
        BVD = 2.75D0                                                    01840833
        AVD = DNINT(BVD) - ANINT(BVD)                                   01850833
           IF (AVD + 0.5000000000D-09) 20060, 10060, 40060              01860833
40060      IF (AVD - 0.5000000000D-09) 10060, 10060, 20060              01870833
10060      IVPASS = IVPASS + 1                                          01880833
           WRITE (NUVI, 80002) IVTNUM                                   01890833
           GO TO 0061                                                   01900833
20060      IVFAIL = IVFAIL + 1                                          01910833
           DVCORR = 0.00000000D+00                                      01920833
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      01930833
 0061      CONTINUE                                                     01940833
CT007*  TEST 7                    TEST OF DMOD AND MOD WITH DOUBLE PREC 01950833
           IVTNUM = 7                                                   01960833
        BVD = 6.0D0                                                     01970833
        CVD = 3.0D0                                                     01980833
        AVD = DMOD(BVD, CVD) - MOD(BVD, CVD)                            01990833
           IF (AVD + 0.5000000000D-09) 20070, 10070, 40070              02000833
40070      IF (AVD - 0.5000000000D-09) 10070, 10070, 20070              02010833
10070      IVPASS = IVPASS + 1                                          02020833
           WRITE (NUVI, 80002) IVTNUM                                   02030833
           GO TO 0071                                                   02040833
20070      IVFAIL = IVFAIL + 1                                          02050833
           DVCORR = 0.00000000D+00                                      02060833
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      02070833
 0071      CONTINUE                                                     02080833
CT008*  TEST 8                        TEST OF CABS AND ABS WITH COMPLEX 02090833
           IVTNUM = 8                                                   02100833
        BVC = (4.0, 3.0)                                                02110833
        AVC = CABS(BVC) - ABS(BVC)                                      02120833
           IF (R2E(1) + 0.50000E-04) 20080, 40082, 40081                02130833
40081      IF (R2E(1) - 0.50000E-04) 40082, 40082, 20080                02140833
40082      IF (R2E(2) + 0.50000E-04) 20080, 10080, 40080                02150833
40080      IF (R2E(2) - 0.50000E-04) 10080, 10080, 20080                02160833
10080      IVPASS = IVPASS + 1                                          02170833
           WRITE (NUVI, 80002) IVTNUM                                   02180833
           GO TO 0081                                                   02190833
20080      IVFAIL = IVFAIL + 1                                          02200833
           ZVCORR = ( 0.0000,  0.0000)                                  02210833
           WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR                      02220833
 0081      CONTINUE                                                     02230833
CT009*  TEST 9                      TEST OF CSQRT AND SQRT WITH COMPLEX 02240833
           IVTNUM = 9                                                   02250833
        BVC = (3.0, 4.0)                                                02260833
        AVC = CSQRT(BVC) - SQRT(BVC)                                    02270833
           IF (R2E(1) + 0.50000E-04) 20090, 40092, 40091                02280833
40091      IF (R2E(1) - 0.50000E-04) 40092, 40092, 20090                02290833
40092      IF (R2E(2) + 0.50000E-04) 20090, 10090, 40090                02300833
40090      IF (R2E(2) - 0.50000E-04) 10090, 10090, 20090                02310833
10090      IVPASS = IVPASS + 1                                          02320833
           WRITE (NUVI, 80002) IVTNUM                                   02330833
           GO TO 0091                                                   02340833
20090      IVFAIL = IVFAIL + 1                                          02350833
           ZVCORR = ( 0.0000,  0.0000)                                  02360833
           WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR                      02370833
 0091      CONTINUE                                                     02380833
CT010*  TEST 10                       TEST OF CLOG AND LOG WITH COMPLEX 02390833
           IVTNUM = 10                                                  02400833
        BVC = (1.0, 0.0)                                                02410833
        AVC = CLOG(BVC) - LOG(BVC)                                      02420833
           IF (R2E(1) + 0.50000E-04) 20100, 40102, 40101                02430833
40101      IF (R2E(1) - 0.50000E-04) 40102, 40102, 20100                02440833
40102      IF (R2E(2) + 0.50000E-04) 20100, 10100, 40100                02450833
40100      IF (R2E(2) - 0.50000E-04) 10100, 10100, 20100                02460833
10100      IVPASS = IVPASS + 1                                          02470833
           WRITE (NUVI, 80002) IVTNUM                                   02480833
           GO TO 0101                                                   02490833
20100      IVFAIL = IVFAIL + 1                                          02500833
           ZVCORR = ( 0.0000,  0.0000)                                  02510833
           WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR                      02520833
 0101      CONTINUE                                                     02530833
CT011*  TEST 11                       TEST OF CSIN AND SIN WITH COMPLEX 02540833
           IVTNUM = 11                                                  02550833
         BVC = (1.5, 3.5)                                               02560833
         AVC = CSIN(BVC) - SIN(BVC)                                     02570833
            IF (R2E(1) + 0.50000E-04) 20110, 40112, 40111               02580833
40111       IF (R2E(1) - 0.50000E-04) 40112, 40112, 20110               02590833
40112       IF (R2E(2) + 0.50000E-04) 20110, 10110, 40110               02600833
40110       IF (R2E(2) - 0.50000E-04) 10110, 10110, 20110               02610833
10110       IVPASS = IVPASS + 1                                         02620833
            WRITE (NUVI, 80002) IVTNUM                                  02630833
            GO TO 0111                                                  02640833
20110       IVFAIL = IVFAIL + 1                                         02650833
            ZVCORR = ( 0.0000,  0.0000)                                 02660833
            WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR                     02670833
 0111       CONTINUE                                                    02680833
C*****                                                                  02690833
CBB** ********************** BBCSUM0  **********************************02700833
C**** WRITE OUT TEST SUMMARY                                            02710833
C****                                                                   02720833
      IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP                        02730833
      WRITE (I02, 90004)                                                02740833
      WRITE (I02, 90014)                                                02750833
      WRITE (I02, 90004)                                                02760833
      WRITE (I02, 90020) IVPASS                                         02770833
      WRITE (I02, 90022) IVFAIL                                         02780833
      WRITE (I02, 90024) IVDELE                                         02790833
      WRITE (I02, 90026) IVINSP                                         02800833
      WRITE (I02, 90028) IVTOTN, IVTOTL                                 02810833
CBE** ********************** BBCSUM0  **********************************02820833
CBB** ********************** BBCFOOT0 **********************************02830833
C**** WRITE OUT REPORT FOOTINGS                                         02840833
C****                                                                   02850833
      WRITE (I02,90016) ZPROG, ZPROG                                    02860833
      WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED                     02870833
      WRITE (I02,90019)                                                 02880833
CBE** ********************** BBCFOOT0 **********************************02890833
CBB** ********************** BBCFMT0A **********************************02900833
C**** FORMATS FOR TEST DETAIL LINES                                     02910833
C****                                                                   02920833
80000 FORMAT (" ",2X,I3,4X,"DELETED",32X,A31)                           02930833
80002 FORMAT (" ",2X,I3,4X," PASS  ",32X,A31)                           02940833
80004 FORMAT (" ",2X,I3,4X,"INSPECT",32X,A31)                           02950833
80008 FORMAT (" ",2X,I3,4X," FAIL  ",32X,A31)                           02960833
80010 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",15X,"COMPUTED= " ,           02970833
     1I6,/," ",15X,"CORRECT=  " ,I6)                                    02980833
80012 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           02990833
     1E12.5,/," ",16X,"CORRECT=  " ,E12.5)                              03000833
80018 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           03010833
     1A21,/," ",16X,"CORRECT=  " ,A21)                                  03020833
80020 FORMAT (" ",16X,"COMPUTED= " ,A21,1X,A31)                         03030833
80022 FORMAT (" ",16X,"CORRECT=  " ,A21,1X,A31)                         03040833
80024 FORMAT (" ",16X,"COMPUTED= " ,I6,16X,A31)                         03050833
80026 FORMAT (" ",16X,"CORRECT=  " ,I6,16X,A31)                         03060833
80028 FORMAT (" ",16X,"COMPUTED= " ,E12.5,10X,A31)                      03070833
80030 FORMAT (" ",16X,"CORRECT=  " ,E12.5,10X,A31)                      03080833
80050 FORMAT (" ",48X,A31)                                              03090833
CBE** ********************** BBCFMT0A **********************************03100833
CBB** ********************** BBCFMAT1 **********************************03110833
C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE                     03120833
C****                                                                   03130833
80031 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           03140833
     1D17.10,/," ",16X,"CORRECT=  " ,D17.10)                            03150833
80033 FORMAT (" ",16X,"COMPUTED= " ,D17.10,10X,A31)                     03160833
80035 FORMAT (" ",16X,"CORRECT=  " ,D17.10,10X,A31)                     03170833
80037 FORMAT (" ",16X,"COMPUTED= " ,"(",E12.5,", ",E12.5,")",6X,A31)    03180833
80039 FORMAT (" ",16X,"CORRECT=  " ,"(",E12.5,", ",E12.5,")",6X,A31)    03190833
80041 FORMAT (" ",16X,"COMPUTED= " ,"(",F12.5,", ",F12.5,")",6X,A31)    03200833
80043 FORMAT (" ",16X,"CORRECT=  " ,"(",F12.5,", ",F12.5,")",6X,A31)    03210833
80045 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           03220833
     1"(",F12.5,", ",F12.5,")"/," ",16X,"CORRECT=  " ,                  03230833
     2"(",F12.5,", ",F12.5,")")                                         03240833
CBE** ********************** BBCFMAT1 **********************************03250833
CBB** ********************** BBCFMT0B **********************************03260833
C**** FORMAT STATEMENTS FOR PAGE HEADERS                                03270833
C****                                                                   03280833
90002 FORMAT ("1")                                                      03290833
90004 FORMAT (" ")                                                      03300833
90006 FORMAT (" ",20X,"NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY" )03310833
90007 FORMAT (" ",19X,"FORTRAN COMPILER VALIDATION SYSTEM" )            03320833
90008 FORMAT (" ",21X,A13,A17)                                          03330833
90009 FORMAT (" ",/," *",A5,"BEGIN*",12X,"TEST RESULTS - " ,A5,/)       03340833
90010 FORMAT (" ",8X,"TEST DATE*TIME= " ,A17,"  -  COMPILER= " ,A20)    03350833
90013 FORMAT (" "," TEST   ","PASS/FAIL " ,6X,"DISPLAYED RESULTS" ,     03360833
     1       7X,"REMARKS",24X)                                          03370833
90014 FORMAT (" ","----------------------------------------------" ,    03380833
     1        "---------------------------------" )                     03390833
90015 FORMAT (" ",48X,"THIS PROGRAM HAS " ,I3," TESTS",/)               03400833
C****                                                                   03410833
C**** FORMAT STATEMENTS FOR REPORT FOOTINGS                             03420833
C****                                                                   03430833
90016 FORMAT (" ",/," *",A5,"END*",14X,"END OF TEST - " ,A5,/)          03440833
90018 FORMAT (" ",A13,13X,A20,"   *   ",A10,"/",                        03450833
     1        A13)                                                      03460833
90019 FORMAT (" ","FOR OFFICIAL USE ONLY     " ,35X,"COPYRIGHT  1982" ) 03470833
C****                                                                   03480833
C**** FORMAT STATEMENTS FOR RUN SUMMARY                                 03490833
C****                                                                   03500833
90020 FORMAT (" ",21X,I5," TESTS PASSED" )                              03510833
90022 FORMAT (" ",21X,I5," TESTS FAILED" )                              03520833
90024 FORMAT (" ",21X,I5," TESTS DELETED" )                             03530833
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" )                  03540833
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" )                  03550833
CBE** ********************** BBCFMT0B **********************************03560833
C*****                                                                  03570833
C*****    END OF TEST SEGMENT 211                                       03580833
      STOP                                                              03590833
      END                                                               03600833