语法问题的报错

qqqrq

“fidis2.f(45) : Error: A dummy argument name is invalid in this context.   [SURFA]
common /area/surfa                                                                                    ”
想将一个文件的变量值赋值到另一个文件的变量中，选用common语句，但出现了这种报错，我查了书，感觉语法没问题，但不知道如何解决。

Transpose

common 中的变量不能做虚参