Michele Martone
1dcfbd403f
mld2p4-2:
...
will install Make.inc as Make.inc.MLD2P4, to allow sharing the same install dir as PSBLAS.
2011-04-02 15:45:57 +00:00
Michele Martone
e922dce38b
mld2p4-2:
...
MLD's constants are back authoritative in the .F90 file.
the .h file is a slave one: built from the .F90.
in a script for the (by hand, no Makefile rule for now) conversion.
2011-03-28 11:27:25 +00:00
Michele Martone
69a7fc4208
mld2p4-2:
...
created a header file with symbolic constants and using them instead of the fortran constants.
cat mld_base_prec_type.F90 | while read ; do
if [[ "$REPLY" =~ 'parameter ::' ]]; then
UC=`echo "$REPLY" | sed "s/.*\(mld[a-z_0-9]*_\>\) *=.*$/\1/g" | perl -e "while(<>){print(uc($_));};"`
echo "$REPLY" | sed "s/\(.*\)\(mld[a-z_0-9]*_\> *=\).*$/\1\2 $UC/g"
else echo "$REPLY" ; fi ; done > tmpfile ; mv tmpfile mld_base_prec_type.F90
hn=mld_const.h
echo '' > $hn
echo '#ifdef __cplusplus' >> $hn
echo 'extern "C" { ' >> $hn
echo '#endif' >> $hn
cat mld_base_prec_type.F90 | grep '\(^ *!\)\|parameter' | grep '_\>' | sed 's/^\s*//g;s/^.*:://g;s/\s*=\s*/ /g' | sed 's/,
/\n/g;s/^ //g' | perl -e "while(<>){print(uc($_));};" | grep ^MLD | sed 's/^/#define /g' >> $hn
#cat mld_base_prec_type.F90 | sed 's/\( parameter *:: *\)\(\<[a-z0-9_]*\>\) *=.*$/\1\2 = \2 UPPP/g'
echo '#ifdef __cplusplus' >> $hn
echo '}' >> $hn
echo '#endif' >> $hn
2011-03-26 22:47:30 +00:00
Michele Martone
c52848be03
mld2p4-2:
...
in mlprec/mld_base_prec_type.F90, only one public constant per line.
2011-03-26 21:29:22 +00:00
Michele Martone
70cd5e1075
mld2p4-2:
...
mlprec/mld_base_prec_type.f90 -> mlprec/mld_base_prec_type.F90
2011-03-26 21:09:48 +00:00
Michele Martone
1a43c78bf1
mld2p4-2:
...
Updated to use psb_sparse_mod also some .m4, .tex, configure file.
2011-03-24 11:47:50 +00:00
Michele Martone