squarei Function

function squarei(invalue) result(dvalue)

Uses

Arguments

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

Return Value real


Variables

Type Visibility Attributes Name Initial
real, public :: invalue_local

Source Code

      function squarei(invalue) result (dvalue)
      use M_anything, only : anyscalar_to_real
      class(*),intent(in)  :: invalue
      real                 :: invalue_local
      real                 :: dvalue
         invalue_local=anyscalar_to_real(invalue)
         dvalue=invalue_local*invalue_local
      end function squarei