C     PROGRAM JRDN-CUD.FOR, 
C
	CHARACTER SRECORD*128,CRECORD*128
	CHARACTER*32 SNAME,CNAME,ONAME
	INTEGER IOS,IOC,IOO
	REAL*4 SCAN,SJUL,STEM,SSAL,CLAT,CLON,CJUL,CCHL
      IOS=4
      IOC=5
      IOO=6
      WRITE(LO,*)'ENTER SEASOFT FILE NAME  '
      READ(LI,'(A)')SNAME
      OPEN(IOS,FILE=SNAME,STATUS='OLD',IOSTAT=ICD)
      IF(ICD.NE.0)THEN
	WRITE(LE,*)' CANT OPEN ',NAME, 'IOSTAT=',ICD
	STOP 99
      END IF
C
      WRITE(LO,*)'ENTER CUDLS FILE NAME  '
      READ(LI,'(C)')CNAME
      OPEN(IOC,FILE=CNAME,STATUS='OLD',IOSTAT=ICD)
      IF(ICD.NE.0)THEN
	WRITE(LE,*)' CANT OPEN ',NAME, 'IOSTAT=',ICD
	STOP 99
      END IF
C
      WRITE(LO,*) ' ENTER OUTPUT FILE NAME  '
      READ(LI,'(A)')ONAME
      OPEN(IOO,FILE=ONAME,STATUS='NEW',IOSTAT=ICD,RECL=200)
      IF(ICD.NE.0)THEN
	WRITE(LE,*)'  CANT OPEN ',NAME2,' IOSTAT=',ICD
	STOP 99
      END IF
      READ(IOS,'(A128)',END=300,ERR=400,IOSTAT=ICD)SRECORD
	READ(IOC,'(A128)',END=300,ERR=400,IOSTAT=ICD)CRECORD
	
	DO 200 I=1,50000
      SJUL=SRECORD(15:23)
      CJUL=CRECORD(17:23)
	DIFF=CJUL-SJUL   
	
	IF (DIFF.GT. -0.0002 .AND. DIFF .LT. 0.0002) THEN
       STEM=SRECORD(49:56)
       SSAL=SRECORD(50:56)
       CLAT=CRECORD(1:6)
       CLON=CRECORD(8:15)
       CCHL=CRECORD(24:29)
       WRITE(IOO,2010,ERR=500,IOSTAT=ICD)CLAT,CLON,STEM,SSAL,CCHL 
       WRITE(*,2010,ERR=500,IOSTAT=ICD)CLAT,CLON,STEM,SSAL,CCHL 
       READ(IOS,'(A128)',END=300,ERR=400,IOSTAT=ICD)SRECORD
	 READ(IOC,'(A128)',END=300,ERR=400,IOSTAT=ICD)CRECORD
      END IF  
      
      IF (DIFF .GT. 0.0002) THEN
       READ(IOS,'(A128)',END=300,ERR=400,IOSTAT=ICD)SRECORD
	 READ(IOC,'(A128)',END=300,ERR=400,IOSTAT=ICD)CRECORD
      END IF 
      
      IF (DIFF .LT. -0.0002) THEN
       READ(IOS,'(A128)',END=300,ERR=400,IOSTAT=ICD)SRECORD
	 READ(IOC,'(A128)',END=300,ERR=400,IOSTAT=ICD)CRECORD
      END IF  
      
 200  CONTINUE
 300  CLOSE(IOA)
 	CLOSE(IOB)
 400  WRITE(LE,*)' READ ERR=',ICD,' STATION=',STA
	GOTO 300
 500  WRITE(LE,*)' WRITE ERR=',ICD,' STATION=',STA
 2010 FORMAT(6(1X,F10.4))  
      END