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