$l[$#l] .= ':ppn='.$options->{ppn};
}
if ($options->{mem}) {
- push @l,'mem=',$options->{mem};
+ push @l,'mem='.$options->{mem};
}
push @qo,'-l',join(',',@l) if @l;
if ($options->{interactive}) {
# this script was written by dqsub
EOF
if (defined $opt->{array}) {
+ my $array_opt = join("\n",@{$array});
+ $script .= <<EOF;
+OPT=\$(sed -n -e "\$PBS_ARRAYID p"<<'_HERE_DOC_END'
+$array_opt
+_HERE_DOC_END_
+)
+EOF
+ if ($opt->{array} eq 'chdir') {
+ $script .= <<EOF;
+cd "\$OPT";
+exec $command;
+EOF
+ } else {
+ $script .= <<EOF;
+exec $command "\$OPT";
+EOF
+ }
die "--array is currently not implemented";
} else {
$script .= <<EOF;