squarei Function

function squarei(invalue) result(dvalue)

Uses

Arguments

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

Return Value real(kind=real128)


Variables

Type Visibility Attributes Name Initial
real(kind=real128), public :: invalue_local

Source Code

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