24小时热门版块排行榜    

CyRhmU.jpeg
查看: 650  |  回复: 13
当前主题已经存档。
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

zzhhmc

木虫 (正式写手)

[交流] 【求助结束】请帮忙解释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 ]
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

★ ★
spc08(金币+1,VIP+0):欢迎常来 8-5 20:59
gwdavid(金币+1,VIP+0):3q 8-9 01:25
datsw 又不是标准函数,你也没有给出它的源码,如何解释其含义呢?通过字面意思?

从注释上看,似乎可以说是 dataswitch,但这是啥,谁知道呢?
4楼2009-08-05 20:35:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 14 个回答

snoopyzhao

至尊木虫 (职业作家)


spc08(金币+1,VIP+0):感谢交流 8-5 20:58
datsw 是什么功能,要看 datsw 的定义,呵呵……

K 是 datsw 这个函数的返回值。
2楼2009-08-05 18:59:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zzhhmc

木虫 (正式写手)

谢谢楼上的回复,只是您还否再帮忙解释一下datsw的含义呢?
3楼2009-08-05 19:23:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zzhhmc

木虫 (正式写手)

谢谢回复,我看到的源程序很长,也没有电子版,无法发上来。但我在google中搜索看到了类似的datsw()语句。http://ftp.ccp14.dl.ac.uk/ccp/cc ... RCE/CRYST/EQUIV.FOR  。看起来datsw()应该是一个标准语句啊,不知有没有谁用过?望赐教!
5楼2009-08-06 16:43:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复(可上传附件)
信息提示
请填处理意见