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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【交流】Fortran语言答疑专帖
北京石油化工学院2026年研究生招生接收调剂公告
15815/16返回列表首页上一页111213141516下一页
查看: 11518  |  回复: 157
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
本帖产生 1 个 程序强帖 ，点击这里进行查看

568286346

木虫 (小有名气)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
我想请问在centos6.3linux系统中如何安装ifort和icc啊？
赞一下 回复此楼
坚持才能实现自己的理想！
141楼2012-11-22 17:05:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

未央八月

铁虫 (小有名气)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
送鲜花一朵
您好，问一下关于编译fortran77程序的问题：
f77 ***.f  $lplt -g -o ***
楼主能普及一下-g -o及$lplt的含义吗？
谢啦！
赞一下 回复此楼
142楼2012-12-02 02:05:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhg19

金虫 (小有名气)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
引用回帖:
3楼: Originally posted by maomao1210 at 2009-06-01 12:41:49
哦。我给你举个例子吧，比如对称矩阵 A
                              A(1,1)     A(1,2)     A(1,3)
                              A(2,1)     A(2,2)     A(2,3)
                              A(3,1)      ...

是否应该II=MAX（I,J）*（MAX（I,J）-1）/2+MIN（I,J）

[ 发自手机版 http://muchong.com/3g ]
赞一下 回复此楼
143楼2013-07-09 13:34:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

btx97

金虫 (小有名气)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
我有个疑问想请教下，
不是说单精度的表示范围：10e-37到10e37吗，那我为什么在fortran里给单精度变量赋值 a=2.1*10**(-15）写出来的a却是0呢，或者当a当分母的时候结果是NAN。这两个情况是不是矛盾了呀？
赞一下 回复此楼
144楼2013-07-09 16:23:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

maomao1210

金虫 (正式写手)
引用回帖:
144楼: Originally posted by btx97 at 2013-07-09 16:23:19
我有个疑问想请教下，
不是说单精度的表示范围：10e-37到10e37吗，那我为什么在fortran里给单精度变量赋值 a=2.1*10**(-15）写出来的a却是0呢，或者当a当分母的时候结果是NAN。这两个情况是不是矛盾了呀？

10**(-1) = 0
10**(-2) =0
.....
....
....
...
10**(-15) = 0
-15是整数，这个肯定是零的呀。
可以修改为 10**（-15.0）
赞一下 回复此楼
145楼2013-07-09 19:01:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

maomao1210

金虫 (正式写手)
引用回帖:
144楼: Originally posted by btx97 at 2013-07-09 16:23:19
我有个疑问想请教下，
不是说单精度的表示范围：10e-37到10e37吗，那我为什么在fortran里给单精度变量赋值 a=2.1*10**(-15）写出来的a却是0呢，或者当a当分母的时候结果是NAN。这两个情况是不是矛盾了呀？

10**(-1) = 0
10**(-2) =0
.....
....
....
...
10**(-15) = 0
-15是整数，这个肯定是零的呀。
可以修改为 10**（-15.0）
赞一下 回复此楼

» 本帖已获得的红花（最新10朵）

btx97
146楼2013-07-09 19:01:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

btx97

金虫 (小有名气)
送红花一朵
引用回帖:
146楼: Originally posted by maomao1210 at 2013-07-09 12:01:38
10**(-1) = 0
10**(-2) =0
.....
....
....
...
10**(-15) = 0
-15是整数，这个肯定是零的呀。
可以修改为 10**（-15.0）...

谢谢！
回复此楼
147楼2013-07-11 15:22:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yydwhu

新虫 (初入文坛)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
请问下,3维数组.10801*5401*66,好象编译不了,怎么处理?
赞一下 回复此楼
148楼2013-07-28 23:06:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

血汗泪

新虫 (小有名气)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
前辈您好，我写了一个计算复数矩阵行列式的小程序，出现错误了，望前辈指点！
        SUBROUTINE CDET(A,N,DET)
        USE MSIMSL
      IMPLICIT INTEGER*4 (I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
        COMPLEX*16 A(N,N),DET
        DIMENSION RAR(N,N),RAI(N,N)
        REAL*8 SS
!C=====================================================================
        RAR=DREAL(A)
        RAI=DIMAG(A)
        F  =1.0
        DET=1.0
!C=====================================================================
        DO L=1,N-1
                RD=0.0
                DO I=L,N
!C=====================================================================
                        DO J=L,N
!C---------------------------------------------------------------------
                                RM=RAR(I,J)*RAR(I,J)+RAI(I,J)*RAI(I,J)
!C---------------------------------------------------------------------
                                IF (RM.GT.RD) THEN
                                        RD=RM
                                        IS=I
                                        JS=J
                                END IF
!C---------------------------------------------------------------------
                        ENDDO
                ENDDO
!C=====================================================================
                IF (RD+1.0.EQ.1.0) THEN
                        DET=0.0
                        RETURN
                END IF
!C=====================================================================
                IF (IS.NE.L) THEN
                        F=-F
!C---------------------------------------------------------------------
                        DO J=L,N
                                P=RAR(L,J)
                                RAR(L,J)=RAR(IS,J)
                                RAR(IS,J)=P
                                P=RAI(L,J)
                                RAI(L,J)=RAI(IS,J)
                                RAI(IS,J)=P
                        ENDDO
!C---------------------------------------------------------------------
                ENDIF
!C=====================================================================
                IF (JS.NE.L) THEN
                        F=-F
!C---------------------------------------------------------------------
                        DO I=L,N
                                P=RAR(I,L)
                                RAR(I,L)=RAR(I,JS)
                                RAR(I,JS)=P
                                P=RAI(I,L)
                                RAI(I,L)=RAI(I,JS)
                                RAI(I,JS)=P
                        ENDDO
!C---------------------------------------------------------------------
                END IF
                DET=DET*DCMPLX(RAR(L,L),RAI(L,L))
!C=====================================================================
                DO J=L+1,N
                        P=RAR(L,J)*RAR(L,L)
                        Q=-RAI(L,J)*RAI(L,L)
                        SS=(RAR(L,L)-RAI(L,L))*(RAR(L,J)+RAI(L,J))
                        RAR(L,J)=(P-Q)/RD
                        RAI(L,J)=(SS-P-Q)/RD
                ENDDO
                DO I=L+1,N
                        DO J=L+1,N
                                P=RAR(I,L)*RAR(L,J)
                                Q=RAI(I,L)*RAI(L,J)
                                SS=(RAR(I,L)+RAI(I,L))*(RAR(L,J)+RAI(L,J))
                                RAR(I,J)=RAR(I,J)-P+Q
                                RAI(I,J)=RAI(I,J)-SS+P+Q
                        ENDDO
                ENDDO
!C---------------------------------------------------------------------
        ENDDO
!C=====================================================================
        DET=F*DET*DCMPLX(RAR(N,N),RAI(N,N))
        RETURN
        END SUBROUTINE
!C=====================================================================
错误为Error: The shapes of the array expressions do not conform.   [DET]
请您看一下，万分感谢！
赞一下 回复此楼
149楼2013-07-29 17:04:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

leixie

铜虫 (正式写手)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
引用回帖:
10楼: Originally posted by snoopyzhao at 2009-06-16 09:42:00
个人认为，如果选择现成的子程序的话，一定要优先考虑 blas  或 lapack 等经过历史检验的，其次才是徐士良、NC 等……...

Fortran菜鸟长见识了。哈哈。
赞一下 回复此楼
真正的平静，不是避开车马喧嚣，而是在心中修篱种菊.
150楼2013-11-07 11:37:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 maomao1210 的主题更新
15815/16返回列表首页上一页111213141516下一页
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 304求调剂 +10 c297914 2026-04-05 11/550 2026-04-06 19:00 by lijunpoly
[考研] 285求调剂 +14 哦呦呼o 2026-04-04 15/750 2026-04-06 17:21 by 蓝云思雨
[考研] 材料调剂 +12 一样YWY 2026-04-05 13/650 2026-04-06 15:38 by lin-da
[考研] 调剂 一志愿吉林大学357分 +5 .Starry. 2026-04-04 5/250 2026-04-06 09:28 by cql1109
[考研] 313求调剂 +5 海日海日 2026-04-04 7/350 2026-04-05 13:58 by imissbao
[考研] 283分求调剂 +9 试试看呗 2026-04-04 9/450 2026-04-05 10:27 by 果冻大王
[考研] 求 +5 化工专硕323分 2026-04-04 5/250 2026-04-05 08:02 by 544594351
[考研] 一志愿郑大0705求调剂 +3 橘十一 2026-04-02 4/200 2026-04-05 00:05 by chongya
[考博] 申博 +7 IQwQl 2026-04-04 7/350 2026-04-04 23:32 by mumin1990
[考研] 283分求调剂 +7 小聂爱学习 2026-04-03 7/350 2026-04-04 21:51 by hemengdong
[考研] 295求调剂 +3 尚偌呀 2026-04-03 4/200 2026-04-03 21:23 by zhq0425
[考研] 11408，284分，二战真诚求调剂 +4 12.27 2026-04-02 4/200 2026-04-03 14:14 by dxiaoxin
[考研] 建环，能源，土木老师路过看一看！！！ +5 嘿嘿uu 2026-04-01 5/250 2026-04-03 11:47 by znian
[考研] 重庆大学材料与化工085600，初试370+，求求调剂建议 +8 shzhou_ 2026-04-01 9/450 2026-04-03 09:31 by 蓝云思雨
[考研] 260求调剂 +3 朱芷琳 2026-04-02 3/150 2026-04-03 08:44 by yulian1987
[考研] 326求调剂 +3 9ahye 2026-04-02 4/200 2026-04-03 08:43 by Jaylen.
[考研] 346求调剂 +5 郑诚乐 2026-04-02 5/250 2026-04-02 16:38 by SZW_UJN
[考研] 26考研调剂 +4 Wnz.20030617 2026-04-01 5/250 2026-04-02 16:11 by 1939136013狗壮
[考研] 一志愿北交大材料工程，总分358 +4 cs0106 2026-04-01 4/200 2026-04-02 07:42 by 尚水阁主
[考研] 083000环境科学与工程调剂，总分281 +4 橙子（胜意） 2026-03-30 4/200 2026-03-31 00:44 by Linzejun
信息提示
关闭
请填处理意见
关闭