promote Function

function promote(value1, value2, value3)

Arguments

Type IntentOptional Attributes Name
class(*), intent(in) :: value1
class(*), intent(in) :: value2
class(*), intent(in) :: value3

Return Value doubleprecision, allocatable


Source Code

   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