dimension(NUM_1如果 NUM_1 作为数组的大小。则必须为常数，或虚参变量，或 common 中的确定值。如果你要申明一个变化大小的数组，请使用 allocatable 可分配数组。这是第一个错误，我觉得你先纠正这个错误，其他错误可能会迎刃而解（我不确定，但至少先解决第一个）
