# 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)
#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 ; \
--- /dev/null
+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