c
c   Hypocentral parameters
c
      character*1 ng
      real*4 glat,glon,osec,olat,olon,odep,olats,olatc,olons,olonc,
     1selat,selon,sedep,setim,se,rms
      real*8 otime
c
      common /hypdat/ glat,glon,otime,osec,olat,olon,odep,olats,
     1olatc,olons,olonc,selat,selon,sedep,setim,se,rms
      common /hypdtc/ ng
