--- dsetc.F.orig	2001-12-11 14:02:31.000000000 +0900
+++ dsetc.F	2008-01-21 23:37:09.000000000 +0900
@@ -68,7 +68,7 @@
 *"         < 3.  コリオリ因子, Uファクター )
 *
       PI     = ATAN ( 1. )*4.
-      OMEGA  = 2. *PI / REAL( IDAYL )
+      OMEGA  = 2. *PI / Real( IDAYL )
 *
       DO 3100 I = 1, IDIM
          DO 3110 J = 1, JDIM
@@ -261,7 +261,7 @@
          DO 1110 L = 0 , LEND
             AN = L + M
             IF ( AN .GT. 0.1 ) THEN
-               DIFTN  = ( AN*( AN+1. )/REAL(NMAX) )**(IDORDR/2)
+               DIFTN  = ( AN*( AN+1. )/Real(NMAX) )**(IDORDR/2)
                DIFMAX = MAX( DIFMAX, DIFTN )
                DIFT( NMO(1,M,L) )  = DIFTN
                DIFT( NMO(2,M,L) )  = DIFTN
@@ -271,14 +271,14 @@
 *
       IF( NMAX .GT. 0 )THEN
          DO 1200 NM = 1 , NMDIM
-            DIFV( NM ) = DIFT( NM ) - ( 2. /REAL(NMAX) )**(IDORDR/2)
+            DIFV( NM ) = DIFT( NM ) - ( 2. /Real(NMAX) )**(IDORDR/2)
  1200    CONTINUE
       ENDIF
 *"                                      !" 竹広 92/07/20 上記 IF 節追加
 *
 *"                 < 2. 拡散係数を決める >
 *
-      DIFVAL = 1. / REAL(IEFOLD)
+      DIFVAL = 1. / Real(IEFOLD)
 *
 *"                 < 3. 拡散のファクター >
 *