Index | Rundeck: P1SoM40 | Created: Mon May 20 03:30:14 EDT 2024 |
calc_gauss_weight_90 | Module: | File: calc_gauss_weight_90.F90 |
Author :
Version:
Declaration:
subroutine calc_gauss_weight_90(ierr, n, root, weight)
- realk : used from realtype_rd
- i_err_fatal : used from rad_pcf
- errormessagelength : used from errormessagelength_mod
- ereport : used from ereport_mod
- ierr :
integer, intent(inout)
- n :
integer, intent(in)
- root :
real(realk), intent(out), dimension(n)
- weight :
real(realk), intent(out), dimension(n)
- order :
integer
- n_iteration :
integer
- np_gauss_maxit :
integer, parameter
- Initial Value
= 100
- i :
integer
- bracket :
real(realk), dimension(n+1)
- xl :
real(realk)
- xh :
real(realk)
- yl :
real(realk)
- yh :
real(realk)
- x :
real(realk)
- y :
real(realk)
- temp :
real(realk)
- shift :
real(realk)
- wt :
real(realk)
- sum_weight :
real(realk)
- tol_zero :
real(realk)
- cmessage :
character(len=errormessagelength)
- routinename :
character(len=*), parameter
- Initial Value
= 'CALC_GAUSS_WEIGHT_90'