Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(*), | intent(in) | :: | value1 | |||
class(*), | intent(in) | :: | value2 | |||
class(*), | intent(in) | :: | value3 |
function promote(value1,value2,value3) class(*),intent(in) :: value1 class(*),intent(in) :: value2 class(*),intent(in) :: value3 doubleprecision,allocatable :: promote promote=sum([dble(value1),dble(value2),dble(value3)]) end function promote