如果想让一个函数在无初始值的情况下自动赋值，就用data命令

刚刚发现，在fortran里data的好处

如果想要给某个函数或者过程中的某些变量一个默认值，最好的办法就是用data命令，如下：
function ccc()
...
save y
data y/0/

表示在没有给y赋值的情况下，就让y=0.（如果在主程序中，这个就相当于赋初值）。如果有值的话，就用新的值。而这个新的值是在function里边变的。可是多次调用的时候程序怎么知道这个量被赋过值呢？save就是干这事的。

有点儿类似common语句，不过又不同，这里的data里的变量并不全局通用。注意好像也不能通过主程序来改变它的值。