Skip to main content

Allocate

Allocate memory for RealVector.

Interface

܀ Interface
️܀ See example
↢

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

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

Interface