##// END OF EJS Templates
add Ffiles
add Ffiles

File last commit:

r1601:3b2826fe0d97
r1601:3b2826fe0d97
Show More
spline.h
7 lines | 307 B | text/x-c | CLexer
parameter(nspline=30) ! limited to 40 at present (see below) (was 29)
parameter(norder=4)
parameter(delr=39.0) ! this times nspline ~ top altitude
parameter(t0=800.0)
parameter(t1=3000.0) ! was 3750.0
real ta(nspline+norder),bcoef(nspline,5)
common/spline/ta,bcoef