--- dmtrx.F.orig	2008-01-21 23:36:06.000000000 +0900
+++ dmtrx.F	2008-01-21 23:36:17.000000000 +0900
@@ -50,7 +50,7 @@
 *
 *"         < 1. semi-implicit の行列 >
 *
-         FLAPLA = - REAL( N ) * REAL( N+1 ) / ER**2
+         FLAPLA = - Real( N ) * Real( N+1 ) / ER**2
 *
          DO 1000 M = 0, MIN(N,MMAX), MINT
             IF ( N-M .LE. LMAX ) THEN