program hello
real ps1,ps2
integer i,k
dimension g(1)
dimension ps1(3), ps2(3)
ps1(1)=10.0
ps1(2)=19.0
ps1(3)=12.0
ps2(1)=0
ps2(2)=0
ps2(3)=0
DO k=1,3
i=MAXLOC(ps1,dim=1)
ps2(k)=ps1(i)
ps1(i)=-huge(1)
ENDDO
write(*,*)"hello hero, Mr Jiang"
write(*,*) ps2(3)
read(*,*) h
end
Fortran 对一维数组大小进行排序 生成新的数组
最新推荐文章于 2024-07-15 09:00:00 发布