| 查看: 652 | 回复: 13 | |||
| 当前主题已经存档。 | |||
[交流]
【求助结束】请帮忙解释call datsw（）语句的含义
|
|||
|
我对照Fortran 77 书籍阅读一段老程序，其中有一段： c output dataswitch 0 up for table, 1 up for punch call datsw (0,k) go to (951,950),k 其中，datsw是什么功能？另外变量K是从哪里冒出来的？前面的程序也没有提到，是不是有什么特殊含义？请各位高手帮忙解释一下这段程序。谢谢！ [ Last edited by zzhhmc on 2009-8-24 at 10:32 ] |
回复此楼» 猜你喜欢
请问有评职称，把科研教学业绩算分排序的高校吗
已经有6人回复
-
2025冷门绝学什么时候出结果
已经有6人回复
-
Bioresource Technology期刊，第一次返修的时候被退回好几次了
已经有7人回复
-
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗
已经有8人回复
-
寻求一种能扛住强氧化性腐蚀性的容器密封件
已经有5人回复
-
请问哪里可以有青B申请的本子可以借鉴一下。
已经有4人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
-
AI论文写作工具：是科研加速器还是学术作弊器？
已经有3人回复
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
2楼2009-08-05 18:59:57
3楼2009-08-05 19:23:00
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
4楼2009-08-05 20:35:47
| 谢谢回复，我看到的源程序很长，也没有电子版，无法发上来。但我在google中搜索看到了类似的datsw()语句。http://ftp.ccp14.dl.ac.uk/ccp/cc ... RCE/CRYST/EQUIV.FOR 。看起来datsw()应该是一个标准语句啊，不知有没有谁用过？望赐教！ |
5楼2009-08-06 16:43:33
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
6楼2009-08-06 18:21:37
3344520yan
银虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1040.6
- 帖子: 86
- 在线: 12.5小时
- 虫号: 735676
- 注册: 2009-03-30
- 性别: GG
- 专业: 半导体材料
7楼2009-08-07 20:20:06
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
8楼2009-08-08 09:46:27
9楼2009-08-08 10:36:06
tjyl
金虫 (正式写手)
- 程序强帖: 2
- 应助: 0 (幼儿园)
- 金币: 3218.1
- 红花: 2
- 帖子: 576
- 在线: 156.6小时
- 虫号: 765184
- 注册: 2009-05-07
- 专业: 生物无机化学
- 管辖: 程序语言
★ ★ ★
gwdavid(金币+2,VIP+0):3q 8-9 01:26
zzhhmc(金币+1,VIP+0):谢谢帮忙搜索资料 8-19 14:25
gwdavid(金币+2,VIP+0):3q 8-9 01:26
zzhhmc(金币+1,VIP+0):谢谢帮忙搜索资料 8-19 14:25
|
google "subroutine datsw " http://www.ccl.net/cca/software/SOURCES/FORTRAN/simplex/simplex.f SUBROUTINE DATSW (NSSW,JUMP) C C DUMMY VERSION OF SUBROUTINE DATSW -- ALL SWITCHES OFF. C C J. P. CHANDLER, COMPUTER SCIENCE DEPARTMENT, C OKLAHOMA STATE UNIVERSITY C INTEGER NSSW,JUMP C JUMP=2 RETURN END |
10楼2009-08-09 00:26:01