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

acsef

大家好，我在pscad中用fortran语言写了一段程序，是关于求整个过程中某一个变量的最大值，程序如下：      #STORAGE REAL:1      #LOCAL REAL X
      #LOCAL REAL Y
      #LOCAL INTEGER MY_NSTORF
      MY_NSTORF=NSTORF+1
- I9 r- v7 I- l( L. U      NSTORF=NSTORF+1
: n1 E* M5 y& m3 J! r$ O7 Z      IF(TIMEZERO) THEN
$ w) O5 O6 T% V1 N- F; q      STORF(MY_NSTORF)=0
      ENDIF
# h# d  i& S3 T* n+ V$ I* h      X=STORF(MY_NSTORF)
) H5 u6 ^* [* b. Z      Y=$CZ
7 x4 m. p( b4 A0 E( s  o      IF(Y>X) THEN
      $ZZ=Y
9 B8 c  C4 v( a  W, V" N3 E) c      ELSE
      $ZZ=X
      ENDIF
' Z' w' o& i; K5 q/ r      STORF(MY_NSTORF)=$ZZ
9 P8 U0 l+ t# i+ J7 [在新建的工程里面是可以运行的，且是对的，但是放在我自己建立的另外一个比较复杂的工程里运行时，会导致我原来的工程运行不正常，求高手解答。

redplum

顶楼主一下

monsoon

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

acsef

回复 3# monsoon

# d4 K( Z5 `9 n9 F- J! I不行啊，大概是什么原因造成的。

liaoma010101

回复 4# acsef
( w- ?. C9 l2 T. @7 V7 U可能是系统中还有其他的模块中变量用到了存储数组，也就是说指针NSTORF被多次赋值、调用，当你要NSTORF指向自己想要保存的变量X时，其实NSTORF的地址已经被其他变量的调用命令改变了，结果就不再指向变量X。

liaoma010101

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

mingyu

关注一下。

acsef

回复 6# liaoma010101
+ z) K. c- z3 ~
( G1 m. ?- q8 Z- H. p/ o
) b- @7 N3 _$ u6 s: ?. z. Q9 c$ {   那要如何对它进行修改呢！

段书记

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

gezhi3lee

学习了