fortran 程序(应该是很简单的小程序)

Fortran源自于“公式翻译”（英语：FormulaTranslation）的缩写，是一种编程语言。

它是世界上最早出现的计算机高级程序设计语言，广泛应用于科学和工程计算领域。FORTRAN语言以其特有的功能在数值、科学和工程计算领域发挥着重要作用。

随着FORTRAN语言版本的不断更新和变化，语言不兼容性问题日益突出，语言标准化工作被提上了日程。

1962年5月：美国标准化协会(简称ANSI)着手进行FORTRAN语言标准化的研究工作。

1966年：ANSI正式公布了两个标准文本：美国国家标准FORTRAN(ANSI X3.9-1966)和美国国家标准基本FORTRAN(ANSI X3.10-1966)，前者相当于FORTRAN Ⅳ，后者相当于FORTRANⅡ。基本FORTRAN是美国国家标准FORTRAN的一个子集，从而实现了语言的向下兼容，初步解决了语言的兼容性问题。

两步，解决问题。

一、出错的read那句改成：read(1,"(9i2)")((A(i,j),i=1,9),j=1,9)

二、数据文件改格式修改一下：删除空行，行首添加一个空格。

不过，你的程序并不能输出有效答案。我看到的输出与输入数据是一样的。

很久不用fortran了 刚调试了一下 可以通过

program main

implicit none

real(4)::a(10),b(8),c(5)

print*,"enter a(10):"

read*,a

print*,"enter b(8):"

read*,b

print*,"enter c(5):"

read*,c

call sort(a,10)

call sort(b,8)

call sort(c,5)

print*,"a:",a

print*,"b:",b

print*,"c:",c

end program main

subroutine sort(array,n)

implicit none

integer::n,i,j,k

real(4)::array(n)

do i=1,n

do j=i+1,n

if(array(i)>array(j))then

k=array(i)

array(i)=array(j)

array(j)=k

end if

end do

end do

end subroutine sort

---