]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1.1.1 1996/04/01 15:02:26 mclareni | |
6 | * Mathlib gen | |
7 | * | |
8 | * | |
9 | #include "gen/pilot.h" | |
10 | SUBROUTINE SPLAN0(B0,X,X1,X2,ND) | |
11 | #include "gen/imp64.inc" | |
12 | DIMENSION B0(1) | |
13 | ||
14 | ************************************************************************ | |
15 | * NORBAS, VERSION: 15.03.1993 | |
16 | ************************************************************************ | |
17 | * | |
18 | * TEST-ROUTINE SPLAN0 | |
19 | * FOR COMPUTING 1-DIMENSIONAL B-SPLINES OF DEGREE K = 0 | |
20 | * BY MEANS OF ANALYTIC FORMULAE | |
21 | * | |
22 | ************************************************************************ | |
23 | ||
24 | B0(1)=0 | |
25 | IF(ND .GT. 0) RETURN | |
26 | IF(ND .EQ. 0) THEN | |
27 | IF(X1 .LE. X .AND. X .LE. X2) B0(1)=1 | |
28 | RETURN | |
29 | ENDIF | |
30 | IF(X1 .LT. X) B0(1)=MIN(1D0,X-X1) | |
31 | RETURN | |
32 | END | |
33 | ||
34 | ||
35 |