Ignore:
Timestamp:
Oct 19, 2010 10:50:21 PM (11 years ago)
Author:
toby
Message:

fix creation of soft constr histogram

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/readexp.tcl

    r1021 r1032  
    30863086        }
    30873087    }
    3088     if {$HST == ""} {return "1"}
    30893088    if {$HST <=9} {
    30903089        set key "HST  $HST"
     
    31063105            makeexprec $key
    31073106        }
    3108         setexp $key "RSN" [expr 3 + 5*(($HST-1) % 12)] 5
     3107        setexp $key "RSN " [expr 3 + 5*(($HST-1) % 12)] 5
    31093108        # create other HST  xx recs
    31103109        if {$HST <=9} {
     
    31173116        makeexprec "$key FACTR"
    31183117        makeexprec "$key NBNDS"
     3118        mapexp
     3119    } elseif {$HST == ""} {
     3120        if $::expgui(debug) {puts "no restraints"}
     3121        return "1"
    31193122    }
    31203123
Note: See TracChangeset for help on using the changeset viewer.