C     *****   This is the routine which initializes   *****
C     *****   the Waveform program.                   *****
C     *****   WaveForm            Rev.  15-OCT-1991   *****


      SUBROUTINE   Initialize_Waveform

      IMPLICIT     NONE

      INCLUDE     'Waveform_Common.INC'


C  *****   Initialize the array which holds the binary waveform   *****

      DATA         Pulse_Array /20008*0/

C  *****   Find out if thre should be a full display of operations   *****

   40 WRITE ( 6, 50 )
   50 FORMAT (                                                     //
     &   '    The WaveForm Program can provide either a full     ', /
     &   '    display of operations and program execution status ', /
     &   '    or else a short version of these messages.         ', //
     &   '    Enter either:  "Full"  or else  "Short".           ', /
     &   '    Do you want Full or Short display ?   [Full]  ',     $ )

      READ ( 5, 55 ) Time_Spec_Filename
   55 FORMAT ( A )

      Full_Display  =  0
      IF ( Time_Spec_Filename .EQ. ' ' )     Full_Display = 1
      IF ( Time_Spec_Filename .EQ. 'full' )  Full_Display = 1
      IF ( Time_Spec_Filename .EQ. 'Full' )  Full_Display = 1
      IF ( Time_Spec_Filename .EQ. 'FULL' )  Full_Display = 1

      RETURN

      END