Initiate

Initiate an instance of RealVector.

Interface 1

܀ Interface

INTERFACE
  MODULE PURE SUBROUTINE Initiate(obj, tSize)
    CLASS(RealVector_), INTENT(INOUT) :: obj
    INTEGER(I4B), INTENT(IN) :: tSize
  END SUBROUTINE Initiate
END INTERFACE

️܀ See example

This example show how to initiate an instance of RealVector_

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

Allocate the size of the vector using Allocate method.

  CALL Allocate(obj, 10)
  CALL Display( obj, "test1")

  obj = RealVector(10)
  CALL Display( obj, "test1")

Initiate an instance of RealVector_ by using Initiate.

  CALL Initiate(obj, 10)
  CALL Display( obj, "test1")

END PROGRAM main

↢

Interface 2

܀ Interface

INTERFACE
  MODULE PURE SUBROUTINE Initiate(obj, tSize)
    TYPE(RealVector_), ALLOCATABLE, INTENT(INOUT) :: obj(:)
    INTEGER(I4B), INTENT(IN) :: tSize(:)
  END SUBROUTINE Initiate
END INTERFACE 

️܀ See example

This example initiates an instance of RealVector_

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

Allocate the size of vector of real vector by using Initiate.

  CALL Initiate(obj, [5,5])
  CALL Display( obj, "test1")

END PROGRAM main

↢

Interface 3

܀ Interface

INTERFACE
  MODULE PURE SUBROUTINE Initiate(obj, a, b)
    CLASS(RealVector_), INTENT(INOUT) :: obj
    INTEGER(I4B), INTENT(IN) :: a, b
  END SUBROUTINE Initiate
END INTERFACE

️܀ See example

This example initiates an instance of RealVector_

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

Allocate the size from a to b by using Initiate method.

  CALL Initiate(obj, 2, 10)
  CALL Display( obj, "obj(a:b)=")

END PROGRAM main

↢

Interface 4

܀ Interface

INTERFACE
  MODULE PURE SUBROUTINE Initiate(obj, dofobj)
    CLASS(RealVector_), INTENT(INOUT) :: obj
    CLASS(DOF_), INTENT(IN) :: dofobj
  END SUBROUTINE Initiate
END INTERFACE 

️܀ See example

This example shows the usage of Initiate method from DOF_.

PROGRAM main
  USE easifemBase
  IMPLICIT NONE
  TYPE( RealVector_ ) :: obj
  TYPE( DOF_ ) :: dofobj
  REAL( DFP ) :: ans, value

Initiate an instance of DOF_

  CALL Initiate( obj=dofobj, &
    & tNodes=[4, 2], &
    & names=["V", "P"], &
    & spaceCompo=[2,1], &
    & timeCompo=[2,2], &
    & StorageFMT=DOF_FMT)

Initiate an instance of RealVector_

  CALL Initiate(obj, dofobj)
  CALL Display(obj, "obj = " )
  CALL Display( obj, dofobj, 'obj:' )

END PROGRAM main

↢

Interface 5

܀ Interface

INTERFACE
  MODULE PURE SUBROUTINE Initiate(obj, dofobj)
    TYPE(RealVector_), ALLOCATABLE, INTENT(INOUT) :: obj(:)
    CLASS(DOF_), INTENT(IN) :: dofobj
  END SUBROUTINE Initiate
END INTERFACE

️܀ See example

This example shows the use of Initiate method to construct an instance of RealVector

↢