Fix problem with -t, --track command-line flag.

This commit is contained in:
Paul Romano 2014-11-04 22:32:18 -05:00
parent dc8987445b
commit 26fb936f2a

View file

@ -434,7 +434,6 @@ contains
i = i + 1
case ('-t', '-track', '--track')
write_all_tracks = .true.
i = i + 1
case default
call fatal_error("Unknown command line option: " // argv(i))
end select