pscad中关于保存上一时刻值问题

acsef

大家好，我在pscad中用fortran语言写了一段程序，是关于求整个过程中某一个变量的最大值，程序如下：      #STORAGE REAL:1      #LOCAL REAL X
0 r- h% O) x5 z! k      #LOCAL REAL Y
( Y9 v4 z7 }& W4 I( l      #LOCAL INTEGER MY_NSTORF
" Y3 R- y' z, O! C' p7 x" j      MY_NSTORF=NSTORF+1
3 H. _  i7 Z- L1 R8 U+ A      NSTORF=NSTORF+1
! y% _$ U% m8 Y3 s2 n2 g      IF(TIMEZERO) THEN
8 i. |2 I1 m4 C: I# n: v$ ^      STORF(MY_NSTORF)=0
0 j+ l# K) f; Q; B# ~$ C( c      ENDIF
      X=STORF(MY_NSTORF)
      Y=$CZ
      IF(Y>X) THEN
0 ^2 l/ s* _6 e8 ^# ]      $ZZ=Y
) a7 S( ~" M8 H, s8 Z% G; W7 S      ELSE
      $ZZ=X
0 h8 Y2 L: X8 F1 s4 q# p      ENDIF
      STORF(MY_NSTORF)=$ZZ
" l' d0 W2 `( v; n# v7 y+ {+ A0 {在新建的工程里面是可以运行的，且是对的，但是放在我自己建立的另外一个比较复杂的工程里运行时，会导致我原来的工程运行不正常，求高手解答。

redplum

顶楼主一下

monsoon

MY_NSTORF=NSTORF+1改成MY_NSTORF=NSTORF试试？

acsef

回复 3# monsoon
% B! V. w: O8 |1 ^  r( L0 Y
/ e7 |; y/ ?6 T  A不行啊，大概是什么原因造成的。

liaoma010101

回复 4# acsef
: J( o5 _6 m$ F. s5 m$ |. C可能是系统中还有其他的模块中变量用到了存储数组，也就是说指针NSTORF被多次赋值、调用，当你要NSTORF指向自己想要保存的变量X时，其实NSTORF的地址已经被其他变量的调用命令改变了，结果就不再指向变量X。

liaoma010101

回复 4# acsef
这样也就解释了，为什么在新建工程中程序可以跑、复杂工程中不行。因为新建工程中没有别的模块变量，而复杂工程中有很多模块用到了存储数组。

mingyu

关注一下。

acsef

回复 6# liaoma010101


   那要如何对它进行修改呢！

段书记

很好，非常有用，谢谢了好东西呀，

gezhi3lee

学习了