squareall Function

function squareall(invalue) result(dvalue)

Uses

Arguments

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

Return Value doubleprecision


Variables

Type Visibility Attributes Name Initial
doubleprecision, public :: invalue_local

Source Code

      function squareall(invalue) result (dvalue)
      use M_anything, only : anyscalar_to_double
      class(*),intent(in)  :: invalue
      doubleprecision      :: invalue_local
      doubleprecision      :: dvalue
         invalue_local=anyscalar_to_double(invalue)
         dvalue=invalue_local*invalue_local
      end function squareall