24小时热门版块排行榜

>论坛更新日志 (3277)
>虫友互识 (617)
>导师招生 (174)
>文献求助 (146)
>硕博家园 (86)
>考博 (82)
>论文投稿 (68)
>基金申请 (61)
>教师之家 (59)
>博后之家 (39)
>公派出国 (39)
>考研 (33)
>论文道贺祈福 (32)
>找工作 (26)
>休闲灌水 (25)
>外文书籍求助 (15)

返回列表

周小睿晶

新虫 (小有名气)

应助: 0 (幼儿园)
金币: 599
红花: 2
帖子: 86
在线: 19.2小时
虫号: 2849459
注册: 2013-12-05
性别: MM
专业: 金属材料表面科学与工程

[求助] 请问frotran编译出错命令是怎么回事啊？

请问fortran编译后，出现图中的错误是怎么回事啊？我的对应程序是这样的
         if (t.lt.2000 .and. mod(t,20).eq.0)  then
   write(888,'(A3, 3X, F15.7, 3X, F20.10, 3X, F15.1, 3X, F15.13, 3X, F15.13, 3X, F15.13)')&
&    't2',t2,sum,num,defra,pftin,pfaln
      end if
if (t.lt.200000 .and. mod(t,4000).eq.0)  then
   write(888,'(A3, 3X, F15.7, 3X, F20.10, 3X, F15.1, 3X, F15.13, 3X, F15.13, 3X, F15.13)')&
&    't2',t2,sum,num,defra,pftin,pfaln
      end if
if (t.lt.2000000 .and. mod(t,200000).eq.0) then
   write(888,'(A3, 3X, F15.7, 3X, F20.10, 3X, F15.1, 3X, F15.13, 3X, F15.13, 3X, F15.13)')&
&    't2',t2,sum,num,defra,pftin,pfaln
      end if
if (t.lt.20000000 .and. mod(t,2000000.eq.0) then
   write(888,'(A3, 3X, F15.7, 3X, F20.10, 3X, F15.1, 3X, F15.13, 3X, F15.13, 3X, F15.13)')&
&    't2',t2,sum,num,defra,pftin,pfaln
      end if

1.png

回复此楼