Commit e434e15b authored by Antoine Jego's avatar Antoine Jego
Browse files

fix cli args

parent 06b351ad
......@@ -98,9 +98,19 @@ program fstarpu_example_dgemm
read(str(1:i),*) q
call get_command_argument(7, value=str, length=i)
read(str(1:i),*) t
if (command_argument_count() == 8) then
trace = .true.
end if
do j = 8, command_argument_count()
call get_command_argument(j, value=str, length=i)
select case(str)
case('t')
trace = .true.
case('f')
lflush = .true.
case('p')
prune = .true.
case('h')
prune_handles = .true.
end select
end do
if (mod(m,bs).ne.0) stop 75
if (mod(n,bs).ne.0) stop 75
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment