! Coeficientii BDF pentru k =1:6
subroutine gen_coef()
use work

! k=1:
c(1,0) =1; c(1,1) =-1;

! k=2:
c(2,0) =3._8/2.; c(2,1) =-2.; c(2,2) =1._8/2.

! k =3:
c(3,0) =11._8/6.; c(3,1) =-3.; c(3,2) =3._8/2.; c(3,3) =-1._8/3. 

! k =4:
c(4,0) =25._8/12.; c(4,1) =-4.; c(4,2) =3.; c(4,3) =-4._8/3.; c(4,4) =1._8/4.;

! k =5:
c(5,0) =137._8/60.; c(5,1) =-5.; c(5,2) =5.; c(5,3) =-10._8/3.; c(5,4) =5._8/4.; c(5,5) =-1._8/5.;

! k =6:
c(6,0) =147._8/60.; c(6,1) =-6.; c(6,2) =15._8/2.; c(6,3) =-20._8/3.; c(6,4) =15._8/4.; c(6,5) =-6._8/5.; c(6,6) =1._8/6.;

!
!write(2,*) c(5,:)
END