比如说是一维数组（可以是更高维数的数组）

首先定义一个数组 （整数型或是real 等 ）integer,allocatable :: A(:)

然后定义数组的大小 allocate ::(A(x))

x的值你就可以随便取了 例如 从“1”文件中读取 read（1，*）x