diff --git a/source/f90/get_commandline_options.f90 b/source/f90/get_commandline_options.f90 index 6aac3225c544913c3d71061f0c4ebc1e69b58086..e9977be96a19336c3dbf6636d20485f8b56650ce 100644 --- a/source/f90/get_commandline_options.f90 +++ b/source/f90/get_commandline_options.f90 @@ -24,8 +24,8 @@ subroutine get_commandline_options(eelsin_name, eelsou_name, bosin_name, bosou_n ! Set up the longOpts struct to define the valid options: ! short option, long option, argument (no = 0 / yes = 1), short description type(getopt_t) :: longOpts(8) = & - [ & - getopt_t('v', 'version', 0, 'Print version'), & + [ & + getopt_t('v', 'version', 0, 'Print version'), & getopt_t('V', 'version', 0, 'Print version'), & getopt_t('h', 'help', 0, 'Print options'), & getopt_t('d', 'dir', 1, 'Change I/O directory'), & @@ -45,7 +45,7 @@ subroutine get_commandline_options(eelsin_name, eelsou_name, bosin_name, bosou_n ! Do different things depending on the option returned: select case(option) - case('d') ! Change I/O directory + case('d') ! Change I/O directory status = chdir(trim(optArg)) if (status /= 0) then write (*,*) 'WARNING: change directory failed!'