intpar:=proc() # # Function intpar sets the parameters to control the # integration of the nonlinear PDE # # Type variables global neqn, nout, nsteps, t0, tf, abserr, relerr: # # Number of first order ODEs neqn:=22: # # Number of output points nout:=6: # # Maximum number of steps in the interval t0 to tf nsteps:=1000: # # Initial, final values of independent variable t0:=0.0: tf:=0.2: # # Error tolerances abserr:=1.0e-01: relerr:=1.0e-05: # # End of intpar end: