![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM711.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests|
Return to FM711.f CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests |
1.1 ! root 1: PROGRAM FM711 00010711 ! 2: C DATE***82/08/02*18.33.46 ! 3: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/ ! 4: C AUDIT FCVS78 V2.0 ! 5: C 00020711 ! 6: C THIS ROUTINE TESTS ADJUSTABLE ARRAYS AND ADJUSTABLE ANS REF.00030711 ! 7: C DIMENSIONS, AND THE USE OF ARRAY 5.5.1 00040711 ! 8: C NAMES. 5.6 00050711 ! 9: C 00060711 ! 10: C THIS ROUTINE USES ROUTINES 712-714 AS SUBROUTINES. 00070711 ! 11: C 00080711 ! 12: CBB** ********************** BBCCOMNT **********************************00090711 ! 13: C**** 00100711 ! 14: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00110711 ! 15: C**** VERSION 2.0 00120711 ! 16: C**** 00130711 ! 17: C**** 00140711 ! 18: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00150711 ! 19: C**** GENERAL SERVICES ADMINISTRATION 00160711 ! 20: C**** FEDERAL SOFTWARE TESTING CENTER 00170711 ! 21: C**** 5203 LEESBURG PIKE, SUITE 1100 00180711 ! 22: C**** FALLS CHURCH, VA. 22041 00190711 ! 23: C**** 00200711 ! 24: C**** (703) 756-6153 00210711 ! 25: C**** 00220711 ! 26: CBE** ********************** BBCCOMNT **********************************00230711 ! 27: IMPLICIT DOUBLE PRECISION (D), COMPLEX (Z), LOGICAL (L) 00240711 ! 28: IMPLICIT CHARACTER*27 (C) 00250711 ! 29: CBB** ********************** BBCINITA **********************************00260711 ! 30: C**** SPECIFICATION STATEMENTS 00270711 ! 31: C**** 00280711 ! 32: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00290711 ! 33: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00300711 ! 34: CBE** ********************** BBCINITA **********************************00310711 ! 35: C 00320711 ! 36: INTEGER I2D001(3,5) 00330711 ! 37: CHARACTER CVCOMP*20,CVCORR*20,C1N001(3)*5,C1N002(4)*5,CVN001*10 00340711 ! 38: COMMON ICC001, ICC002 00350711 ! 39: DATA I2D001 / 11,21,31,12,22,32,13,23,33,14,24,34,15,25,35 / 00360711 ! 40: DATA C1N001 / '-3412', ' 108', '+9792' / 00370711 ! 41: DATA C1N002 / '(10HI', '/O TE', 'ST: ,', ' A10)' / 00380711 ! 42: C 00390711 ! 43: C 00400711 ! 44: CBB** ********************** BBCINITB **********************************00410711 ! 45: C**** INITIALIZE SECTION 00420711 ! 46: DATA ZVERS, ZVERSD, ZDATE 00430711 ! 47: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00440711 ! 48: DATA ZCOMPL, ZNAME, ZTAPE 00450711 ! 49: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00460711 ! 50: DATA ZPROJ, ZTAPED, ZPROG 00470711 ! 51: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00480711 ! 52: DATA REMRKS /' '/ 00490711 ! 53: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00500711 ! 54: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00510711 ! 55: C**** 00520711 ! 56: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00530711 ! 57: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00540711 ! 58: CZ03 ZPROG = 'PROGRAM NAME' 00550711 ! 59: ZDATE = '07-Nov-85 ' *RP ! 60: ZCOMPL = 'CCI 5.2 ' *RP ! 61: ZPROJ = 'TC-85- -410' *RP ! 62: ZNAME = ' ' *RP ! 63: ZTAPE = ' ' *RP ! 64: ZTAPED = '850703 ' *RP ! 65: C 00620711 ! 66: IVPASS = 0 00630711 ! 67: IVFAIL = 0 00640711 ! 68: IVDELE = 0 00650711 ! 69: IVINSP = 0 00660711 ! 70: IVTOTL = 0 00670711 ! 71: IVTOTN = 0 00680711 ! 72: ICZERO = 0 00690711 ! 73: C 00700711 ! 74: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00710711 ! 75: I01 = 05 00720711 ! 76: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00730711 ! 77: I02 = 06 00740711 ! 78: C 00750711 ! 79: I01 = 5 00760711 ! 80: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00770711 ! 81: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00780711 ! 82: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00790711 ! 83: C 00800711 ! 84: I02 = 6 00810711 ! 85: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00820711 ! 86: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00830711 ! 87: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00840711 ! 88: C 00850711 ! 89: CBE** ********************** BBCINITB **********************************00860711 ! 90: ZPROG='FM711' 00870711 ! 91: IVTOTL = 5 00880711 ! 92: CBB** ********************** BBCHED0A **********************************00890711 ! 93: C**** 00900711 ! 94: C**** WRITE REPORT TITLE 00910711 ! 95: C**** 00920711 ! 96: WRITE (I02, 90002) 00930711 ! 97: WRITE (I02, 90006) 00940711 ! 98: WRITE (I02, 90007) 00950711 ! 99: WRITE (I02, 90008) ZVERS, ZVERSD 00960711 ! 100: WRITE (I02, 90009) ZPROG, ZPROG 00970711 ! 101: WRITE (I02, 90010) ZDATE, ZCOMPL 00980711 ! 102: CBE** ********************** BBCHED0A **********************************00990711 ! 103: CBB** ********************** BBCHED0B **********************************01000711 ! 104: C**** WRITE DETAIL REPORT HEADERS 01010711 ! 105: C**** 01020711 ! 106: WRITE (I02,90004) 01030711 ! 107: WRITE (I02,90004) 01040711 ! 108: WRITE (I02,90013) 01050711 ! 109: WRITE (I02,90014) 01060711 ! 110: WRITE (I02,90015) IVTOTL 01070711 ! 111: CBE** ********************** BBCHED0B **********************************01080711 ! 112: ICC001 = 3 01090711 ! 113: ICC002 = 4 01100711 ! 114: C 01110711 ! 115: C TESTS 1-2 - TEST ADJUSTABLE ARRAYS WHERE THE LOWER AND/OR UPPER 01120711 ! 116: C BOUNDS ARE ARGUMENTS OF A SUBROUTINE OR IN COMMON. 01130711 ! 117: C 01140711 ! 118: C 01150711 ! 119: CT001* TEST 001 **** FCVS PROGRAM 711 **** 01160711 ! 120: C 01170711 ! 121: IVTNUM = 1 01180711 ! 122: IVCOMP = 0 01190711 ! 123: IVCORR = 24 01200711 ! 124: CALL SN712(3,5,I2D001,IVCOMP) 01210711 ! 125: 40010 IF (IVCOMP - 24) 20010, 10010, 20010 01220711 ! 126: 10010 IVPASS = IVPASS + 1 01230711 ! 127: WRITE (I02,80002) IVTNUM 01240711 ! 128: GO TO 0011 01250711 ! 129: 20010 IVFAIL = IVFAIL + 1 01260711 ! 130: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01270711 ! 131: 0011 CONTINUE 01280711 ! 132: C 01290711 ! 133: CT002* TEST 002 **** FCVS PROGRAM 711 **** 01300711 ! 134: C 01310711 ! 135: IVTNUM = 2 01320711 ! 136: IVCOMP = 0 01330711 ! 137: IVCORR = 113 01340711 ! 138: CALL SN713(1,I2D001,IVCOMP) 01350711 ! 139: 40020 IF (IVCOMP - 113) 20020, 10020, 20020 01360711 ! 140: 10020 IVPASS = IVPASS + 1 01370711 ! 141: WRITE (I02,80002) IVTNUM 01380711 ! 142: GO TO 0021 01390711 ! 143: 20020 IVFAIL = IVFAIL + 1 01400711 ! 144: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01410711 ! 145: 0021 CONTINUE 01420711 ! 146: C 01430711 ! 147: CT003* TEST 003 **** FCVS PROGRAM 711 **** 01440711 ! 148: C 01450711 ! 149: C TEST THE ABILITY TO USE AN ARRAY ELEMENT NAME 01460711 ! 150: C AS A UNIT IDENTIFIER FOR AN INTERNAL FILE 01470711 ! 151: C IN AN INPUT/OUTPUT STATEMENT 01480711 ! 152: C 01490711 ! 153: IVTNUM = 3 01500711 ! 154: IVCOMP = 0 01510711 ! 155: IVCORR = 9792 01520711 ! 156: READ (UNIT=C1N001(3),FMT=70010) IVCOMP 01530711 ! 157: 70010 FORMAT (I5) 01540711 ! 158: 40030 IF (IVCOMP - 9792) 20030, 10030, 20030 01550711 ! 159: 10030 IVPASS = IVPASS + 1 01560711 ! 160: WRITE (I02,80002) IVTNUM 01570711 ! 161: GO TO 0031 01580711 ! 162: 20030 IVFAIL = IVFAIL + 1 01590711 ! 163: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01600711 ! 164: 0031 CONTINUE 01610711 ! 165: C 01620711 ! 166: CT004* TEST 004 **** FCVS PROGRAM 711 **** 01630711 ! 167: C TEST THE ABILITY TO USE AN ARRAY NAME 01640711 ! 168: C AS A FORMAT IDENTIFIER IN AN INPUT/OUTPUT 01650711 ! 169: C STATEMENT 01660711 ! 170: C 01670711 ! 171: IVTNUM = 4 01680711 ! 172: CVCOMP = ' ' 01690711 ! 173: CVCORR = 'I/O TEST: THIS IS IT' 01700711 ! 174: CVN001 = 'THIS IS IT' 01710711 ! 175: WRITE (UNIT=CVCOMP, FMT=C1N002) CVN001 01720711 ! 176: IVCOMP = 0 01730711 ! 177: IF (CVCOMP .EQ. 'I/O TEST: THIS IS IT') IVCOMP = 1 01740711 ! 178: IF (IVCOMP - 1) 20040, 10040, 20040 01750711 ! 179: 10040 IVPASS = IVPASS + 1 01760711 ! 180: WRITE (I02,80002) IVTNUM 01770711 ! 181: GO TO 0041 01780711 ! 182: 20040 IVFAIL = IVFAIL + 1 01790711 ! 183: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 01800711 ! 184: 0041 CONTINUE 01810711 ! 185: C 01820711 ! 186: CT005* TEST 005 **** FCVS PROGRAM 711 **** 01830711 ! 187: C TEST THE ABILITY TO USE AN ARRAY NAME 01840711 ! 188: C IN A SAVE STATMENT 01850711 ! 189: C 01860711 ! 190: IVTNUM = 5 01870711 ! 191: IVCOMP = 0 01880711 ! 192: IVCORR = 174 01890711 ! 193: CALL SN714(1,IVD001) 01900711 ! 194: CALL SN714(2,IVCOMP) 01910711 ! 195: 40050 IF (IVCOMP - 174) 20050, 10050, 20050 01920711 ! 196: 10050 IVPASS = IVPASS + 1 01930711 ! 197: WRITE (I02,80002) IVTNUM 01940711 ! 198: GO TO 0051 01950711 ! 199: 20050 IVFAIL = IVFAIL + 1 01960711 ! 200: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01970711 ! 201: 0051 CONTINUE 01980711 ! 202: C 01990711 ! 203: CBB** ********************** BBCSUM0 **********************************02000711 ! 204: C**** WRITE OUT TEST SUMMARY 02010711 ! 205: C**** 02020711 ! 206: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02030711 ! 207: WRITE (I02, 90004) 02040711 ! 208: WRITE (I02, 90014) 02050711 ! 209: WRITE (I02, 90004) 02060711 ! 210: WRITE (I02, 90020) IVPASS 02070711 ! 211: WRITE (I02, 90022) IVFAIL 02080711 ! 212: WRITE (I02, 90024) IVDELE 02090711 ! 213: WRITE (I02, 90026) IVINSP 02100711 ! 214: WRITE (I02, 90028) IVTOTN, IVTOTL 02110711 ! 215: CBE** ********************** BBCSUM0 **********************************02120711 ! 216: CBB** ********************** BBCFOOT0 **********************************02130711 ! 217: C**** WRITE OUT REPORT FOOTINGS 02140711 ! 218: C**** 02150711 ! 219: WRITE (I02,90016) ZPROG, ZPROG 02160711 ! 220: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02170711 ! 221: WRITE (I02,90019) 02180711 ! 222: CBE** ********************** BBCFOOT0 **********************************02190711 ! 223: 90001 FORMAT (1H ,56X,5HFM711) 02200711 ! 224: 90000 FORMAT (1H ,50X,20HEND OF PROGRAM FM711) 02210711 ! 225: CBB** ********************** BBCFMT0A **********************************02220711 ! 226: C**** FORMATS FOR TEST DETAIL LINES 02230711 ! 227: C**** 02240711 ! 228: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02250711 ! 229: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02260711 ! 230: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02270711 ! 231: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02280711 ! 232: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02290711 ! 233: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02300711 ! 234: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02310711 ! 235: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02320711 ! 236: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02330711 ! 237: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02340711 ! 238: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02350711 ! 239: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02360711 ! 240: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02370711 ! 241: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02380711 ! 242: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02390711 ! 243: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02400711 ! 244: 80050 FORMAT (1H ,48X,A31) 02410711 ! 245: CBE** ********************** BBCFMT0A **********************************02420711 ! 246: CBB** ********************** BBCFMAT1 **********************************02430711 ! 247: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02440711 ! 248: C**** 02450711 ! 249: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02460711 ! 250: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 02470711 ! 251: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 02480711 ! 252: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 02490711 ! 253: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02500711 ! 254: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02510711 ! 255: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02520711 ! 256: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02530711 ! 257: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02540711 ! 258: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 02550711 ! 259: 21H(,F12.5,2H, ,F12.5,1H)) 02560711 ! 260: CBE** ********************** BBCFMAT1 **********************************02570711 ! 261: CBB** ********************** BBCFMT0B **********************************02580711 ! 262: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02590711 ! 263: C**** 02600711 ! 264: 90002 FORMAT (1H1) 02610711 ! 265: 90004 FORMAT (1H ) 02620711 ! 266: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02630711 ! 267: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02640711 ! 268: 90008 FORMAT (1H ,21X,A13,A17) 02650711 ! 269: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02660711 ! 270: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02670711 ! 271: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02680711 ! 272: 1 7X,7HREMARKS,24X) 02690711 ! 273: 90014 FORMAT (1H ,46H----------------------------------------------, 02700711 ! 274: 1 33H---------------------------------) 02710711 ! 275: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02720711 ! 276: C**** 02730711 ! 277: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02740711 ! 278: C**** 02750711 ! 279: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02760711 ! 280: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02770711 ! 281: 1 A13) 02780711 ! 282: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02790711 ! 283: C**** 02800711 ! 284: C**** FORMAT STATEMENTS FOR RUN SUMMARY 02810711 ! 285: C**** 02820711 ! 286: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 02830711 ! 287: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 02840711 ! 288: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 02850711 ! 289: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 02860711 ! 290: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 02870711 ! 291: CBE** ********************** BBCFMT0B **********************************02880711 ! 292: END 02890711 ! 293: C THIS SUBROUTINE IS TO BE RUN WITH ROUTINE 711. 00010712 ! 294: C DATE***82/08/02*18.33.46 ! 295: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/ ! 296: C AUDIT FCVS78 V2.0 ! 297: C 00020712 ! 298: C THIS SUBROUTINE TESTS ADJUSTABLE ARRAYS AND ADJUSTABLE 00030712 ! 299: C DIMENSIONS WHERE THE UPPER BOUND 00040712 ! 300: C IS A DUMMY ARGUMENT. 00050712 ! 301: C 00060712 ! 302: SUBROUTINE SN712(IVD001,IVD002,I2D001,IVD003) 00070712 ! 303: INTEGER I2D001(1:IVD001,1:IVD002) 00080712 ! 304: IVD003 = I2D001(2,4) 00090712 ! 305: RETURN 00100712 ! 306: END 00110712 ! 307: C THIS SUBROUTINE IS TO BE RUN WITH ROUTINE 711. 00010713 ! 308: C DATE***82/08/02*18.33.46 ! 309: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/ ! 310: C AUDIT FCVS78 V2.0 ! 311: C 00020713 ! 312: C THIS SUBROUTINE TESTS ADJUSTABLE ARRAYS AND ADJUSTABLE 00030713 ! 313: C DIMENSIONS WHERE THE LOWER AND 00040713 ! 314: C UPPER BOUND MAY BE A DUMMY ARGUMENT 00050713 ! 315: C AND/OR IN COMMON. 00060713 ! 316: C 00070713 ! 317: SUBROUTINE SN713(IVD001,I2D001,IVD002) 00080713 ! 318: COMMON ICC001, ICC002 00090713 ! 319: INTEGER I2D001(IVD001:ICC001,2:ICC002) 00100713 ! 320: I2D001(3,4) = 113 00110713 ! 321: IVD002 = I2D001(3,4) 00120713 ! 322: RETURN 00130713 ! 323: END 00140713 ! 324: C THIS SUBROUTINE IS TO BE RUN WITH ROUTINE 711. 00010714 ! 325: C DATE***82/08/02*18.33.46 ! 326: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/ ! 327: C AUDIT FCVS78 V2.0 ! 328: C 00020714 ! 329: C THIS SUBROUTINE TESTS THE USE OF ARRAY NAMES IN A 00030714 ! 330: C SAVE STATEMENT. 00040714 ! 331: C 00050714 ! 332: SUBROUTINE SN714(IVD001, IVD002) 00060714 ! 333: INTEGER I2N001(2,2) 00070714 ! 334: SAVE I2N001 00080714 ! 335: IF (IVD001.GT.1) GO TO 70010 00090714 ! 336: I2N001(1,1) = -12 00100714 ! 337: I2N001(1,2) = 137 00110714 ! 338: I2N001(2,1) = 69 00120714 ! 339: I2N001(2,2) = 102 00130714 ! 340: 70010 IVD002 = I2N001(1,2)+I2N001(2,2)/17-(2*I2N001(1,1)-I2N001(2,1))/3 00140714 ! 341: RETURN 00150714 ! 342: END 00160714
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.