ran_state::ran_hash Interface Reference

Public Member Functions
subroutine	ran_hash_s (il, ir)
subroutine	ran_hash_v (il, ir)

Detailed Description

Definition at line 58 of file ran_state.F.

Member Function/Subroutine Documentation

ran_hash_s()

subroutine ran_state::ran_hash::ran_hash_s	(	integer(i8b), intent(inout)	il,
		integer(i8b), intent(inout)	ir )

Definition at line 244 of file ran_state.F.

!
!=======================================================================
!                                                                      !
!  DES-like hashing of 32-bit integer, using shifts, xor, and adds to  !
!  make the interval nonlinear function. Scalar version.               !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      integer(i8b), intent(inout) :: il, ir
!
!  Local variable declarations.
!
      integer(i8b) :: is, j
!
!-----------------------------------------------------------------------
!  Bit mixing. The various constants should not be changed.
!-----------------------------------------------------------------------
!
      DO j=1,4
        is=ir
        ir=ieor(ir,ishft(ir,5))+1422217823
        ir=ieor(ir,ishft(ir,-16))+1842055030
        ir=ieor(ir,ishft(ir,9))+80567781
        ir=ieor(il,ir)
        il=is
      END DO
 
      RETURN

ran_hash_v()

subroutine ran_state::ran_hash::ran_hash_v	(	integer(i8b), dimension(:), intent(inout)	il,
		integer(i8b), dimension(:), intent(inout)	ir )

Definition at line 277 of file ran_state.F.

!
!=======================================================================
!                                                                      !
!  DES-like hashing of 32-bit integer, using shifts, xor, and adds to  !
!  make the interval nonlinear function. Vector version.               !
!                                                                      !
!=======================================================================
!
!  Imported variable declarations.
!
      integer(i8b), intent(inout) :: il(:)
      integer(i8b), intent(inout) :: ir(:)
!
!  Local variable declarations.
!
      integer(i8b) :: j
      integer(i8b), dimension(SIZE(il)) :: is
!
!-----------------------------------------------------------------------
!  Bit mixing. The various constants should not be changed.
!-----------------------------------------------------------------------
!
      DO j=1,4
        is=ir
        ir=ieor(ir,ishft(ir,5))+1422217823
        ir=ieor(ir,ishft(ir,-16))+1842055030
        ir=ieor(ir,ishft(ir,9))+80567781
        ir=ieor(il,ir)
        il=is
      END DO
 
      RETURN

---

The documentation for this interface was generated from the following file:

• ROMS/Utility/ran_state.F