Subroutine write_lastbest
1225 :
1226 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1227 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1228 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1229 :
1230 : subroutine write_lastbest (var, nvar, obj, final)
1231 : use vom_sce_mod
1232 : implicit none
1233 :
1234 : INTEGER :: nvar
1235 : REAL*8, DIMENSION(nvar) , INTENT(in) :: var
1236 : REAL*8 :: obj
1237 : INTEGER :: final
1238 :
1239 : REAL :: stat
1240 : CHARACTER*80 :: sfile
1241 :
1242 : open(kfile_lastbest, FILE=trim(adjustl(i_outputpath)) // &
1243 : trim(adjustl(sfile_lastbest)))
1244 : write(kfile_lastbest,outformat) var(:), obj
1245 : close(kfile_lastbest)
1246 :
1247 : if (final == 1) then
1248 : open(kfile_beststat, FILE=trim(adjustl(i_outputpath)) // &
1249 : trim(adjustl(sfile_beststat)))
1250 : write(kfile_beststat,*) 1
1251 : close(kfile_beststat)
1252 : endif
1253 :
1254 : return
1255 : end subroutine write_lastbest