应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » fortran含有module程序的编译
北京石油化工学院2026年研究生招生接收调剂公告
51/1返回列表
查看: 4166  |  回复: 4
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

庐山活水

铜虫 (小有名气)

[求助] 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

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

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
自信人生二百年，会当击水三千里
1楼 2014-04-03 22:35:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

linrn

至尊木虫 (著名写手)

【答案】应助回帖

就程序中的问题不说了

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

好像gfortran需要这样做。
赞一下 回复此楼
3楼2014-04-09 21:21:50
已阅   回复此楼   关注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的回帖

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的回帖
查看全部 5 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 324求调剂 +5 想上学求调 2026-04-02 5/250 2026-04-02 12:59 by wxiongid
[考研] 0832食品科学与工程学硕282调剂 +3 鱼在水中游a 2026-04-02 5/250 2026-04-02 12:58 by 向上的胖东
[考研] 理学07化学 303求调剂 +15 睿08 2026-03-27 16/800 2026-04-02 12:02 by jndximd
[考研] 08开头看过来！！！ +4 wwwwffffff 2026-03-31 6/300 2026-04-02 11:42 by 均值回归
[考研] 生物学308分求调剂（一志愿华东师大） +5 相信必会光芒万� 2026-03-31 6/300 2026-04-02 10:16 by guoweigw
[考研] 求调剂，一志愿南京师范大学计算机专硕，初试373，六级通过， +3 计算机追梦人 2026-04-01 3/150 2026-04-02 07:57 by fxue1114
[考研] 一志愿南昌大学324求调剂 +12 hanamiko 2026-03-27 12/600 2026-04-01 22:34 by 运气yunqi
[考研] 086502化学工程342求调剂 +7 阿姨复古不过 2026-03-27 7/350 2026-04-01 16:14 by yanflower7133
[考研] 调剂 +5 好好读书。 2026-03-28 7/350 2026-04-01 15:32 by 王亮_大连医科大
[考研] 一志愿郑大085600，310分求调剂 +6 李潇可 2026-03-26 6/300 2026-04-01 14:44 by chenqifeng666
[考研] 086000生物与医药 初试274求调剂 +5 小叮当来了 2026-03-30 6/300 2026-04-01 14:25 by mxj1203
[考研] 288资源与环境专硕求调剂，不限专业，有学上就行 +25 lllllos 2026-03-30 26/1300 2026-04-01 09:52 by 一只好果子?
[考研] 339求调剂 +5 zjjkt 2026-03-31 5/250 2026-04-01 09:18 by JourneyLucky
[考研] 309分085801求调剂 +7 学员Gtwj7W 2026-03-31 7/350 2026-04-01 02:36 by BruceLiu320
[考研] 张芳铭-中国农业大学-环境工程专硕-298 +9 手机用户 2026-03-26 9/450 2026-03-31 18:09 by 544594351
[考研] 281求调剂 +5 亚克西good 2026-03-26 7/350 2026-03-30 20:42 by dophin1985
[考研] 303求调剂 +7 DLkz1314. 2026-03-30 7/350 2026-03-30 16:05 by shuang5186
[考研] 085600，材料与化工321分求调剂 +10 大馋小子 2026-03-28 10/500 2026-03-29 23:35 by 飞行日记西
[考研] 085600，专业课化工原理，321分求调剂 +5 大馋小子 2026-03-28 5/250 2026-03-29 08:56 by qingfeng258
[考研] 材料与化工（0856）304求B区调剂 +8 邱gl 2026-03-27 8/400 2026-03-28 12:42 by 唐沐儿
信息提示
关闭
请填处理意见
关闭