zhangyiss/DSurfTomo
1
0
Fork 0
mirror of https://github.com/HongjianFang/DSurfTomo.git synced 2025-05-07 15:41:14 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

change raypath.out

Browse Source
This commit is contained in:
Hongjian Fang 2015-07-07 20:41:19 +08:00
parent 2846bbf40e
commit 406981ae3d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/CalSurfG.f90
View File

@ -2191,7 +2191,7 @@ fdm=0
! !
!fang! IF(wrgf.EQ.csid.OR.wrgf.LT.0)THEN !fang! IF(wrgf.EQ.csid.OR.wrgf.LT.0)THEN
if(writepath == 1) then if(writepath == 1) then
WRITE(40,*)nrp WRITE(40,*)'#',nrp
DO j=1,nrp DO j=1,nrp
rayx=(pi/2-rgx(j))*180.0/pi rayx=(pi/2-rgx(j))*180.0/pi
rayz=rgz(j)*180.0/pi rayz=rgz(j)*180.0/pi