[cig-commits] r18317 - seismo/3D/FAULT_SOURCE/trunk/src

[percygalvez at geodynamics.org]

Author: percygalvez
Date: 2011-05-04 15:23:07 -0700 (Wed, 04 May 2011)
New Revision: 18317

Removed:
   seismo/3D/FAULT_SOURCE/trunk/src/fault_ibool.f90
Log:
deleting fault_ibool.f90

Deleted: seismo/3D/FAULT_SOURCE/trunk/src/fault_ibool.f90
===================================================================
--- seismo/3D/FAULT_SOURCE/trunk/src/fault_ibool.f90	2011-05-04 21:26:06 UTC (rev 18316)
+++ seismo/3D/FAULT_SOURCE/trunk/src/fault_ibool.f90	2011-05-04 22:23:07 UTC (rev 18317)
@@ -1,11 +0,0 @@
-subroutine fault_ibool()
-
-! number of fault nodes : nfspec
-! initial pointers : loc 
-! xp,yp,zp= coordinates of fault elements.
-! ije=ke ,
-! xp=xcoor(ke) ,
-! yp=ycoor(ke) ,
-! zp=zcoor(ke) ,
-
-call get_global(nspec,xp(ije),yp(ije),zp(ije),fault_ibool,loc,ifseg,nfault_ibool,npointot,UTM_X_MIN,UTM_X_MAX)