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

First working version of reading in .cac format. Works for two separate orientations

Browse source
This commit is contained in:
Alex Selimov 2020-06-02 16:42:12 -04:00
parent 4038cab76f
commit b52d7761e0
4 changed files with 34 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/call_option.f90
View file

@ -34,7 +34,7 @@ subroutine call_option(option, arg_pos)
case('-delete')
call run_delete(arg_pos)
case('-set_cac')
arg_pos = arg_pos+3
arg_pos=arg_pos +3
case default
print *, 'Option ', trim(adjustl(option)), ' is not currently accepted.'
stop 3