upcast Interface

public interface upcast

Module Procedures

private pure elemental module subroutine upcast_r(lo, hi)

Send the value of lo to hi, respecting the kind of the types

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	lo
real(kind=qp),	intent(out)			::	hi

private pure elemental module subroutine upcast_c(lo, hi)

Send the value of lo to hi, respecting the kind of the types

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=dp),	intent(in)			::	lo
complex(kind=qp),	intent(out)			::	hi