[Bio] / FigTutorial / show_functional_coupling.pl Repository:
ViewVC logotype

Diff of /FigTutorial/show_functional_coupling.pl

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

revision 1.1, Tue May 25 18:36:04 2004 UTC revision 1.2, Thu Jun 10 13:39:16 2004 UTC
# Line 1  Line 1 
 #!/Users/fig/FIGdisk/env/mac/bin/perl  
   
 use Data::Dumper;  
 use Carp;  
 # Following block is expanded by switch_to_release to add use lib directives  
 # to point at the correct locations in the release directory.  
 #BEGIN switch_to_release generated code  
 use lib '/Users/fig/FIGdisk/dist/releases/0.0.0/mac/lib';  
 use lib '/Users/fig/FIGdisk/dist/releases/0.0.0/mac/lib/FigKernelPackages';  
 #END switch_to_release generated code  
   
 use lib "/Users/fig/FIGdisk/config";  
 use FIG_Config;  
   
1  use FIG;  use FIG;
2  my $fig = new FIG;  my $fig = new FIG;
3  use strict;  use strict;
4    
5  my($usage,$bound,$sim_cutoff,$fc_cutoff,@fc,$tuple,$peg);  my($usage,$bound,$sim_cutoff,$fc_cutoff,@fc,$tuple,$peg);
6    
7  $usage = "usage: fc Bound SimCutoff FcCutOff < PEGs > PEG1-Sc-PEGs";  $usage = "usage: show_functional_coupling Bound SimCutoff FcCutOff < PEGs > PEG1-Sc-PEGs";
8    
9  (  (
10   ($bound = shift @ARGV) &&   ($bound = shift @ARGV) &&

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3