Petra 2023-12-06 21:23:56 +13:00
parent 6fbf94efc8
commit 5c5dba9198
1 changed files with 2 additions and 0 deletions

View File

@ -156,6 +156,7 @@ program day5b
print *
print *, "Ranges after section ", sec
print "(2i11)", t2_defs(1:2, 1:t2_n)
print *, "Number of ranges: ", t2_n
if (is_iostat_end(istat)) then
exit
end if
@ -166,6 +167,7 @@ program day5b
min_loc_val = t2_defs(1, t2_i)
end if
end do
print *
print "(a, i11)", "Lowest location value: ", min_loc_val
close(10)