      SUBROUTINE READWV(MWV,TITL,NWV,DT,WV)
C
      DIMENSION WV(MWV)
      CHARACTER TITL*50
C
C
        READ(1,3100) TITL
        READ(1,3200) NWV,DT
          DO 98 II=1,NWV,4
            READ(1,3300)(WV((II-1)+I),I=1,4)
98        CONTINUE
3100   FORMAT(A50)
3200   FORMAT(I10,F10.6)
3300   FORMAT(4E18.10)
C
       RETURN
       END
