Ajuda Fortran

Preciso de ajuda para resolver a segunte equaçao pelo metodo de euler.

dx/dt = v

e

dv/dt = -x.k/m - v.b/m + x³.a/m

Resolva as duas equações acima, usando o método de Euler. O arquivo de
saída deverá ter três colunas t; x; v:

O metodo eu tenho mas juntar a resoluçao da equaçao com o metodo eu nao consigo.
Alguem pode me ajudar???

PROGRAM EULER

REAL x,v,f,t,dt,a,df
t=0
a=2x2
DELTAt=1.e-3 (=10³)
x=1
v=0
open file = 'x³.txt'
do while (t.lt.tf)
f=x-a*x**3
x=x+v dt
v=v+t dt
t=t+ dt
WRITE (2;*) z,x,v
END DO
END PROGRAM EULER