anchor.diff:  !============================================================================
     subroutine RanLux (RVec)
       ! Default Initialization by Multiplicative Congruential
  -    real, intent(out) :: RVec(:)
  +    real(ReKi), intent(out) :: RVec(:)
       integer :: ISeeds(NSeeds - 1), I, IVec, JSeed, K, LEnv, LP
   
  -    real :: tmpTwoM24, tmpTwoM24Seed
  +    real(ReKi) :: tmpTwoM24, tmpTwoM24Seed
   
   ! start subroutine RanLux
       LEnv = Size (RVec)
  
positive.code: !Start bjj:  We want to write to the screen instead of "print *"
  !   use     NWTC_IO
  !End bjj:
    implicit none
  
    integer, parameter :: NSeeds = 25, MaxLev = 4, LxDflt = 3
    real, parameter :: TwoP12 = 4096.0
    integer, parameter :: IGiga = 1000000000, JSDFlt = 314159265, ITwo24 = 2 ** 24, ICons = 2147483563
    integer :: I_ranLux
    integer, parameter :: Next(NSeeds - 1) = (/ NSeeds - 1, (I_ranLux, I_ranLux = 1, NSeeds - 2) /)  ! Table look-up (faster than Mod function).
  
negative.code:       Seeds = Real (ISeeds) * TwoM24
        I24 = NSeeds - 1
        J24 = 10
        Carry = Merge (TwoM24, 0.0_ReKi, Seeds(NSeeds - 1) == 0.0)
      end if
  
        !bjj added to speed up later calculations (b/c I had to fix the "where" statment)
  