版块导航: 正在加载中...

客户端APP下载

调剂小程序

登录注册

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

24小时热门版块排行榜

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

庐山活水

铜虫 (小有名气)

应助: 1 (幼儿园)
金币: 4698.4
散金: 26
红花: 2
帖子: 252
在线: 179.3小时
虫号: 2654377
注册: 2013-09-14
性别: GG
专业: 岩土力学与岩土工程

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

请问这是什么地方出问题了？谢谢

» 猜你喜欢

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

在线急等关于FORTRAN编写空间曲线的B样条拟合程序的问题已经有4人回复
Fortran程序在linux下编译的问题已经有5人回复
如何安装FORTRAN软件已经有23人回复
FORTRAN90标准函数及IMSL标准函数库已经有166人回复
gibbs程序包，fortran版，CPC库程序，没有错误，可直接编译运行已经有9人回复
fortran程序出现Error: Error in opening the Library module file.[MSIMSLMD] 已经有7人回复
fortran编译中$符号的使用已经有4人回复
intel visual fortran中MKL如何使用，是用use module还是include？已经有4人回复
fortran里一个子程序不运行是怎么回事已经有13人回复
关于应用fortran编写高斯消去法程序来求解方程组的问题已经有5人回复
用Fortran编写程序输出的数据一般用什么程序作图比较好？已经有28人回复
Fortran 编译问题已经有9人回复
物理模拟是用c语言好还是fortran好？已经有30人回复
intel fortran局部变量自动更新已经有19人回复
请教一个fortran小程序编译出错的问题，谢谢已经有9人回复
如何用fortran编写高斯白噪声程序已经有6人回复
三维数组换行输入到文件（intel fortran 编译器）已经有6人回复
写了一个fortran90的小程序，编译通不过，请大侠帮忙已经有59人回复
【求助】CUDA支持的Fortran编译器现在只有PGI吗？已经有5人回复
【转帖】intel Fortran编译器的一个“危险”优化已经有9人回复
【求助】Fortran如何调用模块中子程序已经有6人回复
【求助】Intel Visual Fortran与Compaq Visual Fortran的区别？已经有18人回复
【求助】dalton-2.0编译及测试问题【完结】已经有18人回复

自信人生二百年，会当击水三千里

1楼 2014-04-03 22:35:24

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

luxier

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 31.5
帖子: 2
在线: 1.6小时
虫号: 2787359
注册: 2013-11-08
专业: 河流海岸动力学与泥沙研究

引用回帖:

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

铜虫 (小有名气)

应助: 42 (小学生)
金币: 607.9
红花: 4
帖子: 108
在线: 35.9小时
虫号: 2867094
注册: 2013-12-12
专业: 化学生物学与生物有机化学

【答案】应助回帖

(1) 貌似你的代码有点问题, 将a(count)=temp下一行的end if改为end do
(2) 用intel fortran编译器, 我的机子上可以编译过。

2楼2014-04-08 20:16:00

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

linrn

至尊木虫 (著名写手)

应助: 26 (小学生)
金币: 15056.6
散金: 5
红花: 2
帖子: 2171
在线: 283.3小时
虫号: 492936
注册: 2008-01-09
性别: GG
专业: 固体力学

【答案】应助回帖

就程序中的问题不说了

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

好像gfortran需要这样做。

3楼2014-04-09 21:21:50

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

linrn

至尊木虫 (著名写手)

应助: 26 (小学生)
金币: 15056.6
散金: 5
红花: 2
帖子: 2171
在线: 283.3小时
虫号: 492936
注册: 2008-01-09
性别: GG
专业: 固体力学

定义时赋值，要在参数前加parameter：：

发自小木虫Android客户端

5楼2018-03-02 07:07:55

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

查看全部 5 个回答