run.pl

有限元学习研究用源代码(老外的),供科研人员参考

#! /usr/local/bin/perl
$base = $ARGV[0];
$opt = $ARGV[1];
$ind = $ARGV[2];
if($ENV{"COG_HOME"}){
    $cog  = $ENV{"COG_HOME"};
    $make = $cog.'/cog.mk';
}else{
    $cog = $ENV{"PDELIB_HOME"}.'/modules/cog';
    $make = $cog.'/pdelib.mk';
}

if($base){
	system "use $base $opt $ind";
}
print "
linking cog
";
system "make -k -f $make cog";

if($ENV{"COG_WORK"}){
    $cog  = $ENV{"COG_WORK"}."/cog.exe";
print "
starting $cog
";
    system $cog;
}else{
print "
starting cog
";
    system "./cog";
}