squarei Function

function squarei(invalue)

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 squarei(invalue)
      use M_anything, only : anyscalar_to_int64
      class(*),intent(in)  :: invalue
      doubleprecision      :: invalue_local
      doubleprecision      :: squarei
         invalue_local=anyscalar_to_int64(invalue)
         squarei=invalue_local*invalue_local
      end function squarei