anchor.diff:  !Start bjj:  We want to write to the screen instead of "print *"
   !   use     NWTC_IO
   !End bjj:
  +  use precision
     implicit none
   
     integer, parameter :: NSeeds = 25, MaxLev = 4, LxDflt = 3
  -  real, parameter :: TwoP12 = 4096.0
  +  real(ReKi), 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).
  
positive.code:   integer :: I24 = 24, J24 = 10, In24 = 0, Kount = 0, LuxLev = LxDflt, MKount = 0 ! Initialized variables are automatically saved.
    integer, dimension(0: MaxLev) :: NDSkip = (/ 0, 24, 73, 199, 365 /) ! Initialized variables are automatically saved.
    integer, save :: NSkip, InSeed
    real :: Carry = 0.0 ! Initialized variables are automatically saved.
    real, save :: Seeds(NSeeds - 1), TwoM24, TwoM12
    logical, save :: NotYet = .TRUE.
  
    real :: Uni
  
  !bjj
    character(300) :: RanLux_str
  
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)
  