关于变化的变量

wshg323

SUBROUTINE RANDOM (x)
       DATA ia,ic,im/8121,28411,134456/
c
       ix = INT(x * FLOAT(im))
       jran = MOD (ix * ia + ic, im)
       x = FLOAT (jran) / FLOAT (im)
       RETURN
       END
x是从上面带进来的一个函数，之前已经赋了一个值，有什么方法可以让这个子程序中计算产生的变量x保存起来，下次再调用此子程序的时候，带入的这个x值就是上次计算产生的x值，而不是在之前赋予的那个值？全局变量common或者module能做到么？谢谢各位大侠！

luyuwuli

这是变量生存期的问题，用save语句试试。

wshg323

2# luyuwuli
thank you !我试试看，呵呵！

wshg323

自己再顶下，希望以前遇到的同志能帮忙解决解决！谢谢