[cig-commits] r4679 - seismo/1D/syndat/trunk

[barmin at geodynamics.org]

Author: barmin
Date: 2006-10-02 16:20:32 -0700 (Mon, 02 Oct 2006)
New Revision: 4679

Modified:
   seismo/1D/syndat/trunk/green.f
Log:
Fixed ploblem with mk variable and zfcns subroutine


Modified: seismo/1D/syndat/trunk/green.f
===================================================================
--- seismo/1D/syndat/trunk/green.f	2006-10-02 22:46:19 UTC (rev 4678)
+++ seismo/1D/syndat/trunk/green.f	2006-10-02 23:20:32 UTC (rev 4679)
@@ -325,7 +325,7 @@
       subroutine source(fmin,fmax,lmax,nmodes,nmodet)
       implicit none
       include "green.h"
-      integer*4 mk,lmax,nmodes,nmodet
+      integer*4 lmax,nmodes,nmodet
       real*4    fmin,fmax
 c --- common blocks -------------------------------
       real*4    d0,t0,p0,sec,tstart
@@ -668,8 +668,8 @@
 c        b(m,l) is given in G&D (1975) equation (21)
 c  and   X(m,l,theta) is given in G&D (1975) equation (2)
 c          G&D = Gilbert & Dziewonski
+      implicit real*8(a-h,o-z)
       include "green.h"
-      implicit real*8(a-h,o-z)
       common/zfXX/z(3,ml),p(3,ml)
       data pi/3.14159265358979d0/
       z(1,1)=1d0/(4.d0*pi)