24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 4161  |  回复: 4

庐山活水

铜虫 (小有名气)

[求助] fortran含有module程序的编译 已有2人参与

module types
    implicit none
    type :: personal
        character(len=6)::first
        character::mi
        character(len=6)::last
        character(len=6)::street
        character(len=6)::city
        character(len=6)::state
        integer::zip
    end type personal

end module types
PROGRAM my
   use types
   integer::status,count=0
   character(len=12)::filename
   type(personal),dimension(10)::a
   type(personal)::temp
   write(*,*)'enter the name of the file;'
   read(*,*)  filename
   open (unit=8,file=filename,status='old',action='readwrite',iostat=status)
   openfile: if (status==0) then
               do
                 read(8,110,iostat=status) temp
                    110 format(A6,1X,A,1X,A6,1X,A6,1X,A6,1X,A6,I3)
                  if(status/=0) exit
                      count=count+1
                      a(count)=temp
                  end if
                write(*,*) 'the all:',a
                write(*,*) 'the a(10:',a(1)
              else openfile
                write(*,100)status
                  100 format (1x,'the file open failed----iostat=',i2)
            end if  openfile
            close(unit=8)
END PROGRAM my

编译出现错误:fatal error:types.mod is not a GUN fortran module file

请问这是什么地方出问题了?谢谢
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

自信人生二百年,会当击水三千里
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

fish.yfyh

铜虫 (小有名气)

【答案】应助回帖

(1) 貌似你的代码有点问题, 将a(count)=temp下一行的end if改为end do
(2) 用intel fortran编译器, 我的机子上可以编译过。
2楼2014-04-08 20:16:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

linrn

至尊木虫 (著名写手)

【答案】应助回帖

就程序中的问题不说了

将module定义单独建立一个文件。

好像gfortran需要这样做。
3楼2014-04-09 21:21:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

luxier

新虫 (初入文坛)

引用回帖:
3楼: Originally posted by linrn at 2014-04-09 21:21:50
就程序中的问题不说了

将module定义单独建立一个文件。

好像gfortran需要这样做。

请问用什么文件类型?怎么和主程序关联?我用Inc文件写的module,然后在program开始前使用“        include 'INPUT\INPARA\CModule.inc'
”来进行调用,但是总是提示错误,不能在定义时赋初值。
4楼2018-03-01 20:44:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

linrn

至尊木虫 (著名写手)

定义时赋值,要在参数前加parameter::

发自小木虫Android客户端
5楼2018-03-02 07:07:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 庐山活水 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 材料考研调剂 +3 Gs大王 2026-04-02 3/150 2026-04-02 00:34 by 2026材料调剂
[考研] 材料调剂 +12 一样YWY 2026-04-01 12/600 2026-04-02 00:21 by 百秒光年
[考研] 311求调剂 +13 zchqwer 2026-04-01 15/750 2026-04-01 22:30 by 2026材料调剂
[考研] 085600 一志愿9 总分351 求调剂学校 +7 czhcz 2026-03-31 9/450 2026-04-01 19:24 by 无际的草原
[考研] 26考研调剂 +3 Wnz.20030617 2026-04-01 3/150 2026-04-01 17:22 by salamander`
[考研] 0710生物学考研调剂 +3 李多米lee. 2026-03-27 4/200 2026-04-01 16:21 by zzchen2000
[考研] 调剂 +3 好好读书。 2026-04-01 5/250 2026-04-01 15:39 by 好好读书。
[考研] 生物学327,求调剂 +4 书上的梅子 2026-04-01 5/250 2026-04-01 15:11 by 544594351
[考研] 330分求调剂 +11 qzenlc 2026-03-29 11/550 2026-04-01 14:32 by chenqifeng666
[考研] 086000生物与医药 初试274求调剂 +5 小叮当来了 2026-03-30 6/300 2026-04-01 14:25 by mxj1203
[考研] 土木304求调剂 +3 兔突突突, 2026-03-31 3/150 2026-04-01 09:42 by JourneyLucky
[考研] 318一志愿吉林大学生物与医药 求调剂 +6 笃行致远. 2026-03-28 6/300 2026-04-01 09:28 by oooqiao
[考研] 求调剂 +9 akdhjs 2026-03-31 10/500 2026-03-31 17:14 by zhyzzh
[考研] 085602化工求调剂(331分) +8 111@127 2026-03-30 8/400 2026-03-30 21:23 by 研究僧导导
[考研] 303求调剂 +7 DLkz1314. 2026-03-30 7/350 2026-03-30 21:07 by peike
[考研] 311求调剂 +10 lin0039 2026-03-26 10/500 2026-03-30 10:26 by herarysara
[考研] 070305高分子化学与物理 304分求调剂 +12 c297914 2026-03-28 12/600 2026-03-29 16:21 by Serene1974
[考研] 081200-11408-276学硕求调剂 +6 崔wj 2026-03-26 6/300 2026-03-29 01:11 by hanserlol
[考研] 275求调剂 +10 jjjjjjjjjjl 2026-03-27 10/500 2026-03-27 23:47 by barnett0632
[考研] 298调剂 +3 jiyingjie123 2026-03-27 3/150 2026-03-27 11:57 by wxiongid
信息提示
请填处理意见