sqrtany Function

function sqrtany(invalue) result(value)

Uses

Arguments

Type IntentOptional Attributes Name
class(*), intent(in) :: invalue

Return Value doubleprecision


Source Code

      function sqrtany(invalue) result (value)
      use M_anything, only : anyscalar_to_double
      class(*),intent(in)  :: invalue
      doubleprecision      :: value
         value=sqrt(anyscalar_to_double(invalue))
      end function sqrtany