search

MODFLOW-USGS / mt3d-usgs

MT3D-USGS Repository
23 stars 12 forks source link

End Loops #85

Open milesatstetson opened 4 years ago

milesatstetson commented 4 years ago

GOTO

milesatstetson commented 4 years ago

Looks like there are a few GOTO statements that are being used to exit loops. Took me a bit to figure out that in both cases, it was just terminating the loop early (i.e. EXIT):

mt3d-usgs.f Line 332: GOTO 110 Line 399: IF(ICNVG.EQ.1) GOTO 110

Then you also can remove line 403: " 110 CONTINUE"