READER SUBROUTINE FOR PROVPICK 



SUBROUTINE PROVRD(NP,XLAT,XLONG,DEPTH,IKONT,FILE ) 

 DIMENSION XLAT( 3000), XLONG( 3000), DEPTH( 3000) 

 CHARACTER*20 FILEN 

 CHARACTER*20 FILE (20) 

 KNTER=0 

 400 FILEN=FILE(IKONT) 

 WRITE(5,433)FILEN 



433 FORMATC OPENING FILE ' ,A20) 

 0PEN(UNIT=12,FILE=FILEN,STATUS='0LD' ,FORM='FORMATTEO' ) 

 DO 420 I=1,NP 



438 READ(12,434,END=470) XLATd ) ,XLONG( I ),ID£pTH 



434 F0RMAT(9X,F12.8,F13.8,I7) 

 KNTER=I 



IF(IDEPTH.LE.O) PRINT *, 'DATA POINT SKIPPED' 



IF(IDEPTH.LE.O) GO TO 438 



DEPTH( I )=IDEPTH*. 0018288 

 420 IF(I.LT.30)WRITE(5,*)XLAT(I),XL0NG(I),DEPTH(I) 



GO TO 490 

 470 NP=KNTER 

 490 CLOSE ( UN IT=12) 



WRITE(6,492)NP 

 492 FORMATC NUMBER OF POINTS READ =',I5) 



RETURN 



END 



158 



