[Stpp-commits] r46 - pkg/src

[noreply at r-forge.r-project.org]

Author: gabriele
Date: 2012-04-19 18:55:40 +0200 (Thu, 19 Apr 2012)
New Revision: 46

Removed:
   pkg/src/bounds.cmn
Modified:
   pkg/src/stikfunction.f
Log:


Deleted: pkg/src/bounds.cmn
===================================================================
--- pkg/src/bounds.cmn	2012-04-02 13:07:37 UTC (rev 45)
+++ pkg/src/bounds.cmn	2012-04-19 16:55:40 UTC (rev 46)
@@ -1,15 +0,0 @@
-c---------------------------------------------------------------
-c
-c this common block stores the area and convex/concave status of 
-c polygon.
-c it gets included by the "include 'bounds.cmn'" lines
-c 
-      common /bounds/area,iconvx
-
-c area of polygon
-      real*8 area
-
-c if the polygon is convex, iconvx is set to 1, else its concave.
-      integer iconvx
-
-c---------------------------------------------------------------

Modified: pkg/src/stikfunction.f
===================================================================
--- pkg/src/stikfunction.f	2012-04-02 13:07:37 UTC (rev 45)
+++ pkg/src/stikfunction.f	2012-04-19 16:55:40 UTC (rev 46)
@@ -156,7 +156,7 @@
 c
       implicit real*8 (a-h,o-z)
 
-      include 'bounds.cmn'
+c      include 'bounds.cmn'
 
       dimension xp(np+1),yp(np+1)
 
@@ -187,7 +187,7 @@
 c
 c
       implicit real*8 (a-h,o-z)
-      include 'bounds.cmn'
+c      include 'bounds.cmn'
       dimension xp(np+1),yp(np+1)
       parameter(pi=3.141592654d0)
 c     store circle/poly intersections here
@@ -435,7 +435,7 @@
 c
 
       implicit real*8 (a-h,o-z)
-      include 'bounds.cmn'
+c      include 'bounds.cmn'
 
 
       dimension xc(nc+1),yc(nc+1)