關於字符串和数字的转换問題

楚香饭

确定一下 zhd_mm 应该是 real 类型，还是 character 类型？

你定义为 real 类型

但 read (zhd_mm(1:1),"(a1)") first 这种写法要求它是 character 类型

楚香饭

如果没有数值，是 **** 的话，那么 stat4 就不会是 0，就会 exit 了。

楚香饭

[Fortran] 纯文本查看 复制代码

character( len = 30 ) c_zhd_mm !// c_zhd_mm 定义为字符型
do while (stat4==0)
  read (44,*,iostat=stat4) time_all_zhd,c_zhd_mm !// 通常 * 就足够 read 了
  if (stat4/=0) exit         
  if (time_all_ztd==time_all_zhd) then
    !read (zhd_mm(1:1),"(a1)") first !//这句去掉
    if( c_zhd_mm(1:1) /= "*") then
      read( c_zhd_mm , * ) zhd_mm !// 如果有数值，再从 c_zhd_mm 中读取 zhd_mm
      ztd_mm = ztd_m*1000D0
      zwd_mm = ztd_mm - zhd_mm

楚香饭

从 real 转换成 character 用 write 既可

write( character , * ) real

楚香饭

read 只能把 character 转换为 real（或 integer 或 complex）
write 只能把 real（或 integer 或 complex）转换成 character

你要做什么转换，就用什么语句。不要强求 read 非要倒过来转换。

喝水用杯子，钉钉子用榔头，你非要问能不能用榔头来喝水，那只能说不行。