c
c=======================================================================
c  Include file "trkscl.h"
c=======================================================================
c
#ifndef rmdocinc
c  DTYP     Drifter type.  (character)
c  FACTT    time scale (sec).
c  FACTX    x-horizontal space scale (cm).
c  FACTY    y-horizontal space scale (cm).
c  HD       Diameter (height) of extended drifter.  (cm)
c
c=======================================================================
c
#endif
      common /ftrkscl/ factt,factx,facty,hd
      FLOAT 
     *      factt,factx,facty,hd
c
      common /ctrkscl/ dtyp
      character*1 dtyp