[cig-commits] r13104 - seismo/3D/ADJOINT_TOMO/flexwin

[carltape at geodynamics.org]

Author: carltape
Date: 2008-10-20 15:37:55 -0700 (Mon, 20 Oct 2008)
New Revision: 13104

Modified:
   seismo/3D/ADJOINT_TOMO/flexwin/seismo_subs.f90
Log:
Modified a comment so that it did not have the character combination ^@ .


Modified: seismo/3D/ADJOINT_TOMO/flexwin/seismo_subs.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/seismo_subs.f90	2008-10-20 19:13:09 UTC (rev 13103)
+++ seismo/3D/ADJOINT_TOMO/flexwin/seismo_subs.f90	2008-10-20 22:37:55 UTC (rev 13104)
@@ -339,8 +339,8 @@
      call getfhv('t2', S_pick, nerr)
   endif
 
-  ! CHT: why does this output as:  FMP     BHR     CI      
-  if (DEBUG) write(*,*) kstnm, kcmpnm, knetwk 
+  ! CHT: why does this output as:  BZN    ^@BHR    ^@AZ     ^@
+  if (DEBUG) write(*,*) kstnm, kcmpnm, knetwk
 
   ! calculate distances and azimuths
   call distaz(evla,evlo,stla,stlo,azimuth,backazimuth,dist_deg,dist_km)