Log Message: |
Subroutine sugwd sets variables of module yoegwd. Better to put it
into module yoegwd.
Variables of module yoegwd other than NKTOPG, NSTRA can be symbolic
constants. sugwd now only sets NKTOPG, NSTRA. Simplified the
computation of NKTOPG, NSTRA by making the local variable zpm1r an
array instead of a scalar and calling ifirstloc.
|