From: wolf Date: Mon, 29 Jan 2001 16:45:43 +0000 (+0000) Subject: Add some infrastructure for inclusion of HSL routines. X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2aa9f9b1c853fa8b26bff53e89c238566edc3db2;p=dealii-svn.git Add some infrastructure for inclusion of HSL routines. git-svn-id: https://svn.dealii.org/trunk@3826 0785d39b-7218-0410-832d-ea1e28bc413d --- diff --git a/deal.II/contrib/hsl/Makefile b/deal.II/contrib/hsl/Makefile index 6f64ef3518..c40175a36a 100644 --- a/deal.II/contrib/hsl/Makefile +++ b/deal.II/contrib/hsl/Makefile @@ -15,7 +15,7 @@ endif # get lists of files we need -f-files = $(shell a="`echo source/*.f`"; if test $$a != "source/*.f" ; then echo $$a ; fi) +f-files = $(shell a="`echo source/*.f`"; if test "$$a" != "source/*.f" ; then echo $$a ; fi) o-files = $(f-files:source/%.f=lib/o/%.o) @@ -55,10 +55,10 @@ clean: #to remake this file upon inclusion at the bottom #of this file. # -#note that we take care if tehre are no f-files +#note that we take care if there are no f-files lib/Makefile.dep: $(f-files) Makefile @echo ============================ Remaking Makefile - (if test "x$(f-files)" != "x" ; then \ + @(if test "x$(f-files)" != "x" ; then \ for i in source/*.f ; do \ echo $$i | perl -pi -e 's#source/(.*)\.f#lib/o/\1.o:source/\1.f#;' ;\ done ; \ diff --git a/deal.II/contrib/hsl/lib/.cvsignore b/deal.II/contrib/hsl/lib/.cvsignore new file mode 100644 index 0000000000..1ef0b7e048 --- /dev/null +++ b/deal.II/contrib/hsl/lib/.cvsignore @@ -0,0 +1 @@ +lib* diff --git a/deal.II/contrib/hsl/source/.cvsignore b/deal.II/contrib/hsl/source/.cvsignore new file mode 100644 index 0000000000..6d4131a484 --- /dev/null +++ b/deal.II/contrib/hsl/source/.cvsignore @@ -0,0 +1 @@ +*.f diff --git a/deal.II/contrib/hsl/source/ma27sup.f b/deal.II/contrib/hsl/source/ma27sup.f new file mode 100644 index 0000000000..c7260a13c6 --- /dev/null +++ b/deal.II/contrib/hsl/source/ma27sup.f @@ -0,0 +1,43 @@ +C Return the value of NRLNEC + + SUBROUTINE ma27x1(X) + INTEGER X + COMMON /MA27ED/OPS,IERROR,NRLTOT,NIRTOT,NRLNEC,NIRNEC,NRLADU, + + NIRADU,NRLBDU,NIRBDU,NCMPA,NCMPBR,NCMPBI,NTWO,NEIG + DOUBLE PRECISION OPS + INTEGER IERROR,NRLTOT,NIRTOT,NRLNEC,NIRNEC,NRLADU,NIRADU,NRLBDU, + + NIRBDU,NCMPA,NCMPBR,NCMPBI,NTWO,NEIG + + X=NRLNEC + RETURN + END + + + + +C Return the value of NIRNEC + SUBROUTINE ma27x2(X) + INTEGER X + COMMON /MA27ED/OPS,IERROR,NRLTOT,NIRTOT,NRLNEC,NIRNEC,NRLADU, + + NIRADU,NRLBDU,NIRBDU,NCMPA,NCMPBR,NCMPBI,NTWO,NEIG + DOUBLE PRECISION OPS + INTEGER IERROR,NRLTOT,NIRTOT,NRLNEC,NIRNEC,NRLADU,NIRADU,NRLBDU, + + NIRBDU,NCMPA,NCMPBR,NCMPBI,NTWO,NEIG + + X=NIRNEC + RETURN + END + + +C Set value of error stream. If zero, then no error output +C is generated, which is what we usually want since we catch +C errors internally and treat them + SUBROUTINE ma27x3(X) + INTEGER X + COMMON /MA27DD/U,LP,MP,LDIAG + DOUBLE PRECISION U + INTEGER LP,MP,LDIAG + + LP=X + RETURN + END