! calculates subintegral function for father FT[I * q^4] transform
subroutine calcSubIntIq4(nLayers, thickness, delta,
& nPoints, Qz, subInt)
implicit none
*DEC$ ATTRIBUTES STDCALL, DLLEXPORT :: calcSubIntIq4
*DEC$ ATTRIBUTES ALIAS : '_calcSubIntIq4' :: calcSubIntIq4
integer*4 nLayers ! nTotalLayers + substrate
integer*4 nPoints
real*8 thickness(nLayers) ! 1 - substrate
real*8 delta(nLayers) ! -"-
real*8 Qz(nPoints)
real*8 subInt(nPoints)
*DEC$ ATTRIBUTES VALUE :: nLayers
*DEC$ ATTRIBUTES VALUE :: nPoints
*DEC$ ATTRIBUTES REFERENCE :: thickness
*DEC$ ATTRIBUTES REFERENCE :: delta
*DEC$ ATTRIBUTES REFERENCE :: Qz
*DEC$ ATTRIBUTES REFERENCE :: subInt
|
