Go to the source code of this file.
|
| double precision function | sshift (data, spct, ldspct, nsi, npt, nft, ideriv, srange, ctol, noneg, tmpdat, tmpclc, wspec, work, sfac) |
| |
| double precision function sshift |
( |
double precision, dimension(npt) |
data, |
|
|
double precision, dimension(ldspct,nsi) |
spct, |
|
|
integer |
ldspct, |
|
|
integer |
nsi, |
|
|
integer |
npt, |
|
|
integer |
nft, |
|
|
integer |
ideriv, |
|
|
double precision |
srange, |
|
|
double precision |
ctol, |
|
|
integer |
noneg, |
|
|
double precision, dimension(2*nft) |
tmpdat, |
|
|
double precision, dimension(2*nft) |
tmpclc, |
|
|
double precision, dimension(ldspct,nsi) |
wspec, |
|
|
double precision, dimension(2*nft) |
work, |
|
|
double precision, dimension(nsi) |
sfac |
|
) |
| |