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

HvD: Even more versions of mafdecls.fh and global.fh to hack to make

Browse source 
the MAPOINTER business work for OLD_GA.
This commit is contained in:
Huub Van Dam 2012-11-21 21:33:22 +00:00
parent f4b6f853fb
commit d4589b6196
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
contrib/mapointer_test/fix_include_files
View file

@ -36,7 +36,8 @@ if [ ${#DEV_GA} -ne 0 ] ; then
export GLOBAL=../../src/tools/ga-dev/global/src/global.fh.in
elif [ ${#OLD_GA} -ne 0 ] ; then
export MAFDECLS=../../src/tools/ga-4-3/ma/mafdecls.fh
export MAFDECLS2=../../src/tools/include/mafdecls.fh
export MAFDECLS2=../../src/tools/ma/mafdecls.fh
export MAFDECLS3=../../src/tools/include/mafdecls.fh
export GLOBAL=../../src/tools/ga-4-3/global/src/global.fh
elif [ ${#EXP_GA} -ne 0 ] ; then
export MAFDECLS=../../src/tools/ga-exp1/ma/mafdecls.fh.in
@ -84,6 +85,11 @@ EOF
# else
# The file does not exist so we cannot clobber it.
fi
if [ -f ${MAFDECLS3} ] ; then
cp ${MAFDECLS} ${MAFDECLS3}
# else
# The file does not exist so we cannot clobber it.
fi
fi
fi
#
@ -92,6 +98,9 @@ fi
grep interface ${GLOBAL}
status=$?
if [ ${status} -ne 0 ] ; then
if [ ${#OLD_GA} -ne 0 ] ; then
echo "#define GA_ACCESS_INDEX_TYPE Integer" >> ${GLOBAL}
fi
cat << EOF >> ${GLOBAL}
interface
subroutine GA_access(g_a,ilo,ihi,jlo,jhi,index,ld)