 | Physical and numerical parameters are in a common block |
| scan2 sets parameters in this common block:
subroutine scan2(m_, b_, c_, A_, w_, y0_, tstop_, dt_, func_) real*8 m_, b_, c_, A_, w_, y0_, tstop_, dt_ character func_*(*)can use scan2 to send parameters from Python to F77 |
| timeloop2 performs nsteps time steps:
subroutine timeloop2(y, n, maxsteps, step, time, nsteps) integer n, step, nsteps, maxsteps real*8 time, y(n,0:maxsteps-1)solution available in y |
