fortran的运行我问题

2module typedef
type student
integer :: num,math,english,chinese,fortran,total,average
integer :: weight,height
character(len=80) :: sex
end type
end module
program ex0615
use typedef
implicit none
type(student) :: s(20)
type(student) :: total,average
real , dimension(4) :: avenum=0, variance=0
type(student) :: temp
type(student) :: sex
integer i,j,q
integer, parameter :: students=20
open(1,file='text.txt')
open(2,file='output.txt')
open(3,file='swap.txt')
open(4,file='grade.txt')
read(1,*)
write(2,'(10a8)') 'num','height','weight','math','english','chinese','fortran','total','average'
write(3,'(10a8)') 'num','height','weight','math','english','chinese','fortran','total','average'
write(4,'(10a8)') 'num','height','weight','math','english','chinese','fortran','total','average'
do i=1,20
read(1,*) s(i)%num,s(i)%sex,s(i)%height,s(i)%weight,s(i)%math,s(i)%english,s(i)%chinese,s(i)%fortran
s(i)%total=s(i)%math+s(i)%english+s(i)%chinese+s(i)%fortran
s(i)%average=s(i)%total/20
if(s(i)%sex=='male') then
write(2,'(10a10)') s(i)
endif
end do
open(2,file='output.txt')
read(2,*)
do i=1,11
do j=i+1,12
if(s(i)%total<s(j)%total) then
temp=s(i)
s(i)=s(j)
s(j)=temp
end if
end do
end do
do q=1,12
write(3,'(10i8)') s(q)
end do

do i=1,20
read(1,*) s(i)%num,s(i)%sex,s(i)%height,s(i)%weight,s(i)%math,s(i)%english,s(i)%chinese,s(i)%fortran
total%math = total%math + s(i)%math
total%english = total%english + s(i)%english
total%chinese = total%chinese + s(i)%chinese
total%fortran = total%fortran + s(i)%fortran
end do
avenum(1)=real(total%math)/20
avenum(2)=real(total%english)/20
avenum(3)=real(total%chinese)/20
avenum(4)=real(total%fortran)/20
do i=1,20
variance(1)=variance(1)+(s(i)%math-avenum(1))**2
variance(2)=variance(2)+(s(i)%english-avenum(2))**2
variance(3)=variance(3)+(s(i)%chinese-avenum(3))**2
variance(4)=variance(4)+(s(i)%fortran-avenum(4))**2
end do
do i=1,4
variance(i)=sqrt(variance(i)/19)
write(4,'(A9,4f9.2)') "variance", variance
enddo

stop
end

这是我的程序。但是运行的结果是乱码的。我找不出错误。
统计一个班（有20个学生其中男生12人，女生8人）的学生信息，要求能实现如下功能。
（1） 输入每个学生的学号，性别，身高，体重和4门课程的成绩（课用文本生成txt文件）
（2） 计算每个男生的平均分和总分。
（3） 按总分从高到低排出男生名次，并按名次输出每个男学生的情况，只包括学号，各科成绩，平均分和总分。
（4） 编写函数求全班每门课程的标准差

write(2,'(10a8)') 'num','height','weight','math','english','chinese','fortran','total','average'
write(3,'(10a8)') 'num','height','weight','math','english','chinese','fortran','total','average'
write(4,'(10a8)') 'num','height','weight','math','english','chinese','fortran','total','average'

以上各语句输出格式错了，把 '(10a8)' 改成 '(10I8)'

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/s87p2p4vm.html