Rev | Line | |
---|
[12] | 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.