XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX SOURCE PROGRAM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



SIBFTC MAIN MAIN 01 



C 7094. FORTRAN IV. LINEAR-INTERPOLATION WAVE REFRACTION PROGRAM. MAIN 02 



C ORIGINAL PROGRAM BY GR I SWOLD.NAGLE . AND MEHR. THIS PROGRAM ADAPTED MAIN 03 



C FROM ORIGINAL BY WI LSON . HARR ISON , KRUMBE I N . AND BENSON. 8/4/64. MAIN 04 



DIMENSION 5(3.3) .EM(4. 3) .E(3) .YVW(3) .CMAT( 100.82) .C(4) »XLABL(12) MAIN 05 



COMMON S .EM . E . YVW . CMAT . C MAIN 06 



COMMON XLABL . D . T^r . CXY » IT » NGO MAIN 07 



COMMON AMM , ANN . MAX ♦ NOT » N . MIT MAIN 08 



READ (5.5) ( (S( I.J) .J = 1.3).I = 1.3) MAIN 09 



5 FORMAT(6F12.8) MAIN 10 

 RFAD (5.7) ( (EM(L.I) .L = l .4) .1 = 1.3) MAIN 11 



7 FORMAT( 12F6.2) MAIN 12 



READ (5.50C) NOTT MAIN 13 



500 FORMAT (13) MAIN 14 



DO 399 N0T=1.N0TT MAIN 15 



READ (5.400) XLABL MAIN 16 



400 FORMAT (12A6) MAIN 17 



READ (5.402) MM. NN .CHECK . TT .NOJ . D MAIN 18 



402 FORMAT ( 2 I 4. F3 .0 .7X . F5. 1 . I 5 . F4. 1 ) MAIN 19 

 AMM = MM-1 MAIN 20 

 ANN = NN-1 MAIN 21 

 IF(CHFC<) 10.10.20 MAIN 22 



10 READ (5.11) ( (CMAT( I .J) .I=1.MM) .J=1.NN) MAIN 23 



11 FORMAT (5(F10.8.3X) ) MAIN 24 

 GO TO 14 MAIN 25 



20 J = 1 MAIN 26 



READ (5.11) (CMAT( I .J) .I=1.MM) MAIN 27 



DO 77 J=2.NN MAIN 28 



DO 77 1=1. MM MAIN 29 



77 CMAT(I.J) = CMAT(I.l) MAIN 30 



14 DO 15 N=l» NOJ MAIN 31 

 READ (5.6) A.X.Y MAIN 32 



6 FORMAT (F7.2.2F6.2) MAIN 33 

 MAX = 1 MAIN 34 

 WRITE (6.403) XLABL.TT.NOT.N.MAX.X.Y.A MAIN 35 



403 FORMAT (1H1,12A6/9H PERIOD =,F5.1.6H SEC...10H BATCH N0..I3.9H, RAMAIN 36 

 lY N0..I3.1H.//4X.3HMAX.6X.1HX.8X,1HY.8X.5HANGLE.4X,6HPCTDIF// MAIN 37 

 2I7.2F9.2.F11.2) MAIN 38 



A=A*. 0174532925 MAIN 39 



CALL RAYN (X.Y.A) MAIN 40 



15 CONTINUE MAIN 41 

 399 CONTINUE MAIN 42 



WRITE (6.9999) MAIN 43 



9999 FORMAT ( 18H1 THIS IS THE END.) _, MAIN 44 



CALL EXIT MAIN 45 



STOP MAIN 46 



END MAIN 47 



56 



