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

[willic3 at geodynamics.org]

Author: willic3
Date: 2006-09-28 13:36:05 -0700 (Thu, 28 Sep 2006)
New Revision: 4657

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/scan_tractions.f
Log:
Get degrees of freedom from parameter include file rather than being
passed in.


Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/scan_tractions.f
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/scan_tractions.f	2006-09-28 20:34:28 UTC (rev 4656)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/scan_tractions.f	2006-09-28 20:36:05 UTC (rev 4657)
@@ -28,7 +28,7 @@
 c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 c
 c
-      subroutine scan_tractions(numtractions,nsnodesmax,ndof,kr,
+      subroutine scan_tractions(numtractions,nsnodesmax,kr,
      & traction_units,tfile,ierr,errstrng)
 c
 c...  subroutine to perform an initial scan of the traction BC input
@@ -44,11 +44,12 @@
 c
 c...  parameter definitions
 c
+      include "ndimens.inc"
       include "nconsts.inc"
 c
 c...  subroutine arguments
 c
-      integer numtractions,nsnodesmax,ndof,kr,ierr
+      integer numtractions,nsnodesmax,kr,ierr
       character traction_units*(*),tfile*(*),errstrng*(*)
 c
 c...  local constants