From 406981ae3d8ecdcc8e18b9b6e2c6d2c47aa39a47 Mon Sep 17 00:00:00 2001
From: Hongjian Fang <hjfangustc@gmail.com>
Date: Tue, 7 Jul 2015 20:41:19 +0800
Subject: [PATCH] change raypath.out

---
 src/CalSurfG.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/CalSurfG.f90 b/src/CalSurfG.f90
index 48c8b79..bb67cc2 100644
--- a/src/CalSurfG.f90
+++ b/src/CalSurfG.f90
@@ -2191,7 +2191,7 @@ fdm=0
 !
 !fang!   IF(wrgf.EQ.csid.OR.wrgf.LT.0)THEN
         if(writepath == 1) then
-      WRITE(40,*)nrp
+      WRITE(40,*)'#',nrp
       DO j=1,nrp
          rayx=(pi/2-rgx(j))*180.0/pi
          rayz=rgz(j)*180.0/pi