c
c
      subroutine orient
     o              (rh,rw,rs,rd,dh,ds,
     i              impl_rh,impl_rw,impl_rs,impl_rd,
     i              impl_dh,impl_ds)


c     + + + PURPOSE + + +
c
c     This subroutine performs an oriented roughness calculation
c
c     + + + KEYWORDS + + +
c     oriented roughness (OR), tillage (primary/secondary)
c
c     + + + ARGUMENT DECLARATIONS + + +
c
c     + + + ARGUMENT DEFINITIONS + + +
c
c     + + + ACCESSED COMMON BLOCK VARIABLE DEFINITIONS + + +
c
c     + + + PARAMETERS + + +
c
c     + + + LOCAL VARIABLES + + +
c
      real     rh,rw,rs,rd,dh,ds
      real     impl_rh,impl_rw,impl_rs,impl_rd
      real     impl_dh,impl_ds
      real     tilld
      integer  rflag
c
c     + + + LOCAL VARIABLE DEFINITIONS + + +
c
c     rh      - current ridge height (mm)
c     rw      - current ridge width (mm)
c     rs      - current ridge spacing (mm)
c     rd      - current ridge direction (clockwise from true north)
c     rh      - current dike height (mm)
c     rs      - current dike spacing (mm)
c     impl_rh - implement ridge height (mm)
c     impl_rw - implement ridge width (mm)
c     impl_rs - implement ridge spacing (mm)
c     impl_rd - implement ridge direction (clockwise from true north)
c     impl_dh - implement dike height (mm)
c     impl_ds - implement dike spacing (mm)

c     + + + END SPECIFICATIONS + + +
c
c  Perform the calculation of the oriented OR after a tillage
c     operation.
c
      rh = impl_rh
      rw = impl_rw
      rs = impl_rs
      rd = impl_rd
      dh = impl_dh
      ds = impl_ds
	  
      return
      end