Fortran Warning Fixes, master branch (2022.03.22.)
Made sure that all DO
-loops would end in a CONTINUE
statement, and that nested DO
-loops would not share the same CONTINUE
statement. Which apparently are both removed as a possibility from Fortran 2018.
Note that there are a number of places in the code that used to look like the following:
DO 10 I=1,10
DO 10 J=1,10
...
IF (<SOMETHING>) GOTO 10
...
10 CONTINUE
I have no idea how this should be fixed.
DO 10 I=1,10
DO 20 J=1,10
...
IF (<SOMETHING>) GOTO 10
...
20 CONTINUE
10 CONTINUE
or
DO 10 I=1,10
DO 20 J=1,10
...
IF (<SOMETHING>) GOTO 20
...
20 CONTINUE
10 CONTINUE
??? I went with the latter one in this MR. But somebody more versed in Fortran should really speak up...
This is meant as a replacement for !51454 (closed), fixing/addressing AGENE-2140 and ATLINFR-4464.
Pinging @fwinkl as well, just for good measure.
Edited by Attila Krasznahorkay