| 查看: 674 | 回复: 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 ] |
回复此楼» 猜你喜欢
假如你的研究生提出不合理要求
已经有4人回复
-
论文终于录用啦！满足毕业条件了
已经有27人回复
-
所感
已经有3人回复
-
要不要辞职读博？
已经有7人回复
-
不自信的我
已经有11人回复
-
北核录用
已经有3人回复
-
实验室接单子
已经有3人回复
-
磺酰氟产物，毕不了业了！
已经有8人回复
-
求助:我三月中下旬出站，青基依托单位怎么办？
已经有10人回复
-
26申博（荧光探针方向，有机合成）
已经有4人回复
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