added check in ic_gb for the case Nx0t=Ny0t=0

2013-04-17 15:59:34 +00:00 · 2013-04-17 15:59:34 +00:00 · a93b56495c
commit a93b56495c
parent 9f445e5cd1
1 changed files with 8 additions and 2 deletions
--- a/src/gray.f
+++ b/src/gray.f
@ -3895,8 +3895,14 @@ c
 c
          pppx=x0t*rcixx+y0t*rcixy
          pppy=x0t*rcixy+y0t*rciyy
-          ppx=-pppx*gzt/(pppx*gxt+pppy*gyt)
-          ppy=-pppy*gzt/(pppx*gxt+pppy*gyt)
+          denpp=pppx*gxt+pppy*gyt
+          if (denpp.ne.0.0d0) then
+            ppx=-pppx*gzt/denpp
+            ppy=-pppy*gzt/denpp
+          else
+            ppx=0.0d0
+            ppy=0.0d0
+          end if
 c
          anzt=sqrt((1.0d0+gr2)/(1.0d0+ppx**2+ppy**2))
          anxt=ppx*anzt