shape_corr Subroutine

public subroutine shape_corr(lpot, natyp, gsh, ilm_map, imaxsh, lmsp, ntcell, w, yr, lassld, lmpotd, natypd, ngshd)

Prepares shape corrections using gaussian quadrature as given by m. abramowitz and i.a. stegun, handbook of mathematical functions and applied mathematics series 55 (1968), pages 887 and 916.

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	lpot
integer				::	natyp
real(kind=dp)				::	gsh(ngshd)
integer				::	ilm_map(ngshd,3)
integer				::	imaxsh(0:lmpotd)
integer				::	lmsp(natypd,*)
integer				::	ntcell(*)
real(kind=dp)				::	w(lassld)
real(kind=dp)				::	yr(lassld,0:lassld,0:lassld)
integer				::	lassld
integer				::	lmpotd
integer				::	natypd
integer				::	ngshd