auxval_mod.f90
3c0a5500b5baimproved_sugama

auxval_mod.f90
View Options

			MODULE auxval
			!
			! evaluates intermediate quantities and sum
			!
			USE PREC_CONST
			USE BASIC
			USE MODEL
			USE ARRAY
			use numerics
			!
			IMPLICIT NONE

			!======================================================================!
			CONTAINS
			! inlcude coulomb speed functions

			SUBROUTINE evaluate_auxval
			! evaluate speed integrals of error functions and its derivatives
			!
			IMPLICIT NONE
			!
			! Evaluate (ab) error functions
			call evaluate_ekab
			call evaluate_Erfkab
			!
			!
			END SUBROUTINE evaluate_auxval

			! !======================================================================!
			SUBROUTINE evaluate_ekab
			! computes ekab for k=0,k=Jmax(e,i)
			IMPLICIT NONE
			!
			INTEGER :: ii
			!
			do ii=-5,ERFMAX
			ekab_array(ii) = ekab(ii)
			end do
			!
			END SUBROUTINE evaluate_ekab
			!======================================================================!
			SUBROUTINE evaluate_Erfkab
			! computes Erfkab for k=0,k=Jmax(e,i)
			integer :: ii
			!
			do ii=-5,ERFMAX
			Erfkab_array(ii) = Erfkab(ii)
			end do
			!
			END SUBROUTINE evaluate_Erfkab
			!======================================================================!
			END MODULE auxval