Changeset 603

Timestamp:

Dec 4, 2009 5:08:56 PM (14 years ago)

Author:

toby

Message:

# on 2002/07/03 21:00:19, toby did:
place only 1 TITL line in file (as requested by Lachlan)

File:

• trunk/export_spf.tcl (modified) (1 diff, 3 props)

trunk/export_spf.tcl

@@ -40 +40 @@
         #==============================================================
         # title info from GSAS title & phase title
-        puts $fp "TITL   Phase $phase from $expgui(expfile)"
-        puts $fp "TITL   history [string trim [lindex [exphistory last] 1]]"
-        puts $fp "TITL   phase title [phaseinfo $phase name]"
-        puts $fp "TITL   [expinfo title]"
+        puts $fp "TITL   Phase $phase from $expgui(expfile) named [string trim [phaseinfo $phase name]]"
+        #puts $fp "TITL   history [string trim [lindex [exphistory last] 1]]"
+        #puts $fp "TITL   [expinfo title]"
         # write out cell parameters
         set cell {}