Web pdp-10.trailing-edge.com

Trailing-Edge - PDP-10 Archives - decuslib10-02 - 43,50145/sg13.doc
There are 2 other files named sg13.doc in the archive. Click here to see a list.
```SUBROUTINE SG13

PURPOSE
TO COMPUTE A VECTOR OF SMOOTHED FUNCTION VALUES GIVEN
VECTORS OF ARGUMENT VALUES AND CORRESPONDING FUNCTION
VALUES.

USAGE
CALL SG13(X,Y,Z,NDIM,IER)

DESCRIPTION OF PARAMETERS
X	 -  GIVEN VECTOR OF ARGUMENT VALUES (DIMENSION NDIM)
Y	 -  GIVEN VECTOR OF FUNCTION VALUES CORRESPONDING TO X
(DIMENSION NDIM)
Z	 -  RESULTING VECTOR OF SMOOTHED FUNCTION VALUES
(DIMENSION NDIM)
NDIM  -  DIMENSION OF VECTORS X,Y,AND Z
IER	 -  RESULTING ERROR PARAMETER
IER = -1  - NDIM IS LESS THAN 3
IER =  0  - NO ERROR

REMARKS
(1)	IF IER=-1 THERE HAS BEEN NO COMPUTATION.
(2)	 Z CAN HAVE THE SAME STORAGE ALLOCATION AS X OR Y.  IF
X OR Y IS DISTINCT FROM Z, THEN IT IS NOT DESTROYED.

SUBROUTINES AND SUBPROGRAMS REQUIRED
NONE

METHOD
EXCEPT AT THE ENDPOINTS X(1) AND X(NDIM), EACH SMOOTHED
VALUE Z(I) IS OBTAINED BY EVALUATING AT X(I) THE LEAST-
SQUARES POLYNOMIAL OF DEGREE 1 RELEVANT TO THE 3 SUCCESSIVE
POINTS (X(I+K),Y(I+K)) K = -1,0,1.(SEE HILDEBRAND, F.B.,
INTRODUCTION  TO NUMERICAL ANALYSIS, MC GRAW-HILL, NEW YORK/
TORONTO/LONDON, 1956, PP.258-311.)
```