Question

我正在阅读一篇旧的科学论文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函数似乎非常重要。有人可以帮帮我吗？

Answer 1

简单的Google搜索引导我看到comp.lang.fortran in 2009上提出了这个确切的问题。对datsw fortran的第二次Google搜索引导我发表评论{/ 3}}，

如果感知开关号CALL DATSW(NSSW,JUMP)已启用，则JUMP=1语句会返回NSSW，如果已关闭，则会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

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

带有CALL DATSW（0，K）的Fortran IV程序

1 个答案: