5 * Revision 1.1.1.1 1996/04/01 15:02:26 mclareni
10 SUBROUTINE SPLAN1(B1,X,X2,X3,X4,ND)
11 #include "gen/imp64.inc"
14 ************************************************************************
15 * NORBAS, VERSION: 15.03.1993
16 ************************************************************************
19 * FOR COMPUTING 1-DIMENSIONAL B-SPLINES OF DEGREE K = 1
20 * BY MEANS OF ANALYTIC FORMULAE
22 ************************************************************************
26 IF(IABS(ND) .GT. 1) RETURN
27 IF(X .LT. X2 .OR. X .GT. X4) RETURN
38 ELSE IF(ND .EQ. 1) THEN
48 ELSE IF(ND .EQ. -1) THEN
55 B1(2)=(X**2-2*X+X3)/(2*(X3-1))
56 B1(3)=-(X-X3)**2/(2*(X3-1))