Random_Number

Generate random RealVector.

Interfaces

Interface 1

INTERFACE
  MODULE SUBROUTINE Random_Number(obj, tsize)
    CLASS(RealVector_), INTENT(INOUT) :: obj
    INTEGER(I4B), INTENT(IN) :: tsize
  END SUBROUTINE Random_Number
END INTERFACE

Interface 2

INTERFACE
  MODULE SUBROUTINE Random_Number(obj, tsize)
    TYPE(RealVector_), ALLOCATABLE, INTENT(INOUT) :: obj(:)
    INTEGER(I4B), INTENT(IN) :: tsize(:)
  END SUBROUTINE Random_Number
END INTERFACE

️Example 1

PROGRAM main
USE GlobalData
USE BaseType, ONLY: RealVector_
USE RealVector_Method

IMPLICIT NONE

TYPE(RealVector_) :: obj

CALL RANDOM_NUMBER(obj, 5)
CALL Display(obj, "obj: ")
END PROGRAM main

️Example 2

PROGRAM main
USE GlobalData
USE BaseType, ONLY: RealVector_
USE RealVector_Method

IMPLICIT NONE

TYPE(RealVector_), ALLOCATABLE :: obj(:)

! Generate several random vectors by using [Random_Number](Random_Number.md).

CALL RANDOM_NUMBER(obj, [3, 4, 5])
CALL Display(obj, "obj: ")

END PROGRAM main

↢