comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-29 06:35:39 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

scripts converted from csh to bash. https://github.com/nwchemgit/nwchem/issues/120

Browse source
This commit is contained in:
edoapra 2019-06-03 15:44:44 -07:00
parent fd53d3af58
commit b85d2e8a07
No known key found for this signature in database
GPG key ID: 48E12DA1EDE9E1B0
2 changed files with 54 additions and 78 deletions
Download patch file Download diff file Expand all files Collapse all files

70
src/config/32_to_64
View file

@ -1,55 +1,43 @@
#!/bin/csh -f
#!/bin/bash -f
#
# $Id$
#
@ useperl = 1
if ($useperl) then
if (-x /msrc/apps/bin/perl) then
set perlexe = /msrc/apps/bin/perl
else if (-x /usr/local/bin/perl) then
set perlexe = /usr/local/bin/perl
else if (-x /usr/local/gnu/bin/perl) then
set perlexe = /usr/local/gnu/bin/perl
else if (-x /usr/gnu/bin/perl) then
set perlexe = /usr/gnu/bin/perl
#
# modified to use the perl version to change back to the sed scripts
#
if [ -x /msrc/apps/bin/perl ]; then
perlexe=/msrc/apps/bin/perl
elif [ -x /usr/local/bin/perl ]; then
perlexe=/usr/local/bin/perl
elif [ -x /usr/local/gnu/bin/perl ]; then
perlexe=/usr/local/gnu/bin/perl
elif [ -x /usr/gnu/bin/perl ]; then
perlexe=/usr/gnu/bin/perl
else
# assume perl is in your path
set perlexe = perl
endif
set perlscript = {$NWCHEM_TOP}/src/config/32_to_64.pl
perlexe=perl
fi
perlscript=${NWCHEM_TOP}/src/config/32_to_64.pl
else
echo "should not be here";
exit 1;
JOB_LIMIT=4
set sufx = .dbl
njob=0
endif
for file in "$@"
do
set JOB_LIMIT = 4
echo converting "$file" to 32-bit integers for BLAS/LAPACK
($perlexe $perlscript $file) &
@ njob = 0
foreach file ($argv)
echo converting $file back to 8-byte integer blas calls
if ($useperl) then
($perlexe $perlscript $file) &
else
(sed -f $sed_script < $file > {$file}{$sufx} && mv -f {$file}{$sufx} $file;\
sed -f $sed_script2 < $file > {$file}{$sufx} && mv -f {$file}{$sufx} $file)&
endif
@ njob ++
if ($njob >= $JOB_LIMIT) then
let njob++
if [ $njob -gt $JOB_LIMIT ]; then
wait
@ njob = 0
endif
let njob=0
fi
end
done
if ($njob > 0) wait
if [ $njob -gt 0 ] ; then
wait
fi

62
src/config/64_to_32
View file

@ -1,55 +1,43 @@
#!/bin/csh -f
#!/bin/bash -f
#
# $Id$
#
#
# modified to use the perl version to change back to the sed scripts
# reset useperl = 0
#
@ useperl = 1
if ($useperl) then
if (-x /msrc/apps/bin/perl) then
set perlexe = /msrc/apps/bin/perl
else if (-x /usr/local/bin/perl) then
set perlexe = /usr/local/bin/perl
else if (-x /usr/local/gnu/bin/perl) then
set perlexe = /usr/local/gnu/bin/perl
else if (-x /usr/gnu/bin/perl) then
set perlexe = /usr/gnu/bin/perl
if [ -x /msrc/apps/bin/perl ]; then
perlexe=/msrc/apps/bin/perl
elif [ -x /usr/local/bin/perl ]; then
perlexe=/usr/local/bin/perl
elif [ -x /usr/local/gnu/bin/perl ]; then
perlexe=/usr/local/gnu/bin/perl
elif [ -x /usr/gnu/bin/perl ]; then
perlexe=/usr/gnu/bin/perl
else
# assume perl is in your path
set perlexe = perl
endif
set perlscript = {$NWCHEM_TOP}/src/config/64_to_32.pl
perlexe=perl
fi
perlscript=${NWCHEM_TOP}/src/config/64_to_32.pl
else
echo "shoulkd not be here
exit 1;
endif
JOB_LIMIT=4
set JOB_LIMIT = 4
njob=0
@ njob = 0
for file in "$@"
do
foreach file ($argv)
echo converting $file to 32-bit integers for BLAS/LAPACK
if ($useperl) then
echo converting "$file" to 32-bit integers for BLAS/LAPACK
($perlexe $perlscript $file) &
else
(sed -f $sed_script < $file > {$file}{$sufx} && mv -f {$file}{$sufx} $file;\
sed -f $sed_script2 < $file > {$file}{$sufx} && mv -f {$file}{$sufx} $file)&
endif
@ njob ++
if ($njob >= $JOB_LIMIT) then
let njob++
if [ $njob -gt $JOB_LIMIT ]; then
wait
@ njob = 0
endif
let njob=0
fi
end
done
if ($njob > 0) wait
if [ $njob -gt 0 ] ; then
wait
fi