[cdftools] 92/228: JMM : fix spurious problems with integer vertices
Alastair McKinstry
mckinstry at moszumanska.debian.org
Fri Jun 12 08:21:33 UTC 2015
This is an automated email from the git hooks/post-receive script.
mckinstry pushed a commit to branch master
in repository cdftools.
commit 1d50c3e985f54e2422c908cb6d5fc5924de93693
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date: Tue May 24 17:10:41 2011 +0000
JMM : fix spurious problems with integer vertices
git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@498 1055176f-818a-41d9-83e1-73fbe5b947c5
---
modpoly.f90 | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/modpoly.f90 b/modpoly.f90
index 12f1a2f..2debdbc 100644
--- a/modpoly.f90
+++ b/modpoly.f90
@@ -91,6 +91,12 @@ CONTAINS
! Automatically close the polygon
vertx(ipoly,jmax+1)=vertx(ipoly,1)
verty(ipoly,jmax+1)=verty(ipoly,1)
+ ! take care not to have integer values on polygon vertices
+ DO jj=1, jmax+1
+ IF ( (vertx(ipoly, jj) - INT( vertx(ipoly, jj) ) ) == 0 ) vertx(ipoly, jj) = vertx(ipoly, jj)+0.001
+ IF ( (verty(ipoly, jj) - INT( verty(ipoly, jj) ) ) == 0 ) verty(ipoly, jj) = verty(ipoly, jj)+0.001
+ END DO
+
ENDDO
995 kpoly=ipoly-1
CLOSE(numpol)
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/debian-science/packages/cdftools.git
More information about the debian-science-commits
mailing list