--- blas-1.2.orig/debian/xdcblat2.1
+++ blas-1.2/debian/xdcblat2.1
@@ -0,0 +1 @@
+.so man1/libblas-test.1
--- blas-1.2.orig/debian/xdcblat3.1
+++ blas-1.2/debian/xdcblat3.1
@@ -0,0 +1 @@
+.so man1/libblas-test.1
--- blas-1.2.orig/debian/copyright
+++ blas-1.2/debian/copyright
@@ -0,0 +1,18 @@
+This package was debianized by James A. Treacy on
+Tue, 28 Sep 1999 15:48:36 -0400.
+
+It was downloaded from ftp://ftp.netlib.org/blas/blas.tgz
+
+Copyright:
+
+This software is in the public domain
+
+blas_1.2.orig.tar.gz was repackaked to remove the following files
+for which no sources were available:
+ blas2-paper.ps
+ blas3-paper.ps
+ blasqr.ps
+ cinterface.pdf
+
+Note that a new cinterface.pdf is generated from a patched
+cinterface.tex source file in the debian/patched-docs directory.
--- blas-1.2.orig/debian/xccblat2.1
+++ blas-1.2/debian/xccblat2.1
@@ -0,0 +1 @@
+.so man1/libblas-test.1
--- blas-1.2.orig/debian/xzblat1.1
+++ blas-1.2/debian/xzblat1.1
@@ -0,0 +1 @@
+.so man1/libblas-test.1
--- blas-1.2.orig/debian/rules
+++ blas-1.2/debian/rules
@@ -0,0 +1,329 @@
+#!/usr/bin/make -f
+
+ARCH:=$(shell dpkg --print-architecture)
+
+F77:=gfortran
+GCC:=gcc
+F77FLAGS:= -pipe -g -fomit-frame-pointer
+
+ifneq (,$(findstring amd64,$(ARCH)))
+# See bug #569436. -O3 causes some optimisation issues
+F77FLAGS:=$(F77FLAGS) -O2
+else
+F77FLAGS:=$(F77FLAGS) -O3
+endif
+
+ifneq (,$(filter $(ARCH),i386 lpia hurd-i386 kfreebsd-i386 m68k))
+ F77_EXTRA_FLAGS = -ffloat-store
+endif
+
+ifeq ($(ARCH),alpha)
+ F77FLAGS:=$(F77FLAGS) -mieee
+endif
+
+SO=3gf
+VERS=$(SO).0
+
+VN:=$(shell pwd)
+VO:=$(VN).orig
+UD:=$(shell dirname $$(pwd))
+
+PDF:=cinterface
+PDD:=debian/patched-docs
+PDP:=$(addprefix $(PDD)/,$(PDF))
+PDS:=$(addsuffix .tex,$(PDP))
+PDO:=$(addsuffix .pdf,$(PDP))
+
+$(UD)/blas.tgz:
+ mkdir -p $(@D)
+ cd $(@D) && wget -N ftp://ftp.netlib.org/blas/$(@F)
+
+$(UD)/cblas.tgz:
+ mkdir -p $(@D)
+ cd $(@D) && wget -N ftp://ftp.netlib.org/blas/blast-forum/$(@F)
+
+$(UD)/manpages.tgz:
+ mkdir -p $(@D)
+ cd $(@D) && wget -N ftp://ftp.netlib.org/lapack/$(@F)
+
+$(VO)/src: $(UD)/blas.tgz
+ mkdir -p $@
+ cd $@ && tar zxf $<
+
+TF:=s d c z
+TF:=$(addsuffix blat1,$(TF)) $(addsuffix blat2,$(TF)) $(addsuffix blat3,$(TF)) \
+ $(addsuffix blat2d,$(TF)) $(addsuffix blat3d,$(TF))
+
+$(addprefix $(VO)/test/,$(TF)):
+ mkdir -p $(@D)
+ cd $(@D) && wget -N ftp://ftp.netlib.org/blas/$(@F)
+
+$(VO)/test: $(addprefix $(VO)/test/,$(TF))
+
+$(VO)/man: $(UD)/manpages.tgz
+ mkdir -p $(@D)
+ cd $(VO) && tar zxf $< blas
+ rm -rf $@
+ mv $(VO)/blas/man $@
+ rmdir $(VO)/blas
+
+$(VO)/cblas: $(UD)/cblas.tgz
+ cd $(VO) && tar zxf $<
+ rm -rf $@
+ mv $(VO)/CBLAS $@
+
+DF:=faq.html
+$(addprefix $(VO)/doc/,$(DF)):
+ mkdir -p $(@D)
+ cd $(@D) && wget -N ftp://ftp.netlib.org/blas/$(@F)
+
+$(VO)/doc/cinterface.pdf:
+ mkdir -p $(@D)
+ cd $(@D) && wget -N ftp://ftp.netlib.org/blas/blast-forum/$(@F)
+
+$(VO)/doc/blue.gif:
+ mkdir -p $(@D)
+ cd $(@D) && wget -N ftp://ftp.netlib.org/scalapack/html/gif/$(@F)
+
+%.png: %.gif
+ gif2png $<
+
+$(VO)/doc: $(addprefix $(VO)/doc/,$(DF)) $(VO)/doc/blue.png
+
+ori: $(addprefix $(VO)/,src test man cblas doc)
+
+BSRC:=$(shell echo src/*.f)
+BOBJ:=$(BSRC:.f=.o)
+BOBJ1:=$(filter-out src/izamax.o,$(filter-out src/icamax.o,$(BOBJ)))
+BOBJ2:=src/icamax.o src/izamax.o
+
+debian/patch_applied:
+ ! [ -e debian/blas.patch ] || patch -p1 $@
+
+cblas/libcblas.a: cblas/Makefile.in debian/patch_applied
+ cd $(@D) && $(MAKE) cleanobj
+ cd $(@D) && $(MAKE) rmlib
+ cd $(@D) && $(MAKE) CC=$(GCC) F77=$(F77) alllib
+ cp cblas/lib/LINUX/cblas_LINUX.a $@
+
+cblas/libcblas_pic.a: cblas/Makefile.in debian/patch_applied
+ cd $(@D) && $(MAKE) cleanobj
+ cd $(@D) && $(MAKE) rmlib
+ cd $(@D) && $(MAKE) CC=$(GCC) F77=$(F77) PICOPTS=-fPIC alllib
+ cp cblas/lib/LINUX/cblas_LINUX.a $@
+
+BIN:=s d c z
+BIN:=$(addsuffix cblat1,$(BIN)) $(addsuffix cblat2,$(BIN)) $(addsuffix cblat3,$(BIN))
+BIN:=$(addprefix cblas/testing/x,$(BIN))
+
+$(BIN): libblas.so
+ cd cblas && $(MAKE) alltst CC=$(GCC) F77=$(F77) CBLIB=
+
+FBN:=s d c z
+FBN:=$(addsuffix blat1,$(FBN)) $(addsuffix blat2,$(FBN)) $(addsuffix blat3,$(FBN))
+FBN:=$(addprefix test/x,$(FBN))
+
+test/%.f: test/%
+ cp $< $@
+
+test/x%: test/%.f libblas.so
+ $(F77) $(F77FLAGS) -o $@ $< -L $$(pwd) -lblas
+
+OUT:=$(subst cblas/testing/,debian/test/,$(BIN))
+OUT1:=$(filter %1,$(OUT))
+OUT23:=$(filter-out %1,$(OUT))
+
+$(OUT1): \
+ debian/test/%: cblas/testing/% debian/test_dir libblas.so
+ LD_LIBRARY_PATH=$$(pwd):$$LD_LIBRARY_PATH $< > $@
+ awk '/fail/ || /FAIL/ {exit 1}' $@ || (cat $@ && false)
+
+$(OUT23): \
+ debian/test/%: cblas/testing/% debian/test_dir libblas.so
+ LD_LIBRARY_PATH=$$(pwd):$$LD_LIBRARY_PATH $< \
+ < cblas/testing/$(subst x,,$(subst cblat,in,$*)) > $@
+ awk '/fail/ || /FAIL/ {exit 1}' $@ || (cat $@ && false)
+
+FOT:=$(subst test/,debian/test/,$(FBN))
+FOT1:=$(filter %1,$(FOT))
+FOT23:=$(filter-out %1,$(FOT))
+
+$(FOT1): \
+ debian/test/%: test/% debian/test_dir libblas.so
+ LD_LIBRARY_PATH=$$(pwd):$$LD_LIBRARY_PATH $< > $@
+ awk '/fail/ || /FAIL/ {exit 1}' $@ || (cat $@ && false)
+
+$(FOT23): \
+ debian/test/%: test/% debian/test_dir libblas.so
+ rm -f *.SUMM
+ LD_LIBRARY_PATH=$$(pwd):$$LD_LIBRARY_PATH $< \
+ < test/$(subst x,,$*)d
+ cat *.SUMM >$@
+ awk '/fail/ || /FAIL/ {exit 1}' $@ || (cat $@ && false)
+
+debian/test_results: $(OUT) $(FOT)
+ cat $^ > $@
+ cat $@ | awk '/fail/ || /FAIL/ {exit 1}'
+
+
+debian/tmp/usr/lib/libblas/%: %
+ dh_testroot
+ mkdir -p $(@D)
+ [ -L $* ] || install -m 644 $* $(@D)
+ ! [ -L $* ] || cp -d $* $(@D)
+
+# For libcblas-test (which does not exist?)
+debian/tmp/usr/lib/libblas3gf/%: cblas/testing/%
+ dh_testroot
+ mkdir -p $(@D)
+ install -m 755 cblas/testing/$* $(@D)
+
+# For libblas
+debian/tmp/usr/lib/libblas3gf/%: test/%
+ dh_testroot
+ mkdir -p $(@D)
+ install -m 755 test/$* $(@D)
+
+debian/tmp/usr/include/%: cblas/src/%
+ dh_testroot
+ mkdir -p $(@D)
+ install -m 644 cblas/src/$* $(@D)
+
+MFL:=$(shell echo man/manl/*)
+%.3: %.l
+ cat $< | sed "s,^.TH *\([^ ]*\) *l *\(.*\),.TH \1 3 \2,1" >$@
+ echo Convervted $< to $@, diff:
+ diff -u $< $@ || true
+MF:=$(subst .l,.3,$(MFL))
+
+IF:=so so.$(SO) so.$(VERS) a
+IF:=$(addprefix debian/tmp/usr/lib/libblas/libblas.,$(IF))
+IF:=$(IF) $(subst cblas/testing/,debian/tmp/usr/lib/libblas3gf/,$(BIN))
+IF:=$(IF) $(subst test/,debian/tmp/usr/lib/libblas3gf/,$(FBN))
+IF:=$(IF) $(addprefix debian/tmp/usr/include/cblas,.h _f77.h) $(MF) debian/test_results
+
+$(PDO): %.pdf: %.tex
+ cd $(@D) && pdflatex $(&2 'source and diff are obsolete - use dpkg-source -b'; false
+
+binary: binary-indep binary-arch
+.PHONY: build clean binary-indep binary-arch binary \
+ $(addprefix $(UD)/,blas.tgz cblas.tgz manpages.tgz)
+.SUFFIXES:
+.INTERMEDIATE: $(VO)/doc/blue.gif
--- blas-1.2.orig/debian/xzcblat3.1
+++ blas-1.2/debian/xzcblat3.1
@@ -0,0 +1 @@
+.so man1/libblas-test.1
--- blas-1.2.orig/debian/libblas3gf.postinst
+++ blas-1.2/debian/libblas3gf.postinst
@@ -0,0 +1,14 @@
+#! /bin/sh
+
+set -e
+
+update-alternatives --install /usr/lib/libblas.so.3gf libblas.so.3gf /usr/lib/libblas/libblas.so.3gf 10
+
+# dh_installdeb will replace this with shell code automatically
+# generated by other debhelper scripts.
+
+#DEBHELPER#
+
+exit 0
+
+
--- blas-1.2.orig/debian/xccblat1.1
+++ blas-1.2/debian/xccblat1.1
@@ -0,0 +1 @@
+.so man1/libblas-test.1
--- blas-1.2.orig/debian/libblas-dev.postinst
+++ blas-1.2/debian/libblas-dev.postinst
@@ -0,0 +1,20 @@
+#! /bin/sh
+
+set -e
+
+update-alternatives --install /usr/lib/libblas.so libblas.so /usr/lib/libblas/libblas.so 10 \
+ --slave /usr/lib/libblas.a libblas.a /usr/lib/libblas/libblas.a
+
+# Remove previous (deprecated) alternatives
+# See bug #576801
+update-alternatives --remove libblas-3gf.so /usr/lib/libblas.so
+update-alternatives --remove libblas-3gf.a /usr/lib/libblas.a
+
+# dh_installdeb will replace this with shell code automatically
+# generated by other debhelper scripts.
+
+#DEBHELPER#
+
+exit 0
+
+
--- blas-1.2.orig/debian/a.f77
+++ blas-1.2/debian/a.f77
@@ -0,0 +1,31 @@
+#!/bin/bash
+
+set -e
+
+OPTS=""
+FILE=""
+while [ $# -gt 0 ] ; do
+ if echo $1 | grep '\.f$' >/dev/null ; then
+ FILE=$1
+ else
+ OPTS="$OPTS $1"
+ fi
+ shift
+done
+
+if [ "$FILE" != "" ] && grep -i abs1 $FILE >/dev/null ; then
+
+ echo f2c $FILE
+ f2c $FILE
+ echo cc $OPTS $(echo $FILE | sed 's,\.f,.c,1')
+ cc $OPTS $(echo $FILE | sed 's,\.f,.c,1')
+ rm $(echo $FILE | sed 's,\.f,.c,1')
+
+else
+
+ echo f77 $OPTS $FILE
+ f77 $OPTS $FILE
+
+fi
+
+exit 0
--- blas-1.2.orig/debian/blas.patch
+++ blas-1.2/debian/blas.patch
@@ -0,0 +1,7867 @@
+--- blas-1.1/cblas/src/cblas_cgbmv.c Mon Mar 15 15:11:04 1999
++++ refblas3-1.2/cblas/src/cblas_cgbmv.c Thu Jun 12 10:28:11 2003
+@@ -43,7 +43,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (TransA == CblasNoTrans) TA = 'N';
+@@ -52,7 +52,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_cgbmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -132,7 +132,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_cgbmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -160,6 +160,6 @@
+ }
+ }
+ else cblas_xerbla(1, "cblas_cgbmv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ }
+--- blas-1.1/cblas/src/cblas_cgemm.c Mon Mar 15 15:11:05 1999
++++ refblas3-1.2/cblas/src/cblas_cgemm.c Thu Jun 12 10:28:15 2003
+@@ -38,7 +38,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if( Order == CblasColMajor )
+ {
+@@ -48,7 +48,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_cgemm", "Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -59,7 +59,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_cgemm", "Illegal TransB setting, %d\n", TransB);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -80,7 +80,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_cgemm", "Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -90,7 +90,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_cgemm", "Illegal TransB setting, %d\n", TransB);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -103,7 +103,7 @@
+ &F77_ldb, A, &F77_lda, beta, C, &F77_ldc);
+ }
+ else cblas_xerbla(1, "cblas_cgemm", "Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_cgemv.c Mon Mar 15 15:11:06 1999
++++ refblas3-1.2/cblas/src/cblas_cgemv.c Thu Jun 12 10:28:15 2003
+@@ -41,7 +41,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if (order == CblasColMajor)
+ {
+@@ -51,7 +51,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_cgemv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -127,7 +127,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_cgemv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -156,7 +156,7 @@
+ }
+ }
+ else cblas_xerbla(1, "cblas_cgemv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_cgerc.c Mon Mar 15 15:11:07 1999
++++ refblas3-1.2/cblas/src/cblas_cgerc.c Thu Jun 12 10:28:15 2003
+@@ -30,7 +30,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ F77_cgerc( &F77_M, &F77_N, alpha, X, &F77_incX, Y, &F77_incY, A,
+@@ -78,7 +78,7 @@
+ free(y);
+
+ } else cblas_xerbla(1, "cblas_cgerc", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_cgeru.c Mon Mar 15 15:11:08 1999
++++ refblas3-1.2/cblas/src/cblas_cgeru.c Thu Jun 12 10:28:15 2003
+@@ -25,7 +25,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if (order == CblasColMajor)
+ {
+@@ -39,7 +39,7 @@
+ &F77_lda);
+ }
+ else cblas_xerbla(1, "cblas_cgeru","Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_chbmv.c Mon Mar 15 15:11:09 1999
++++ refblas3-1.2/cblas/src/cblas_chbmv.c Thu Jun 12 10:28:15 2003
+@@ -39,7 +39,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasLower) UL = 'L';
+@@ -47,7 +47,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_chbmv","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -121,7 +121,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_chbmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -134,7 +134,7 @@
+ else
+ {
+ cblas_xerbla(1, "cblas_chbmv","Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -153,7 +153,7 @@
+ while (y != st);
+ }
+ }
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_chemm.c Mon Mar 15 15:11:10 1999
++++ refblas3-1.2/cblas/src/cblas_chemm.c Thu Jun 12 10:28:15 2003
+@@ -37,7 +37,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if( Order == CblasColMajor )
+ {
+@@ -46,7 +46,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_chemm", "Illegal Side setting, %d\n", Side);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -56,7 +56,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_chemm", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -76,7 +76,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_chemm", "Illegal Side setting, %d\n", Side);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -86,7 +86,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_chemm", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -100,7 +100,7 @@
+ &F77_lda, B, &F77_ldb, beta, C, &F77_ldc);
+ }
+ else cblas_xerbla(1, "cblas_chemm", "Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_chemv.c Mon Mar 15 15:11:11 1999
++++ refblas3-1.2/cblas/src/cblas_chemv.c Thu Jun 12 10:28:15 2003
+@@ -39,7 +39,7 @@
+ RowMajorStrg = 0;
+
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -47,7 +47,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_chemv","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -122,7 +122,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_chemv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -135,7 +135,7 @@
+ else
+ {
+ cblas_xerbla(1, "cblas_chemv","Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -154,7 +154,7 @@
+ while (y != st);
+ }
+ }
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_cher2.c Mon Mar 15 15:11:13 1999
++++ refblas3-1.2/cblas/src/cblas_cher2.c Thu Jun 12 10:28:15 2003
+@@ -36,7 +36,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasLower) UL = 'L';
+@@ -44,7 +44,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_cher2","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -63,7 +63,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_cher2","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -137,7 +137,7 @@
+ } else
+ {
+ cblas_xerbla(1, "cblas_cher2","Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -146,7 +146,7 @@
+ if(Y!=y)
+ free(y);
+
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_cher2k.c Mon Mar 15 15:11:14 1999
++++ refblas3-1.2/cblas/src/cblas_cher2k.c Thu Jun 12 10:28:15 2003
+@@ -39,7 +39,7 @@
+ float ALPHA[2];
+ const float *alp=(float *)alpha;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ RowMajorStrg = 0;
+
+ if( Order == CblasColMajor )
+@@ -50,7 +50,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_cher2k", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -61,7 +61,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_cher2k", "Illegal Trans setting, %d\n", Trans);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -81,7 +81,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_cher2k", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -91,7 +91,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_cher2k", "Illegal Trans setting, %d\n", Trans);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -105,7 +105,7 @@
+ F77_cher2k(F77_UL,F77_TR, &F77_N, &F77_K, ALPHA, A, &F77_lda, B, &F77_ldb, &beta, C, &F77_ldc);
+ }
+ else cblas_xerbla(1, "cblas_cher2k", "Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_cher.c Mon Mar 15 15:11:12 1999
++++ refblas3-1.2/cblas/src/cblas_cher.c Thu Jun 12 10:28:15 2003
+@@ -34,7 +34,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasLower) UL = 'L';
+@@ -42,7 +42,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_cher","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -60,7 +60,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_cher","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -103,14 +103,14 @@
+ } else
+ {
+ cblas_xerbla(1, "cblas_cher","Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+ if(X!=x)
+ free(x);
+
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_cherk.c Mon Mar 15 15:11:15 1999
++++ refblas3-1.2/cblas/src/cblas_cherk.c Thu Jun 12 10:28:15 2003
+@@ -35,7 +35,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if( Order == CblasColMajor )
+ {
+@@ -44,7 +44,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_cherk", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -55,7 +55,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_cherk", "Illegal Trans setting, %d\n", Trans);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -75,7 +75,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_cherk", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -85,7 +85,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_cherk", "Illegal Trans setting, %d\n", Trans);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -99,7 +99,7 @@
+ &beta, C, &F77_ldc);
+ }
+ else cblas_xerbla(1, "cblas_cherk", "Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_chpmv.c Mon Mar 15 15:11:16 1999
++++ refblas3-1.2/cblas/src/cblas_chpmv.c Thu Jun 12 10:28:15 2003
+@@ -37,7 +37,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasLower) UL = 'L';
+@@ -45,7 +45,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_chpmv","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -120,7 +120,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_chpmv","Illegal Uplo setting, %d\n", Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -134,7 +134,7 @@
+ else
+ {
+ cblas_xerbla(1, "cblas_chpmv","Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -154,7 +154,7 @@
+ }
+ }
+
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_chpr2.c Mon Mar 15 15:11:18 1999
++++ refblas3-1.2/cblas/src/cblas_chpr2.c Thu Jun 12 10:28:15 2003
+@@ -36,7 +36,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasLower) UL = 'L';
+@@ -44,7 +44,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_chpr2","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -62,7 +62,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_chpr2","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -135,7 +135,7 @@
+ } else
+ {
+ cblas_xerbla(1, "cblas_chpr2","Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -143,7 +143,7 @@
+ free(x);
+ if(Y!=y)
+ free(y);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_chpr.c Mon Mar 15 15:11:17 1999
++++ refblas3-1.2/cblas/src/cblas_chpr.c Thu Jun 12 10:28:15 2003
+@@ -33,7 +33,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasLower) UL = 'L';
+@@ -41,7 +41,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_chpr","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -59,7 +59,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_chpr","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -103,13 +103,13 @@
+ } else
+ {
+ cblas_xerbla(1, "cblas_chpr","Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+ if(X!=x)
+ free(x);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_csymm.c Mon Mar 15 15:11:19 1999
++++ refblas3-1.2/cblas/src/cblas_csymm.c Thu Jun 12 10:28:15 2003
+@@ -37,7 +37,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if( Order == CblasColMajor )
+ {
+@@ -46,7 +46,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_csymm", "Illegal Side setting, %d\n", Side);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -56,7 +56,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_csymm", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -76,7 +76,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_csymm", "Illegal Side setting, %d\n", Side);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -86,7 +86,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_csymm", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -100,7 +100,7 @@
+ B, &F77_ldb, beta, C, &F77_ldc);
+ }
+ else cblas_xerbla(1, "cblas_csymm", "Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_csyr2k.c Mon Mar 15 15:11:20 1999
++++ refblas3-1.2/cblas/src/cblas_csyr2k.c Thu Jun 12 10:28:15 2003
+@@ -37,7 +37,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if( Order == CblasColMajor )
+ {
+@@ -47,7 +47,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_csyr2k", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -58,7 +58,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_csyr2k", "Illegal Trans setting, %d\n", Trans);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -79,7 +79,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_csyr2k", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -89,7 +89,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_csyr2k", "Illegal Trans setting, %d\n", Trans);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -102,7 +102,7 @@
+ F77_csyr2k(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda, B, &F77_ldb, beta, C, &F77_ldc);
+ }
+ else cblas_xerbla(1, "cblas_csyr2k", "Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_csyrk.c Mon Mar 15 15:11:21 1999
++++ refblas3-1.2/cblas/src/cblas_csyrk.c Thu Jun 12 10:28:15 2003
+@@ -35,7 +35,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if( Order == CblasColMajor )
+ {
+@@ -45,7 +45,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_csyrk", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -56,7 +56,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_csyrk", "Illegal Trans setting, %d\n", Trans);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -77,7 +77,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_csyrk", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -87,7 +87,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_csyrk", "Illegal Trans setting, %d\n", Trans);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -101,7 +101,7 @@
+ beta, C, &F77_ldc);
+ }
+ else cblas_xerbla(1, "cblas_csyrk", "Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_ctbmv.c Mon Mar 15 15:11:22 1999
++++ refblas3-1.2/cblas/src/cblas_ctbmv.c Thu Jun 12 10:28:15 2003
+@@ -36,7 +36,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -44,7 +44,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ctbmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -54,7 +54,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ctbmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -63,7 +63,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ctbmv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -83,7 +83,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ctbmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -115,7 +115,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ctbmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -125,7 +125,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ctbmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -152,7 +152,7 @@
+ }
+ }
+ else cblas_xerbla(1, "cblas_ctbmv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_ctbsv.c Mon Mar 15 15:11:23 1999
++++ refblas3-1.2/cblas/src/cblas_ctbsv.c Thu Jun 12 10:28:15 2003
+@@ -36,7 +36,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -44,7 +44,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ctbsv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -54,7 +54,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ctbsv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -63,7 +63,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ctbsv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -83,7 +83,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ctbsv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -119,7 +119,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ctbsv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -129,7 +129,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ctbsv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -156,7 +156,7 @@
+ }
+ }
+ else cblas_xerbla(1, "cblas_ctbsv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_ctpmv.c Mon Mar 15 15:11:24 1999
++++ refblas3-1.2/cblas/src/cblas_ctpmv.c Thu Jun 12 10:28:15 2003
+@@ -33,7 +33,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -41,7 +41,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ctpmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -51,7 +51,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ctpmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -60,7 +60,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ctpmv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -79,7 +79,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ctpmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -111,7 +111,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ctpmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -121,7 +121,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ctpmv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -146,7 +146,7 @@
+ }
+ }
+ else cblas_xerbla(1, "cblas_ctpmv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_ctpsv.c Mon Mar 15 15:11:25 1999
++++ refblas3-1.2/cblas/src/cblas_ctpsv.c Thu Jun 12 10:28:15 2003
+@@ -33,7 +33,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -41,7 +41,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ctpsv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -51,7 +51,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ctpsv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -60,7 +60,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ctpsv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -79,7 +79,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ctpsv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -115,7 +115,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ctpsv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -125,7 +125,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ctpsv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -151,7 +151,7 @@
+ }
+ }
+ else cblas_xerbla(1, "cblas_ctpsv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_ctrmm.c Mon Mar 15 15:11:26 1999
++++ refblas3-1.2/cblas/src/cblas_ctrmm.c Thu Jun 12 10:28:21 2003
+@@ -37,7 +37,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if( Order == CblasColMajor )
+ {
+@@ -46,7 +46,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ctrmm", "Illegal Side setting, %d\n", Side);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -55,7 +55,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ctrmm", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -66,7 +66,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ctrmm", "Illegal Trans setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -92,7 +92,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ctrmm", "Illegal Side setting, %d\n", Side);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -102,7 +102,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ctrmm", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -113,7 +113,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ctrmm", "Illegal Trans setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -123,7 +123,7 @@
+ else
+ {
+ cblas_xerbla(5, "cblas_ctrmm", "Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -138,7 +138,7 @@
+ F77_ctrmm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, alpha, A, &F77_lda, B, &F77_ldb);
+ }
+ else cblas_xerbla(1, "cblas_ctrmm", "Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_ctrmv.c Mon Mar 15 15:11:27 1999
++++ refblas3-1.2/cblas/src/cblas_ctrmv.c Thu Jun 12 10:28:21 2003
+@@ -36,7 +36,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -44,7 +44,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ctrmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -54,7 +54,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ctrmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -63,7 +63,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ctrmv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -83,7 +83,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ctrmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -114,7 +114,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ctrmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -124,7 +124,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ctrmv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -149,7 +149,7 @@
+ }
+ }
+ else cblas_xerbla(1, "cblas_ctrmv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_ctrsm.c Mon Mar 15 15:11:28 1999
++++ refblas3-1.2/cblas/src/cblas_ctrsm.c Thu Jun 12 10:28:21 2003
+@@ -37,7 +37,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if( Order == CblasColMajor )
+ {
+@@ -47,7 +47,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ctrsm", "Illegal Side setting, %d\n", Side);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -57,7 +57,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ctrsm", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -68,7 +68,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ctrsm", "Illegal Trans setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -78,7 +78,7 @@
+ else
+ {
+ cblas_xerbla(5, "cblas_ctrsm", "Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -101,7 +101,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ctrsm", "Illegal Side setting, %d\n", Side);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -111,7 +111,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ctrsm", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -122,7 +122,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ctrsm", "Illegal Trans setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -132,7 +132,7 @@
+ else
+ {
+ cblas_xerbla(5, "cblas_ctrsm", "Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -149,7 +149,7 @@
+ &F77_lda, B, &F77_ldb);
+ }
+ else cblas_xerbla(1, "cblas_ctrsm", "Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_ctrsv.c Mon Mar 15 15:11:29 1999
++++ refblas3-1.2/cblas/src/cblas_ctrsv.c Thu Jun 12 10:28:21 2003
+@@ -35,7 +35,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -43,7 +43,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ctrsv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -53,7 +53,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ctrsv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -62,7 +62,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ctrsv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -82,7 +82,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ctrsv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -115,7 +115,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ctrsv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -125,7 +125,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ctrsv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -150,7 +150,7 @@
+ }
+ }
+ else cblas_xerbla(1, "cblas_ctrsv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_dgbmv.c Mon Mar 15 15:11:30 1999
++++ refblas3-1.2/cblas/src/cblas_dgbmv.c Thu Jun 12 10:28:21 2003
+@@ -37,7 +37,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (TransA == CblasNoTrans) TA = 'N';
+@@ -46,7 +46,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dgbmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -65,7 +65,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dgbmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -76,6 +76,6 @@
+ A ,&F77_lda, X,&F77_incX, &beta, Y, &F77_incY);
+ }
+ else cblas_xerbla(1, "cblas_dgbmv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ }
+--- blas-1.1/cblas/src/cblas_dgemm.c Mon Mar 15 15:11:31 1999
++++ refblas3-1.2/cblas/src/cblas_dgemm.c Thu Jun 12 10:28:21 2003
+@@ -38,7 +38,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if( Order == CblasColMajor )
+ {
+@@ -48,7 +48,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dgemm","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -59,7 +59,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_dgemm","Illegal TransB setting, %d\n", TransB);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -80,7 +80,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dgemm","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -90,7 +90,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dgemm","Illegal TransB setting, %d\n", TransB);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -103,7 +103,7 @@
+ &F77_ldb, A, &F77_lda, &beta, C, &F77_ldc);
+ }
+ else cblas_xerbla(1, "cblas_dgemm", "Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_dgemv.c Mon Mar 15 15:11:32 1999
++++ refblas3-1.2/cblas/src/cblas_dgemv.c Thu Jun 12 10:28:21 2003
+@@ -33,7 +33,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (TransA == CblasNoTrans) TA = 'N';
+@@ -42,7 +42,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dgemv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -61,7 +61,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dgemv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -72,7 +72,7 @@
+ &F77_incX, &beta, Y, &F77_incY);
+ }
+ else cblas_xerbla(1, "cblas_dgemv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_dger.c Mon Mar 15 15:11:32 1999
++++ refblas3-1.2/cblas/src/cblas_dger.c Thu Jun 12 10:28:21 2003
+@@ -27,7 +27,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ F77_dger( &F77_M, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A,
+@@ -41,7 +41,7 @@
+
+ }
+ else cblas_xerbla(1, "cblas_dger", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_dsbmv.c Mon Mar 15 15:11:33 1999
++++ refblas3-1.2/cblas/src/cblas_dsbmv.c Thu Jun 12 10:28:21 2003
+@@ -34,7 +34,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -42,7 +42,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dsbmv","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -60,7 +60,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dsbmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -71,7 +71,7 @@
+ A ,&F77_lda, X,&F77_incX, &beta, Y, &F77_incY);
+ }
+ else cblas_xerbla(1, "cblas_dsbmv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_dspmv.c Mon Mar 15 15:11:34 1999
++++ refblas3-1.2/cblas/src/cblas_dspmv.c Thu Jun 12 10:28:21 2003
+@@ -33,7 +33,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -41,7 +41,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dspmv","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -59,7 +59,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dspmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -70,7 +70,7 @@
+ AP, X,&F77_incX, &beta, Y, &F77_incY);
+ }
+ else cblas_xerbla(1, "cblas_dspmv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_dspr2.c Mon Mar 15 15:11:37 1999
++++ refblas3-1.2/cblas/src/cblas_dspr2.c Thu Jun 12 10:28:21 2003
+@@ -29,7 +29,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasLower) UL = 'L';
+@@ -37,7 +37,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dspr2","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -55,7 +55,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dspr2","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -64,7 +64,7 @@
+ #endif
+ F77_dspr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A);
+ } else cblas_xerbla(1, "cblas_dspr2", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_dspr.c Mon Mar 15 15:11:36 1999
++++ refblas3-1.2/cblas/src/cblas_dspr.c Thu Jun 12 10:28:21 2003
+@@ -29,7 +29,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasLower) UL = 'L';
+@@ -37,7 +37,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dspr","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -55,7 +55,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dspr","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -64,7 +64,7 @@
+ #endif
+ F77_dspr(F77_UL, &F77_N, &alpha, X, &F77_incX, Ap);
+ } else cblas_xerbla(1, "cblas_dspr", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_dsymm.c Mon Mar 15 15:11:38 1999
++++ refblas3-1.2/cblas/src/cblas_dsymm.c Thu Jun 12 10:28:21 2003
+@@ -37,7 +37,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if( Order == CblasColMajor )
+ {
+@@ -46,7 +46,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dsymm","Illegal Side setting, %d\n", Side);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -56,7 +56,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_dsymm","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -76,7 +76,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dsymm","Illegal Side setting, %d\n", Side);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -86,7 +86,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_dsymm","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -100,7 +100,7 @@
+ &F77_ldb, &beta, C, &F77_ldc);
+ }
+ else cblas_xerbla(1, "cblas_dsymm","Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_dsymv.c Mon Mar 15 15:11:39 1999
++++ refblas3-1.2/cblas/src/cblas_dsymv.c Thu Jun 12 10:28:21 2003
+@@ -33,7 +33,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -41,7 +41,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dsymv","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -59,7 +59,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dsymv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -70,7 +70,7 @@
+ A ,&F77_lda, X,&F77_incX, &beta, Y, &F77_incY);
+ }
+ else cblas_xerbla(1, "cblas_dsymv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_dsyr2.c Mon Mar 15 15:11:40 1999
++++ refblas3-1.2/cblas/src/cblas_dsyr2.c Thu Jun 12 10:28:21 2003
+@@ -33,7 +33,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasLower) UL = 'L';
+@@ -41,7 +41,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dsyr2","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -60,7 +60,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dsyr2","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -70,7 +70,7 @@
+ F77_dsyr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A,
+ &F77_lda);
+ } else cblas_xerbla(1, "cblas_dsyr2", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_dsyr2k.c Mon Mar 15 15:11:41 1999
++++ refblas3-1.2/cblas/src/cblas_dsyr2k.c Thu Jun 12 10:28:22 2003
+@@ -37,7 +37,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if( Order == CblasColMajor )
+ {
+@@ -47,7 +47,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dsyr2k","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -58,7 +58,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_dsyr2k","Illegal Trans setting, %d\n", Trans);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -79,7 +79,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_dsyr2k","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -89,7 +89,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_dsyr2k","Illegal Trans setting, %d\n", Trans);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -103,7 +103,7 @@
+ &F77_ldb, &beta, C, &F77_ldc);
+ }
+ else cblas_xerbla(1, "cblas_dsyr2k","Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_dsyr.c Mon Mar 15 15:11:39 1999
++++ refblas3-1.2/cblas/src/cblas_dsyr.c Thu Jun 12 10:28:21 2003
+@@ -30,7 +30,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasLower) UL = 'L';
+@@ -38,7 +38,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dsyr","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -56,7 +56,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dsyr","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -65,7 +65,7 @@
+ #endif
+ F77_dsyr(F77_UL, &F77_N, &alpha, X, &F77_incX, A, &F77_lda);
+ } else cblas_xerbla(1, "cblas_dsyr", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_dsyrk.c Mon Mar 15 15:11:42 1999
++++ refblas3-1.2/cblas/src/cblas_dsyrk.c Thu Jun 12 10:28:22 2003
+@@ -35,7 +35,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if( Order == CblasColMajor )
+ {
+@@ -45,7 +45,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dsyrk","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -56,7 +56,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_dsyrk","Illegal Trans setting, %d\n", Trans);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -77,7 +77,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_dsyrk","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -87,7 +87,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_dsyrk","Illegal Trans setting, %d\n", Trans);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -101,7 +101,7 @@
+ &beta, C, &F77_ldc);
+ }
+ else cblas_xerbla(1, "cblas_dsyrk","Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_dtbmv.c Mon Mar 15 15:11:43 1999
++++ refblas3-1.2/cblas/src/cblas_dtbmv.c Thu Jun 12 10:28:22 2003
+@@ -34,7 +34,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -42,7 +42,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dtbmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -52,7 +52,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_dtbmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -61,7 +61,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_dtbmv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -81,7 +81,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dtbmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -92,7 +92,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_dtbmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -102,7 +102,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_dtbmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -117,6 +117,6 @@
+
+ }
+ else cblas_xerbla(1, "cblas_dtbmv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ }
+--- blas-1.1/cblas/src/cblas_dtbsv.c Mon Mar 15 15:11:44 1999
++++ refblas3-1.2/cblas/src/cblas_dtbsv.c Thu Jun 12 10:28:22 2003
+@@ -34,7 +34,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -42,7 +42,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dtbsv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -52,7 +52,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_dtbsv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -61,7 +61,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_dtbsv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -81,7 +81,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dtbsv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -92,7 +92,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_dtbsv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -102,7 +102,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_dtbsv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -116,7 +116,7 @@
+ &F77_incX);
+ }
+ else cblas_xerbla(1, "cblas_dtbsv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_dtpmv.c Mon Mar 15 15:11:45 1999
++++ refblas3-1.2/cblas/src/cblas_dtpmv.c Thu Jun 12 10:28:22 2003
+@@ -31,7 +31,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -39,7 +39,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dtpmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -49,7 +49,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_dtpmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -58,7 +58,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_dtpmv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -77,7 +77,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dtpmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -88,7 +88,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_dtpmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -98,7 +98,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_dtpmv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -111,7 +111,7 @@
+ F77_dtpmv( F77_UL, F77_TA, F77_DI, &F77_N, Ap, X,&F77_incX);
+ }
+ else cblas_xerbla(1, "cblas_dtpmv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_dtpsv.c Mon Mar 15 15:11:46 1999
++++ refblas3-1.2/cblas/src/cblas_dtpsv.c Thu Jun 12 10:28:22 2003
+@@ -31,7 +31,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -39,7 +39,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dtpsv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -49,7 +49,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_dtpsv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -58,7 +58,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_dtpsv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -77,7 +77,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dtpsv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -88,7 +88,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_dtpsv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -98,7 +98,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_dtpsv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -112,7 +112,7 @@
+
+ }
+ else cblas_xerbla(1, "cblas_dtpsv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_dtrmm.c Mon Mar 15 15:11:47 1999
++++ refblas3-1.2/cblas/src/cblas_dtrmm.c Thu Jun 12 10:28:22 2003
+@@ -37,7 +37,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if( Order == CblasColMajor )
+ {
+@@ -46,7 +46,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dtrmm","Illegal Side setting, %d\n", Side);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -55,7 +55,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_dtrmm","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -66,7 +66,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_dtrmm","Illegal Trans setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -76,7 +76,7 @@
+ else
+ {
+ cblas_xerbla(5, "cblas_dtrmm","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -97,7 +97,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dtrmm","Illegal Side setting, %d\n", Side);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -107,7 +107,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_dtrmm","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -118,7 +118,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_dtrmm","Illegal Trans setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -128,7 +128,7 @@
+ else
+ {
+ cblas_xerbla(5, "cblas_dtrmm","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -142,7 +142,7 @@
+ F77_dtrmm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, &alpha, A, &F77_lda, B, &F77_ldb);
+ }
+ else cblas_xerbla(1, "cblas_dtrmm", "Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_dtrmv.c Mon Mar 15 15:11:48 1999
++++ refblas3-1.2/cblas/src/cblas_dtrmv.c Thu Jun 12 10:28:22 2003
+@@ -36,7 +36,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -44,7 +44,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dtrmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -54,7 +54,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_dtrmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -63,7 +63,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_dtrmv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -83,7 +83,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dtrmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -94,7 +94,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_dtrmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -104,7 +104,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_dtrmv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -116,7 +116,7 @@
+ F77_dtrmv( F77_UL, F77_TA, F77_DI, &F77_N, A, &F77_lda, X,
+ &F77_incX);
+ } else cblas_xerbla(1, "cblas_dtrmv", "Illegal order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_dtrsm.c Mon Mar 15 15:11:49 1999
++++ refblas3-1.2/cblas/src/cblas_dtrsm.c Thu Jun 12 10:28:22 2003
+@@ -38,7 +38,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if( Order == CblasColMajor )
+ {
+@@ -47,7 +47,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dtrsm","Illegal Side setting, %d\n", Side);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -56,7 +56,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_dtrsm","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -67,7 +67,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_dtrsm","Illegal Trans setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -77,7 +77,7 @@
+ else
+ {
+ cblas_xerbla(5, "cblas_dtrsm","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -100,7 +100,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dtrsm","Illegal Side setting, %d\n", Side);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -110,7 +110,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_dtrsm","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -121,7 +121,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_dtrsm","Illegal Trans setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -131,7 +131,7 @@
+ else
+ {
+ cblas_xerbla(5, "cblas_dtrsm","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -147,7 +147,7 @@
+ &F77_lda, B, &F77_ldb);
+ }
+ else cblas_xerbla(1, "cblas_dtrsm","Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+Index: b/cblas/src/cblas_dtrsv.c
+===================================================================
+--- a/cblas/src/cblas_dtrsv.c
++++ b/cblas/src/cblas_dtrsv.c
+@@ -34,7 +34,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -42,7 +42,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dtrsv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -52,7 +52,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_dtrsv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -61,7 +61,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_dtrsv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -81,7 +81,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_dtrsv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -92,7 +92,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_dtrsv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -102,7 +102,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_dtrsv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -115,7 +115,7 @@
+ &F77_incX);
+ }
+ else cblas_xerbla(1, "cblas_dtrsv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+Index: b/cblas/src/cblas_f77.h
+===================================================================
+--- a/cblas/src/cblas_f77.h
++++ b/cblas/src/cblas_f77.h
+@@ -6,6 +6,9 @@
+ * Merged cblas_f77.h and cblas_fortran_header.h
+ */
+
++#include
++#include
++
+ #ifndef CBLAS_F77_H
+ #define CBLAS_f77_H
+
+@@ -39,6 +42,7 @@
+ /*
+ * Level 1 BLAS
+ */
++#define F77_xerbli xerbli_
+ #define F77_xerbla xerbla_
+ #define F77_srotg srotg_
+ #define F77_srotmg srotmg_
+@@ -192,6 +196,7 @@
+ /*
+ * Level 1 BLAS
+ */
++#define F77_xerbli XERBLI
+ #define F77_xerbla XERBLA
+ #define F77_srotg SROTG
+ #define F77_srotmg SROTMG
+@@ -345,6 +350,7 @@
+ /*
+ * Level 1 BLAS
+ */
++#define F77_xerbli xerbli
+ #define F77_xerbla xerbla
+ #define F77_srotg srotg
+ #define F77_srotmg srotmg
+@@ -690,4 +696,69 @@
+ void F77_ztrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);
+ void F77_ztrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);
+
++
++static int RowMajorStrgi;
++
++static void
++cblas_fix_info(int *info,const char *rout) {
++
++ if (RowMajorStrgi)
++ {
++ if (strstr(rout,"gemm") != 0)
++ {
++ if (*info == 5 ) *info = 4;
++ else if (*info == 4 ) *info = 5;
++ else if (*info == 11) *info = 9;
++ else if (*info == 9 ) *info = 11;
++ }
++ else if (strstr(rout,"symm") != 0 || strstr(rout,"hemm") != 0)
++ {
++ if (*info == 5 ) *info = 4;
++ else if (*info == 4 ) *info = 5;
++ }
++ else if (strstr(rout,"trmm") != 0 || strstr(rout,"trsm") != 0)
++ {
++ if (*info == 7 ) *info = 6;
++ else if (*info == 6 ) *info = 7;
++ }
++ else if (strstr(rout,"gemv") != 0)
++ {
++ if (*info == 4) *info = 3;
++ else if (*info == 3) *info = 4;
++ }
++ else if (strstr(rout,"gbmv") != 0)
++ {
++ if (*info == 4) *info = 3;
++ else if (*info == 3) *info = 4;
++ else if (*info == 6) *info = 5;
++ else if (*info == 5) *info = 6;
++ }
++ else if (strstr(rout,"ger") != 0)
++ {
++ if (*info == 3) *info = 2;
++ else if (*info == 2) *info = 3;
++ else if (*info == 8) *info = 6;
++ else if (*info == 6) *info = 8;
++ }
++ else if ( (strstr(rout,"her2") != 0 || strstr(rout,"hpr2") != 0)
++ && strstr(rout,"her2k") == 0 )
++ {
++ if (*info == 8) *info = 6;
++ else if (*info == 6) *info = 8;
++ }
++ }
++}
++
++extern void (*mcblas_fix_info)(int *,const char *);
++
++#undef cblas_xerbla
++#define cblas_xerbla(a_,b_,c_...) {\
++ int aa_=(a_);\
++ if (mcblas_fix_info) (*mcblas_fix_info)(&(aa_),(b_));\
++ cblas_xerbla((aa_),(b_),##c_);\
++}
++
++#undef RowMajorStrg
++#define RowMajorStrg RowMajorStrgi
++
+ #endif /* CBLAS_F77_H */
+--- blas-1.1/cblas/src/cblas_globals.c Mon Mar 15 15:11:51 1999
++++ refblas3-1.2/cblas/src/cblas_globals.c Tue Jun 10 17:09:15 2003
+@@ -1,2 +1,2 @@
+-int CBLAS_CallFromC=0;
+-int RowMajorStrg=0;
++static int CBLAS_CallFromC;
++static int RowMajorStrg;
+--- blas-1.1/cblas/src/cblas_sgbmv.c Mon Mar 15 15:11:52 1999
++++ refblas3-1.2/cblas/src/cblas_sgbmv.c Thu Jun 12 10:28:22 2003
+@@ -38,7 +38,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (TransA == CblasNoTrans) TA = 'N';
+@@ -47,7 +47,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_sgbmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -66,7 +66,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_sgbmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -77,7 +77,7 @@
+ A ,&F77_lda, X, &F77_incX, &beta, Y, &F77_incY);
+ }
+ else cblas_xerbla(1, "cblas_sgbmv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_sgemm.c Mon Mar 15 15:11:53 1999
++++ refblas3-1.2/cblas/src/cblas_sgemm.c Thu Jun 12 10:28:22 2003
+@@ -38,7 +38,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if( Order == CblasColMajor )
+ {
+ if(TransA == CblasTrans) TA='T';
+@@ -48,7 +48,7 @@
+ {
+ cblas_xerbla(2, "cblas_sgemm",
+ "Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -60,7 +60,7 @@
+ {
+ cblas_xerbla(3, "cblas_sgemm",
+ "Illegal TransB setting, %d\n", TransB);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -81,7 +81,7 @@
+ {
+ cblas_xerbla(2, "cblas_sgemm",
+ "Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -92,7 +92,7 @@
+ {
+ cblas_xerbla(2, "cblas_sgemm",
+ "Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -105,6 +105,6 @@
+ } else
+ cblas_xerbla(1, "cblas_sgemm",
+ "Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ }
+--- blas-1.1/cblas/src/cblas_sgemv.c Mon Mar 15 15:11:54 1999
++++ refblas3-1.2/cblas/src/cblas_sgemv.c Thu Jun 12 10:28:22 2003
+@@ -34,7 +34,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (TransA == CblasNoTrans) TA = 'N';
+@@ -43,7 +43,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_sgemv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ }
+ #ifdef F77_CHAR
+@@ -61,7 +61,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_sgemv", "Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -72,7 +72,7 @@
+ &F77_incX, &beta, Y, &F77_incY);
+ }
+ else cblas_xerbla(1, "cblas_sgemv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_sger.c Mon Mar 15 15:11:55 1999
++++ refblas3-1.2/cblas/src/cblas_sger.c Thu Jun 12 10:28:22 2003
+@@ -27,7 +27,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ F77_sger( &F77_M, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A,
+@@ -40,7 +40,7 @@
+ &F77_lda);
+ }
+ else cblas_xerbla(1, "cblas_sger", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_ssbmv.c Mon Mar 15 15:11:56 1999
++++ refblas3-1.2/cblas/src/cblas_ssbmv.c Thu Jun 12 10:28:22 2003
+@@ -33,7 +33,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+
+@@ -42,7 +42,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ssbmv","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -59,7 +59,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ssbmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -70,7 +70,7 @@
+ &F77_incX, &beta, Y, &F77_incY);
+ }
+ else cblas_xerbla(1, "cblas_ssbmv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_sspmv.c Mon Mar 15 15:11:57 1999
++++ refblas3-1.2/cblas/src/cblas_sspmv.c Thu Jun 12 10:28:22 2003
+@@ -31,7 +31,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -39,7 +39,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_sspmv","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -57,7 +57,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_sspmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -68,6 +68,6 @@
+ AP, X,&F77_incX, &beta, Y, &F77_incY);
+ }
+ else cblas_xerbla(1, "cblas_sspmv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ }
+--- blas-1.1/cblas/src/cblas_sspr2.c Mon Mar 15 15:11:59 1999
++++ refblas3-1.2/cblas/src/cblas_sspr2.c Thu Jun 12 10:28:22 2003
+@@ -31,7 +31,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasLower) UL = 'L';
+@@ -39,7 +39,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_sspr2","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -57,7 +57,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_sspr2","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -66,6 +66,6 @@
+ #endif
+ F77_sspr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A);
+ } else cblas_xerbla(1, "cblas_sspr2", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ }
+--- blas-1.1/cblas/src/cblas_sspr.c Mon Mar 15 15:11:58 1999
++++ refblas3-1.2/cblas/src/cblas_sspr.c Thu Jun 12 10:28:22 2003
+@@ -31,7 +31,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasLower) UL = 'L';
+@@ -39,7 +39,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_sspr","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -57,7 +57,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_sspr","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -66,7 +66,7 @@
+ #endif
+ F77_sspr(F77_UL, &F77_N, &alpha, X, &F77_incX, Ap);
+ } else cblas_xerbla(1, "cblas_sspr", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_ssymm.c Mon Mar 15 15:12:00 1999
++++ refblas3-1.2/cblas/src/cblas_ssymm.c Thu Jun 12 10:28:22 2003
+@@ -37,7 +37,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if( Order == CblasColMajor )
+ {
+@@ -47,7 +47,7 @@
+ {
+ cblas_xerbla(2, "cblas_ssymm",
+ "Illegal Side setting, %d\n", Side);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -58,7 +58,7 @@
+ {
+ cblas_xerbla(3, "cblas_ssymm",
+ "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -78,7 +78,7 @@
+ {
+ cblas_xerbla(2, "cblas_ssymm",
+ "Illegal Side setting, %d\n", Side);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -89,7 +89,7 @@
+ {
+ cblas_xerbla(3, "cblas_ssymm",
+ "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -102,7 +102,7 @@
+ F77_ssymm(F77_SD, F77_UL, &F77_N, &F77_M, &alpha, A, &F77_lda, B, &F77_ldb, &beta, C, &F77_ldc);
+ } else cblas_xerbla(1, "cblas_ssymm",
+ "Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_ssymv.c Mon Mar 15 15:12:00 1999
++++ refblas3-1.2/cblas/src/cblas_ssymv.c Thu Jun 12 10:28:22 2003
+@@ -33,7 +33,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -41,7 +41,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ssymv","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -59,7 +59,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ssymv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -70,7 +70,7 @@
+ A ,&F77_lda, X,&F77_incX, &beta, Y, &F77_incY);
+ }
+ else cblas_xerbla(1, "cblas_ssymv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_ssyr2.c Mon Mar 15 15:12:02 1999
++++ refblas3-1.2/cblas/src/cblas_ssyr2.c Thu Jun 12 10:28:22 2003
+@@ -33,7 +33,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasLower) UL = 'L';
+@@ -41,7 +41,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ssyr2","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -60,7 +60,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ssyr2","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -70,7 +70,7 @@
+ F77_ssyr2(F77_UL, &F77_N, &alpha, X, &F77_incX, Y, &F77_incY, A,
+ &F77_lda);
+ } else cblas_xerbla(1, "cblas_ssyr2", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_ssyr2k.c Mon Mar 15 15:12:03 1999
++++ refblas3-1.2/cblas/src/cblas_ssyr2k.c Thu Jun 12 10:28:22 2003
+@@ -37,7 +37,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if( Order == CblasColMajor )
+ {
+@@ -48,7 +48,7 @@
+ {
+ cblas_xerbla(2, "cblas_ssyr2k",
+ "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -60,7 +60,7 @@
+ {
+ cblas_xerbla(3, "cblas_ssyr2k",
+ "Illegal Trans setting, %d\n", Trans);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -81,7 +81,7 @@
+ {
+ cblas_xerbla(3, "cblas_ssyr2k",
+ "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -92,7 +92,7 @@
+ {
+ cblas_xerbla(3, "cblas_ssyr2k",
+ "Illegal Trans setting, %d\n", Trans);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -105,7 +105,7 @@
+ F77_ssyr2k(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda, B, &F77_ldb, &beta, C, &F77_ldc);
+ } else cblas_xerbla(1, "cblas_ssyr2k",
+ "Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_ssyr.c Mon Mar 15 15:12:01 1999
++++ refblas3-1.2/cblas/src/cblas_ssyr.c Thu Jun 12 10:28:22 2003
+@@ -29,7 +29,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasLower) UL = 'L';
+@@ -37,7 +37,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ssyr","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -55,7 +55,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ssyr","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -64,7 +64,7 @@
+ #endif
+ F77_ssyr(F77_UL, &F77_N, &alpha, X, &F77_incX, A, &F77_lda);
+ } else cblas_xerbla(1, "cblas_ssyr", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_ssyrk.c Mon Mar 15 15:12:04 1999
++++ refblas3-1.2/cblas/src/cblas_ssyrk.c Thu Jun 12 10:28:22 2003
+@@ -35,7 +35,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if( Order == CblasColMajor )
+ {
+@@ -46,7 +46,7 @@
+ {
+ cblas_xerbla(2, "cblas_ssyrk",
+ "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -58,7 +58,7 @@
+ {
+ cblas_xerbla(3, "cblas_ssyrk",
+ "Illegal Trans setting, %d\n", Trans);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -79,7 +79,7 @@
+ {
+ cblas_xerbla(3, "cblas_ssyrk",
+ "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -90,7 +90,7 @@
+ {
+ cblas_xerbla(3, "cblas_ssyrk",
+ "Illegal Trans setting, %d\n", Trans);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -103,7 +103,7 @@
+ F77_ssyrk(F77_UL, F77_TR, &F77_N, &F77_K, &alpha, A, &F77_lda, &beta, C, &F77_ldc);
+ } else cblas_xerbla(1, "cblas_ssyrk",
+ "Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_stbmv.c Mon Mar 15 15:12:05 1999
++++ refblas3-1.2/cblas/src/cblas_stbmv.c Thu Jun 12 10:28:23 2003
+@@ -34,7 +34,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -42,7 +42,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_stbmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -52,7 +52,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_stbmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -61,7 +61,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_stbmv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -81,7 +81,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_stbmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -92,7 +92,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_stbmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -102,7 +102,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_stbmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -116,7 +116,7 @@
+ &F77_incX);
+ }
+ else cblas_xerbla(1, "cblas_stbmv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_stbsv.c Mon Mar 15 15:12:06 1999
++++ refblas3-1.2/cblas/src/cblas_stbsv.c Thu Jun 12 10:28:23 2003
+@@ -34,7 +34,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -42,7 +42,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_stbsv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -52,7 +52,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_stbsv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -61,7 +61,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_stbsv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -81,7 +81,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_stbsv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -92,7 +92,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_stbsv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -102,7 +102,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_stbsv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -116,7 +116,7 @@
+ &F77_incX);
+ }
+ else cblas_xerbla(1, "cblas_stbsv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_stpmv.c Mon Mar 15 15:12:08 1999
++++ refblas3-1.2/cblas/src/cblas_stpmv.c Thu Jun 12 10:28:23 2003
+@@ -32,7 +32,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -40,7 +40,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_stpmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -50,7 +50,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_stpmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -59,7 +59,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_stpmv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -78,7 +78,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_stpmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -89,7 +89,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_stpmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -99,7 +99,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_stpmv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -112,7 +112,7 @@
+ F77_stpmv( F77_UL, F77_TA, F77_DI, &F77_N, Ap, X,&F77_incX);
+ }
+ else cblas_xerbla(1, "cblas_stpmv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_stpsv.c Mon Mar 15 15:12:09 1999
++++ refblas3-1.2/cblas/src/cblas_stpsv.c Thu Jun 12 10:28:23 2003
+@@ -31,7 +31,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -39,7 +39,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_stpsv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -49,7 +49,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_stpsv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -58,7 +58,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_stpsv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -77,7 +77,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_stpsv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -88,7 +88,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_stpsv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -98,7 +98,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_stpsv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -112,7 +112,7 @@
+
+ }
+ else cblas_xerbla(1, "cblas_stpsv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_strmm.c Mon Mar 15 15:12:10 1999
++++ refblas3-1.2/cblas/src/cblas_strmm.c Thu Jun 12 10:28:23 2003
+@@ -37,7 +37,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if( Order == CblasColMajor )
+ {
+@@ -46,7 +46,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_strmm","Illegal Side setting, %d\n", Side);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -55,7 +55,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_strmm","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -66,7 +66,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_strmm","Illegal Trans setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -76,7 +76,7 @@
+ else
+ {
+ cblas_xerbla(5, "cblas_strmm", "Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -97,7 +97,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_strmm","Illegal Side setting, %d\n", Side);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -107,7 +107,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_strmm", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -118,7 +118,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_strmm", "Illegal Trans setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -128,7 +128,7 @@
+ else
+ {
+ cblas_xerbla(5, "cblas_strmm","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -142,7 +142,7 @@
+ &F77_lda, B, &F77_ldb);
+ }
+ else cblas_xerbla(1, "cblas_strmm", "Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_strmv.c Mon Mar 15 15:12:11 1999
++++ refblas3-1.2/cblas/src/cblas_strmv.c Thu Jun 12 10:28:23 2003
+@@ -35,7 +35,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -43,7 +43,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_strmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -53,7 +53,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_strmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -62,7 +62,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_strmv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -82,7 +82,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_strmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -93,7 +93,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_strmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -103,7 +103,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_strmv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -116,7 +116,7 @@
+ &F77_incX);
+ }
+ else cblas_xerbla(1, "cblas_strmv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_strsm.c Mon Mar 15 15:12:12 1999
++++ refblas3-1.2/cblas/src/cblas_strsm.c Thu Jun 12 10:28:23 2003
+@@ -38,7 +38,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if( Order == CblasColMajor )
+ {
+@@ -47,7 +47,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_strsm", "Illegal Side setting, %d\n", Side);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -56,7 +56,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_strsm", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -66,7 +66,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_strsm", "Illegal Trans setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -75,7 +75,7 @@
+ else
+ {
+ cblas_xerbla(5, "cblas_strsm", "Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -95,7 +95,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_strsm", "Illegal Side setting, %d\n", Side);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -104,7 +104,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_strsm", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -114,7 +114,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_strsm", "Illegal Trans setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -123,7 +123,7 @@
+ else
+ {
+ cblas_xerbla(5, "cblas_strsm", "Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -137,7 +137,7 @@
+ F77_strsm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, &alpha, A, &F77_lda, B, &F77_ldb);
+ }
+ else cblas_xerbla(1, "cblas_strsm", "Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_strsv.c Mon Mar 15 15:12:13 1999
++++ refblas3-1.2/cblas/src/cblas_strsv.c Thu Jun 12 10:28:23 2003
+@@ -34,7 +34,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -42,7 +42,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_strsv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -52,7 +52,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_strsv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -61,7 +61,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_strsv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -81,7 +81,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_strsv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -92,7 +92,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_strsv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -102,7 +102,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_strsv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -115,7 +115,7 @@
+ &F77_incX);
+ }
+ else cblas_xerbla(1, "cblas_strsv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_xerbla.c Mon Mar 15 15:12:14 1999
++++ refblas3-1.2/cblas/src/cblas_xerbla.c Wed Jun 11 15:27:17 2003
+@@ -5,58 +5,13 @@
+ #include "cblas.h"
+ #include "cblas_f77.h"
+
++#undef cblas_xerbla
+ void cblas_xerbla(int info, const char *rout, const char *form, ...)
+ {
+- extern RowMajorStrg;
+ va_list argptr;
+
+ va_start(argptr, form);
+
+- if (RowMajorStrg)
+- {
+- if (strstr(rout,"gemm") != 0)
+- {
+- if (info == 5 ) info = 4;
+- else if (info == 4 ) info = 5;
+- else if (info == 11) info = 9;
+- else if (info == 9 ) info = 11;
+- }
+- else if (strstr(rout,"symm") != 0 || strstr(rout,"hemm") != 0)
+- {
+- if (info == 5 ) info = 4;
+- else if (info == 4 ) info = 5;
+- }
+- else if (strstr(rout,"trmm") != 0 || strstr(rout,"trsm") != 0)
+- {
+- if (info == 7 ) info = 6;
+- else if (info == 6 ) info = 7;
+- }
+- else if (strstr(rout,"gemv") != 0)
+- {
+- if (info == 4) info = 3;
+- else if (info == 3) info = 4;
+- }
+- else if (strstr(rout,"gbmv") != 0)
+- {
+- if (info == 4) info = 3;
+- else if (info == 3) info = 4;
+- else if (info == 6) info = 5;
+- else if (info == 5) info = 6;
+- }
+- else if (strstr(rout,"ger") != 0)
+- {
+- if (info == 3) info = 2;
+- else if (info == 2) info = 3;
+- else if (info == 8) info = 6;
+- else if (info == 6) info = 8;
+- }
+- else if ( (strstr(rout,"her2") != 0 || strstr(rout,"hpr2") != 0)
+- && strstr(rout,"her2k") == 0 )
+- {
+- if (info == 8) info = 6;
+- else if (info == 6) info = 8;
+- }
+- }
+ if (info)
+ fprintf(stderr, "Parameter %d to routine %s was incorrect\n", info, rout);
+ vfprintf(stderr, form, argptr);
+--- blas-1.1/cblas/src/cblas_zgbmv.c Mon Mar 15 15:12:15 1999
++++ refblas3-1.2/cblas/src/cblas_zgbmv.c Thu Jun 12 10:28:23 2003
+@@ -43,7 +43,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (TransA == CblasNoTrans) TA = 'N';
+@@ -52,7 +52,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zgbmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -132,7 +132,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zgbmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -160,7 +160,7 @@
+ }
+ }
+ else cblas_xerbla(1, "cblas_zgbmv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_zgemm.c Mon Mar 15 15:12:16 1999
++++ refblas3-1.2/cblas/src/cblas_zgemm.c Thu Jun 12 10:28:23 2003
+@@ -38,7 +38,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if( Order == CblasColMajor )
+ {
+@@ -48,7 +48,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zgemm","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -59,7 +59,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_zgemm","Illegal TransB setting, %d\n", TransB);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -80,7 +80,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zgemm","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -90,7 +90,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zgemm","Illegal TransB setting, %d\n", TransB);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -103,7 +103,7 @@
+ &F77_ldb, A, &F77_lda, beta, C, &F77_ldc);
+ }
+ else cblas_xerbla(1, "cblas_zgemm", "Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_zgemv.c Mon Mar 15 15:12:16 1999
++++ refblas3-1.2/cblas/src/cblas_zgemv.c Thu Jun 12 10:28:23 2003
+@@ -40,7 +40,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if (order == CblasColMajor)
+ {
+@@ -50,7 +50,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zgemv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -129,7 +129,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zgemv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -158,7 +158,7 @@
+ }
+ }
+ else cblas_xerbla(1, "cblas_zgemv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_zgerc.c Mon Mar 15 15:12:17 1999
++++ refblas3-1.2/cblas/src/cblas_zgerc.c Thu Jun 12 10:28:23 2003
+@@ -30,7 +30,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ F77_zgerc( &F77_M, &F77_N, alpha, X, &F77_incX, Y, &F77_incY, A,
+@@ -78,7 +78,7 @@
+ free(y);
+
+ } else cblas_xerbla(1, "cblas_zgerc", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_zgeru.c Mon Mar 15 15:12:18 1999
++++ refblas3-1.2/cblas/src/cblas_zgeru.c Thu Jun 12 10:28:23 2003
+@@ -24,7 +24,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if (order == CblasColMajor)
+ {
+@@ -38,7 +38,7 @@
+ &F77_lda);
+ }
+ else cblas_xerbla(1, "cblas_zgeru", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_zhbmv.c Mon Mar 15 15:12:19 1999
++++ refblas3-1.2/cblas/src/cblas_zhbmv.c Thu Jun 12 10:28:23 2003
+@@ -39,7 +39,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasLower) UL = 'L';
+@@ -47,7 +47,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zhbmv","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -121,7 +121,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zhbmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -134,7 +134,7 @@
+ else
+ {
+ cblas_xerbla(1, "cblas_zhbmv","Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -153,7 +153,7 @@
+ while (y != st);
+ }
+ }
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_zhemm.c Mon Mar 15 15:12:20 1999
++++ refblas3-1.2/cblas/src/cblas_zhemm.c Thu Jun 12 10:28:23 2003
+@@ -37,7 +37,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if( Order == CblasColMajor )
+ {
+@@ -46,7 +46,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zhemm", "Illegal Side setting, %d\n", Side);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -56,7 +56,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_zhemm", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -76,7 +76,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zhemm", "Illegal Side setting, %d\n", Side);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -86,7 +86,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_zhemm", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -100,7 +100,7 @@
+ &F77_lda, B, &F77_ldb, beta, C, &F77_ldc);
+ }
+ else cblas_xerbla(1, "cblas_zhemm", "Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_zhemv.c Mon Mar 15 15:12:21 1999
++++ refblas3-1.2/cblas/src/cblas_zhemv.c Thu Jun 12 10:28:23 2003
+@@ -39,7 +39,7 @@
+ RowMajorStrg = 0;
+
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -47,7 +47,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zhemv","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -122,7 +122,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zhemv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -135,7 +135,7 @@
+ else
+ {
+ cblas_xerbla(1, "cblas_zhemv","Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -154,7 +154,7 @@
+ while (y != st);
+ }
+ }
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_zher2.c Mon Mar 15 15:12:23 1999
++++ refblas3-1.2/cblas/src/cblas_zher2.c Thu Jun 12 10:28:23 2003
+@@ -36,7 +36,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasLower) UL = 'L';
+@@ -44,7 +44,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zher2", "Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -63,7 +63,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zher2", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -138,7 +138,7 @@
+ else
+ {
+ cblas_xerbla(1, "cblas_zher2", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -147,7 +147,7 @@
+ if(Y!=y)
+ free(y);
+
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_zher2k.c Mon Mar 15 15:12:24 1999
++++ refblas3-1.2/cblas/src/cblas_zher2k.c Thu Jun 12 10:28:23 2003
+@@ -39,7 +39,7 @@
+ double ALPHA[2];
+ const double *alp=(double *)alpha;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ RowMajorStrg = 0;
+
+ if( Order == CblasColMajor )
+@@ -50,7 +50,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zher2k", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -61,7 +61,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_zher2k", "Illegal Trans setting, %d\n", Trans);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -81,7 +81,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zher2k", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -91,7 +91,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_zher2k", "Illegal Trans setting, %d\n", Trans);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -104,7 +104,7 @@
+ ALPHA[1]= -alp[1];
+ F77_zher2k(F77_UL,F77_TR, &F77_N, &F77_K, ALPHA, A, &F77_lda, B, &F77_ldb, &beta, C, &F77_ldc);
+ } else cblas_xerbla(1, "cblas_zher2k", "Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_zher.c Mon Mar 15 15:12:22 1999
++++ refblas3-1.2/cblas/src/cblas_zher.c Thu Jun 12 10:28:23 2003
+@@ -34,7 +34,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasLower) UL = 'L';
+@@ -42,7 +42,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zher","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -60,7 +60,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zher","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -104,7 +104,7 @@
+ if(X!=x)
+ free(x);
+
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_zherk.c Mon Mar 15 15:12:25 1999
++++ refblas3-1.2/cblas/src/cblas_zherk.c Thu Jun 12 10:28:23 2003
+@@ -35,7 +35,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if( Order == CblasColMajor )
+ {
+@@ -44,7 +44,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zherk", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -55,7 +55,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_zherk", "Illegal Trans setting, %d\n", Trans);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -75,7 +75,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_zherk", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -85,7 +85,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_zherk", "Illegal Trans setting, %d\n", Trans);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -99,7 +99,7 @@
+ &beta, C, &F77_ldc);
+ }
+ else cblas_xerbla(1, "cblas_zherk", "Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_zhpmv.c Mon Mar 15 15:12:26 1999
++++ refblas3-1.2/cblas/src/cblas_zhpmv.c Thu Jun 12 10:28:23 2003
+@@ -37,7 +37,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasLower) UL = 'L';
+@@ -45,7 +45,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zhpmv","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -120,7 +120,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zhpmv","Illegal Uplo setting, %d\n", Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -134,7 +134,7 @@
+ else
+ {
+ cblas_xerbla(1, "cblas_zhpmv","Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -154,7 +154,7 @@
+ }
+ }
+
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_zhpr2.c Mon Mar 15 15:12:28 1999
++++ refblas3-1.2/cblas/src/cblas_zhpr2.c Thu Jun 12 10:28:23 2003
+@@ -36,7 +36,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasLower) UL = 'L';
+@@ -44,7 +44,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zhpr2","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -62,7 +62,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zhpr2","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -136,7 +136,7 @@
+ else
+ {
+ cblas_xerbla(1, "cblas_zhpr2","Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -144,7 +144,7 @@
+ free(x);
+ if(Y!=y)
+ free(y);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_zhpr.c Mon Mar 15 15:12:27 1999
++++ refblas3-1.2/cblas/src/cblas_zhpr.c Thu Jun 12 10:28:23 2003
+@@ -33,7 +33,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasLower) UL = 'L';
+@@ -41,7 +41,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zhpr","Illegal Uplo setting, %d\n",Uplo );
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -59,7 +59,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zhpr","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -103,13 +103,13 @@
+ } else
+ {
+ cblas_xerbla(1, "cblas_zhpr","Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+ if(X!=x)
+ free(x);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_zsymm.c Mon Mar 15 15:12:29 1999
++++ refblas3-1.2/cblas/src/cblas_zsymm.c Thu Jun 12 10:28:23 2003
+@@ -37,7 +37,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if( Order == CblasColMajor )
+ {
+@@ -46,7 +46,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zsymm", "Illegal Side setting, %d\n", Side);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -56,7 +56,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_zsymm", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -76,7 +76,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zsymm", "Illegal Side setting, %d\n", Side);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -86,7 +86,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_zsymm", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -100,7 +100,7 @@
+ B, &F77_ldb, beta, C, &F77_ldc);
+ }
+ else cblas_xerbla(1, "cblas_zsymm", "Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_zsyr2k.c Mon Mar 15 15:12:30 1999
++++ refblas3-1.2/cblas/src/cblas_zsyr2k.c Thu Jun 12 10:28:24 2003
+@@ -37,7 +37,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if( Order == CblasColMajor )
+ {
+@@ -47,7 +47,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zsyr2k", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -58,7 +58,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_zsyr2k", "Illegal Trans setting, %d\n", Trans);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -79,7 +79,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_zsyr2k", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -89,7 +89,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_zsyr2k", "Illegal Trans setting, %d\n", Trans);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -102,7 +102,7 @@
+ F77_zsyr2k(F77_UL, F77_TR, &F77_N, &F77_K, alpha, A, &F77_lda, B, &F77_ldb, beta, C, &F77_ldc);
+ }
+ else cblas_xerbla(1, "cblas_zsyr2k", "Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_zsyrk.c Mon Mar 15 15:12:31 1999
++++ refblas3-1.2/cblas/src/cblas_zsyrk.c Thu Jun 12 10:28:24 2003
+@@ -35,7 +35,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if( Order == CblasColMajor )
+ {
+@@ -45,7 +45,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_zsyrk", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -56,7 +56,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_zsyrk", "Illegal Trans setting, %d\n", Trans);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -77,7 +77,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_zsyrk", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -87,7 +87,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_zsyrk", "Illegal Trans setting, %d\n", Trans);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -101,7 +101,7 @@
+ beta, C, &F77_ldc);
+ }
+ else cblas_xerbla(1, "cblas_zsyrk", "Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_ztbmv.c Mon Mar 15 15:12:32 1999
++++ refblas3-1.2/cblas/src/cblas_ztbmv.c Thu Jun 12 10:28:24 2003
+@@ -36,7 +36,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -44,7 +44,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ztbmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -54,7 +54,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ztbmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -63,7 +63,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ztbmv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -83,7 +83,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ztbmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -115,7 +115,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ztbmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -125,7 +125,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ztbmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -152,7 +152,7 @@
+ }
+ }
+ else cblas_xerbla(1, "cblas_ztbmv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_ztbsv.c Mon Mar 15 15:12:33 1999
++++ refblas3-1.2/cblas/src/cblas_ztbsv.c Thu Jun 12 10:28:24 2003
+@@ -36,7 +36,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -44,7 +44,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ztbsv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -54,7 +54,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ztbsv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -63,7 +63,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ztbsv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -83,7 +83,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ztbsv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -119,7 +119,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ztbsv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -129,7 +129,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ztbsv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -156,7 +156,7 @@
+ }
+ }
+ else cblas_xerbla(1, "cblas_ztbsv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_ztpmv.c Mon Mar 15 15:12:34 1999
++++ refblas3-1.2/cblas/src/cblas_ztpmv.c Thu Jun 12 10:28:24 2003
+@@ -33,7 +33,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -41,7 +41,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ztpmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -51,7 +51,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ztpmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -60,7 +60,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ztpmv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -79,7 +79,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ztpmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -111,7 +111,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ztpmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -121,7 +121,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ztpmv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -146,7 +146,7 @@
+ }
+ }
+ else cblas_xerbla(1, "cblas_ztpmv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_ztpsv.c Mon Mar 15 15:12:35 1999
++++ refblas3-1.2/cblas/src/cblas_ztpsv.c Thu Jun 12 10:28:24 2003
+@@ -33,7 +33,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -41,7 +41,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ztpsv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -51,7 +51,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ztpsv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -60,7 +60,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ztpsv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -79,7 +79,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ztpsv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -115,7 +115,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ztpsv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -125,7 +125,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ztpsv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -151,7 +151,7 @@
+ }
+ }
+ else cblas_xerbla(1, "cblas_ztpsv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_ztrmm.c Mon Mar 15 15:12:36 1999
++++ refblas3-1.2/cblas/src/cblas_ztrmm.c Thu Jun 12 10:28:24 2003
+@@ -37,7 +37,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if( Order == CblasColMajor )
+ {
+@@ -46,7 +46,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ztrmm", "Illegal Side setting, %d\n", Side);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -55,7 +55,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ztrmm", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -66,7 +66,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ztrmm", "Illegal Trans setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -76,7 +76,7 @@
+ else
+ {
+ cblas_xerbla(5, "cblas_ztrmm", "Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -97,7 +97,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ztrmm", "Illegal Side setting, %d\n", Side);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -107,7 +107,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ztrmm", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -118,7 +118,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ztrmm", "Illegal Trans setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -128,7 +128,7 @@
+ else
+ {
+ cblas_xerbla(5, "cblas_ztrmm", "Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -143,7 +143,7 @@
+ F77_ztrmm(F77_SD, F77_UL, F77_TA, F77_DI, &F77_N, &F77_M, alpha, A, &F77_lda, B, &F77_ldb);
+ }
+ else cblas_xerbla(1, "cblas_ztrmm", "Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_ztrmv.c Mon Mar 15 15:12:37 1999
++++ refblas3-1.2/cblas/src/cblas_ztrmv.c Thu Jun 12 10:28:24 2003
+@@ -36,7 +36,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -44,7 +44,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ztrmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -54,7 +54,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ztrmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -63,7 +63,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ztrmv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -83,7 +83,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ztrmv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -115,7 +115,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ztrmv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -125,7 +125,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ztrmv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -150,7 +150,7 @@
+ }
+ }
+ else cblas_xerbla(1, "cblas_ztrmv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_ztrsm.c Mon Mar 15 15:12:38 1999
++++ refblas3-1.2/cblas/src/cblas_ztrsm.c Thu Jun 12 10:28:24 2003
+@@ -37,7 +37,7 @@
+ extern int CBLAS_CallFromC;
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+
+ if( Order == CblasColMajor )
+ {
+@@ -47,7 +47,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ztrsm", "Illegal Side setting, %d\n", Side);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -57,7 +57,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ztrsm", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -68,7 +68,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ztrsm", "Illegal Trans setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -78,7 +78,7 @@
+ else
+ {
+ cblas_xerbla(5, "cblas_ztrsm", "Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -101,7 +101,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ztrsm", "Illegal Side setting, %d\n", Side);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -111,7 +111,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ztrsm", "Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -122,7 +122,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ztrsm", "Illegal Trans setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -132,7 +132,7 @@
+ else
+ {
+ cblas_xerbla(5, "cblas_ztrsm", "Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -149,7 +149,7 @@
+ &F77_lda, B, &F77_ldb);
+ }
+ else cblas_xerbla(1, "cblas_ztrsm", "Illegal Order setting, %d\n", Order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/cblas_ztrsv.c Mon Mar 15 15:12:39 1999
++++ refblas3-1.2/cblas/src/cblas_ztrsv.c Thu Jun 12 10:28:24 2003
+@@ -35,7 +35,7 @@
+ extern int RowMajorStrg;
+ RowMajorStrg = 0;
+
+- CBLAS_CallFromC = 1;
++ mcblas_fix_info=cblas_fix_info;
+ if (order == CblasColMajor)
+ {
+ if (Uplo == CblasUpper) UL = 'U';
+@@ -43,7 +43,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ztrsv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -53,7 +53,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ztrsv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -62,7 +62,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ztrsv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -82,7 +82,7 @@
+ else
+ {
+ cblas_xerbla(2, "cblas_ztrsv","Illegal Uplo setting, %d\n", Uplo);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -115,7 +115,7 @@
+ else
+ {
+ cblas_xerbla(3, "cblas_ztrsv","Illegal TransA setting, %d\n", TransA);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -125,7 +125,7 @@
+ else
+ {
+ cblas_xerbla(4, "cblas_ztrsv","Illegal Diag setting, %d\n", Diag);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+@@ -150,7 +150,7 @@
+ }
+ }
+ else cblas_xerbla(1, "cblas_ztrsv", "Illegal Order setting, %d\n", order);
+- CBLAS_CallFromC = 0;
++ mcblas_fix_info = NULL;
+ RowMajorStrg = 0;
+ return;
+ }
+--- blas-1.1/cblas/src/Makefile Mon Mar 15 15:11:03 1999
++++ refblas3-1.2/cblas/src/Makefile Tue Jun 10 17:10:02 2003
+@@ -12,7 +12,8 @@
+
+ # Error handling routines for level 2 & 3
+
+-errhand = cblas_globals.o cblas_xerbla.o xerbla.o
++#errhand = cblas_globals.o cblas_xerbla.o xerbla.o
++errhand = cblas_xerbla.o xerbla.o
+
+ # Object files of all routines
+ alev = $(alev1) $(alev2) $(alev3) $(errhand)
+--- blas-1.1/cblas/src/xerbla.c Mon Mar 15 15:12:40 1999
++++ refblas3-1.2/cblas/src/xerbla.c Thu Jun 12 11:10:37 2003
+@@ -3,16 +3,24 @@
+ #include "cblas.h"
+ #include "cblas_f77.h"
+
++/* int RowMajorStrg; */
++int CBLAS_CallFromC;
++
+ #define XerblaStrLen 6
+ #define XerblaStrLen1 7
+
++void (*mcblas_fix_info)(int *,const char *)=NULL;
++
+ #ifdef F77_CHAR
+-void F77_xerbla(F77_CHAR F77_srname, void *vinfo)
++void F77_xerbli(F77_CHAR F77_srname, void *vinfo)
+ #else
+-void F77_xerbla(char *srname, void *vinfo)
++void F77_xerbli(char *srname, void *vinfo)
+ #endif
+
+ {
++#define XerblaStrLen 6
++#define XerblaStrLen1 7
++
+ #ifdef F77_CHAR
+ char *srname;
+ #endif
+@@ -27,21 +35,52 @@
+ int i;
+ #endif
+
+- extern int CBLAS_CallFromC;
++ if (!mcblas_fix_info) {
+
+ #ifdef F77_CHAR
+- srname = F2C_STR(F77_srname, XerblaStrLen);
++ F77_xerbla(F77_sname,vinfo);
++#else
++ F77_xerbla(srname,vinfo);
++#endif
++ } else {
++#ifdef F77_CHAR
++ srname = F2C_STR(F77_srname, XerblaStrLen);
+ #endif
+
+- if (CBLAS_CallFromC)
+- {
+- for(i=0; i != XerblaStrLen; i++) rout[i+6] = tolower(srname[i]);
+- rout[XerblaStrLen+6] = '\0';
+- cblas_xerbla(*info+1,rout,"");
+- }
+- else
+- {
+- fprintf(stderr, "Parameter %d to routine %s was incorrect\n",
+- *info, srname);
++ for(i=0; i != XerblaStrLen; i++) rout[i+6] = tolower(srname[i]);
++ rout[XerblaStrLen+6] = '\0';
++ (*info)++;
++ cblas_xerbla(*info,rout,"");
++
+ }
++}
++
++#ifdef F77_CHAR
++void F77_xerbla(F77_CHAR F77_srname, void *vinfo)
++#else
++void F77_xerbla(char *srname, void *vinfo)
++#endif
++
++{
++#ifdef F77_CHAR
++ char *srname;
++#endif
++
++#ifdef F77_INT
++ F77_INT *info=vinfo;
++ F77_INT i;
++#else
++ int *info=vinfo;
++ int i;
++#endif
++
++#ifdef F77_CHAR
++ srname = F2C_STR(F77_srname, XerblaStrLen);
++#endif
++
++ fprintf(stderr, "Parameter %d to routine %s was incorrect\n",
++ *info, srname);
++
++ exit(-1);
++
+ }
+Index: b/src/cgbmv.f
+===================================================================
+--- a/src/cgbmv.f
++++ b/src/cgbmv.f
+@@ -144,7 +144,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC CONJG,MAX,MIN
+@@ -172,7 +172,7 @@
+ INFO = 13
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('CGBMV ',INFO)
++ CALL XERBLI('CGBMV ',INFO)
+ RETURN
+ END IF
+ *
+Index: b/src/cgemm.f
+===================================================================
+--- a/src/cgemm.f
++++ b/src/cgemm.f
+@@ -133,7 +133,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC CONJG,MAX
+@@ -196,7 +196,7 @@
+ INFO = 13
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('CGEMM ',INFO)
++ CALL XERBLI('CGEMM ',INFO)
+ RETURN
+ END IF
+ *
+Index: b/src/cgemv.f
+===================================================================
+--- a/src/cgemv.f
++++ b/src/cgemv.f
+@@ -117,7 +117,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC CONJG,MAX
+@@ -141,7 +141,7 @@
+ INFO = 11
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('CGEMV ',INFO)
++ CALL XERBLI('CGEMV ',INFO)
+ RETURN
+ END IF
+ *
+Index: b/src/cgeru.f
+===================================================================
+--- a/src/cgeru.f
++++ b/src/cgeru.f
+@@ -86,7 +86,7 @@
+ INTEGER I,INFO,IX,J,JY,KX
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -107,7 +107,7 @@
+ INFO = 9
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('CGERU ',INFO)
++ CALL XERBLI('CGERU ',INFO)
+ RETURN
+ END IF
+ *
+Index: b/src/chbmv.f
+===================================================================
+--- a/src/chbmv.f
++++ b/src/chbmv.f
+@@ -145,7 +145,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC CONJG,MAX,MIN,REAL
+@@ -168,7 +168,7 @@
+ INFO = 11
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('CHBMV ',INFO)
++ CALL XERBLI('CHBMV ',INFO)
+ RETURN
+ END IF
+ *
+Index: b/src/chemm.f
+===================================================================
+--- a/src/chemm.f
++++ b/src/chemm.f
+@@ -139,7 +139,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC CONJG,MAX,REAL
+@@ -184,7 +184,7 @@
+ INFO = 12
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('CHEMM ',INFO)
++ CALL XERBLI('CHEMM ',INFO)
+ RETURN
+ END IF
+ *
+Index: b/src/chemv.f
+===================================================================
+--- a/src/chemv.f
++++ b/src/chemv.f
+@@ -114,7 +114,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC CONJG,MAX,REAL
+@@ -135,7 +135,7 @@
+ INFO = 10
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('CHEMV ',INFO)
++ CALL XERBLI('CHEMV ',INFO)
+ RETURN
+ END IF
+ *
+Index: b/src/cher2.f
+===================================================================
+--- a/src/cher2.f
++++ b/src/cher2.f
+@@ -111,7 +111,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC CONJG,MAX,REAL
+@@ -132,7 +132,7 @@
+ INFO = 9
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('CHER2 ',INFO)
++ CALL XERBLI('CHER2 ',INFO)
+ RETURN
+ END IF
+ *
+Index: b/src/cher2k.f
+===================================================================
+--- a/src/cher2k.f
++++ b/src/cher2k.f
+@@ -145,7 +145,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC CONJG,MAX,REAL
+@@ -189,7 +189,7 @@
+ INFO = 12
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('CHER2K',INFO)
++ CALL XERBLI('CHER2K',INFO)
+ RETURN
+ END IF
+ *
+Index: b/src/cher.f
+===================================================================
+--- a/src/cher.f
++++ b/src/cher.f
+@@ -100,7 +100,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC CONJG,MAX,REAL
+@@ -119,7 +119,7 @@
+ INFO = 7
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('CHER ',INFO)
++ CALL XERBLI('CHER ',INFO)
+ RETURN
+ END IF
+ *
+Index: b/src/cherk.f
+===================================================================
+--- a/src/cherk.f
++++ b/src/cherk.f
+@@ -125,7 +125,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC CMPLX,CONJG,MAX,REAL
+@@ -166,7 +166,7 @@
+ INFO = 10
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('CHERK ',INFO)
++ CALL XERBLI('CHERK ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/chpmv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/chpmv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -111,7 +111,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC CONJG,REAL
+@@ -130,7 +130,7 @@
+ INFO = 9
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('CHPMV ',INFO)
++ CALL XERBLI('CHPMV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/chpr2.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/chpr2.f 2007-12-29 21:00:21.000000000 +0530
+@@ -108,7 +108,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC CONJG,REAL
+@@ -127,7 +127,7 @@
+ INFO = 7
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('CHPR2 ',INFO)
++ CALL XERBLI('CHPR2 ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/chpr.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/chpr.f 2007-12-29 21:00:21.000000000 +0530
+@@ -97,7 +97,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC CONJG,REAL
+@@ -114,7 +114,7 @@
+ INFO = 5
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('CHPR ',INFO)
++ CALL XERBLI('CHPR ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/csymm.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/csymm.f 2007-12-29 21:00:21.000000000 +0530
+@@ -137,7 +137,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -182,7 +182,7 @@
+ INFO = 12
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('CSYMM ',INFO)
++ CALL XERBLI('CSYMM ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/csyr2k.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/csyr2k.f 2007-12-29 21:00:21.000000000 +0530
+@@ -136,7 +136,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -180,7 +180,7 @@
+ INFO = 12
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('CSYR2K',INFO)
++ CALL XERBLI('CSYR2K',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/csyrk.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/csyrk.f 2007-12-29 21:00:21.000000000 +0530
+@@ -119,7 +119,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -161,7 +161,7 @@
+ INFO = 10
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('CSYRK ',INFO)
++ CALL XERBLI('CSYRK ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/ctbmv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/ctbmv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -149,7 +149,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC CONJG,MAX,MIN
+@@ -175,7 +175,7 @@
+ INFO = 9
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('CTBMV ',INFO)
++ CALL XERBLI('CTBMV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/ctbsv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/ctbsv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -153,7 +153,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC CONJG,MAX,MIN
+@@ -179,7 +179,7 @@
+ INFO = 9
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('CTBSV ',INFO)
++ CALL XERBLI('CTBSV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/ctpmv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/ctpmv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -109,7 +109,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC CONJG
+@@ -131,7 +131,7 @@
+ INFO = 7
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('CTPMV ',INFO)
++ CALL XERBLI('CTPMV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/ctpsv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/ctpsv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -112,7 +112,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC CONJG
+@@ -134,7 +134,7 @@
+ INFO = 7
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('CTPSV ',INFO)
++ CALL XERBLI('CTPSV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/ctrmm.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/ctrmm.f 2007-12-29 21:00:21.000000000 +0530
+@@ -129,7 +129,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC CONJG,MAX
+@@ -179,7 +179,7 @@
+ INFO = 11
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('CTRMM ',INFO)
++ CALL XERBLI('CTRMM ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/ctrmv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/ctrmv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -112,7 +112,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC CONJG,MAX
+@@ -136,7 +136,7 @@
+ INFO = 8
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('CTRMV ',INFO)
++ CALL XERBLI('CTRMV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/ctrsm.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/ctrsm.f 2007-12-29 21:00:21.000000000 +0530
+@@ -131,7 +131,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC CONJG,MAX
+@@ -181,7 +181,7 @@
+ INFO = 11
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('CTRSM ',INFO)
++ CALL XERBLI('CTRSM ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/ctrsv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/ctrsv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -115,7 +115,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC CONJG,MAX
+@@ -139,7 +139,7 @@
+ INFO = 8
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('CTRSV ',INFO)
++ CALL XERBLI('CTRSV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/dgbmv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/dgbmv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -137,7 +137,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX,MIN
+@@ -165,7 +165,7 @@
+ INFO = 13
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('DGBMV ',INFO)
++ CALL XERBLI('DGBMV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/dgemm.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/dgemm.f 2007-12-29 21:00:21.000000000 +0530
+@@ -133,7 +133,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -190,7 +190,7 @@
+ INFO = 13
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('DGEMM ',INFO)
++ CALL XERBLI('DGEMM ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/dgemv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/dgemv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -112,7 +112,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -136,7 +136,7 @@
+ INFO = 11
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('DGEMV ',INFO)
++ CALL XERBLI('DGEMV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/dger.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/dger.f 2007-12-29 21:00:21.000000000 +0530
+@@ -86,7 +86,7 @@
+ INTEGER I,INFO,IX,J,JY,KX
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -107,7 +107,7 @@
+ INFO = 9
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('DGER ',INFO)
++ CALL XERBLI('DGER ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/dsbmv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/dsbmv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -141,7 +141,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX,MIN
+@@ -164,7 +164,7 @@
+ INFO = 11
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('DSBMV ',INFO)
++ CALL XERBLI('DSBMV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/dspmv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/dspmv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -107,7 +107,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ *
+ * Test the input parameters.
+@@ -123,7 +123,7 @@
+ INFO = 9
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('DSPMV ',INFO)
++ CALL XERBLI('DSPMV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/dspr2.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/dspr2.f 2007-12-29 21:00:21.000000000 +0530
+@@ -105,7 +105,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ *
+ * Test the input parameters.
+@@ -121,7 +121,7 @@
+ INFO = 7
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('DSPR2 ',INFO)
++ CALL XERBLI('DSPR2 ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/dspr.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/dspr.f 2007-12-29 21:00:21.000000000 +0530
+@@ -94,7 +94,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ *
+ * Test the input parameters.
+@@ -108,7 +108,7 @@
+ INFO = 5
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('DSPR ',INFO)
++ CALL XERBLI('DSPR ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/dsymm.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/dsymm.f 2007-12-29 21:00:21.000000000 +0530
+@@ -137,7 +137,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -180,7 +180,7 @@
+ INFO = 12
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('DSYMM ',INFO)
++ CALL XERBLI('DSYMM ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/dsymv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/dsymv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -110,7 +110,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -131,7 +131,7 @@
+ INFO = 10
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('DSYMV ',INFO)
++ CALL XERBLI('DSYMV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/dsyr2.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/dsyr2.f 2007-12-29 21:00:21.000000000 +0530
+@@ -108,7 +108,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -129,7 +129,7 @@
+ INFO = 9
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('DSYR2 ',INFO)
++ CALL XERBLI('DSYR2 ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/dsyr2k.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/dsyr2k.f 2007-12-29 21:00:21.000000000 +0530
+@@ -140,7 +140,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -183,7 +183,7 @@
+ INFO = 12
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('DSYR2K',INFO)
++ CALL XERBLI('DSYR2K',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/dsyr.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/dsyr.f 2007-12-29 21:00:21.000000000 +0530
+@@ -97,7 +97,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -116,7 +116,7 @@
+ INFO = 7
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('DSYR ',INFO)
++ CALL XERBLI('DSYR ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/dsyrk.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/dsyrk.f 2007-12-29 21:00:21.000000000 +0530
+@@ -121,7 +121,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -162,7 +162,7 @@
+ INFO = 10
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('DSYRK ',INFO)
++ CALL XERBLI('DSYRK ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/dtbmv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/dtbmv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -149,7 +149,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX,MIN
+@@ -175,7 +175,7 @@
+ INFO = 9
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('DTBMV ',INFO)
++ CALL XERBLI('DTBMV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/dtbsv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/dtbsv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -153,7 +153,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX,MIN
+@@ -179,7 +179,7 @@
+ INFO = 9
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('DTBSV ',INFO)
++ CALL XERBLI('DTBSV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/dtpmv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/dtpmv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -109,7 +109,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ *
+ * Test the input parameters.
+@@ -128,7 +128,7 @@
+ INFO = 7
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('DTPMV ',INFO)
++ CALL XERBLI('DTPMV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/dtpsv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/dtpsv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -112,7 +112,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ *
+ * Test the input parameters.
+@@ -131,7 +131,7 @@
+ INFO = 7
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('DTPSV ',INFO)
++ CALL XERBLI('DTPSV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/dtrmm.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/dtrmm.f 2007-12-29 21:00:21.000000000 +0530
+@@ -129,7 +129,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -176,7 +176,7 @@
+ INFO = 11
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('DTRMM ',INFO)
++ CALL XERBLI('DTRMM ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/dtrmv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/dtrmv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -112,7 +112,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -136,7 +136,7 @@
+ INFO = 8
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('DTRMV ',INFO)
++ CALL XERBLI('DTRMV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/dtrsm.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/dtrsm.f 2007-12-29 21:00:21.000000000 +0530
+@@ -132,7 +132,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -179,7 +179,7 @@
+ INFO = 11
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('DTRSM ',INFO)
++ CALL XERBLI('DTRSM ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/dtrsv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/dtrsv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -115,7 +115,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -139,7 +139,7 @@
+ INFO = 8
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('DTRSV ',INFO)
++ CALL XERBLI('DTRSV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/sgbmv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/sgbmv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -137,7 +137,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX,MIN
+@@ -165,7 +165,7 @@
+ INFO = 13
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('SGBMV ',INFO)
++ CALL XERBLI('SGBMV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/sgemm.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/sgemm.f 2007-12-29 21:00:21.000000000 +0530
+@@ -133,7 +133,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -190,7 +190,7 @@
+ INFO = 13
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('SGEMM ',INFO)
++ CALL XERBLI('SGEMM ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/sgemv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/sgemv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -112,7 +112,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -136,7 +136,7 @@
+ INFO = 11
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('SGEMV ',INFO)
++ CALL XERBLI('SGEMV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/sger.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/sger.f 2007-12-29 21:00:21.000000000 +0530
+@@ -86,7 +86,7 @@
+ INTEGER I,INFO,IX,J,JY,KX
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -107,7 +107,7 @@
+ INFO = 9
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('SGER ',INFO)
++ CALL XERBLI('SGER ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/ssbmv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/ssbmv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -141,7 +141,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX,MIN
+@@ -164,7 +164,7 @@
+ INFO = 11
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('SSBMV ',INFO)
++ CALL XERBLI('SSBMV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/sspmv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/sspmv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -107,7 +107,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ *
+ * Test the input parameters.
+@@ -123,7 +123,7 @@
+ INFO = 9
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('SSPMV ',INFO)
++ CALL XERBLI('SSPMV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/sspr2.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/sspr2.f 2007-12-29 21:00:21.000000000 +0530
+@@ -105,7 +105,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ *
+ * Test the input parameters.
+@@ -121,7 +121,7 @@
+ INFO = 7
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('SSPR2 ',INFO)
++ CALL XERBLI('SSPR2 ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/sspr.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/sspr.f 2007-12-29 21:00:21.000000000 +0530
+@@ -94,7 +94,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ *
+ * Test the input parameters.
+@@ -108,7 +108,7 @@
+ INFO = 5
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('SSPR ',INFO)
++ CALL XERBLI('SSPR ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/ssymm.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/ssymm.f 2007-12-29 21:00:21.000000000 +0530
+@@ -137,7 +137,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -180,7 +180,7 @@
+ INFO = 12
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('SSYMM ',INFO)
++ CALL XERBLI('SSYMM ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/ssymv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/ssymv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -110,7 +110,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -131,7 +131,7 @@
+ INFO = 10
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('SSYMV ',INFO)
++ CALL XERBLI('SSYMV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/ssyr2.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/ssyr2.f 2007-12-29 21:00:21.000000000 +0530
+@@ -108,7 +108,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -129,7 +129,7 @@
+ INFO = 9
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('SSYR2 ',INFO)
++ CALL XERBLI('SSYR2 ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/ssyr2k.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/ssyr2k.f 2007-12-29 21:00:21.000000000 +0530
+@@ -140,7 +140,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -183,7 +183,7 @@
+ INFO = 12
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('SSYR2K',INFO)
++ CALL XERBLI('SSYR2K',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/ssyr.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/ssyr.f 2007-12-29 21:00:21.000000000 +0530
+@@ -97,7 +97,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -116,7 +116,7 @@
+ INFO = 7
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('SSYR ',INFO)
++ CALL XERBLI('SSYR ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/ssyrk.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/ssyrk.f 2007-12-29 21:00:21.000000000 +0530
+@@ -121,7 +121,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -162,7 +162,7 @@
+ INFO = 10
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('SSYRK ',INFO)
++ CALL XERBLI('SSYRK ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/stbmv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/stbmv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -149,7 +149,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX,MIN
+@@ -175,7 +175,7 @@
+ INFO = 9
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('STBMV ',INFO)
++ CALL XERBLI('STBMV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/stbsv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/stbsv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -153,7 +153,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX,MIN
+@@ -179,7 +179,7 @@
+ INFO = 9
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('STBSV ',INFO)
++ CALL XERBLI('STBSV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/stpmv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/stpmv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -109,7 +109,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ *
+ * Test the input parameters.
+@@ -128,7 +128,7 @@
+ INFO = 7
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('STPMV ',INFO)
++ CALL XERBLI('STPMV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/stpsv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/stpsv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -112,7 +112,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ *
+ * Test the input parameters.
+@@ -131,7 +131,7 @@
+ INFO = 7
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('STPSV ',INFO)
++ CALL XERBLI('STPSV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/strmm.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/strmm.f 2007-12-29 21:00:21.000000000 +0530
+@@ -129,7 +129,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -176,7 +176,7 @@
+ INFO = 11
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('STRMM ',INFO)
++ CALL XERBLI('STRMM ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/strmv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/strmv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -112,7 +112,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -136,7 +136,7 @@
+ INFO = 8
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('STRMV ',INFO)
++ CALL XERBLI('STRMV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/strsm.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/strsm.f 2007-12-29 21:00:21.000000000 +0530
+@@ -132,7 +132,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -179,7 +179,7 @@
+ INFO = 11
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('STRSM ',INFO)
++ CALL XERBLI('STRSM ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/strsv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/strsv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -115,7 +115,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -139,7 +139,7 @@
+ INFO = 8
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('STRSV ',INFO)
++ CALL XERBLI('STRSV ',INFO)
+ RETURN
+ END IF
+ *
+Index: b/src/xerbla.f
+===================================================================
+--- a/src/xerbla.f
++++ b/src/xerbla.f
+@@ -1,4 +1,4 @@
+- SUBROUTINE XERBLA(SRNAME,INFO)
++ SUBROUTINE XERBLI(SRNAME,INFO)
+ *
+ * -- LAPACK auxiliary routine (preliminary version) --
+ * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
+@@ -12,7 +12,7 @@
+ * Purpose
+ * =======
+ *
+-* XERBLA is an error handler for the LAPACK routines.
++* XERBLI is an error handler for the LAPACK routines.
+ * It is called by an LAPACK routine if an input parameter has an
+ * invalid value. A message is printed and execution stops.
+ *
+@@ -23,7 +23,7 @@
+ * =========
+ *
+ * SRNAME (input) CHARACTER*6
+-* The name of the routine which called XERBLA.
++* The name of the routine which called XERBLI.
+ *
+ * INFO (input) INTEGER
+ * The position of the invalid parameter in the parameter list
+@@ -37,6 +37,6 @@
+ 9999 FORMAT (' ** On entry to ',A6,' parameter number ',I2,' had ',
+ + 'an illegal value')
+ *
+-* End of XERBLA
++* End of XERBLI
+ *
+ END
+--- blas-1.1.new.orig/src/zgbmv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/zgbmv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -144,7 +144,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC DCONJG,MAX,MIN
+@@ -172,7 +172,7 @@
+ INFO = 13
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('ZGBMV ',INFO)
++ CALL XERBLI('ZGBMV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/zgemm.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/zgemm.f 2007-12-29 21:00:21.000000000 +0530
+@@ -133,7 +133,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC DCONJG,MAX
+@@ -196,7 +196,7 @@
+ INFO = 13
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('ZGEMM ',INFO)
++ CALL XERBLI('ZGEMM ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/zgemv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/zgemv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -117,7 +117,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC DCONJG,MAX
+@@ -141,7 +141,7 @@
+ INFO = 11
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('ZGEMV ',INFO)
++ CALL XERBLI('ZGEMV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/zgerc.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/zgerc.f 2007-12-29 21:00:21.000000000 +0530
+@@ -86,7 +86,7 @@
+ INTEGER I,INFO,IX,J,JY,KX
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC DCONJG,MAX
+@@ -107,7 +107,7 @@
+ INFO = 9
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('ZGERC ',INFO)
++ CALL XERBLI('ZGERC ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/zgeru.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/zgeru.f 2007-12-29 21:00:21.000000000 +0530
+@@ -86,7 +86,7 @@
+ INTEGER I,INFO,IX,J,JY,KX
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -107,7 +107,7 @@
+ INFO = 9
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('ZGERU ',INFO)
++ CALL XERBLI('ZGERU ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/zhbmv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/zhbmv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -145,7 +145,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC DBLE,DCONJG,MAX,MIN
+@@ -168,7 +168,7 @@
+ INFO = 11
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('ZHBMV ',INFO)
++ CALL XERBLI('ZHBMV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/zhemm.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/zhemm.f 2007-12-29 21:00:21.000000000 +0530
+@@ -139,7 +139,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC DBLE,DCONJG,MAX
+@@ -184,7 +184,7 @@
+ INFO = 12
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('ZHEMM ',INFO)
++ CALL XERBLI('ZHEMM ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/zhemv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/zhemv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -114,7 +114,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC DBLE,DCONJG,MAX
+@@ -135,7 +135,7 @@
+ INFO = 10
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('ZHEMV ',INFO)
++ CALL XERBLI('ZHEMV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/zher2.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/zher2.f 2007-12-29 21:00:21.000000000 +0530
+@@ -111,7 +111,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC DBLE,DCONJG,MAX
+@@ -132,7 +132,7 @@
+ INFO = 9
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('ZHER2 ',INFO)
++ CALL XERBLI('ZHER2 ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/zher2k.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/zher2k.f 2007-12-29 21:00:21.000000000 +0530
+@@ -145,7 +145,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC DBLE,DCONJG,MAX
+@@ -189,7 +189,7 @@
+ INFO = 12
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('ZHER2K',INFO)
++ CALL XERBLI('ZHER2K',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/zher.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/zher.f 2007-12-29 21:00:21.000000000 +0530
+@@ -100,7 +100,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC DBLE,DCONJG,MAX
+@@ -119,7 +119,7 @@
+ INFO = 7
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('ZHER ',INFO)
++ CALL XERBLI('ZHER ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/zherk.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/zherk.f 2007-12-29 21:00:21.000000000 +0530
+@@ -125,7 +125,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC DBLE,DCMPLX,DCONJG,MAX
+@@ -166,7 +166,7 @@
+ INFO = 10
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('ZHERK ',INFO)
++ CALL XERBLI('ZHERK ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/zhpmv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/zhpmv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -111,7 +111,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC DBLE,DCONJG
+@@ -130,7 +130,7 @@
+ INFO = 9
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('ZHPMV ',INFO)
++ CALL XERBLI('ZHPMV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/zhpr2.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/zhpr2.f 2007-12-29 21:00:21.000000000 +0530
+@@ -108,7 +108,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC DBLE,DCONJG
+@@ -127,7 +127,7 @@
+ INFO = 7
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('ZHPR2 ',INFO)
++ CALL XERBLI('ZHPR2 ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/zhpr.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/zhpr.f 2007-12-29 21:00:21.000000000 +0530
+@@ -97,7 +97,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC DBLE,DCONJG
+@@ -114,7 +114,7 @@
+ INFO = 5
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('ZHPR ',INFO)
++ CALL XERBLI('ZHPR ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/zsymm.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/zsymm.f 2007-12-29 21:00:21.000000000 +0530
+@@ -137,7 +137,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -182,7 +182,7 @@
+ INFO = 12
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('ZSYMM ',INFO)
++ CALL XERBLI('ZSYMM ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/zsyr2k.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/zsyr2k.f 2007-12-29 21:00:21.000000000 +0530
+@@ -136,7 +136,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -180,7 +180,7 @@
+ INFO = 12
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('ZSYR2K',INFO)
++ CALL XERBLI('ZSYR2K',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/zsyrk.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/zsyrk.f 2007-12-29 21:00:21.000000000 +0530
+@@ -119,7 +119,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC MAX
+@@ -161,7 +161,7 @@
+ INFO = 10
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('ZSYRK ',INFO)
++ CALL XERBLI('ZSYRK ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/ztbmv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/ztbmv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -149,7 +149,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC DCONJG,MAX,MIN
+@@ -175,7 +175,7 @@
+ INFO = 9
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('ZTBMV ',INFO)
++ CALL XERBLI('ZTBMV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/ztbsv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/ztbsv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -153,7 +153,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC DCONJG,MAX,MIN
+@@ -179,7 +179,7 @@
+ INFO = 9
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('ZTBSV ',INFO)
++ CALL XERBLI('ZTBSV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/ztpmv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/ztpmv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -109,7 +109,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC DCONJG
+@@ -131,7 +131,7 @@
+ INFO = 7
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('ZTPMV ',INFO)
++ CALL XERBLI('ZTPMV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/ztpsv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/ztpsv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -112,7 +112,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC DCONJG
+@@ -134,7 +134,7 @@
+ INFO = 7
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('ZTPSV ',INFO)
++ CALL XERBLI('ZTPSV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/ztrmm.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/ztrmm.f 2007-12-29 21:00:21.000000000 +0530
+@@ -129,7 +129,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC DCONJG,MAX
+@@ -179,7 +179,7 @@
+ INFO = 11
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('ZTRMM ',INFO)
++ CALL XERBLI('ZTRMM ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/ztrmv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/ztrmv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -112,7 +112,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC DCONJG,MAX
+@@ -136,7 +136,7 @@
+ INFO = 8
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('ZTRMV ',INFO)
++ CALL XERBLI('ZTRMV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/ztrsm.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/ztrsm.f 2007-12-29 21:00:21.000000000 +0530
+@@ -131,7 +131,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC DCONJG,MAX
+@@ -181,7 +181,7 @@
+ INFO = 11
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('ZTRSM ',INFO)
++ CALL XERBLI('ZTRSM ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.1.new.orig/src/ztrsv.f 2007-12-29 20:41:10.000000000 +0530
++++ blas-1.1.new.orig.patched/src/ztrsv.f 2007-12-29 21:00:21.000000000 +0530
+@@ -115,7 +115,7 @@
+ EXTERNAL LSAME
+ * ..
+ * .. External Subroutines ..
+- EXTERNAL XERBLA
++ EXTERNAL XERBLI
+ * ..
+ * .. Intrinsic Functions ..
+ INTRINSIC DCONJG,MAX
+@@ -139,7 +139,7 @@
+ INFO = 8
+ END IF
+ IF (INFO.NE.0) THEN
+- CALL XERBLA('ZTRSV ',INFO)
++ CALL XERBLI('ZTRSV ',INFO)
+ RETURN
+ END IF
+ *
+--- blas-1.2.orig/cblas/src/cblas.h
++++ blas-1.2/cblas/src/cblas.h
+@@ -2,6 +2,12 @@
+ #define CBLAS_H
+ #include
+
++/* Allow the use in C++ code. */
++#ifdef __cplusplus
++extern "C"
++{
++#endif
++
+ /*
+ * Enumerated and derived types
+ */
+@@ -564,4 +570,9 @@
+ void *C, const int ldc);
+
+ void cblas_xerbla(int p, const char *rout, const char *form, ...);
++
++#ifdef __cplusplus
++}
++#endif
++
+ #endif
+--- blas-1.2.orig/cblas/testing/c_cblat3.f
++++ blas-1.2/cblas/testing/c_cblat3.f
+@@ -1365,7 +1365,7 @@
+ *
+ 150 CONTINUE
+ WRITE( NOUT, FMT = 9996 )SNAME
+- CALL CPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
++ CALL CPRCN3( NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
+ $ M, N, ALPHA, LDA, LDB)
+ *
+ 160 CONTINUE
+--- blas-1.2.orig/cblas/testing/c_dblat3.f
++++ blas-1.2/cblas/testing/c_dblat3.f
+@@ -1335,7 +1335,7 @@
+ *
+ 150 CONTINUE
+ WRITE( NOUT, FMT = 9996 )SNAME
+- CALL DPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
++ CALL DPRCN3( NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
+ $ M, N, ALPHA, LDA, LDB)
+ *
+ 160 CONTINUE
+--- blas-1.2.orig/cblas/testing/c_sblas1.c
++++ blas-1.2/cblas/testing/c_sblas1.c
+@@ -20,12 +20,12 @@
+ return;
+ }
+
+-float F77_scasum(const int *N, void *X, const int *incX)
++double F77_scasum(const int *N, void *X, const int *incX)
+ {
+ return cblas_scasum(*N, X, *incX);
+ }
+
+-float F77_scnrm2(const int *N, const void *X, const int *incX)
++double F77_scnrm2(const int *N, const void *X, const int *incX)
+ {
+ return cblas_scnrm2(*N, X, *incX);
+ }
+--- blas-1.2.orig/cblas/testing/c_sblat3.f
++++ blas-1.2/cblas/testing/c_sblat3.f
+@@ -1339,7 +1339,7 @@
+ *
+ 150 CONTINUE
+ WRITE( NOUT, FMT = 9996 )SNAME
+- CALL SPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
++ CALL SPRCN3( NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
+ $ M, N, ALPHA, LDA, LDB)
+ *
+ 160 CONTINUE
+--- blas-1.2.orig/cblas/testing/c_zblat2.f
++++ blas-1.2/cblas/testing/c_zblat2.f
+@@ -1350,7 +1350,7 @@
+ *
+ * Call the subroutine.
+ *
+- IF( SNAME( 4: 5 ).EQ.'mv' )THEN
++ IF( SNAME( 10: 11 ).EQ.'mv' )THEN
+ IF( FULL )THEN
+ IF( TRACE )
+ $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
+@@ -1376,7 +1376,7 @@
+ CALL CZTPMV( IORDER, UPLO, TRANS, DIAG,
+ $ N, AA, XX, INCX )
+ END IF
+- ELSE IF( SNAME( 4: 5 ).EQ.'sv' )THEN
++ ELSE IF( SNAME( 10: 11 ).EQ.'sv' )THEN
+ IF( FULL )THEN
+ IF( TRACE )
+ $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
+@@ -1465,7 +1465,7 @@
+ END IF
+ *
+ IF( .NOT.NULL )THEN
+- IF( SNAME( 4: 5 ).EQ.'mv' )THEN
++ IF( SNAME( 10: 11 ).EQ.'mv' )THEN
+ *
+ * Check the result.
+ *
+@@ -1473,7 +1473,7 @@
+ $ INCX, ZERO, Z, INCX, XT, G,
+ $ XX, EPS, ERR, FATAL, NOUT,
+ $ .TRUE. )
+- ELSE IF( SNAME( 4: 5 ).EQ.'sv' )THEN
++ ELSE IF( SNAME( 10: 11 ).EQ.'sv' )THEN
+ *
+ * Compute approximation to original vector.
+ *
+@@ -1611,7 +1611,7 @@
+ * .. Common blocks ..
+ COMMON /INFOC/INFOT, NOUTC, OK
+ * .. Executable Statements ..
+- CONJ = SNAME( 5: 5 ).EQ.'c'
++ CONJ = SNAME( 11: 11 ).EQ.'c'
+ * Define the number of arguments.
+ NARGS = 9
+ *
+--- blas-1.2.orig/cblas/testing/c_zblat3.f
++++ blas-1.2/cblas/testing/c_zblat3.f
+@@ -1366,7 +1366,7 @@
+ *
+ 150 CONTINUE
+ WRITE( NOUT, FMT = 9996 )SNAME
+- CALL ZPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
++ CALL ZPRCN3( NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
+ $ M, N, ALPHA, LDA, LDB)
+ *
+ 160 CONTINUE
+--- blas-1.2.orig/doc/faq.html
++++ blas-1.2/doc/faq.html
+@@ -12,7 +12,7 @@
+
+
+
+-
++
+
+
+ Many thanks to the
+@@ -22,7 +22,7 @@
+
+
+
+-
++
+
+
+ Table of Contents
+@@ -42,7 +42,7 @@
+
+
+
+-
++
+
+ 1) BLAS
+
+@@ -278,7 +278,7 @@
+ for your machine using ATLAS, http://www.netlib.org/atlas/.
+
+
+-
++
+ lapack@cs.utk.edu
+
+