source: PSPA/parmelaPSPA/trunk/bfldlal.f @ 476

Last change on this file since 476 was 12, checked in by lemeur, 12 years ago

parmela pspa initial

File size: 692 bytes
Line 
1      function bfldlal(z)   
2C   
3C---Calcul du champ b en z   
4C   
5c-----------------------------------------------------------------------
6c   Nouvelle version utilisant les fonctions SPLINE
7c-----------------------------------------------------------------------
8c
9      include 'param_sz.h'
10      include 'debug.h'
11      include 'ucom.h'
12c
13      common/spline/c(nsplc),zchp(nspl),chp(nspl),ivrai
14      dimension v(5)   
15      v(1)=z   
16c   
17c---interpolation spline   
18c   
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   
24c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*
Note: See TracBrowser for help on using the repository browser.