[Bio] / FigKernelPackages / proml.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/proml.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6, Wed Jan 31 01:06:51 2007 UTC revision 1.7, Wed Jan 31 22:38:39 2007 UTC
# Line 368  Line 368 
368      print PROML "P\n"    if $model =~ m/PMB/i;      print PROML "P\n"    if $model =~ m/PMB/i;
369      print PROML "P\nP\n" if $model =~ m/PAM/i;      print PROML "P\nP\n" if $model =~ m/PAM/i;
370    
     print PROML "S\n" if $slow;  
   
371      if ( @user_trees )      if ( @user_trees )
372      {      {
373          &write_intree( @user_trees ) or print STDERR "proml::proml: Could not write intree\n"          &write_intree( @user_trees ) or print STDERR "proml::proml: Could not write intree\n"
# Line 379  Line 377 
377          print PROML "V\n" if $rearrange || $global;          print PROML "V\n" if $rearrange || $global;
378          print PROML "L\n" if $user_lengths && ! $rearrange && ! $global;          print PROML "L\n" if $user_lengths && ! $rearrange && ! $global;
379      }      }
380        elsif ( $slow )  # Slow and user trees are mutually exclusive
381        {
382            print PROML "S\n";
383        }
384    
385      if ( $weights )      if ( $weights )
386      {      {
# Line 388  Line 390 
390          print PROML "W\n";          print PROML "W\n";
391      }      }
392    
393      #  All the options are written, try to lauch the run:      #  All the options are written, try to launch the run:
394    
395      print PROML "Y\n";      print PROML "Y\n";
396    
# Line 406  Line 408 
408          print PROML "$gamma_bins\n";          print PROML "$gamma_bins\n";
409          print PROML "$invar_frac\n" if $invar_frac;          print PROML "$invar_frac\n" if $invar_frac;
410      }      }
411      elsif ( $user_trees )  
412        if ( $user_trees )
413      {      {
414          print PROML "13\n";     #  Random number seed of unknown use          print PROML "13\n";     #  Random number seed of unknown use
415      }      }

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3