24小时热门版块排行榜    

CyRhmU.jpeg
查看: 657  |  回复: 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

至尊木虫 (职业作家)

★ ★ ★ ★
gwdavid(金币+2,VIP+0):欢迎讨论 8-13 09:18
zzhhmc(金币+2,VIP+0):感谢楼上的将我的问题发在论坛上,看来的确是老的编译器支持的东西,虽然还是没有弄清到底是干什么用的。不过还是要特别感谢您的热心帮助。 8-19 14:24
关于 datsw,可以参考最近在 comp.lang.fortran 上的讨论:

http://groups.google.com/group/c ... en#3fb666b46f644d69
引用回帖:
是不是for自带的
库函数

如果是,应该是很久远以前的事情了,现在应该不支持了……
14楼2009-08-13 08:27:29
已阅   回复此楼   关注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的回帖

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的回帖
普通表情 高级回复(可上传附件)
信息提示
请填处理意见