]> https://gitweb.dealii.org/ - dealii-svn.git/commitdiff
Add some infrastructure for inclusion of HSL routines.
authorwolf <wolf@0785d39b-7218-0410-832d-ea1e28bc413d>
Mon, 29 Jan 2001 16:45:43 +0000 (16:45 +0000)
committerwolf <wolf@0785d39b-7218-0410-832d-ea1e28bc413d>
Mon, 29 Jan 2001 16:45:43 +0000 (16:45 +0000)
git-svn-id: https://svn.dealii.org/trunk@3826 0785d39b-7218-0410-832d-ea1e28bc413d

deal.II/contrib/hsl/Makefile
deal.II/contrib/hsl/lib/.cvsignore [new file with mode: 0644]
deal.II/contrib/hsl/source/.cvsignore [new file with mode: 0644]
deal.II/contrib/hsl/source/ma27sup.f [new file with mode: 0644]

index 6f64ef35186f0e1f3a18b62e0c2a5632970fbd72..c40175a36a13664d26c0da602541d769646f23a2 100644 (file)
@@ -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 (file)
index 0000000..1ef0b7e
--- /dev/null
@@ -0,0 +1 @@
+lib*
diff --git a/deal.II/contrib/hsl/source/.cvsignore b/deal.II/contrib/hsl/source/.cvsignore
new file mode 100644 (file)
index 0000000..6d4131a
--- /dev/null
@@ -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 (file)
index 0000000..c7260a1
--- /dev/null
@@ -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

In the beginning the Universe was created. This has made a lot of people very angry and has been widely regarded as a bad move.

Douglas Adams


Typeset in Trocchi and Trocchi Bold Sans Serif.