mkp4pg

来自「fastDNAml is an attempt to solve the sam」· 代码 · 共 41 行

#!/usr/bin/perl
#
#  Usage:
#      mkp4pg <pgname> <ncpu> <first_proc> <path>
#  where,
#      <pgname> = name of input P4 procgroup from PBS
#      <ncpu>   = # of cpus per node (currently ignored and set to 1)
#      <first_proc> = mpi_dnaml_mon -- if you want to run monitor
#                   = mpi_fastDNAml -- if you do not
#      <path>   = absolute path to directory containing executables
#
# print $ARGV[0];
  $p4pgin = $ARGV[0];
# $ncpu = $ARGV[1];
  $ncpu = 1;
  $mon  = $ARGV[2];
  $path = $ARGV[3];
  if(open(FILE,$p4pgin)) {
    $line = <FILE>;
    $line =~ s/\n//;
    print $line," 0\n";

    if($mon =~ /mpi_dnaml_mon/) {
      $line = <FILE>;
      $line =~ s/\n//;
      print $line," 1 ",$path,"/mpi_fastDNAml\n";
    }
  
    $line = <FILE>;
    $line =~ s/\n//;
    print $line," 1 ",$path,"/mpi_foreman\n";

    while( $line = <FILE> ) {
      $line =~ s/\n//;
      print $line," ",$ncpu," ",$path,"/mpi_worker\n";
    }
  }
  else {
    print STDERR "file ",$p4pgin," not found\n";
  }