program main
implicit none
character(len=80) a,b
integer c,d,e
write(*,*) "请输入字符串："
read(*,"(A80)") a
d=1
c=len_trim(a)
do e=1,c,1
  if(a(e:e)/=' ') then
    b(d:d)=a(e:e)
d=d+1
  end if
end do
write(*,"(A80)") b      本人现在正在学fortran 上面是我编的程序 为什么在read处加不加"(A80)"计算的结果不一样呢
end  
program main
implicit none
character(len=80) a,b
integer c,d,e
write(*,*) "请输入字符串："
read(*,"(A80)") a
d=1
c=len_trim(a)
do e=1,c,1
  if(a(e:e)/=' ') then
    b(d:d)=a(e:e)
d=d+1
  end if
end do
write(*,"(A80)") b
end
本人现在正在学fortran 上面是我编的程序 为什么在read处加不加"(A80)"计算的结果不一样呢

 

 

本人现在正在学fortran 上面是我编的程序 为什么在read处加不加"(A80)"计算的结果不一样呢

  QQ

A80 是读取时用的格式 如果不加就是自由格式 你可以检查一下 你的输入文件格式 与你定义的格式 是不是一至