Skip to content
Snippets Groups Projects
Commit 8c9e9713 authored by kamischi's avatar kamischi
Browse files

Tab to space conversion

parent 55e046aa
No related branches found
No related tags found
No related merge requests found
......@@ -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!'
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment