--- asetl.F.orig	2001-12-11 14:02:31.000000000 +0900
+++ asetl.F	2008-01-21 23:32:45.000000000 +0900
@@ -103,8 +103,8 @@
 *
       PI = ATAN( 1. ) *4.
       DO 1100 I = 1, IDIM
-         ALON  ( I ) = REAL( I-1 ) / REAL( IMAX ) * 2. * PI
-         DLON  ( I ) = 1. / REAL( IMAX )
+         ALON  ( I ) = Real( I-1 ) / Real( IMAX ) * 2. * PI
+         DLON  ( I ) = 1. / Real( IMAX )
  1100 CONTINUE
 *
 *"         < 2. 軸の名称 >