24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 741  |  回复: 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的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[硕博家园] 招收生物学/细胞生物学调剂 +4 IceGuo 2026-03-26 5/250 2026-03-29 01:25 by griffith2014
[考研] 070305高分子化学与物理 304分求调剂 +7 c297914 2026-03-28 7/350 2026-03-29 01:17 by 544594351
[考研] 086000生物与医药调剂 +3 Feisty。 2026-03-28 7/350 2026-03-29 00:41 by 544594351
[考研] 295求调剂 +4 wei-5 2026-03-26 4/200 2026-03-28 23:20 by 小木虫tim
[考研] 315求调剂 +4 akie... 2026-03-28 5/250 2026-03-28 21:05 by zhq0425
[考研] 343求调剂 +5 爱羁绊 2026-03-28 5/250 2026-03-28 20:53 by 唐沐儿
[考研] 材料与化工272求调剂 +9 阿斯蒂芬2004 2026-03-28 9/450 2026-03-28 15:21 by 1018329917
[考研] 求化学调剂 +4 wulanna 2026-03-28 4/200 2026-03-28 13:37 by 唐沐儿
[考研] 【求调剂】085601材料工程专硕 | 总分272 | +6 脚滑的守法公民 2026-03-27 6/300 2026-03-28 11:02 by gjlllb
[考研] 339求调剂,想调回江苏 +6 烤麦芽 2026-03-27 8/400 2026-03-28 10:40 by 烤麦芽
[考研] 086000调剂 +3 7901117076 2026-03-26 3/150 2026-03-27 21:34 by Jianing_Mi
[考研] 07化学280分求调剂 +10 722865 2026-03-23 10/500 2026-03-27 15:51 by Plutoqq
[考研] 322求调剂 +4 我真的很想学习 2026-03-23 4/200 2026-03-27 13:51 by 杨杨杨紫
[考研] 求调剂 +3 刘柯@ 2026-03-24 4/200 2026-03-27 11:28 by shangxh
[考研] 调剂 +3 李嘉图·S·路 2026-03-27 3/150 2026-03-27 11:19 by wangjy2002
[考研] 一志愿北化求调剂 +3 Jsman 2026-03-22 3/150 2026-03-26 21:06 by ajpv风雷
[考研] 085602 289分求调剂 +8 WWW西西弗斯 2026-03-24 8/400 2026-03-26 16:33 by 不吃魚的貓
[考研] 材料专硕 335 分求调剂 +4 拒绝冷暴力 2026-03-25 4/200 2026-03-25 18:45 by haxia
[考研] 材料调剂 +3 iwinso 2026-03-23 3/150 2026-03-25 11:29 by greychen00
[考研] 材料考研调剂生 +3 黄粱一梦千年 2026-03-24 3/150 2026-03-24 17:00 by barlinike
信息提示
请填处理意见