fmutil_base.F90 File Reference

Go to the source code of this file.

Modules
module	fmutilbase
	FMUTIL Base Module.

Variables
integer, parameter, public	fmutilbase::dp = real64
	import the fortran environment module for precision-related constants More...
integer, parameter, public	fmutilbase::double
integer, parameter, public	fmutilbase::precision
integer, parameter, public	fmutilbase::kind
integer, parameter, public	fmutilbase::parameter
integer, parameter, public	fmutilbase::qp = real128
integer, parameter, public	fmutilbase::quadruple
integer, parameter, public	fmutilbase::wp = DP
integer, parameter, public	fmutilbase::default
integer, parameter, public	fmutilbase::word
integer, parameter, public	fmutilbase::used
real(wp), parameter, public	fmutilbase::eps = epsilon(1.0_WP)
	Smallest positive real satisfying 1.0_WP + eps > 1.0_WP. More...
real(wp), parameter, public	fmutilbase::inf = huge(1.0_WP)
	Infinity definition. More...
integer, private	fmutilbase::ind
	Identity matrix - 3x3. More...
logical, dimension(*), parameter	fmutilbase::nzind3 = [ (ind == (3*(ind/3)+(ind/3+1)), ind=1,8), .TRUE.]
real(wp), dimension(*, *), parameter, public	fmutilbase::i3 = reshape([merge([(1.0_WP, ind=1,9)], [(0.0_WP, ind=1,9)], nzind3)], [3,3])
logical, dimension(*), parameter	fmutilbase::nzind6 = [ (ind == (6*(ind/6)+(ind/6+1)), ind=1,6**2-1), .TRUE.]
	Identity matrix - 6x6. More...
real(wp), dimension(*, *), parameter, public	fmutilbase::i6 = reshape([merge([(1.0_WP, ind=1,6**2)], [(0.0_WP, ind=1,6**2)], nzind6)], [6,6])