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