5 * Revision 1.1.1.1 1996/04/01 15:02:26 mclareni
10 SUBROUTINE SPLAN0(B0,X,X1,X2,ND)
11 #include "gen/imp64.inc"
14 ************************************************************************
15 * NORBAS, VERSION: 15.03.1993
16 ************************************************************************
19 * FOR COMPUTING 1-DIMENSIONAL B-SPLINES OF DEGREE K = 0
20 * BY MEANS OF ANALYTIC FORMULAE
22 ************************************************************************
27 IF(X1 .LE. X .AND. X .LE. X2) B0(1)=1
30 IF(X1 .LT. X) B0(1)=MIN(1D0,X-X1)