XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX SOURCE PROGRAM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



» 8 6 

 C 

 C 

 C 



9998 

 400 



402 



20 



77 

 14 



403 



15 



• 86 

 C 



1620, FORTRAN II. LINEAR-INTERPOLATION WAVE REFRACTION PROGRAM. 



ORIGINAL PROGRAM BY GRISWOLD»NAGLE . AND MEHR. THIS PROGRAM ADAPTED 



FROM ORIGINAL BY WILSON. HARR ISON .KRUMBEIN .AND BENSON. 8/4/64. 



DIMENSION S(3.3).EM(4.3) .E(3)»YVW(3) .CMAT( 50.51) .C(4) .XLABL(12> 



COMMON S,EM.E.YVW.CMAT.C,XLABL.D.TT.CXY.IT»NGO»AMM.ANN»MAX»MIT 



READ 5,( tS< I.J).J=1.3) .1=1.3) 



FORMAT(6F12.8) 



READ 7.{(EM(L.I ).L=1»4) .1=1.3) 



FORMATS 12F6.2) 



NOT = 1 



READ 400. XLABL 



FORMATJ 12A4) 



READ 402.MM.NN, CHECK. TT.NOJ.D 



FORMAT (2I4.F3.0.7X.F5.1,I5.F4.1) 



AMM » MM-1 



ANN » NN-1 



IF(CHECK) 10.10,20 



READ ll.( (CMAT(I.J) » 1=1 .MM) . J=l .NN) 



FORMAT (5(F10.8,3X)) 



GO TO 14 



J = 1 



READ 11. (CMAT(I,J)»I»1.MM) 



00 77 J»2»NN 



DO 77 I«1,MM 



CMATd.J) = CMAT(I.l) 



DO 15 N=l, NOJ 



READ 6,A,X,Y 



FORMAT (F7.2»2F6.2) 



MAX = 1 



PUNCH 403»XUABL.TT.NOT,N.MAX»X,Y,A 



FORMAT (///12A4/8HPERI0D =,F5.1,6H SEC...10H BATCH N0..I3»9H. RAY 



NO.. I3»1H.//4X,3HMAX,6X,1HX.8X.1HY,8X.5HANGLE»4X.6HPCTDIF, 



//I7.2F9.2.F11.2) 



A=A*. 0174532925 



CALL RAYN (X.Y.A) 



CONTINUE 



PAUSE 



NOT = NOT + 1 



GO TO 9998 



END 



SUBROUTINE RAYN fX»Y,A) 



DIMENSION S(3.3).EM(4.3) .E( 3 ) . YVW(3 ) .CMAT( 50.51 ) ,C(4) ,XLABL(12) 



COMMON S,EM,E,YVW,CMAT.C.XLABL.D.TT.CXY.IT»NGO»AMM.ANN.MAX.MIT 



CALL SURFCE <X»Y»A»FK) 



MAX^l+MAX 



MAIN 



01 



MAIN 



02 



MAIN 



03 



MAIN 



04 



MAIN 



05 



MAIN 



06 



MAIN 



07 



MAIN 



08 



MAIN 



09 



MAIN 



10 



MAIN 



11 



MAIN 



12 



MAIN 



13 



MAIN 



14 



MAIN 



15 



MAIN 



16 



MAIN 



17 



MAIN 



18 



MAIN 



19 



MAIN 



20 



MAIN 



21 



MAIN 



22 



MAIN 



23 



MAIN 



24 



MAIN 



25 



MAIN 



26 



MAIN 



27 



MAIN 



28 



MAIN 



29 



MAIN 



30 



MAIN 



31 



MAIN 



32 



MAIN 



33 



MAIN 



34 



MAIN 



35 



MAIN 



36 



MAIN 



37 



MAIN 



38 



MAIN 



39 



MAIN 



40 



RAYN 



01 



RAYN 



02 



RAYN 



03 



RAYN 



04 



RAYN 



05 



RAYN 



06 



47 



