C HEADER SAGERR 00010000 C*********************************************************************** C COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991 * C*********************************************************************** CTITLESAGERR -- GM3D ERROR MESSAGE ROUTINE 00020000 CA AUTHOR K. GRAY 00030001 CA DESIGNER K. GRAY 00040001 CA LANGUAGE FORTRAN 00050001 CA SYSTEM IBM AND CRAY 00060001 CA WRITTEN 08-03-84 00070001 C REVISED 03-01-85 RDK. DUAL IBM/CRAY VERSION. 00080001 C REVISED 11-13-86 ESN. ENSURE THAT PRINT FORMAT AND TYPE AGREE00090001 C REVISED 02-10-89 TJT. MODIFY ERRMSG TO PRINT CARD BUFFER. 00101001 C REVISED 03-20-89 TJT. SINGLE SOURCE CODE FOR IBM AND CRAY. 00103001 CA 00110000 CA 00120000 CA CALL SAGERR (IERRNO, VAL, &STMT ) 00130000 CA 00140000 CA THIS SUBROUTINE IS CALLED BY SAGM3D TO WRITE ERROR MESSAGES. 00150000 CA THESE MESSAGES HAD TO BE REMOVED FROM THE MAIN SUBROUTINE 00160000 CA BECAUSE OF SIZE LIMITATIONS OF THE FORTRAN COMPILER. 00170000 CA 00180000 CA WHEN NEW MESSAGES MUST BE ADDED, THE WRITE AND FORMAT 00190000 CA STATEMENTS SHOULD BE ADDED IN THIS SUBROUTINE. THE VALUE 00200000 CA TO BE PRINTED WILL BE PASSED BY ADDRESS AS VAL, THEN MOVED 00210000 CA INTO THE NEEDED VARIABLE BEFORE BEING PRINTED. 00220000 CA 00230000 CA 00240000 CA IN/OUT ARG TYPE LENGTH DESCRIPTION 00250000 CA 00260000 CA IN IERRNO I*4 1 ERROR BRANCH FLAG 00270000 CA IN VAL VALUE TO BE PRINTED FOR INFORMATIONAL 00280000 CA 1 PURPOSES 00290000 CA IN &STMT - STATEMENT TO BRANCH TO UPON RETURN 00300000 CA 00310000 CA 00320000 C EJECT 00330000 C 00340000 SUBROUTINE SAGERR (IERRNO, VAL, * ) 00350000 C 00360000 INTEGER VAL(1) 00370000 INTEGER CLD 00380000 INTEGER STSPNO 00390000 C 00400000 CHARACTER*80 CARD 00410000 C 00420000 CTJT IPR = 6 00430001 IPR = 98 00431001 C 00450000 GO TO ( 2755, 2760, 2765, 2770, 2775, 2780, 2785, 00460000 * 2800, 2820, 2825, 2830, 2835, 2870 ) , IERRNO 00470000 C 00480000 C ****** ERROR BRANCH 1 ****** 00550000 C 00570000 2755 CALL ARMVE(VAL(1),MAXRVS,1) 00580000 WRITE (IPR , 9500 ) MAXRVS 00590000 GO TO 2840 00600000 C 00610000 C ****** ERROR BRANCH 2 ****** 00620000 C 00630000 C2760 CALL ARMVE(VAL(1),CARD,20) 00640000 2760 CALL S1MVCH(VAL(1),1, CARD,1, 80) 00650000 C WRITE (IPR , 9080 ) (CARD(I),I=1,20) 00660000 WRITE (IPR , 9080 ) CARD 00670000 GO TO 2840 00680000 C 00690000 C ****** ERROR BRANCH 3 ****** 00700000 C 00720000 2765 CALL ARMVE(VAL(1),MAXDPS,1) 00730000 WRITE (IPR , 9510 ) MAXDPS 00740000 GO TO 2840 00750000 C 00760000 C ****** ERROR BRANCH 4 ****** 00770000 C 00790000 C2770 CALL ARMVE(VAL(1),CARD,20) 00800000 2770 CALL S1MVCH(VAL(1),1, CARD,1, 80) 00810000 C WRITE (IPR , 9420 ) (CARD(I),I=1,20) 00820000 WRITE (IPR , 9420 ) CARD 00830000 GO TO 2840 00840000 C 00850000 C ****** ERROR BRANCH 5 ****** 00860000 C 00880000 2775 CALL ARMVE(VAL(1),MAXTRC,1) 00890000 WRITE (IPR , 9520 ) MAXTRC 00900000 GO TO 2840 00910000 C 00920000 C ****** ERROR BRANCH 6 ****** 00930000 C 00950000 2780 WRITE (IPR , 9430 ) 00960000 GO TO 2840 00970000 C 00980000 C ****** ERROR BRANCH 7 ****** 00990000 C 01010000 2785 WRITE (IPR, 9540 ) 01020000 GO TO 2840 01030000 C 01040000 C ****** ERROR BRANCH 8 ****** 01050000 C 01060000 2800 WRITE(IPR, 9450 ) 01080000 GO TO 2840 01090000 C 01100000 C ****** ERROR BRANCH 9 ****** 01110000 C 01140000 2820 CALL ARMVE(VAL(1),STSPNO,1) 01150000 WRITE (IPR , 9470 ) STSPNO 01160000 GO TO 2840 01170000 C 01180000 C ****** ERROR BRANCH 10 ****** 01190000 C 01210000 2825 CALL ARMVE(VAL(1),MAXTRC,1) 01220000 WRITE (IPR , 9545) MAXTRC 01230000 GO TO 2840 01240000 C 01250000 C ****** ERROR BRANCH 11 ****** 01260000 C 01280000 C2830 CALL ARMVE(VAL(1),CARD,20) 01290000 2830 CALL S1MVCH(VAL(1),1, CARD,1, 80) 01300000 C WRITE (IPR , 9530) (CARD(I),I=1,20) 01310000 WRITE (IPR , 9530) CARD 01320000 GO TO 2840 01330000 C 01340000 C ****** ERROR BRANCH 12 ****** 01350000 C 01370000 C2835 CALL ARMVE(VAL(1),CARD,20) 01380000 2835 CALL S1MVCH(VAL(1),1, CARD,1, 80) 01390000 C WRITE (IPR , 9535) (CARD(I),I=1,20) 01400000 WRITE (IPR , 9535) CARD 01410000 GO TO 2840 01420000 C 01430000 C ****** ERROR BRANCH 13 ****** 01440000 C 01470000 CTJT 2870 CALL ARMVE(VAL(1), CLD ,1) 01480000 CTJT WRITE(IPR , 9490 ) CLD 01490000 2870 CALL S1MVCH(VAL(1), 1, CARD, 1, 80) 01491000 WRITE(IPR , 9490 ) CARD 01492000 GO TO 2840 01500000 C 01530000 C ****** RETURN TO CALLING PROGRAM ****** 01540000 C 01550000 2840 RETURN 1 01600000 C 01610000 C 01620000 9080 FORMAT (/,' *** NO CLD CARD FOUND FOR THIS CLD NUMBER',/,1X, A80) 01650000 C 01660000 9420 FORMAT (/,' *** X NOT FOUND ON THIS CLD CARD',/,1X, A80) 01680000 C 01690000 9430 FORMAT (/,' *** NO CFS CARDS FOUND') 01700000 C 01710000 9450 FORMAT (/,' *** NO. OF SHOTPOINTS EXCEEDS LINE CARD ***') 01720000 C 01740000 9465 FORMAT (/,' *** SAWSVE HAD ERROR DA = ',I5) 01750000 C 01760000 9470 FORMAT (/,' *** CAN NOT REPEAT SHOTPT. NO. ', I6) 01770000 C 01790000 9490 FORMAT (/,' *** MISSING TRACE NUMBER ON CLD OR CTR CARD ***', 01800000 CTJT * /,' *** DEFINITION NUMBER IS ',I5) 01810000 * /,1X, A80) 01811000 C 01820000 9500 FORMAT (/,' *** MAXIMUM NO. OF RECEIVERS EXCEEDED ',I10) 01830000 C 01840000 9510 FORMAT (/,' *** MAXIMUM NO. OF DEPTHPOINTS EXCEEDED ',I10) 01850000 C 01860000 9520 FORMAT (/,' *** MAXIMUM FOLD EXCEEDED ', I10) 01870000 C 01880000 9530 FORMAT (/,' *** ILLEGAL OCTAL FILE NO. ',/,1X, A80) 01890000 C 01900000 9535 FORMAT (/,' *** DECREASING RECEIVER STATION NO.S ENCOUNTERED ', 01910000 * /,1X, A80) 01920000 C 01930000 9540 FORMAT (/,' *** CDP INTERVAL CANNOT BE ZERO',/,1X, A80) 01940000 C 01950000 9545 FORMAT (/,' *** LINE CARD TRACES PER SHOT EXCEEDS',I5) 01960000 C 01970000 END 02020000