C
      CHARACTER*12 SRC
      CHARACTER*4  REC
C
C     Number of sources:
      NS=75
C
C     Standard deviations of arrival times:
      ERRP=0.002
      ERRS=0.002
C
      OPEN(1,FILE='cv-arr.dat')
      OPEN(2,FILE='cv-arrp.dat')
      OPEN(3,FILE='cv-arrs.dat')
      WRITE(2,'(A)') '/'
      WRITE(3,'(A)') '/'
C
      DO 22 IS=1,NS
        READ(1,*) SRC
        DO 21 IR=1,13
          READ(1,*) REC,ARRP,ARRS
          IF(ARRP.NE.0.) THEN
            WRITE(2,'(5A,F8.6,A,F8.6,A)')
     *           '''',SRC,''' ''',REC,''' ',ARRP,' ',ERRP,' /'
          END IF
          IF(ARRS.NE.0.) THEN
            WRITE(3,'(5A,F8.6,A,F8.6,A)')
     *           '''',SRC,''' ''',REC,''' ',ARRS,' ',ERRS,' /'
          END IF
   21   CONTINUE
   22 CONTINUE
C
      WRITE(2,'(A)') '/'
      WRITE(3,'(A)') '/'
      STOP
      END
C