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