您所在位置：主题：数组输出格式问题，请指点下，谢谢！
大智若愚
[专家分：90] 发布于 2010-09-25 18:23:00
大家好！
有个双精度型数组，我希望在输出的时候，每行输出16个，请问应该怎么做，我弄了好久，好像还是有问题，请指点下，谢谢！
read(1,*) (vapt(i),i=1,np) ！读取数据
ii=0
do k=1,nz
do j=1,ny
do i=1,nx
ii=ii+1
zT=13.5-(z(k)+30)*dwtd/100
if (vapt(ii)>zt+2 .and. zt>hgt) then
vapt(ii)=zt+dift
elseif (vapt(ii)>hgt+1 .and. zt<hgt) then
vapt(ii)=zt+dift
end if
WRITE(3,111) vapt(ii) !此处输出，应该怎么做？[em10]写入数据，每行输出16个数据应该怎么做？
111 format(16F15.3,\)
end do
end do
end do
有个双精度型数组，我希望在输出的时候，每行输出16个，请问应该怎么做，我弄了好久，好像还是有问题，请指点下，谢谢！
read(1,*) (vapt(i),i=1,np) ！读取数据
ii=0
do k=1,nz
do j=1,ny
do i=1,nx
ii=ii+1
zT=13.5-(z(k)+30)*dwtd/100
if (vapt(ii)>zt+2 .and. zt>hgt) then
vapt(ii)=zt+dift
elseif (vapt(ii)>hgt+1 .and. zt<hgt) then
vapt(ii)=zt+dift
end if
WRITE(3,111) vapt(ii) !此处输出，应该怎么做？[em10]写入数据，每行输出16个数据应该怎么做？
111 format(16F15.3,\)
end do
end do
end do