24小时热门版块排行榜

返回列表

lx_PICO

铁虫 (正式写手)

应助: 91 (初中生)
金币: 57.8
散金: 1
红花: 15
帖子: 370
在线: 276.7小时
虫号: 2326738
注册: 2013-03-07
性别: GG
专业: 固体力学

[交流] for77里if 后面跟数字的格式是什么意思？已有3人参与

if (j-nc(k)) 22,21,22
21       kk=nc(k-1)+1
      go to 23
22    continue

22,21,22，是指逻辑为真后的执行顺序？以前都是看的f90，没见过这样的格式

回复此楼

» 猜你喜欢

请问哪里可以有青B申请的本子可以借鉴一下。已经有4人回复
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗已经有6人回复
孩子确诊有中度注意力缺陷已经有14人回复
三甲基碘化亚砜的氧化反应已经有4人回复
请问下大家为什么这个铃木偶联几乎不反应呢已经有5人回复
请问有评职称，把科研教学业绩算分排序的高校吗已经有5人回复
2025冷门绝学什么时候出结果已经有3人回复
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入已经有4人回复
康复大学泰山学者周祺惠团队招收博士研究生已经有6人回复
AI论文写作工具：是科研加速器还是学术作弊器？已经有3人回复

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

python如何判定字符串的前几个字符是不是数字？已经有10人回复
vasp 5.2 安装过程 (串行+并行）+(32位+64位) + ifort +intel MKL+ openmpi 已经有47人回复
vasp.4.6编译出错:致命错误，无法从之前的语句错误中恢复已经有7人回复
IET论文被拒了，该如何是好已经有25人回复
Fortran77 代码调试中提示有Syntax error，但却不知道为什么出错。望高人指点！已经有4人回复
ICH Q1A(R2)括号内的R2有什么代表含义啊？已经有4人回复
大家怎么写英文论文？已经有10人回复
Problem - nscf - c_bands: eigenvalues not converged 已经有20人回复
excel表中输入公式需用多层IF函数问题已经有5人回复
求助udf的输入输出已经有16人回复
SCI图的要求如下两句是什么意思？同时，折线图能否用tiff格式？已经有15人回复
[VASP编译]五 Makefile中fortran Flags的解释已经有18人回复
Fortran 90格式的源文件里面可以粘贴Fortran 77格式的子例程吗？已经有4人回复
关于VASP一些琐事的求助（K点，吸附优化等）已经有12人回复
Fortran的格式化输入输出问题已经有14人回复

1楼2015-05-30 11:24:28

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

pippi6

铁杆木虫 (著名写手)

工程和科学数值计算咨询

应助: 413 (硕士)
贵宾: 0.002
金币: 7116.5
散金: 15
红花: 63
帖子: 1639
在线: 798.9小时
虫号: 2469437
注册: 2013-05-14
专业: 计算数学与科学工程计算

★
小木虫: 金币+0.5, 给个红包，谢谢回帖

这个叫算数if语句 (IF - Arithmetic)
如果 j-nc(k) < 0 就 goto 22
如果 j-nc(k) = 0 就 goto 21
如果 j-nc(k) > 0 就 goto 22

这个f90 也承认的，用的人比较少。因为有了if-else then block，实际上不需要这个。

赞一下

回复此楼

2楼2015-05-30 14:52:32

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

lx_PICO

铁虫 (正式写手)

应助: 91 (初中生)
金币: 57.8
散金: 1
红花: 15
帖子: 370
在线: 276.7小时
虫号: 2326738
注册: 2013-03-07
性别: GG
专业: 固体力学

引用回帖:

2楼: Originally posted by pippi6 at 2015-05-30 14:52:32
这个叫算数if语句 (IF - Arithmetic)
如果 j-nc(k) < 0 就 goto 22
如果 j-nc(k) = 0 就 goto 21
如果 j-nc(k) > 0 就 goto 22

这个f90 也承认的，用的人比较少。因为有了if-else then block，实际上不 ...

哦，是早期版本的fortran语法吧？我百度都找不到相关资料，for77的书也没说这种用法，请问哪里能看到相关的资料？谢谢了