You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
69a7fc4208
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
|
14 years ago | |
|---|---|---|
| .. | ||
| Makefile | 14 years ago | |
| mld_base_prec_type.F90 | 14 years ago | |
| mld_c_as_smoother.f90 | 14 years ago | |
| mld_c_diag_solver.f90 | 14 years ago | |
| mld_c_id_solver.f90 | 14 years ago | |
| mld_c_ilu_fact_mod.f90 | 14 years ago | |
| mld_c_ilu_solver.f90 | 14 years ago | |
| mld_c_inner_mod.f90 | 14 years ago | |
| mld_c_jac_smoother.f90 | 14 years ago | |
| mld_c_move_alloc_mod.f90 | 14 years ago | |
| mld_c_prec_mod.f90 | 14 years ago | |
| mld_c_prec_type.f90 | 14 years ago | |
| mld_c_slu_solver.f90 | 14 years ago | |
| mld_caggrmap_bld.f90 | 14 years ago | |
| mld_caggrmat_asb.f90 | 14 years ago | |
| mld_caggrmat_nosmth_asb.F90 | 14 years ago | |
| mld_caggrmat_smth_asb.F90 | 14 years ago | |
| mld_ccoarse_bld.f90 | 14 years ago | |
| mld_cilu0_fact.f90 | 14 years ago | |
| mld_ciluk_fact.f90 | 14 years ago | |
| mld_cilut_fact.f90 | 14 years ago | |
| mld_cmlprec_aply.f90 | 14 years ago | |
| mld_cmlprec_bld.f90 | 14 years ago | |
| mld_const.h | 14 years ago | |
| mld_cprecaply.f90 | 14 years ago | |
| mld_cprecbld.f90 | 14 years ago | |
| mld_cprecinit.F90 | 14 years ago | |
| mld_cprecset.F90 | 14 years ago | |
| mld_cslu_bld.f90 | 14 years ago | |
| mld_cslu_interface.c | 14 years ago | |
| mld_cslud_bld.f90 | 14 years ago | |
| mld_cslud_interface.c | 15 years ago | |
| mld_csp_renum.f90 | 14 years ago | |
| mld_cumf_bld.f90 | 14 years ago | |
| mld_cumf_interface.c | 15 years ago | |
| mld_d_as_smoother.f90 | 14 years ago | |
| mld_d_diag_solver.f90 | 14 years ago | |
| mld_d_id_solver.f90 | 14 years ago | |
| mld_d_ilu_fact_mod.f90 | 14 years ago | |
| mld_d_ilu_solver.f90 | 14 years ago | |
| mld_d_inner_mod.f90 | 14 years ago | |
| mld_d_jac_smoother.f90 | 14 years ago | |
| mld_d_move_alloc_mod.f90 | 14 years ago | |
| mld_d_prec_mod.f90 | 14 years ago | |
| mld_d_prec_type.f90 | 14 years ago | |
| mld_d_slu_solver.f90 | 14 years ago | |
| mld_d_sludist_solver.f90 | 14 years ago | |
| mld_d_umf_solver.f90 | 14 years ago | |
| mld_daggrmap_bld.f90 | 14 years ago | |
| mld_daggrmat_asb.f90 | 14 years ago | |
| mld_daggrmat_minnrg_asb.F90 | 14 years ago | |
| mld_daggrmat_nosmth_asb.F90 | 14 years ago | |
| mld_daggrmat_smth_asb.F90 | 14 years ago | |
| mld_dcoarse_bld.f90 | 14 years ago | |
| mld_dilu0_fact.f90 | 14 years ago | |
| mld_diluk_fact.f90 | 14 years ago | |
| mld_dilut_fact.f90 | 14 years ago | |
| mld_dmlprec_aply.f90 | 14 years ago | |
| mld_dmlprec_bld.f90 | 14 years ago | |
| mld_dprecaply.f90 | 14 years ago | |
| mld_dprecbld.f90 | 14 years ago | |
| mld_dprecinit.F90 | 14 years ago | |
| mld_dprecset.F90 | 14 years ago | |
| mld_dslu_bld.f90 | 14 years ago | |
| mld_dslu_interface.c | 14 years ago | |
| mld_dslud_bld.f90 | 14 years ago | |
| mld_dslud_interface.c | 14 years ago | |
| mld_dsp_renum.f90 | 14 years ago | |
| mld_dumf_interface.c | 14 years ago | |
| mld_prec_mod.f90 | 14 years ago | |
| mld_prec_type.f90 | 15 years ago | |
| mld_s_as_smoother.f90 | 14 years ago | |
| mld_s_diag_solver.f90 | 14 years ago | |
| mld_s_id_solver.f90 | 14 years ago | |
| mld_s_ilu_fact_mod.f90 | 14 years ago | |
| mld_s_ilu_solver.f90 | 14 years ago | |
| mld_s_inner_mod.f90 | 14 years ago | |
| mld_s_jac_smoother.f90 | 14 years ago | |
| mld_s_move_alloc_mod.f90 | 14 years ago | |
| mld_s_prec_mod.f90 | 14 years ago | |
| mld_s_prec_type.f90 | 14 years ago | |
| mld_s_slu_solver.f90 | 14 years ago | |
| mld_saggrmap_bld.f90 | 14 years ago | |
| mld_saggrmat_asb.f90 | 14 years ago | |
| mld_saggrmat_nosmth_asb.F90 | 14 years ago | |
| mld_saggrmat_smth_asb.F90 | 14 years ago | |
| mld_scoarse_bld.f90 | 14 years ago | |
| mld_silu0_fact.f90 | 14 years ago | |
| mld_siluk_fact.f90 | 14 years ago | |
| mld_silut_fact.f90 | 14 years ago | |
| mld_smlprec_aply.f90 | 14 years ago | |
| mld_smlprec_bld.f90 | 14 years ago | |
| mld_sprecaply.f90 | 14 years ago | |
| mld_sprecbld.f90 | 14 years ago | |
| mld_sprecinit.F90 | 14 years ago | |
| mld_sprecset.F90 | 14 years ago | |
| mld_sslu_bld.f90 | 14 years ago | |
| mld_sslu_interface.c | 14 years ago | |
| mld_sslud_bld.f90 | 14 years ago | |
| mld_sslud_interface.c | 15 years ago | |
| mld_ssp_renum.f90 | 14 years ago | |
| mld_sumf_bld.f90 | 14 years ago | |
| mld_sumf_interface.c | 15 years ago | |
| mld_z_as_smoother.f90 | 14 years ago | |
| mld_z_diag_solver.f90 | 14 years ago | |
| mld_z_id_solver.f90 | 14 years ago | |
| mld_z_ilu_fact_mod.f90 | 14 years ago | |
| mld_z_ilu_solver.f90 | 14 years ago | |
| mld_z_inner_mod.f90 | 14 years ago | |
| mld_z_jac_smoother.f90 | 14 years ago | |
| mld_z_move_alloc_mod.f90 | 14 years ago | |
| mld_z_prec_mod.f90 | 14 years ago | |
| mld_z_prec_type.f90 | 14 years ago | |
| mld_z_slu_solver.f90 | 14 years ago | |
| mld_z_umf_solver.f90 | 14 years ago | |
| mld_zaggrmap_bld.f90 | 14 years ago | |
| mld_zaggrmat_asb.f90 | 14 years ago | |
| mld_zaggrmat_nosmth_asb.F90 | 14 years ago | |
| mld_zaggrmat_smth_asb.F90 | 14 years ago | |
| mld_zas_aply.f90 | 14 years ago | |
| mld_zas_bld.f90 | 14 years ago | |
| mld_zbaseprec_aply.f90 | 14 years ago | |
| mld_zbaseprec_bld.f90 | 14 years ago | |
| mld_zcoarse_bld.f90 | 14 years ago | |
| mld_zdiag_bld.f90 | 14 years ago | |
| mld_zfact_bld.f90 | 14 years ago | |
| mld_zilu0_fact.f90 | 14 years ago | |
| mld_zilu_bld.f90 | 14 years ago | |
| mld_ziluk_fact.f90 | 14 years ago | |
| mld_zilut_fact.f90 | 14 years ago | |
| mld_zmlprec_aply.f90 | 14 years ago | |
| mld_zmlprec_bld.f90 | 14 years ago | |
| mld_zprecaply.f90 | 14 years ago | |
| mld_zprecbld.f90 | 14 years ago | |
| mld_zprecinit.F90 | 14 years ago | |
| mld_zprecset.F90 | 14 years ago | |
| mld_zslu_bld.f90 | 14 years ago | |
| mld_zslu_interface.c | 14 years ago | |
| mld_zslud_bld.f90 | 14 years ago | |
| mld_zslud_interface.c | 15 years ago | |
| mld_zsp_renum.f90 | 14 years ago | |
| mld_zumf_bld.f90 | 14 years ago | |
| mld_zumf_interface.c | 14 years ago | |