fortran - 暗黙の do ループを使用してファイルに書き込む

Question

Fortran の暗黙の do ループについて助けが必要です。これは私の簡単なコードです:

Program Simple

Implicit none

Integer::i,j
Integer,parameter::N=2,M=3
Real,dimension(N,M)::Pot

Open(1,File='First.txt',Status='old')

    Read(1,'(M(f3.1,1x))') ((Pot(i,j),j=1,M),i=1,N)

Close(1)

Open(2,File='Second.txt',Status='Unknown')

    Write(2,'(M(i0,1x,i0,1x,f3.1,1x))') ((i,j,Pot(i,j),j=1,M),i=1,N)

Close(2)

Stop
End program Simple

これはファイルですFirst.txt：

1.1 1.2 1.3
2.1 2.2 2.3

このプログラムを実行しようとすると、次のメッセージが表示されました。

Unexpected element 'N' in format string
Unexpected element 'M' in format string

write ステートメントで整数変数 N と M の名前を保持したい。それらの値を宣言部分からも保持する方法はありますか?