Subroutine writepars
1194 :
1195 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1196 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1197 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1198 :
1199 : subroutine writepars ()
1200 : use vom_sce_mod
1201 : implicit none
1202 :
1203 : INTEGER :: ii
1204 : CHARACTER(len=135) :: msg
1205 :
1206 : write(kfile_progress,*) " "
1207 : write(msg,'("PARAMETER| VALUE | MINVAL | MAXVAL | CV (%) ")')
1208 : write(kfile_progress,*) TRIM(msg)
1209 : do ii = 1, nopt
1210 : write(msg,'(a9,5e14.6)') parname(optid(ii)), shufflevar(optid(ii),1), parmin(optid(ii)), parmax(optid(ii)), cv_(ii)
1211 : write(kfile_progress,*) TRIM(msg)
1212 : enddo
1213 : write(kfile_progress,*) ' '
1214 :
1215 : if (success .eq. 1) then
1216 : call write_lastbest(shufflevar(:,1), vom_npar, bestobj, 1)
1217 : endif
1218 :
1219 : if (success .eq. 2) then
1220 : call write_lastbest(shufflevar(:,1)*0.d0, vom_npar, 0.d0, 1)
1221 : endif
1222 :
1223 : return
1224 : end subroutine writepars