downcast Interface

public interface downcast

Module Procedures

private pure elemental module subroutine downcast_r(hi, lo)

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

Arguments

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

private pure elemental module subroutine downcast_c(hi, lo)

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

Arguments

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