|
@@ -97,7 +97,7 @@ if ($compiler eq "") { |
|
|
|
|
|
|
|
|
if ($data =~ /Intel/) { |
|
|
if ($data =~ /Intel/) { |
|
|
$vendor = INTEL; |
|
|
$vendor = INTEL; |
|
|
$openmp = "-openmp"; |
|
|
|
|
|
|
|
|
$openmp = "-fopenmp"; |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
if ($data =~ /Sun Fortran/) { |
|
|
if ($data =~ /Sun Fortran/) { |
|
@@ -127,7 +127,7 @@ if ($compiler eq "") { |
|
|
|
|
|
|
|
|
# for embeded underscore name, e.g. zho_ge, it may append 2 underscores. |
|
|
# for embeded underscore name, e.g. zho_ge, it may append 2 underscores. |
|
|
$data = `$compiler -O2 -S ftest3.f > /dev/null 2>&1 && cat ftest3.s && rm -f ftest3.s`; |
|
|
$data = `$compiler -O2 -S ftest3.f > /dev/null 2>&1 && cat ftest3.s && rm -f ftest3.s`; |
|
|
if ($data =~ /zho_ge__/) { |
|
|
|
|
|
|
|
|
if ($data =~ / zho_ge__/) { |
|
|
$need2bu = 1; |
|
|
$need2bu = 1; |
|
|
} |
|
|
} |
|
|
} |
|
|
} |
|
@@ -155,7 +155,7 @@ if ($compiler eq "") { |
|
|
if ($compiler =~ /ifort/) { |
|
|
if ($compiler =~ /ifort/) { |
|
|
$vendor = INTEL; |
|
|
$vendor = INTEL; |
|
|
$bu = "_"; |
|
|
$bu = "_"; |
|
|
$openmp = "-openmp"; |
|
|
|
|
|
|
|
|
$openmp = "-fopenmp"; |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
if ($compiler =~ /pathf/) { |
|
|
if ($compiler =~ /pathf/) { |
|
|