1. Exascale FastForward
  2. ParallelIO

Source

Raw file
Source viewDiff to previous
    open(F,"$modpath->{$host}/init/.modulespath") || die "could not open $modpath->{$host}/init/.modulespath";
 
1
package Utils;
2
​
3
use strict;
4
BEGIN {
5
        use vars       qw( $VERSION @ISA );
6
        $VERSION = '0.10';
7
        @ISA         = qw();
8
} # end BEGIN
9
# non-exported package globals go here
10
use vars      qw();
11
use POSIX qw(ceil);
12
​
13
sub host{
14
    my $host = `hostname -f`;
15
    $host = `hostname` if($?);
16
#HOST SPECIFIC START
17
    if($host =~ /^goldbach/){
18
    $host = "goldbach";
19
    }elsif($host =~ /^fr\d+en/){
20
    $host = "frost";
21
    }elsif($host =~ /^eos/){
22
    $host = "eos";
23
    }elsif($host =~ /^titan/){
24
    $host = "titan";
25
    }elsif($host =~ /^ath/ ){
26
    $host = "athena";
27
    }elsif($host =~ /^kra/){
28
    $host = "kraken";
29
    }elsif($host =~ /^lynx/){
30
        $host = "lynx";
31
    }elsif($host =~ /^hopp/){
32
    $host = "hopper";
33
    }elsif($host =~ /^cvrs/) {
34
        $host = "carver";
35
    }elsif($host =~/erlogin/) {
36
    $host="erebus";
37
    }elsif($host =~/yslogin/) {
38
    $host="yellowstone";
39
    }elsif( $host =~ /^login/){
40
    if(-d "/lustre/janus_scratch"){
41
        $host="janus";
42
        }else{
43
            $host = "athena";
44
    }
45
    }elsif($host =~ /(\w+)\./){
46
    $host = $1;
47
    }
48
#HOST SPECIFIC END
49
}
50
​
51
sub projectInfo{