×

Loading...
Ad by
  • 推荐 OXIO 加拿大高速网络，最低月费仅$40. 使用推荐码 RCR37MB 可获得一个月的免费服务
Ad by
  • 推荐 OXIO 加拿大高速网络，最低月费仅$40. 使用推荐码 RCR37MB 可获得一个月的免费服务

@Sacramento

各位编程高手，我拷贝了部分子程序，大家能不能看看是用什么语言编的？好像和FORTRAN很类似。是不是其他版本的FORTRAN？多谢！另外，我改了程序名。我想读懂程序，不知道有什么建议。

southnorth(北西南东)
本文发表在 rolia.net 枫下论坛SUBROUTINE CCCCCR(IARG,SLOT)
C SUBROUTINE CCCCR/TCCCR
C IARG = MACHINE ARRAY INDEX
C SLOT = ARRAY ALLOCATION TABLE INDEX
C J = STRTIN(1,SLOT) [ USES CON(J) THROUGH CON(J+10) ]
C K = STRTIN(2,SLOT) [ USES STATE(K) THROUGH STATE(K+2) ]
C L = STRTIN(3,SLOT) [ USES VAR(L) ]
C M = STRTIN(4,SLOT) [ USES ICON(M) AND ICON(M+1) ]
C
$INSERT PARAM4
$INSERT PERM4
$INSERT HEADR4
$INSERT PSSCM4
$INSERT DSCOM4
$INSERT SITCM4
C
INTEGER IBUSA, KOUNTA, JA, KA, LA, MA,
# IARG, SLOT
CHARACTER IMA*1
EXTERNAL BSSEQN, OLDDYN, VLTFOR
INTRINSIC ABS, SQRT
C
INTEGER I, IB, IBUS, J, JJ, K,
# KK, L, M
REAL DEL2, THI, THO, XXRE, XXIM, XXR(2)
COMPLEX XX
LOGICAL NEW
CHARACTER IM*1, VLTI*4
C
EQUIVALENCE (XX,XXR,XXRE), (XXR(2),XXIM)
C
I=IARG
J=STRTIN(1,SLOT)
K=STRTIN(2,SLOT)
L=STRTIN(3,SLOT)
M=STRTIN(4,SLOT)
C
IF (MODE.GT.4) GO TO 1000
C
IF (MSTATE.GT.0) RETURN
C
NEW=MODE.EQ.4
C
WHEN (NEW .OR. (KPAUSE.EQ.2 .AND. MODE.EQ.3) )
. IB=ABS(NUMTRM(I))
. NUMTRM(I)=-IB
C .
. IF (JCODE(IB).NE.2 .OR. MCSTAT(I).LE.0)
. . ICON(M+1)=-IB
. . ZERO-MACHINE-ARRAYS
. . IF (NEW) VAR(L)=0.
. . RETURN
. ...FIN更多精彩文章及讨论，请光临枫下论坛 rolia.net
(#1099711@0)
Last Updated: 2003-3-21
This post has been archived. It cannot be replied.
Report

Replies, comments and Discussions:

  • 工作学习 / IT技术讨论 / 各位编程高手，我拷贝了部分子程序，大家能不能看看是用什么语言编的？好像和FORTRAN很类似。是不是其他版本的FORTRAN？多谢！另外，我改了程序名。我想读懂程序，不知道有什么建议。 -southnorth(北西南东); 2003-3-21 {1631} (#1099711@0)
    本文发表在 rolia.net 枫下论坛SUBROUTINE CCCCCR(IARG,SLOT)
    C SUBROUTINE CCCCR/TCCCR
    C IARG = MACHINE ARRAY INDEX
    C SLOT = ARRAY ALLOCATION TABLE INDEX
    C J = STRTIN(1,SLOT) [ USES CON(J) THROUGH CON(J+10) ]
    C K = STRTIN(2,SLOT) [ USES STATE(K) THROUGH STATE(K+2) ]
    C L = STRTIN(3,SLOT) [ USES VAR(L) ]
    C M = STRTIN(4,SLOT) [ USES ICON(M) AND ICON(M+1) ]
    C
    $INSERT PARAM4
    $INSERT PERM4
    $INSERT HEADR4
    $INSERT PSSCM4
    $INSERT DSCOM4
    $INSERT SITCM4
    C
    INTEGER IBUSA, KOUNTA, JA, KA, LA, MA,
    # IARG, SLOT
    CHARACTER IMA*1
    EXTERNAL BSSEQN, OLDDYN, VLTFOR
    INTRINSIC ABS, SQRT
    C
    INTEGER I, IB, IBUS, J, JJ, K,
    # KK, L, M
    REAL DEL2, THI, THO, XXRE, XXIM, XXR(2)
    COMPLEX XX
    LOGICAL NEW
    CHARACTER IM*1, VLTI*4
    C
    EQUIVALENCE (XX,XXR,XXRE), (XXR(2),XXIM)
    C
    I=IARG
    J=STRTIN(1,SLOT)
    K=STRTIN(2,SLOT)
    L=STRTIN(3,SLOT)
    M=STRTIN(4,SLOT)
    C
    IF (MODE.GT.4) GO TO 1000
    C
    IF (MSTATE.GT.0) RETURN
    C
    NEW=MODE.EQ.4
    C
    WHEN (NEW .OR. (KPAUSE.EQ.2 .AND. MODE.EQ.3) )
    . IB=ABS(NUMTRM(I))
    . NUMTRM(I)=-IB
    C .
    . IF (JCODE(IB).NE.2 .OR. MCSTAT(I).LE.0)
    . . ICON(M+1)=-IB
    . . ZERO-MACHINE-ARRAYS
    . . IF (NEW) VAR(L)=0.
    . . RETURN
    . ...FIN更多精彩文章及讨论，请光临枫下论坛 rolia.net
    • 我觉得是Fortran -pocketmonsters(小胖仙女); 2003-3-21 (#1099782@0)
      • 和原来学过的FORTRAN77好像有些不一样。 -southnorth(北西南东); 2003-3-21 (#1099783@0)
        • 现在应该是 Visual ForTran 2003 .NET 了吧。 -workopolis(﹡ 枫树下の守望者 ﹡); 2003-3-21 (#1099807@0)
          • 这些程序是一个软件的子程序，主要用于模拟一些设备的动态过程。这些设备是通过一些自动控制的框图给出来的。现在具体的设备有些变化，与标准的模型框图不太一样。所以，首先要读懂原来的程序，再琢磨改。 -southnorth(北西南东); 2003-3-21 (#1099822@0)
          • 什么乱七八糟的,赫赫 -needacar123(car); 2003-3-21 (#1100229@0)
    • 再UP一下！顺便说明这个程序是88年编的。老了点？ -southnorth(北西南东); 2003-3-21 (#1099899@0)
    • 应该是Fortran, goto语句,第六行的注释字符都是特征 -rc5(brokenheart); 2003-3-21 (#1100040@0)
      • 我当年也就学过FORTRAN77，后来知道一点MATLAB。但是这个程序中的语法好象不是FORTRAN77中的。所以想知道是哪一个版本，这样可以找相应的材料学习。 -southnorth(北西南东); 2003-3-21 (#1100044@0)
        • 找本Fortran 66的书就可以了, 没有太特别的 -rc5(brokenheart); 2003-3-21 {44} (#1100053@0)
          里面的复数,字符数据定义都是标准的Fortran格式
          • FORTRAN66是不是比77更老的版本啊？ -southnorth(北西南东); 2003-3-21 (#1100093@0)
        • 绝大部分特征是fortran，少数我没见过。 -henhen(哼哼,丫丫); 2003-3-21 (#1100064@0)
    • 不象是FORTRAN, 应是自控专用的语言,但可能用了很多FORTRAN特性. 我原来用过CL语言,想必很少人用过,其实就是稍稍感动的BASIC. CL 现在许多先进控制上用的很多. 请问southnorth(北西南东);你是做自控的吗? -needacar123(car); 2003-3-21 (#1100125@0)
      • 为什么不回答哪?问完就走了.不寥寥? -needacar123(car); 2003-3-23 (#1102829@0)
    • Could it be the MACRO FORTRAN used in EASY5? -engineer(peterpan); 2003-3-21 {225} (#1100258@0)
      I have seen the something like that in EASY5, a control simulation
      program originally from Boeing. Now it is part of MSC product
      family.

      Let me know in what bussiness you are so I can have better idea to
      figure it out.

More Topics

  • 哪位Excel大神帮忙解答一下，一个spreadsheet一表格connection到另外一个spreadsheet，原来的data是数字格式，但是connection以后变成text格式，这是为什么呢？这两天才出现的问题，之前好多年没有过这样的问题。谢谢先
  • 中国政府官方的行为，证明了，苹果手机是世界上最安全的手机。感谢乔布斯先生。感谢库克先生硬是顶住了美国政府的最强大的压力。
  • 老程序员第一次用copilot的一点点体会
  • 现在社区游泳池招救生员巡逻，过一会还要不停的点人头，这工作是否很快就被AI代替了，装一个摄像头后面是AI处理系统，这样只招一个等着救人就行了，人头沉下水一定时间立马强光照射，还可以分析水下人的状况来判断是否溺水等
  • 新冠疫苗引发心肌炎? 最新研究这样看
    • 枫下论坛主坛 /  工作学习 /  IT技术讨论