应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助结束】请帮忙解释call datsw（）语句的含义
北京石油化工学院2026年研究生招生接收调剂公告
51/1返回列表
查看: 743  |  回复: 13
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

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 ]
回复此楼

» 猜你喜欢
1楼 2009-08-05 17:25:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tjyl

金虫 (正式写手)
★ ★ ★
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人) 回复此楼
10楼2009-08-09 00:26:01
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 14 个回答

snoopyzhao

至尊木虫 (职业作家)
★
spc08(金币+1,VIP+0):感谢交流 8-5 20:58
datsw 是什么功能，要看 datsw 的定义，呵呵……

K 是 datsw 这个函数的返回值。
赞一下(10人) 回复此楼
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，但这是啥，谁知道呢？
赞一下(20人) 回复此楼
4楼2009-08-05 20:35:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 14 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿211 初试270分 求调剂 +8 谷雨上岸 2026-03-23 9/450 2026-03-29 01:00 by 我是小康
[考研] 348求调剂 +3 小懒虫不懒了 2026-03-28 3/150 2026-03-29 00:39 by 544594351
[考研] 本科双非材料，跨考一志愿华电085801电气，283求调剂，任何专业都可以 +6 芝士雪baoo 2026-03-28 7/350 2026-03-28 21:40 by zhq0425
[考研] 316求调剂 +7 江辞666 2026-03-26 7/350 2026-03-28 21:28 by sanrepian
[考研] 321求调剂 +6 璞玉~~ 2026-03-25 7/350 2026-03-28 17:48 by 璞玉~~
[考研] 0703化学 +10 妮妮ninicgb 2026-03-27 10/500 2026-03-28 14:07 by 哒哒哒呱呱呱
[考研] 求调剂 +6 芦lty 2026-03-25 7/350 2026-03-28 13:13 by 唐沐儿
[考研] 0703一志愿9，初试成绩：338，四六级已过，有科研经历，求调剂！ +4 Zuhui0306 2026-03-25 4/200 2026-03-28 13:07 by 唐沐儿
[考研] 277跪求调剂 +5 1915668 2026-03-27 9/450 2026-03-28 09:58 by zhshch
[考研] 材料求调剂 一志愿哈工大总分298分，前三科223分 +5 dongfang59 2026-03-27 5/250 2026-03-28 04:53 by wxiongid
[考研] 340求调剂 +5 jhx777 2026-03-27 5/250 2026-03-28 04:18 by fmesaito
[考研] 287求调剂 +10 land xuxu 2026-03-26 10/500 2026-03-27 15:33 by 帕尔马拉特
[考研] 一志愿郑大085600，310分求调剂 +5 李潇可 2026-03-26 5/250 2026-03-27 11:14 by 不吃魚的貓
[考研] 调剂求收留 +7 果然有我 2026-03-26 7/350 2026-03-27 00:26 by wxiongid
[考研] 281求调剂 +6 Koxui 2026-03-24 7/350 2026-03-26 15:37 by 无际的草原
[考研] 网络空间安全0839招调剂 +4 w320357296 2026-03-25 6/300 2026-03-25 17:59 by 255671
[考研] 0854AI CV方向招收调剂 +4 章小鱼567 2026-03-23 4/200 2026-03-25 17:04 by CoderLoser
[考研] 0854人工智能方向招收调剂 +4 章小鱼567 2026-03-24 4/200 2026-03-25 13:29 by 2177681040
[考研] 一志愿北化315 求调剂 +3 akrrain 2026-03-24 3/150 2026-03-24 19:35 by 了了了了。。
[有机交流] 有机合成求助 20+3 FENGSHUJEI 2026-03-23 5/250 2026-03-24 19:31 by 88817753
信息提示
关闭
请填处理意见
关闭