[cig-commits] commit: Change israte to logical

[Mercurial]

changeset:   33:53d07f006edc
parent:      31:8077fdb82342
user:        Walter Landry <wlandry at caltech.edu>
date:        Thu Oct 20 11:59:09 2011 -0700
files:       elastic3d.f90
description:
Change israte to logical


diff -r 8077fdb82342 -r 53d07f006edc elastic3d.f90
--- a/elastic3d.f90	Wed Oct 05 20:52:55 2011 -0700
+++ b/elastic3d.f90	Thu Oct 20 11:59:09 2011 -0700
@@ -2082,7 +2082,8 @@ CONTAINS
 #endif
     LOGICAL, INTENT(IN), OPTIONAL :: rate
 
-    INTEGER :: i,i1,i2,i3,israte
+    INTEGER :: i,i1,i2,i3
+    LOGICAL :: israte
     REAL*8 :: period,phi,amp,L,W,Lp,Wp,x1,x2,x3,x,y,beta
 
     REAL*8, PARAMETER :: pi=3.141592653589793115997963468544185161_8