Random_Number

Generate a 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

This example initiates an instance of RealVector_

PROGRAM main
  USE easifemBase
  IMPLICIT NONE
  TYPE( RealVector_ ) :: obj

Generate a random vector by using Random_Number.

  CALL Random_Number(obj, 5)
  CALL Display( obj, "obj: ")

END PROGRAM main

️܀ Example 2

This example initiates an instance of RealVector_

PROGRAM main
  USE easifemBase
  IMPLICIT NONE
  TYPE( RealVector_ ), ALLOCATABLE :: obj(:)

Generate several random vectors by using Random_Number.

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

END PROGRAM main

↢