24小时热门版块排行榜

>论坛更新日志 (3817)
>文献求助 (395)
>导师招生 (310)
>虫友互识 (290)
>硕博家园 (154)
>博后之家 (153)
>休闲灌水 (138)
>考博 (124)
>论文投稿 (109)
>基金申请 (86)
>招聘信息布告栏 (51)
>考研 (50)
>教师之家 (48)
>公派出国 (40)
>绿色求助(高悬赏) (37)
>找工作 (36)

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

optunity

金虫 (小有名气)

应助: 0 (幼儿园)
金币: 3005.6
帖子: 101
在线: 43.9小时
虫号: 758819
注册: 2009-04-27
性别: GG
专业: 金属非晶态、准晶和纳米晶

[求助] fortran语言汉字乱码

很久之前的老程序，fortran语言编写，现在在win7/xp系统下面如何运行？在cmd进入的dos里面运行汉字无法显示，或者是乱码。

回复此楼

» 猜你喜欢

到新单位后，换了新的研究方向，没有团队，持续积累2区以上论文，能申请到面上吗已经有7人回复
申请2026年博士已经有5人回复
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入已经有5人回复
寻求一种能扛住强氧化性腐蚀性的容器密封件已经有6人回复
2025冷门绝学什么时候出结果已经有7人回复
请问有评职称，把科研教学业绩算分排序的高校吗已经有6人回复
Bioresource Technology期刊，第一次返修的时候被退回好几次了已经有7人回复
请问哪里可以有青B申请的本子可以借鉴一下。已经有4人回复
请问下大家为什么这个铃木偶联几乎不反应呢已经有5人回复
康复大学泰山学者周祺惠团队招收博士研究生已经有6人回复

1楼2013-11-12 14:28:07

已阅关注TA 给TA发消息送TA红花 TA的回帖

一秋之雨

木虫 (正式写手)

应助: 4 (幼儿园)
金币: 4783.9
散金: 101
帖子: 481
在线: 202.9小时
虫号: 2576964
注册: 2013-08-01
性别: GG
专业: 基础物理学

★
月只蓝: 金币+1, 鼓励交流！ 2013-11-19 08:39:19

看看这个程序：

module typedef
  type student
integer Chinese,English,Math
  end type
end module

program ex0907
  use typedef
  implicit none
  type(student) :: s
  character(len=80) :: filename = "data.txt"
  integer, parameter :: fileid = 10
  logical alive
  integer :: error
  integer :: no

  inquire(file=filename, exist=alive)
  if ( .not. alive ) then
write(*,*) trim(filename)," doesn't exist."
stop
  end if

  open(fileid, file=filename)
  do while(.true.)
read(fileid,"(5X,I2,/,5XI3,6XI3,6XI3)",iostat=error) no,s
if ( error/=0 ) exit
write(*,"(I2'号中文:'I3' 英文:'I3' 数学:'I3)"