1

我正在阅读一篇旧的科学论文,A MATHEMATICAL MODEL OF PHYSIOLOGICAL TEMPERATURE REGULATION IN MAN并试图将旧的 Fortran 程序转换为 Matlab。

但是我遇到了一些问题:

这篇论文描述了一个用 FORTRAN 编写的程序。有两行具有某种功能DATSW

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

我试图从其余的代码中猜测它,但它真的很难。这两行调用DATSW函数似乎很重要。有人可以帮帮我吗?

4

1 回答 1

1

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

如果检测开关编号打开,则该语句CALL DATSW(NSSW,JUMP)返回,如果它关闭。JUMP=1NSSWJUMP=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                                                                       

看来此代码是为了让您修改以检查开关。

于 2013-11-07T14:43:53.453 回答