ut_randomInterface.F90

Go to the documentation of this file.

Module ut_randomInterface
!! NOTICE
!!  Copyright 2022 UChicago Argonne, LLC and contributors
!!
!!  Licensed under the Apache License, Version 2.0 (the "License");
!!  you may not use this file except in compliance with the License.
!!
!!  Unless required by applicable law or agreed to in writing, software
!!  distributed under the License is distributed on an "AS IS" BASIS,
!!  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
!!  See the License for the specific language governing permissions and
!!  limitations under the License.
  interface
     subroutine ut_randomSeed( ut_size, ut_put, ut_get)
       integer, optional, dimension(:), intent(OUT) :: ut_get
       integer, optional, dimension(:), intent(IN) :: ut_put
       integer, optional, intent(OUT) :: ut_size
     end subroutine ut_randomSeed
  end interface
 
  interface
     subroutine ut_randomNumber(x)
       real, intent(OUT) :: x
     end subroutine ut_randomNumber
  end interface
 
  interface
     subroutine ut_randomNumberArray(x)
       real, intent(OUT) :: x(:)
     end subroutine ut_randomNumberArray
  end interface
 
end Module ut_randomInterface