Subroutine writeloop

1163 : 
1164 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1165 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1166 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1167 : !     * WRITE shufflevar AND ofvec OF LAST LOOP TO FILE AND TERMINATE
1168 : 
1169 :       subroutine writeloop ()
1170 :       use vom_sce_mod
1171 :       implicit none
1172 : 
1173 :       INTEGER             :: ii
1174 :       REAL*8, ALLOCATABLE :: tmp_8(:)
1175 : 
1176 :         open(kfile_lastloop, FILE=trim(adjustl(i_outputpath)) // &
1177 :              trim(adjustl(sfile_lastloop)))
1178 :           write(kfile_lastloop,'(i3)')  ncomp2
1179 :           write(kfile_lastloop,'(i4)')  nloop
1180 :           write(kfile_lastloop,'(i10)') nrun
1181 :           write(kfile_lastloop,'(i10)') nsincebest
1182 :           write(kfile_lastloop,loopformat) ofvec(:)
1183 :           allocate(tmp_8(sopt))
1184 :           do ii = 1, vom_npar
1185 : !           * use temporary variable to prevent warning in ifort
1186 :             tmp_8(:) = shufflevar(ii,:)
1187 :             write(kfile_lastloop,loopformat) tmp_8(:)
1188 :           enddo
1189 :           deallocate(tmp_8)
1190 :         close(kfile_lastloop)
1191 : 
1192 :       return
1193 :       end subroutine writeloop