[cig-commits] commit: include comments in opts.dat output file (list of observation points).

[Mercurial]

changeset:   179:9177448d9470
user:        Sylvain Barbot <sbarbot at caltech.edu>
date:        Sun Jan 06 01:01:37 2013 -0800
files:       src/export.f90
description:
include comments in opts.dat output file (list of observation points).


diff -r 3f1a8bcdf667 -r 9177448d9470 src/export.f90
--- a/src/export.f90	Sun Dec 30 22:16:13 2012 -0800
+++ b/src/export.f90	Sun Jan 06 01:01:37 2013 -0800
@@ -584,6 +584,7 @@ CONTAINS
 
     OPEN (UNIT=15,FILE=filename,IOSTAT=iostatus,FORM="FORMATTED")
     IF (iostatus>0) STOP "could not open .xy file to export observation points"
+    WRITE (15,'("# x1(north) x2(east) x3(down) name(4-char)")')
     DO k=1,n
        WRITE (15,'(3ES11.4E1,X,a)') opts(k)%v1,opts(k)%v2,opts(k)%v3,ptsname(k)
     END DO