Catch cases when mol%ftype == 0

Signed-off-by: Igor S. Gerasimov <foxtranigor@gmail.com>

Author: foxtran

src/prog/main.F90

@@ -1093,6 +1093,7 @@ subroutine xtbMain(env, argParser)
           (set%runtyp == p_run_omd) .or. (set%runtyp == p_run_screen) .or. &
           (set%runtyp == p_run_metaopt) .or. (set%runtyp == p_run_bhess)) then
          call generateFileName(tmpname, 'xtbopt', extension, mol%ftype)
+         if (mol%ftype == 0) mol%ftype = getFileType(tmpname)
          write (env%unit, '(/,a,1x,a,/)') &
             "optimized geometry written to:", tmpname
          call open_file(ich, tmpname, 'w')