24小时热门版块排行榜    

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

leonaiverson

新虫 (初入文坛)

[交流] 这段代码求解释。这是fortran的什么特性,类似于宏吗,非常不能理解。 已有2人参与

program main
    implicit real*8(a-h,o-z)     
      NXs(nxx)=nxx*NPicX
      NYs(nyy)=nyy*NPicY
      NRs(nxx)=nxx*Nrow
      NCs(nyy)=nyy*Ncol

      NPicX=10
      NPicY=20
      Nrow=30
      Ncol=40
     a= NXs(2)
     b= NYs(5)
     c= NRs(10)
     d= NCs(20)
    end
    代码运行正常。
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

浔荆

木虫 (正式写手)


小木虫: 金币+0.5, 给个红包,谢谢回帖
头四句等式定义了四个语句函数
中间四句给函数中用到的四个变量赋值
下面四句将调用语句函数,得到的返回值赋值给a,b,c,d

注:implicit real是fortran77的风格,强烈建议抛弃该写法,改用implicit none并明确定义每个变量和函数的类型。
2楼2015-11-26 09:52:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

duotojh

金虫 (小有名气)


小木虫: 金币+0.5, 给个红包,谢谢回帖
实际就是相当于C++的内联函数,C语言的预处理宏
3楼2015-11-27 07:39:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 leonaiverson 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 275求调剂 +12 waltzh 2026-04-01 12/600 2026-04-01 21:44 by chyhaha
[考研] 085601材料工程找调剂 +20 oatmealR 2026-03-29 21/1050 2026-04-01 21:00 by lijunpoly
[考研] 重庆大学材料与化工085600,初试370+,求求调剂建议 +3 shzhou_ 2026-04-01 3/150 2026-04-01 20:41 by 无懈可击111
[考研] 070300一志愿211,312分求调剂院校 +14 小黄鸭宝 2026-03-30 14/700 2026-04-01 20:19 by 赖春艳
[考研] 0710生物学考研调剂 +3 李多米lee. 2026-03-27 4/200 2026-04-01 16:21 by zzchen2000
[考研] 330分求调剂 +11 qzenlc 2026-03-29 11/550 2026-04-01 14:32 by chenqifeng666
[考研] 材料调剂 +10 Eujd1 2026-03-31 11/550 2026-04-01 11:23 by ivanqyq
[考研] 08工科,295,接受跨专业调剂 +6 lmnlzy 2026-03-31 6/300 2026-04-01 11:02 by 逆水乘风
[考研] 349求调剂 +6 zwjjjjjj 2026-03-31 6/300 2026-04-01 09:16 by JourneyLucky
[考研] 土木304求调剂 +5 顶级擦擦 2026-03-31 5/250 2026-04-01 08:15 by fdcxdystjk¥
[考研] 材料工程085601数二英一335求调剂 +5 双马尾痞老板2 2026-03-31 5/250 2026-03-31 19:07 by Wang200018
[考研] 0856求调剂 +9 楒桉 2026-03-28 9/450 2026-03-31 19:06 by 暮泽12
[考研] 070300化学354求调剂 +15 101次希望 2026-03-28 15/750 2026-03-31 17:58 by jp9609
[考研] 282求调剂 不挑专业 求收留 +4 Yam. 2026-03-30 5/250 2026-03-31 14:41 by 王亮_大连医科大
[考研] 081200-11408-276学硕求调剂 +4 崔wj 2026-03-31 4/200 2026-03-31 11:56 by jp9609
[考研] 材料化工340求调剂 +3 jhx777 2026-03-30 3/150 2026-03-30 17:54 by JourneyLucky
[考研] 348求调剂 +6 小懒虫不懒了 2026-03-28 6/300 2026-03-30 10:29 by Evan_Liu
[考研] 2026年华南师范大学欢迎化学,化工,生物,生医工等专业优秀学子加入! +3 llss0711 2026-03-28 6/300 2026-03-29 10:26 by llss0711
[考研] 283求调剂 +3 A child 2026-03-28 3/150 2026-03-28 15:41 by ms629
[考研] 341求调剂 +7 青柠檬1 2026-03-26 7/350 2026-03-27 00:19 by wxiongid
信息提示
请填处理意见