[cig-commits] r4310 - in long/3D/Gale/trunk/src/StGermain: . Discretisation/Geometry/src

[walter at geodynamics.org]

Author: walter
Date: 2006-08-17 17:16:25 -0700 (Thu, 17 Aug 2006)
New Revision: 4310

Modified:
   long/3D/Gale/trunk/src/StGermain/
   long/3D/Gale/trunk/src/StGermain/Discretisation/Geometry/src/stg_lapack.h
Log:
 r2688 at earth:  boo | 2006-08-17 17:14:10 -0700
  r2642 at earth (orig r3723):  KathleenHumble | 2006-07-27 18:21:07 -0700
  Removed the reference to a second blas-lapack call that isn't ready to be used yet.
  (Must have gotten accidentally updated with some other files)
  
 



Property changes on: long/3D/Gale/trunk/src/StGermain
___________________________________________________________________
Name: svk:merge
   - 1ef209d2-b310-0410-a72d-e20c9eb0015c:/cig:2686
afb6c753-b9d0-0310-b4e7-dbd8d91cdd35:/trunk/StGermain:3721
   + 1ef209d2-b310-0410-a72d-e20c9eb0015c:/cig:2688
afb6c753-b9d0-0310-b4e7-dbd8d91cdd35:/trunk/StGermain:3723

Modified: long/3D/Gale/trunk/src/StGermain/Discretisation/Geometry/src/stg_lapack.h
===================================================================
--- long/3D/Gale/trunk/src/StGermain/Discretisation/Geometry/src/stg_lapack.h	2006-08-18 00:16:22 UTC (rev 4309)
+++ long/3D/Gale/trunk/src/StGermain/Discretisation/Geometry/src/stg_lapack.h	2006-08-18 00:16:25 UTC (rev 4310)
@@ -41,16 +41,12 @@
 
 #ifdef FORTRAN_NORMAL
 	#define stg_dgeev dgeev
-	#define stg_zgesvd zgesvd
 #elif FORTRAN_SINGLE_TRAILINGBAR
 	#define stg_dgeev dgeev_
-	#define stg_zgesvd zgesvd_
 #elif FORTRAN_DOUBLE_TRAILINGBAR
 	#define stg_dgeev dgeev__
-	#define stg_zgesvd zgesvd__
 #elif FORTRAN_UPPERCASE
 	#define stg_dgeev DGEEV
-	#define stg_zgesvd ZGESVD
 #endif	
 
 #endif