c* * 



C* PROGRAM DYFIT • 



C* * 



C« WRITTEN BY KEN MOONEY « 



C* * 



C« CHANGES • 



C» 1) CHANGED FROM MAIN ROUTINE TO SUBROUTINE TO BE CALLED BY A * 



C* MAIN COBOL ROUTINE IN ORDER TO FACILITATE FORTRAN AND COBOL * 



C* SUBROUTINE COMMUNICATION. » 



C* 2) ALL CALLS TO SPL^ HAVE BEEN DELETED AS SPLA HAS BEEN « 



C» DELETED FROM THE DYFIT SYSTEM, « 



C* ENTERED 6/10/1980 BOB STARK « 



C* 3) ADDED STANDAPD DEPTH OF ZERO METERS. ENTERED 7/1/1980 B. STARK 



SUBROUTINE OYFORT 

 COMMON A(169) 



COMMON XDATA(3,1000)»YDATA(1000) »WDATA (1000) 

 COMMON W0RK(16) 

 DIMENSION Z(18) 



DATA Z/0.,20.*30..50.«75..100.»125..150.»200.»250.»300.»400.»50 0.» 

 A600.» TOO.* 800., 90 0. ,1000./ 

 C» DROP STANDARD DEPTH 

 C* ALAT CENTER LATITUDE 

 C* ALON CENTER LONGITUDE 

 C* CTIME CENTEP IN TIME (JULIAN DAY) 

 C* YRNG RANGE FOR LATITUDE 

 C* XRNG RANGE FOR LONGITUDE 

 C* TRNG RANGE FOR TIME 



C« IPRT IF 1 DATA PULLED OFF FILE BY SPL3 WILL BE PRINTED 

 10 RE AD (1, 90 0,ENO=40)DPDP, ALAT, ALON, CTIME, YRNG, XRNG, TRNG, IPRT 

 900 FORMAT(F5.0,2X, 1 X , F6. 2 , 1 K ,F7 . 2, 1 X ,F4 . , 1 X ♦FB. 2, 1 X , F6. 2, 1 X , 

 1F4.0,1X, ID 

 IF(0P0P.EQ.9999.) GO TO 40 



PRINT 90 3, DPDP, ALAT, YRNG, ALON, XRNG, CTIME, TRNG 

 903 FORMATCl STANDARD DEPTH = • ,F5. , 7X , • L AT ITUDE = •,F6.2,» +/- », 

 A F5. 2, 7X, 'LONGITUDE = •,F7.2,» +/- • ,F6 . ?,8X , • JUL I AN DAY = », 

 B F4.0. • +/- • ,F4.0) 

 C THIS SECTION CHECKS TO MAKE SURE THAT DPDP IS A STANDARD DEPTH 

 00 20 1=1,18 



IF (DPDP.EQ.Z( I) ) GO TO 30 

 20 CONTINUE 

 PRINT tj02 

 902 FORMATC DEPTH ENTERED IS NOT A STANDARD DEPTH.') 

 C DPDP WASN'T A STANDARD DEPTH. NOW WE READ AND DUMP RECORDS 

 C UNTIL WE FIND A 99 CARD WHICH MARKS THE END OF THIS SET OF POINTS 

 25 READ(1,901,END=40) DPDP 

 901 F0RMAT(F6.2) 



IF (DPDP. EQ. 99.) GO TO 10 

 GO TO 25 

 C 



30 CALL SPL3(DPDP, ALAT, ALON, CTIME, XRNG, YRNG, TRNG, IPRT) 

 GO TO 10 



