[cig-commits] commit: merge with other updates

[Mercurial]

changeset:   180:c3dfbccf8059
tag:         tip
parent:      177:89c593b096b7
parent:      179:9177448d9470
user:        Sylvain Barbot <sbarbot at caltech.edu>
date:        Sun Jan 06 01:03:29 2013 -0800
description:
merge with other updates


diff -r 89c593b096b7 -r c3dfbccf8059 .hgtags
--- a/.hgtags	Fri Dec 28 12:24:43 2012 -0800
+++ b/.hgtags	Sun Jan 06 01:03:29 2013 -0800
@@ -1,3 +1,4 @@ 56a2cd733fb8019b8f64cb80dcdd88fc0af44e21
 56a2cd733fb8019b8f64cb80dcdd88fc0af44e21 version-1-0
 2f9ca3968758a3c883b6ad8af751367f394cfcc7 1.0.1
 64d569232ac4f25b75c062c4809a33d62f9eab50 1.0.2
+dd50b4ad149087e34d7d555d4d817d9af616aed5 1.0.4
diff -r 89c593b096b7 -r c3dfbccf8059 src/export.f90
--- a/src/export.f90	Fri Dec 28 12:24:43 2012 -0800
+++ b/src/export.f90	Sun Jan 06 01:03:29 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