Line | |
---|
1 | function bfldlal(z) |
---|
2 | C |
---|
3 | C---Calcul du champ b en z |
---|
4 | C |
---|
5 | c----------------------------------------------------------------------- |
---|
6 | c Nouvelle version utilisant les fonctions SPLINE |
---|
7 | c----------------------------------------------------------------------- |
---|
8 | c |
---|
9 | include 'param_sz.h' |
---|
10 | include 'debug.h' |
---|
11 | include 'ucom.h' |
---|
12 | c |
---|
13 | common/spline/c(nsplc),zchp(nspl),chp(nspl),ivrai |
---|
14 | dimension v(5) |
---|
15 | v(1)=z |
---|
16 | c |
---|
17 | c---interpolation spline |
---|
18 | c |
---|
19 | call spln2(ivrai,zchp,chp,c,v) |
---|
20 | bfldlal=v(2) |
---|
21 | if(v(5).lt.2. .or. v(5).gt.2.) bfldlal=0. |
---|
22 | return |
---|
23 | end |
---|
24 | c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++* |
---|
Note: See
TracBrowser
for help on using the repository browser.