| 查看: 747 | 回复: 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 ] |
回复此楼» 猜你喜欢
352分-085602-一志愿985
已经有3人回复
-
291求调剂
已经有4人回复
-
330分求调剂
已经有4人回复
-
309求调剂
已经有4人回复
-
0856求调剂
已经有13人回复
-
0703化学
已经有11人回复
-
329求调剂
已经有7人回复
-
321求调剂
已经有8人回复
-
0856材料化工调剂 总分330
已经有12人回复
-
070300化学354求调剂
已经有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
