13 lines
242 B
FortranFixed
13 lines
242 B
FortranFixed
subroutine lfitbasisfuncs(x,afunc,ma)
|
|
implicit none
|
|
integer ma
|
|
double precision x,afunc(ma)
|
|
afunc(1)=1.0d0
|
|
afunc(2)=x
|
|
if(ma.gt.2)then
|
|
afunc(3)=x*x/1000.0d0
|
|
endif
|
|
return
|
|
end
|
|
|