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

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

IMPLICIT NONE

TYPE(RealVector_) :: obj

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

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

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

END PROGRAM main

↢ close

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

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

IMPLICIT NONE

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

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

END PROGRAM main

↢ close

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

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

IMPLICIT NONE

TYPE(RealVector_) :: obj

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

END PROGRAM main

↢ close

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

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

IMPLICIT NONE

TYPE(RealVector_) :: obj
TYPE(DOF_) :: dofobj
REAL(DFP) :: ans, VALUE

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

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

END PROGRAM main

↢ Close

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

↢ close