anchor.diff:        Seeds = Real (ISeeds) * TwoM24
         I24 = NSeeds - 1
         J24 = 10
  -      Carry = Merge (TwoM24, 0.0, Seeds(NSeeds - 1) == 0.0)
  +      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)
  
positive.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 :: Uni
      integer, intent(in) :: N
      integer :: Many
  ! start function RCarry
  
negative.code:     Seeds = Real (ISeeds) * TwoM24
      I24 = NSeeds - 1
      J24 = 10
      Carry = Merge (TwoM24, 0.0_ReKi, Seeds(NSeeds - 1) == 0.0)
  
      ! If restarting at a break point, skip K1 + IGIGA * K2
      ! Note that this is the number of numbers delivered to the user PLUS the number skipped (if Luxury > 0) .
  