c    this subroutine is used for retrieving all the data of a
c    specific station from wind_gen.wdb (master database) and 
c    putting them in a file

      subroutine disp_wdb
     i                     (iu)
 
      include 'wind_db.fi'

	  integer iu
	  integer i, m

c     for the database header

  100 format (2x,i5,1x,a,a,1x,a)
  110 format (i3,1x,i2,1x,a,1x,i3,1x,i2,1x,a,1x,i4,1x,a,1x,a,1x,a)

c     for dir(i,m) --- 17 lines
  201 format (12(f5.1,1x))

c     for scale(i,m) and shape(i,m) --- 32 lines 
  301 format (12(f6.2))

c     for ratio(m) --- 1 line
  401 format (12(f5.2,1x))
 
c     for hr_max(m) --- 1 line
  501 format (12(i5,1x))


      write (iu, *) '--------------------------------------------------'
      write (iu, *) ' '
      write (iu,100)st_no, st_country, st_state, st_city
      write(iu,110) lati_deg, lati_min, lati_hem, long_deg, long_min,
     +     long_hem, elevation, s_date, e_date, obs
      write (iu, *) ' '
      write (iu, *) '--------------------------------------------------'
      write (iu, *) 'Monthly wind dir probabilities for all directions'

c     get dir(i,m) 
      do 40 i = 0, NDIR - 1
         write(iu,201) (dir(i,m), m=0,NMONTHS-1)
   40 continue    

      write (iu, *) ' '
      write (iu, *) 'Monthly probabilities for "calm" winds'
      write (iu,201) (dir(i,m), m=0,NMONTHS-1)
      write (iu, *) ' '
 
c     get scale(i,m)
      write (iu, *) 'Monthly wind scale parameters for all directions'
      do 72 i = 0, NDIR-1
         write (iu,301) (scale(i,m), m=0,NMONTHS-1)
   72 continue

c     get shape(i,m)
      write (iu, *) ' '
      write (iu, *) 'Monthly wind shape parameters for all directions'
      do 73 i = 0, NDIR-1
         write (iu,301) (shape(i,m), m=0,NMONTHS-1)
   73 continue

c     get ratio(m)
      write (iu, *) ' '
      write (iu, *) 'Monthly max/min wind speed ratios'
      write (iu,401) (ratio(m), m=0,NMONTHS-1)

c     get hr_max(m)
      write (iu, *) 'Monthly hour of max wind speed values'
      write (iu,501) (hr_max(m), m=0,NMONTHS-1)
      write (iu, *) '--------------------------------------------------'

      return
      end