anchor.diff:  
     use crcoall
   
  -  integer, intent(in)  :: seriesID
  -  integer, intent(out) :: rndVec(*)
  -  integer, intent(in)  :: vLen
  -  integer, intent(in)  :: iStart
  -  integer, intent(in)  :: iEnd
  +  integer, intent(in)  :: seriesID, vLen
  +  integer, intent(out) :: rndVec(vLen)
  +  integer, intent(in)  :: iStart, iEnd
   
     real(kind=fPrec) randArr(vLen)
     integer i, rSize
  
positive.code:   use mathlib_bouncer
    use numerical_constants, only : two
  
    integer,          intent(in)  :: seriesID
    real(kind=fPrec), intent(out) :: rndVec(*)
    integer,          intent(in)  :: vLen
  
    integer i
    real(kind=fPrec) rndTmp(vLen)
  
negative.code:   use mathlib_bouncer
    use numerical_constants, only : twopi, two
  
    integer,          intent(in)  :: seriesID, vLen
    real(kind=fPrec), intent(out) :: rndVec(vLen)
  
    integer i, iS, iGen, iRem
    real(kind=fPrec) radVal, remVal, rndTmp(vLen), rndAdd(2)
  