[cig-commits] r4636 - short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d

[willic3 at geodynamics.org]

Author: willic3
Date: 2006-09-27 14:08:08 -0700 (Wed, 27 Sep 2006)
New Revision: 4636

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/traction_drv.f
Log:
Altered arguments lists to be consistent with computation routine.


Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/traction_drv.f
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/traction_drv.f	2006-09-27 21:07:05 UTC (rev 4635)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/traction_drv.f	2006-09-27 21:08:08 UTC (rev 4636)
@@ -46,7 +46,6 @@
 c...  parameter definitions
 c
       include "ndimens.inc"
-      include "nshape.inc"
       include "nconsts.inc"
       include "rconsts.inc"
 c
@@ -79,12 +78,12 @@
 c
       do i=1,numtractions
         call traction_cmp(
-     &   btraction,ntractflag,neq,                                      ! force
+     &   btraction,neq,                                                 ! force
      &   x,d,id,numnp,                                                  ! global
      &   dx,numslp,                                                     ! slip
      &   tfault,numfn,                                                  ! split
-     &   gauss2d,sh2d,nsnodes,nsgauss,traction_cmp,                     ! eltype
-     &   tractionverts(1,i),tractionvals(1,i),                          ! traction
+     &   gauss2d,sh2d,nsnodes,nsgauss,                                  ! eltype
+     &   tractionverts(1,i),tractionvals(1,i),i,                        ! traction
      &   skew,numrot,                                                   ! skew
      &   ierr,errstrng)                                                 ! errcode
       end do