petra
/
AdventOfFortran
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fmt

main
Petra 2023-12-06 21:23:56 +13:00
parent 6fbf94efc8
commit 5c5dba9198
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
2023/src/day05b.f90
View File

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