配列の大きさを求めた後で配列宣言したいのですが、
プログラムの途中で　real::配列　としてもエラーになります。
どうすればよいですか？