I think there might be similar question asked (I didn't find any though). Is there any Fortran 90/95 code to solve coupled ODEs IVP using finite difference or Euler method (I do believe it is available, I didn't find though)? I have about 150 coupled ODEs with IVP of following form,
dx1(t)/dt=a01+a11.x2(t)+a12.x3(t)-b11.x1(t)
dx2(t)/dt=a02+a22.x3(t)-b22.x2(t)
dx3(t)/dt=a03+a31.x1(t)+a32.x2(t)-b13.x3(t)
where a's and b's are constants, t is time,
x1(t=0)=0,x2(t=0)=0,x3(t=0)=0