Open bruceravel opened 10 years ago
Worse: when ffmod3() calls fmstot() it doesn't even pass in the last 4 arguments added by !KJ. So, I think this is in the cannot-ever-work category anyway.
So, I wonder if we really need the FMS code. It appears that ffmod3() will segfault.
Guessing: It looks like the compilation complaint must be due to passing in two array bounds ipmin:ipmax in the subroutine call. That seems a little weird, because it is definitely OK (and -finit-local-zero doesn't complain) when one array bound is given as an array dimension -- this happens all over the place. So, I don't know of a quick solution But that declaration of bmat: complex*16 bmat(-lx:lx,0:1,8, -lx:lx,0:1,8,ipmin:ipmax)
is pretty wild: 7 dimensions, most not starting at 1!
Using gfortran's
-finit-local-zero
flag seems like a good idea. Read about it here.However,
FMS/fmstot.f
fails with this error: