C
C *** READ AND PLOT OF ONE CHANNNEL WAVE FROM DISK FILE ***
C
$LARGE
C
      PROGRAM MWVPLOT
C
C *** TITL : TITLE OF EACH CHANNEL
C *** WV   : WAVE AMPLITUDE DATA
C *** NWV  : WAVE DATA NUMBER
C *** MWV  : NWV IN MAIN PROGRAM DIMENSION
C          : IF MWV > 2**13(=8192), CAN NOT USE !!!
C *** DT   : DELTA TIME ( SEC ) 
C
      PARAMETER(MWV=32800)
      CHARACTER TITL*50
      DIMENSION WV(MWV)
C
      CALL WVREAD(TITL,WV,NWV,MWV,DT)
      CALL WVPLOT(TITL,WV,NWV,MWV,DT)
C
      STOP
      END


