mod_csout Module

This subroutine does an outwards integration of functions f with an extended 3-point-Simpson:

The starting value for this integration at is determined by a 4 point lagrangian integration, coefficients given by m. abramowitz and i.a. stegun, handbook of mathematical functions, nbs applied mathematics series 55 (1968)

Warning

In case of radial integration : the weights drdi have to be multiplied before calling this subroutine.

B. Drittler Mar. 1989

Modified for functions with kinks - at each kink the integration is restarted

Warning

It is supposed that is less than imt!

B. Drittler july 1989


Subroutines

public subroutine CSOUT(F, FINT, LMMSQD, IRMIND, IRMD, IPAN, IRCUT)

Author
B. Drittler
Date
1989
License
Creative Commons License
Category
KKRimp, radial-grid, numerical-tools

O u t w a r d

i n t e g r a t i o n

o f

m u l t i p l e

f u n c t i o n s

w i t h

e x t .

3

p o i n t

S i m p s o n

Read more…

Arguments

Type IntentOptional Attributes Name
double complex :: F(LMMSQD,IRMIND:IRMD)
double complex :: FINT(LMMSQD,IRMIND:IRMD)
integer :: LMMSQD
integer :: IRMIND
integer :: IRMD
integer :: IPAN
integer :: IRCUT(0:IPAN)