control_mod.f

      MODULE control_mod
      IMPLICIT NONE
      INTEGER :: nopt_alg
      LOGICAL :: lrestart
      END MODULE control_mod