anchor.diff:    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
  +  real(ReKi) :: Carry = 0.0 ! Initialized variables are automatically saved.
  +  real(ReKi), save :: Seeds(NSeeds - 1), TwoM24, TwoM12
     logical, save :: NotYet = .TRUE.
   
  -  real :: Uni
  +  real(ReKi) :: Uni
   
   !bjj
     character(300) :: RanLux_str
  
positive.code: !============================================================================
    subroutine RanLux (RVec)
      ! Default Initialization by Multiplicative Congruential
      real, intent(out) :: RVec(:)
      integer :: ISeeds(NSeeds - 1), I, IVec, JSeed, K, LEnv, LP
  
      real :: tmpTwoM24, tmpTwoM24Seed
  
  ! start subroutine RanLux
      LEnv = Size (RVec)
  
negative.code:   end subroutine RLuxGo
  !============================================================================
    function RCarry (N) result (Uni)  ! Private (in module); generates a sequence of N uniform random numbers; returns the last one.
      real(ReKi) :: Uni
      integer, intent(in) :: N
      integer :: Many
  ! start function RCarry
  