请用fortran语言来设计一个程序计算下面题目

x**y的含义是x的y次方；
3**5的含义是3的5次方,
3**5/2 = （3*3*3*3*3）/2 = 243/2 = 121 (结果一定是整数,同类型数据计算,结果类型不变)

IF(a(i)>=max)then
max=a(i)
a(i)=a(10)
a(10)=max
end if

表示如果
i-19小于0,跳转至1语句执行.
如果
i-19等于0,跳转至1语句执行.
如果
i-19大于0,跳转只2语句执行.
这是十分古老的写法,目前已经被语法抛弃.建议自己书写时不要这样写,只要看到认识就可以.

eal*8 :: a(n)
real*8 :: temp
integer :: i,j
do i=1,n-1
do j=i+1,n
if (a(i) .lt. a(j)) then
temp = a(i)
a(i) = a(j)
a(j) = temp
endif
enddo
enddo

CHARACTER COMENT(*)*60
意思是,定义一个字符串数组,名字叫 coment,（每个元素的）长度是60,其元素的个数由实参决定.
CHARACTER ANT*(*)
意思是,定义一个字符串,名字叫 ant,其长度由实参决定.
Program Baidu_Thlws
Implicit None
character :: c(5)*60 , a*40 !// a 的长度是40,c 的长度是 60,有5个元素
c(:) = 'cccccccc'
a = 'aaaaaaaaaa'
call sub( c , a )
Contains
Subroutine sub( coment , ant )
CHARACTER COMENT(:)*60
CHARACTER ANT*(*)
Integer :: i
write(*,*) len( coment ) , len(ant) !// 他俩的长度分别是 60 和 40.ant 的长度由实参,也就是 a 决定
write(*,*) ant
Do i = 1 , 5
write(*,*) coment(i)
End do
End subroutine sub
End Program Baidu_Thlws
这样假定长度,假定大小的数组,只能对虚参进行,也就是函数 Subroutine sub( coment , ant ) 列表里的 coment 和 ant.其他变量不能这样定义.
另外,我非常强烈建议你不要使用假定大小数组.这样很容易造成内存泄露.
更科学,更符合新语法的定义是这样：
Character( Len = * ) :: coment(:) , ant
用 coment(:) 来代替 coment(*),这样的话,子程序会知道 coment 一共有5个元素.
Program Baidu_Thlws
Implicit None
character :: c(5)*60 , a*40 !// a 的长度是40,c 的长度是 60,有5个元素
c(:) = 'cccccccc'
a = 'aaaaaaaaaa'
call sub( c , a )
Contains
Subroutine sub( coment , ant )
Character( Len = * ) :: coment(:) , ant
Integer :: i
write(*,*) len( coment ) , len(ant) !// 他俩的长度分别是 60 和 40.ant 的长度由实参,也就是 a 决定
write(*,*) ant
Do i = 1 , size(coment) !// 这里可以用 size 来获得 coment 的元素,也就是 5
write(*,*) coment(i)
End do
End subroutine sub
End Program Baidu_Thlws

我相信,你的代码里绝对不止这一句.
既然没学过 Fortran,那我建议你认真系统的学习 Fortran.
write 语句是基本的 Fortran 输出语句,在 Fortran 代码里,是使用很广泛的.
如果 write 语句你阅读还有困难,我也相信,你的困难,绝不在于这一句代码.
系统的学习,是你目前最需要的,单独的挑出代码中的一句两句求助,对你没有太大的帮助.
WRITE(IU,FORM) (((C(NX,NY,NZ),NX=1,NGXC),NY=1,NGYZ),NZ=1,NGZC)
表示输出
IU 输出到的目标,IU 极大可能是一个文件通道号,在前面的代码里用 Open 语句打开的文件,表示输出到该文件中.（也可能不是,需结合你的其他代码确定）
FORM 表示使用该字符串变量,作为输出的格式.（也需要结合你当前 FORM 的值来讲解）
(((C(NX,NY,NZ),NX=1,NGXC),NY=1,NGYZ),NZ=1,NGZC)
是三层循环.隐循环.
他类似于
Do nz = 1 , NGZC
Do ny = 1 , NGYZ
Do nx = 1 , NGXC
write( IU,FORM ) C(nx,ny,nz)
End Do
End Do
End Do
但隐循环,是同一个write 语句.即,输出为一行.
而显循环,是 NGZC*NGYZ*NGXC 个输出语句,即,输出为多行.
当然,执行效率上,两者也有差别.

错误原因如ls
至于“但当我把所有的i和x交换,其他不变,就没有问题,能够的到正确的结果.”是因为fortran的I-N规则,以字母IJKMLN开头的变量,如果没有定义,默认为整形,交换以后,虚参I是整形,所以就没有问题了

DIMENSION M(12)
OPEN(10,FILE='FILE3.DAT')
READ(10,*) (M(I),I=1,12)
DO 10 J=1,12
IF (M(J).GE.60) N=N+1
10 CONTINUE
WRITE(*,20) N
20 FORMAT(2X,'N=',I2)
END
!程序错误太多,都已改正并上机通过.运行结果是9,没错.

fortran语言中的一种循环格式为do/end do.举个例子: 1～100间所有整数求和sum = 0
do i = 1,100
sum = sum + i
end do

（K=1,J=1）（K=1,J=2）（K=2,J=1）（K=2,J=2)的顺序
现在的语法不建议用 continue 结束.你的语句这样写更符合现代语法：
Do k = 1 ,2
Do j = 1 ,2
End Do
End Do