Changeset 55


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

# on 1999/02/18 21:07:19, toby did:
Add support for atom multiplicity

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/readexp.tcl

    • Property rcs:date changed from 1999/02/02 17:28:44 to 1999/02/18 21:07:19
    • Property rcs:lines changed from +4 -1 to +5 -1
    • Property rcs:rev changed from 1.5 to 1.6
    r49 r55  
    472472#   parm:
    473473#     type -- element code
     474#     mult -- atom multiplicity
    474475#     label -- atom label (*)
    475476#     x y z -- coordinates (*)
     
    503504            type-get {
    504505                return [string trim [string range [readexp ${key}A] 2 9] ]
     506            }
     507            mult-get {
     508                return [string trim [string range [readexp ${key}A] 58 61] ]
    505509            }
    506510            label-get {
Note: See TracChangeset for help on using the changeset viewer.