Revision
167 -
(
show annotations)
Mon Aug 24 16:30:33 2015 UTC
(8 years, 10 months ago)
by
guez
File size: 365 byte(s)
Added program test_inifilr.
Encapsulated ppm3d into a module and added implicit none. Removed
unused argument dum.
Encountered a problem in procedure invert_zoom_x. With grossismx=2.9,
DZOOMX=0.3, taux=5, for xuv = -0.25, for i = 1, rtsafe fails because
fval is about 1e-16 instead of 0 at xval = pi. So distinguished the
cases abs_y = 0 or pi. Needed then to add argument beta to
invert_zoom_x.
Moved the output of eignvalues of differentiation matrix from inifilr
to inifgn, where they are computed.
Simpler definition of j1 in inifilr.