Changeset 603 for trunk/export_spf.tcl


Ignore:
Timestamp:
Dec 4, 2009 5:08:56 PM (11 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/export_spf.tcl

    • Property rcs:date changed from 2002/01/22 21:45:59 to 2002/07/03 21:00:19
    • Property rcs:rev changed from 1.1 to 1.2
    • Property rcs:lines set to +4 -5
    r529 r603  
    4040        #==============================================================
    4141        # title info from GSAS title & phase title
    42         puts $fp "TITL   Phase $phase from $expgui(expfile)"
    43         puts $fp "TITL   history [string trim [lindex [exphistory last] 1]]"
    44         puts $fp "TITL   phase title [phaseinfo $phase name]"
    45         puts $fp "TITL   [expinfo title]"
     42        puts $fp "TITL   Phase $phase from $expgui(expfile) named [string trim [phaseinfo $phase name]]"
     43        #puts $fp "TITL   history [string trim [lindex [exphistory last] 1]]"
     44        #puts $fp "TITL   [expinfo title]"
    4645        # write out cell parameters
    4746        set cell {}
Note: See TracChangeset for help on using the changeset viewer.