SUBROUTINE PRVOUT(NP, DEPTH, ITG.XINTER, SLOPE, GRID) 

 DIMENSION DEPTH (5000) 



COMMON/BOUNO/I,IPNUM,ISDLAT,SELAT,ISDLNG,SELNG,IDLAT,EELAT, 

 1IDLNG,EMLNG 

 CHARACTER*4 ITG(8) 



READER ROUTINE FOR DEPTH OUTPUT FROM PROVINCE PICKER 

 READ(13,5,END=500) (ITG( I ),L=1, 6) , SLOPE, X INTER, GRID, NP 



5 F0RMAT(6A4,F7.3,1X,E9.3,1X,F7.4,I5) 

 NP=NP+1 



ITG(7)=' 



ITG(8)=' 



WRITE(6,55,END=500) (ITG( I ), 1=1,6) , SLOPE, XINTER, GRID, NP 

 55 F0RMAT(T70,6A4,F7.3,1X,E10.5,F7.4,I5) 



READ(13,50)I,IPNUM,ISDLAT,SELAT,ISDLNG,SELNG,IDLAT,EELAT, 

 1IDLNG,EMLNG,RMS 

 50 F0RMAT(I5,I8,4(1X,I4,F6.2),F10.4) 



READ(13,6) (DEPTH(I),I=1,NP) 



6 FORMAT (10F8. 6) 

 IF(NP.GT.2048) NP=2048 

 READ(13,7) CHECK 



7 FORMAT (F8. 2) 



IF(CHECK.NE. 9. 999999) PRINT 8 



8 FORMATC NINES RECORD DOES NOT CHECK') 

 60 TO 900 



500 DEPTH(1)=9. 999999 

 900 RETURN 

 END 



199 



