问题1：

有一简单程序，如下：

PROGRAM aa
IMPLICIT NONE
REAL(8),DIMENSION(n):: a
REAL(8),DIMENSION(n):: b
........

对于数组的维数 n，想通过文件（如：data.txt）读取，不知如何做到一点。

问题2：
Module可以进行数据共享，在程序间进行数据传递。假设有如下一数据模块

Module aa
IMPLICIT NONE

REAL(8), PARAMETER :: a1
REAL(8), PARAMETER :: a2
REAL(8), PARAMETER :: a3

End Module aa

类似问题1，想在程序最初通过读取文件中的数据给a1，a2，a3等赋值，然后在程序中的各部分通过Use Module aa引用这部分数据，如何做到这一点