Changeset 56 for trunk/readexp.tcl


Ignore:
Timestamp:
Dec 4, 2009 4:59:40 PM (11 years ago)
Author:
toby
Message:

# on 1999/02/18 22:50:03, toby did:
add space group to phase info

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/readexp.tcl

    • Property rcs:date changed from 1999/02/18 21:07:19 to 1999/02/18 22:50:03
    • Property rcs:lines changed from +5 -1 to +6 -1
    • Property rcs:rev changed from 1.6 to 1.7
    r55 r56  
    369369#     cellref -- refinement flag for the unit cell(*)
    370370#     celldamp  -- damping for the unit cell refinement (*)
     371#     spacegroup -- space group symbol
    371372#  action: get (default) or set
    372373#  value: used only with set
     
    377378        name-get {
    378379            return [string trim [readexp "CRS$phase    PNAM"]]
     380        }
     381
     382        spacegroup-get {
     383            return [string trim [readexp "CRS$phase  SG SYM"]]
    379384        }
    380385
Note: See TracChangeset for help on using the changeset viewer.