我用这个来输出数据，是用fortran写的，结果一个值输出很多次，请问有什么办法，只输出一次？
do k=1,MM
do i=1,360
open(19,file='c:\2\shiyan.dat')
do j=3,300
do w=3,j
if(pp_z(i,j,k)>25.and.pp_z(i,j,k)-pp_z(i,w,k)>=4)then
write(19,'(6f12.2)')(pp_z(i,j,k),j=3,300)
endif
enddo
enddo
enddo
enddo