aselimov/cacmb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Working changes for reading .cac files

Browse source
This commit is contained in:
Alex Selimov 2020-04-22 12:52:37 -04:00
parent e6d7741060
commit b3e05da6a4
5 changed files with 83 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/call_option.f90
View file

@ -33,8 +33,10 @@ subroutine call_option(option, arg_pos)
call sbox_ori(arg_pos)
case('-delete')
call run_delete(arg_pos)
case('-set_cac')
arg_pos = arg_pos+3
case default
print *, 'Option ', trim(adjustl(option)), ' is not currently accepted.'
stop 3
end select
end subroutine call_option
end subroutine call_option