c
c     starting or fundamental hypocentral parameters
c
      integer*4 iyre, imone, idye, ihre, mine
      real*4 sece, elat, elon, edep
      real*4 mb, ms, mw, ml, m1, m2, mx
c
c     centroid parameters
c
      integer*4 iyre1, imone1, idye1, ihre1, mine1
      real*4 sece1, nlat, nlon, ndepth
      real*4 dt, dur
c
c     mechanism parameters
c
      integer*4 iex
      real*4 rm1, sd1, rm2, sd2, rm3, sd3
      real*4 rm4, sd4, rm5, sd5, rm6, sd6
c
c     fault plane solution
c
      real*4 mo
      integer*4 np1s, np1d, np1sl
      integer*4 np2s, np2d, np2sl
c
c     axes parameters
c
      real*4 pv,nv,tv
      integer*4 pp,pa,np,na,tp,ta
c
c     other stuff
c
      character*1   qual
      character*2   cs1, cs2
      character*10  cagen
      character*40  region
      character*256 qstring
      character*256 string_stations, string_channels, string_duration
c
c     num = number of stations in hypo sol
c     azgap = azimuth gap in sol
c     dist - distance in km to nearest station
c     rsmt = rms error
c     herr = horizontal error
c     verr = vertical error
c     nfm = number of first motions
c 
      integer*4 num, nfm
      real*4 azgap, dist, rsmt, herr, verr
      real*4 sconf, dconf, rconf
      character*1 multflag
c
      common /c_save/ iyre,imone,idye,ihre,mine,sece,dt,elat,elon,edep,
     1  dur,rm1,sd1,rm2,sd2,rm3,sd3,rm4,sd4,rm5,sd5,rm6,sd6,
     2  np1s,np1d,np1sl,np2s,np2d,np2sl,
     3  tv,tp,ta,pv,pp,pa,nv,np,na,mo,iex,mb,ms,region,
     4  mw, ml, m1, m2, mx, cs1, cs2
      common /c_save2/ iyre1,imone1,idye1,ihre1,mine1,sece1,
     1  nlat,nlon,ndepth,cagen
      common /c_save3/ qstring
      common /c_save4/ num,azgap,dist,rsmt,herr,verr, nfm,
     1  sconf, dconf, rconf, multflag, qual
      common /c_save5/ string_stations, string_channels, string_duration
