A container for holding the defualt complex type.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(complex_container), | intent(in) | :: | this | |||
class(*), | intent(inout) | :: | lhs |
Transfers the container's contents to the variable on the left hand side of the equals sign if it is of the correct type.
type, extends(container) :: complex_container
!! Author: Chris MacMackin
!! Date: December 2015
!!
!! A container for holding the defualt complex type.
contains
private
procedure :: typeguard => complex_guard
end type complex_container