cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c
c write_mseed.for
c Parameters and variables for writing miniseed files.
c 
c Author: Rodrigo Canabrava
c E-mail: rlpcfr@yahoo.com.br
c Universitetet i Bergen - Department of Earth Sciences
c
cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

      INTEGER*4 OUT             ! number of output file
      PARAMETER(OUT = 12)
      
      INTEGER*2 INT_32BIT       ! code number of encoding format
      INTEGER*2 STEIM1, STEIM2  ! code numbers of encoding formats
      PARAMETER(INT_32BIT = 3)
      PARAMETER(STEIM1 = 10)
      PARAMETER(STEIM2 = 11)

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c The variables in the following common block must be set before calling
c the function.
cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

      character*5    mseed_station ! station name
      character*2    mseed_location ! location id
      character*3    mseed_channel ! channel name
      character*2    mseed_network ! network id
      integer*4      mseed_year ! year
      integer*4      mseed_month ! month
      integer*4      mseed_day ! day
      integer*4      mseed_hour ! hour
      integer*4      mseed_minute ! minute
      real*4         mseed_second ! second
      integer*4      mseed_total_samples ! total number of samples

      integer*4 mseed_encoding ! encoding format
      real*4    mseed_sample_rate ! sample rate

      COMMON / write_mseed_param / mseed_sample_rate, 
     &     mseed_year, mseed_month, mseed_day, mseed_hour, mseed_minute, 
     &     mseed_second, mseed_total_samples, 
     &     mseed_encoding, mseed_station, mseed_location,
     &     mseed_channel, mseed_network