Skip to content

Add objective function to once-through mfile #3044

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
jonmaddock merged 1 commit into from
Feb 5, 2024
Merged

Add objective function to once-through mfile #3044

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
8 changes: 6 additions & 2 deletions source/fortran/final_module.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -22,10 +22,11 @@ end subroutine final_header

subroutine no_optimisation()
use constants, only: mfile, nout
use numerics, only: neqns, nineqns, ipeqns, icc, lablcc, rcm
use numerics, only: neqns, nineqns, ipeqns, icc, lablcc, rcm, norm_objf
use process_output, only: int_to_string3, ovarre, ocmmnt, oblnkl, osubhd, &
oheadr
use constraints, only: constraint_eqns
use function_evaluator, only: funfom

implicit none

Expand All @@ -34,12 +35,15 @@ subroutine no_optimisation()
character(len=1), dimension(ipeqns) :: sym
character(len=10), dimension(ipeqns) :: lab

!call funfom(objfun)

call oheadr(nout,'Numerics')
call ocmmnt(nout,'PROCESS has performed a run witout optimisation.')
call oblnkl(nout)

! Evaluate objective function
call funfom(norm_objf)
call ovarre(mfile,'Normalised objective function','(norm_objf)',norm_objf)

! Print the residuals of the constraint equations
call constraint_eqns(neqns+nineqns,-1,con1,con2,err,sym,lab)
write(nout,120)
Expand Down