istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

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

Browse Source
This commit is contained in:
Lorenzo Figini 2013-04-17 15:59:34 +00:00
parent 9f445e5cd1
commit a93b56495c
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/gray.f
View File

@ -3895,8 +3895,14 @@ c
c c
pppx=x0t*rcixx+y0t*rcixy pppx=x0t*rcixx+y0t*rcixy
pppy=x0t*rcixy+y0t*rciyy pppy=x0t*rcixy+y0t*rciyy
ppx=-pppx*gzt/(pppx*gxt+pppy*gyt) denpp=pppx*gxt+pppy*gyt
ppy=-pppy*gzt/(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 c
anzt=sqrt((1.0d0+gr2)/(1.0d0+ppx**2+ppy**2)) anzt=sqrt((1.0d0+gr2)/(1.0d0+ppx**2+ppy**2))
anxt=ppx*anzt anxt=ppx*anzt