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, parameter :: biggest = sqrt(real(0.0, kind=real128))
real, public :: invalue_local

Source Code

function squarei(invalue) result (dvalue)  ! square an integer value generically
use M_anything, only : anyscalar_to_real
implicit none
class(*),intent(in)  :: invalue
real                 :: invalue_local
real                 :: dvalue
real,parameter       :: biggest=sqrt(real(0.0,kind=real128))
   invalue_local=anyscalar_to_real(invalue)
   !if(invalue_local.gt.biggest)then
   !   write(*,*)'ERROR:*squarei* input value to big=',invalue_local
   !endif
   dvalue=invalue_local*invalue_local
end function squarei