问具有行调用DATSW(0，K)的Fortran IV程序
EN

Stack Overflow用户

提问于 2013-11-07 14:25:54

回答 1查看 72关注 0票数 1

我正在读一篇旧的科学论文，人体生理温度调节的数学模型，并试图将旧的Fortran程序转换成Matlab。

但我遇到了一些问题：

本文介绍了一个用FORTRAN语言编写的程序。有两行具有某种函数的DATSW：

CALL DATSW(0,K)
GO TO (951,950), K
.....
.....
CALL DATSW(1,K)
GO TO (917,1102), K

我试着从其他密码中猜出来，但这真的很难。这两行调用DATSW函数似乎非常重要。有人能帮帮我吗？

fortran

回答 1

Stack Overflow用户

发布于 2013-11-07 14:43:53

一个简单的谷歌搜索让我看到这个问题是在2009年comp.lang.fortran上提出的。谷歌对datsw fortran的第二次搜索让我找到了这段代码的评论，

如果感测开关号CALL DATSW(NSSW,JUMP)为on，则语句NSSW返回JUMP=1，如果关闭，则返回JUMP=2。

在大多数情况下，您可以看到代码本身的虚拟版本。

      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

这段代码似乎是为了让您修改以检查开关。

票数 1

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/19838378

复制

相似问题

问具有行调用DATSW(0，K)的Fortran IV程序
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问具有行调用DATSW(0，K)的Fortran IV程序EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问具有行调用DATSW(0，K)的Fortran IV程序
EN