24小时热门版块排行榜    

查看: 4302  |  回复: 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的回帖

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的回帖
查看全部 5 个回答

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的回帖

linrn

至尊木虫 (著名写手)

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

发自小木虫Android客户端
5楼2018-03-02 07:07:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 澳大利亚 Murdoch University 全奖博士招生(3个名额)地质化工冶金领域 +9 AI8RaGaPaSCR 2026-08-07 9/450 2026-08-13 15:45 by GGlceF2k3sb4
[基金申请] 不应该看fileCode +7 且听虎啸 2026-08-12 9/450 2026-08-13 14:27 by flydreamws
[基金申请] Filecode 又变了,巨变 +3 WH3796 2026-08-12 4/200 2026-08-13 14:13 by 小木虫6752397
[基金申请] FileCode能看出啥? +8 要乐观耀哥 2026-08-10 26/1300 2026-08-13 12:01 by Tide man
[基金申请] 关于Filecode分析方法 +9 majunge000 2026-08-10 11/550 2026-08-13 10:40 by ZH远山
[基金申请] 2019年青年基金涵评意见,大家看看几个A,几个B? +11 Tide man 2026-08-11 11/550 2026-08-13 07:35 by 撸猫猫
[基金申请] 好奇怪的filecode +5 布布和一二 2026-08-08 6/300 2026-08-12 16:11 by 云上清扬
[基金申请] 综述论文作为代表作会不会影响评审专家的印象分? +11 yufeiwaner 2026-08-09 13/650 2026-08-12 08:17 by yufeiwaner
[基金申请] 是这周出结果还是下周出结果? +3 yuleib84 2026-08-11 3/150 2026-08-11 21:53 by jnhyjjm
[基金申请] 小木虫上这么多卖论文的,真有人买论文么?感觉没必要啊 +8 Tide man 2026-08-10 9/450 2026-08-11 20:39 by beefly
[基金申请] 帮忙看看fileCode +7 wwncly 2026-08-10 13/650 2026-08-11 19:36 by 冰心玉壶晴
[基金申请] 基金中了 +15 laoda193707 2026-08-06 15/750 2026-08-11 00:11 by jiafei2190
[基金申请] 静等基金结果 +5 gjjjzhong 2026-08-10 16/800 2026-08-10 17:19 by Tide man
[基金申请] 面上项目filecode邪修 +5 西山十月 2026-08-09 7/350 2026-08-10 07:32 by 仁砚薪传
[基金申请] filecode与中标关系的预测 +5 布布和一二 2026-08-07 5/250 2026-08-09 16:15 by 袁向阳007
[基金申请] fileCode有新解读? +10 Tide man 2026-08-08 18/900 2026-08-09 12:55 by 仁砚薪传
[基金申请] 关于filecode,很负责任的告诉大家 +6 爱看书的可乐 2026-08-08 7/350 2026-08-08 22:13 by a_niu
[基金申请] 国基金的申报应该改成非等额制,评价高的钱多评价低的钱少,但是增加资助率 +7 a089 2026-08-07 7/350 2026-08-08 18:05 by gltch
[基金申请] 关于filecode +4 布布和一二 2026-08-07 7/350 2026-08-07 22:55 by zhanghaozhu
[基金申请] filecode变化情况 +6 布布和一二 2026-08-07 22/1100 2026-08-07 14:45 by 且听虎啸
信息提示
请填处理意见