File tree Expand file tree Collapse file tree 2 files changed +8
-0
lines changed
Expand file tree Collapse file tree 2 files changed +8
-0
lines changed Original file line number Diff line number Diff line change @@ -38,6 +38,7 @@ program icfpc2025solver
3838 use solver_mod, only: solver_t
3939 type (solver_t) :: solver
4040 call solver% init(arg)
41+ call solver% submit()
4142 end block
4243 end if
4344end program icfpc2025solver
Original file line number Diff line number Diff line change @@ -8,6 +8,7 @@ module solver_mod
88 type (library_t) :: library
99 contains
1010 procedure :: init
11+ procedure :: submit
1112 end type solver_t
1213 public :: solver_t
1314contains
@@ -50,4 +51,10 @@ function generate_plans(task) result(plans)
5051 end if
5152 end function generate_plans
5253 end subroutine init
54+ subroutine submit (solver )
55+ use solution_mod, only: solution_t
56+ class(solver_t), intent (inout ) :: solver
57+ type (solution_t) :: solution
58+ call solution% init(solver% library)
59+ end subroutine submit
5360end module solver_mod
You can’t perform that action at this time.
0 commit comments