[cig-commits] r14745 - seismo/3D/ADJOINT_TOMO/flexwin

[alessia at geodynamics.org]

Author: alessia
Date: 2009-04-17 13:30:21 -0700 (Fri, 17 Apr 2009)
New Revision: 14745

Modified:
   seismo/3D/ADJOINT_TOMO/flexwin/distaz.f
   seismo/3D/ADJOINT_TOMO/flexwin/make_gfortran
Log:
fixed OPTs in makefile; removed tab characters from distaz.f

Modified: seismo/3D/ADJOINT_TOMO/flexwin/distaz.f
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/distaz.f	2009-04-17 19:52:11 UTC (rev 14744)
+++ seismo/3D/ADJOINT_TOMO/flexwin/distaz.f	2009-04-17 20:30:21 UTC (rev 14745)
@@ -38,11 +38,11 @@
       e=acosf((cos(c)-cos(a)*cos(del))/(sin(a)*sin(del)))
       s=acosf((cos(a)-cos(c)*cos(del))/(sin(c)*sin(del)))
       if (delo .lt. 0.) then
-	azm=360.-c1*e
-	bzm=c1*s
+        azm=360.-c1*e
+        bzm=c1*s
       else
-	azm=c1*e
-	bzm=360.-c1*s
+        azm=c1*e
+        bzm=360.-c1*s
       endif
       return
       end

Modified: seismo/3D/ADJOINT_TOMO/flexwin/make_gfortran
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/make_gfortran	2009-04-17 19:52:11 UTC (rev 14744)
+++ seismo/3D/ADJOINT_TOMO/flexwin/make_gfortran	2009-04-17 20:30:21 UTC (rev 14745)
@@ -1,4 +1,4 @@
-OPT= -m32 -ffixed-line-length-132 -Wall
+OPT= -m32 -Wall
 FC = gfortran
 CFLAGS= ${OPT}