\doxysection{blas\+\_\+lite.\+c}
\label{blas__lite_8c_source}\index{src/libsphinxbase/util/blas\_lite.c@{src/libsphinxbase/util/blas\_lite.c}}

\begin{DoxyCode}{0}
\DoxyCodeLine{00001\ \textcolor{comment}{/*}}
\DoxyCodeLine{00002\ \textcolor{comment}{NOTE:\ This\ is\ generated\ code.\ Look\ in\ README.python\ for\ information\ on}}
\DoxyCodeLine{00003\ \textcolor{comment}{\ \ \ \ \ \ remaking\ this\ file.}}
\DoxyCodeLine{00004\ \textcolor{comment}{*/}}
\DoxyCodeLine{00005\ \textcolor{preprocessor}{\#include\ "{}sphinxbase/f2c.h"{}}}
\DoxyCodeLine{00006\ }
\DoxyCodeLine{00007\ \textcolor{preprocessor}{\#ifdef\ HAVE\_CONFIG}}
\DoxyCodeLine{00008\ \textcolor{preprocessor}{\#include\ "{}config.h"{}}}
\DoxyCodeLine{00009\ \textcolor{preprocessor}{\#else}}
\DoxyCodeLine{00010\ \textcolor{keyword}{extern}\ doublereal\ slamch\_(\textcolor{keywordtype}{char}\ *);}
\DoxyCodeLine{00011\ \textcolor{preprocessor}{\#define\ EPSILON\ slamch\_("{}Epsilon"{})}}
\DoxyCodeLine{00012\ \textcolor{preprocessor}{\#define\ SAFEMINIMUM\ slamch\_("{}Safe\ minimum"{})}}
\DoxyCodeLine{00013\ \textcolor{preprocessor}{\#define\ PRECISION\ slamch\_("{}Precision"{})}}
\DoxyCodeLine{00014\ \textcolor{preprocessor}{\#define\ BASE\ slamch\_("{}Base"{})}}
\DoxyCodeLine{00015\ \textcolor{preprocessor}{\#endif}}
\DoxyCodeLine{00016\ }
\DoxyCodeLine{00017\ }
\DoxyCodeLine{00018\ \textcolor{keyword}{extern}\ doublereal\ slapy2\_(real\ *,\ real\ *);}
\DoxyCodeLine{00019\ }
\DoxyCodeLine{00020\ }
\DoxyCodeLine{00021\ }
\DoxyCodeLine{00022\ \textcolor{comment}{/*\ Table\ of\ constant\ values\ */}}
\DoxyCodeLine{00023\ }
\DoxyCodeLine{00024\ \textcolor{keyword}{static}\ integer\ c\_\_1\ =\ 1;}
\DoxyCodeLine{00025\ }
\DoxyCodeLine{00026\ logical\ lsame\_(\textcolor{keywordtype}{char}\ *ca,\ \textcolor{keywordtype}{char}\ *cb)}
\DoxyCodeLine{00027\ \{}
\DoxyCodeLine{00028\ \ \ \ \ \textcolor{comment}{/*\ System\ generated\ locals\ */}}
\DoxyCodeLine{00029\ \ \ \ \ logical\ ret\_val;}
\DoxyCodeLine{00030\ }
\DoxyCodeLine{00031\ \ \ \ \ \textcolor{comment}{/*\ Local\ variables\ */}}
\DoxyCodeLine{00032\ \ \ \ \ \textcolor{keyword}{static}\ integer\ inta,\ intb,\ zcode;}
\DoxyCodeLine{00033\ }
\DoxyCodeLine{00034\ }
\DoxyCodeLine{00035\ \textcolor{comment}{/*}}
\DoxyCodeLine{00036\ \textcolor{comment}{\ \ \ \ -\/-\/\ LAPACK\ auxiliary\ routine\ (version\ 3.0)\ -\/-\/}}
\DoxyCodeLine{00037\ \textcolor{comment}{\ \ \ \ \ \ \ Univ.\ of\ Tennessee,\ Univ.\ of\ California\ Berkeley,\ NAG\ Ltd.,}}
\DoxyCodeLine{00038\ \textcolor{comment}{\ \ \ \ \ \ \ Courant\ Institute,\ Argonne\ National\ Lab,\ and\ Rice\ University}}
\DoxyCodeLine{00039\ \textcolor{comment}{\ \ \ \ \ \ \ September\ 30,\ 1994}}
\DoxyCodeLine{00040\ \textcolor{comment}{}}
\DoxyCodeLine{00041\ \textcolor{comment}{}}
\DoxyCodeLine{00042\ \textcolor{comment}{\ \ \ \ Purpose}}
\DoxyCodeLine{00043\ \textcolor{comment}{\ \ \ \ =======}}
\DoxyCodeLine{00044\ \textcolor{comment}{}}
\DoxyCodeLine{00045\ \textcolor{comment}{\ \ \ \ LSAME\ returns\ .TRUE.\ if\ CA\ is\ the\ same\ letter\ as\ CB\ regardless\ of}}
\DoxyCodeLine{00046\ \textcolor{comment}{\ \ \ \ case.}}
\DoxyCodeLine{00047\ \textcolor{comment}{}}
\DoxyCodeLine{00048\ \textcolor{comment}{\ \ \ \ Arguments}}
\DoxyCodeLine{00049\ \textcolor{comment}{\ \ \ \ =========}}
\DoxyCodeLine{00050\ \textcolor{comment}{}}
\DoxyCodeLine{00051\ \textcolor{comment}{\ \ \ \ CA\ \ \ \ \ \ (input)\ CHARACTER*1}}
\DoxyCodeLine{00052\ \textcolor{comment}{\ \ \ \ CB\ \ \ \ \ \ (input)\ CHARACTER*1}}
\DoxyCodeLine{00053\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ CA\ and\ CB\ specify\ the\ single\ characters\ to\ be\ compared.}}
\DoxyCodeLine{00054\ \textcolor{comment}{}}
\DoxyCodeLine{00055\ \textcolor{comment}{\ \ \ =====================================================================}}
\DoxyCodeLine{00056\ \textcolor{comment}{}}
\DoxyCodeLine{00057\ \textcolor{comment}{}}
\DoxyCodeLine{00058\ \textcolor{comment}{\ \ \ \ \ \ \ Test\ if\ the\ characters\ are\ equal}}
\DoxyCodeLine{00059\ \textcolor{comment}{*/}}
\DoxyCodeLine{00060\ }
\DoxyCodeLine{00061\ \ \ \ \ ret\_val\ =\ *(\textcolor{keywordtype}{unsigned}\ \textcolor{keywordtype}{char}\ *)ca\ ==\ *(\textcolor{keywordtype}{unsigned}\ \textcolor{keywordtype}{char}\ *)cb;}
\DoxyCodeLine{00062\ \ \ \ \ \textcolor{keywordflow}{if}\ (ret\_val)\ \{}
\DoxyCodeLine{00063\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{return}\ ret\_val;}
\DoxyCodeLine{00064\ \ \ \ \ \}}
\DoxyCodeLine{00065\ }
\DoxyCodeLine{00066\ \textcolor{comment}{/*\ \ \ \ \ Now\ test\ for\ equivalence\ if\ both\ characters\ are\ alphabetic.\ */}}
\DoxyCodeLine{00067\ }
\DoxyCodeLine{00068\ \ \ \ \ zcode\ =\ \textcolor{charliteral}{'Z'};}
\DoxyCodeLine{00069\ }
\DoxyCodeLine{00070\ \textcolor{comment}{/*}}
\DoxyCodeLine{00071\ \textcolor{comment}{\ \ \ \ \ \ \ Use\ 'Z'\ rather\ than\ 'A'\ so\ that\ ASCII\ can\ be\ detected\ on\ Prime}}
\DoxyCodeLine{00072\ \textcolor{comment}{\ \ \ \ \ \ \ machines,\ on\ which\ ICHAR\ returns\ a\ value\ with\ bit\ 8\ set.}}
\DoxyCodeLine{00073\ \textcolor{comment}{\ \ \ \ \ \ \ ICHAR('A')\ on\ Prime\ machines\ returns\ 193\ which\ is\ the\ same\ as}}
\DoxyCodeLine{00074\ \textcolor{comment}{\ \ \ \ \ \ \ ICHAR('A')\ on\ an\ EBCDIC\ machine.}}
\DoxyCodeLine{00075\ \textcolor{comment}{*/}}
\DoxyCodeLine{00076\ }
\DoxyCodeLine{00077\ \ \ \ \ inta\ =\ *(\textcolor{keywordtype}{unsigned}\ \textcolor{keywordtype}{char}\ *)ca;}
\DoxyCodeLine{00078\ \ \ \ \ intb\ =\ *(\textcolor{keywordtype}{unsigned}\ \textcolor{keywordtype}{char}\ *)cb;}
\DoxyCodeLine{00079\ }
\DoxyCodeLine{00080\ \ \ \ \ \textcolor{keywordflow}{if}\ (zcode\ ==\ 90\ ||\ zcode\ ==\ 122)\ \{}
\DoxyCodeLine{00081\ }
\DoxyCodeLine{00082\ \textcolor{comment}{/*}}
\DoxyCodeLine{00083\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ ASCII\ is\ assumed\ -\/\ ZCODE\ is\ the\ ASCII\ code\ of\ either\ lower\ or}}
\DoxyCodeLine{00084\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ upper\ case\ 'Z'.}}
\DoxyCodeLine{00085\ \textcolor{comment}{*/}}
\DoxyCodeLine{00086\ }
\DoxyCodeLine{00087\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (inta\ >=\ 97\ \&\&\ inta\ <=\ 122)\ \{}
\DoxyCodeLine{00088\ \ \ \ \ \ \ \ \ \ \ \ \ inta\ +=\ -\/32;}
\DoxyCodeLine{00089\ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00090\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (intb\ >=\ 97\ \&\&\ intb\ <=\ 122)\ \{}
\DoxyCodeLine{00091\ \ \ \ \ \ \ \ \ \ \ \ \ intb\ +=\ -\/32;}
\DoxyCodeLine{00092\ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00093\ }
\DoxyCodeLine{00094\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (zcode\ ==\ 233\ ||\ zcode\ ==\ 169)\ \{}
\DoxyCodeLine{00095\ }
\DoxyCodeLine{00096\ \textcolor{comment}{/*}}
\DoxyCodeLine{00097\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ EBCDIC\ is\ assumed\ -\/\ ZCODE\ is\ the\ EBCDIC\ code\ of\ either\ lower\ or}}
\DoxyCodeLine{00098\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ upper\ case\ 'Z'.}}
\DoxyCodeLine{00099\ \textcolor{comment}{*/}}
\DoxyCodeLine{00100\ }
\DoxyCodeLine{00101\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (inta\ >=\ 129\ \&\&\ inta\ <=\ 137\ ||\ inta\ >=\ 145\ \&\&\ inta\ <=\ 153\ ||\ inta}
\DoxyCodeLine{00102\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ >=\ 162\ \&\&\ inta\ <=\ 169)\ \{}
\DoxyCodeLine{00103\ \ \ \ \ \ \ \ \ \ \ \ \ inta\ +=\ 64;}
\DoxyCodeLine{00104\ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00105\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (intb\ >=\ 129\ \&\&\ intb\ <=\ 137\ ||\ intb\ >=\ 145\ \&\&\ intb\ <=\ 153\ ||\ intb}
\DoxyCodeLine{00106\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ >=\ 162\ \&\&\ intb\ <=\ 169)\ \{}
\DoxyCodeLine{00107\ \ \ \ \ \ \ \ \ \ \ \ \ intb\ +=\ 64;}
\DoxyCodeLine{00108\ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00109\ }
\DoxyCodeLine{00110\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (zcode\ ==\ 218\ ||\ zcode\ ==\ 250)\ \{}
\DoxyCodeLine{00111\ }
\DoxyCodeLine{00112\ \textcolor{comment}{/*}}
\DoxyCodeLine{00113\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ ASCII\ is\ assumed,\ on\ Prime\ machines\ -\/\ ZCODE\ is\ the\ ASCII\ code}}
\DoxyCodeLine{00114\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ plus\ 128\ of\ either\ lower\ or\ upper\ case\ 'Z'.}}
\DoxyCodeLine{00115\ \textcolor{comment}{*/}}
\DoxyCodeLine{00116\ }
\DoxyCodeLine{00117\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (inta\ >=\ 225\ \&\&\ inta\ <=\ 250)\ \{}
\DoxyCodeLine{00118\ \ \ \ \ \ \ \ \ \ \ \ \ inta\ +=\ -\/32;}
\DoxyCodeLine{00119\ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00120\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (intb\ >=\ 225\ \&\&\ intb\ <=\ 250)\ \{}
\DoxyCodeLine{00121\ \ \ \ \ \ \ \ \ \ \ \ \ intb\ +=\ -\/32;}
\DoxyCodeLine{00122\ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00123\ \ \ \ \ \}}
\DoxyCodeLine{00124\ \ \ \ \ ret\_val\ =\ inta\ ==\ intb;}
\DoxyCodeLine{00125\ }
\DoxyCodeLine{00126\ \textcolor{comment}{/*}}
\DoxyCodeLine{00127\ \textcolor{comment}{\ \ \ \ \ \ \ RETURN}}
\DoxyCodeLine{00128\ \textcolor{comment}{}}
\DoxyCodeLine{00129\ \textcolor{comment}{\ \ \ \ \ \ \ End\ of\ LSAME}}
\DoxyCodeLine{00130\ \textcolor{comment}{*/}}
\DoxyCodeLine{00131\ }
\DoxyCodeLine{00132\ \ \ \ \ \textcolor{keywordflow}{return}\ ret\_val;}
\DoxyCodeLine{00133\ \}\ \textcolor{comment}{/*\ lsame\_\ */}}
\DoxyCodeLine{00134\ }
\DoxyCodeLine{00135\ doublereal\ sdot\_(integer\ *n,\ real\ *sx,\ integer\ *incx,\ real\ *sy,\ integer\ *incy)}
\DoxyCodeLine{00136\ \{}
\DoxyCodeLine{00137\ \ \ \ \ \textcolor{comment}{/*\ System\ generated\ locals\ */}}
\DoxyCodeLine{00138\ \ \ \ \ integer\ i\_\_1;}
\DoxyCodeLine{00139\ \ \ \ \ real\ ret\_val;}
\DoxyCodeLine{00140\ }
\DoxyCodeLine{00141\ \ \ \ \ \textcolor{comment}{/*\ Local\ variables\ */}}
\DoxyCodeLine{00142\ \ \ \ \ \textcolor{keyword}{static}\ integer\ i\_\_,\ m,\ ix,\ iy,\ mp1;}
\DoxyCodeLine{00143\ \ \ \ \ \textcolor{keyword}{static}\ real\ stemp;}
\DoxyCodeLine{00144\ }
\DoxyCodeLine{00145\ }
\DoxyCodeLine{00146\ \textcolor{comment}{/*}}
\DoxyCodeLine{00147\ \textcolor{comment}{\ \ \ \ \ \ \ forms\ the\ dot\ product\ of\ two\ vectors.}}
\DoxyCodeLine{00148\ \textcolor{comment}{\ \ \ \ \ \ \ uses\ unrolled\ loops\ for\ increments\ equal\ to\ one.}}
\DoxyCodeLine{00149\ \textcolor{comment}{\ \ \ \ \ \ \ jack\ dongarra,\ linpack,\ 3/11/78.}}
\DoxyCodeLine{00150\ \textcolor{comment}{\ \ \ \ \ \ \ modified\ 12/3/93,\ array(1)\ declarations\ changed\ to\ array(*)}}
\DoxyCodeLine{00151\ \textcolor{comment}{*/}}
\DoxyCodeLine{00152\ }
\DoxyCodeLine{00153\ }
\DoxyCodeLine{00154\ \ \ \ \ \textcolor{comment}{/*\ Parameter\ adjustments\ */}}
\DoxyCodeLine{00155\ \ \ \ \ -\/-\/sy;}
\DoxyCodeLine{00156\ \ \ \ \ -\/-\/sx;}
\DoxyCodeLine{00157\ }
\DoxyCodeLine{00158\ \ \ \ \ \textcolor{comment}{/*\ Function\ Body\ */}}
\DoxyCodeLine{00159\ \ \ \ \ stemp\ =\ 0.f;}
\DoxyCodeLine{00160\ \ \ \ \ ret\_val\ =\ 0.f;}
\DoxyCodeLine{00161\ \ \ \ \ \textcolor{keywordflow}{if}\ (*n\ <=\ 0)\ \{}
\DoxyCodeLine{00162\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{return}\ ret\_val;}
\DoxyCodeLine{00163\ \ \ \ \ \}}
\DoxyCodeLine{00164\ \ \ \ \ \textcolor{keywordflow}{if}\ (*incx\ ==\ 1\ \&\&\ *incy\ ==\ 1)\ \{}
\DoxyCodeLine{00165\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{goto}\ L20;}
\DoxyCodeLine{00166\ \ \ \ \ \}}
\DoxyCodeLine{00167\ }
\DoxyCodeLine{00168\ \textcolor{comment}{/*}}
\DoxyCodeLine{00169\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ code\ for\ unequal\ increments\ or\ equal\ increments}}
\DoxyCodeLine{00170\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ not\ equal\ to\ 1}}
\DoxyCodeLine{00171\ \textcolor{comment}{*/}}
\DoxyCodeLine{00172\ }
\DoxyCodeLine{00173\ \ \ \ \ ix\ =\ 1;}
\DoxyCodeLine{00174\ \ \ \ \ iy\ =\ 1;}
\DoxyCodeLine{00175\ \ \ \ \ \textcolor{keywordflow}{if}\ (*incx\ <\ 0)\ \{}
\DoxyCodeLine{00176\ \ \ \ \ \ \ \ \ ix\ =\ (-\/(*n)\ +\ 1)\ *\ *incx\ +\ 1;}
\DoxyCodeLine{00177\ \ \ \ \ \}}
\DoxyCodeLine{00178\ \ \ \ \ \textcolor{keywordflow}{if}\ (*incy\ <\ 0)\ \{}
\DoxyCodeLine{00179\ \ \ \ \ \ \ \ \ iy\ =\ (-\/(*n)\ +\ 1)\ *\ *incy\ +\ 1;}
\DoxyCodeLine{00180\ \ \ \ \ \}}
\DoxyCodeLine{00181\ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{00182\ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_1;\ ++i\_\_)\ \{}
\DoxyCodeLine{00183\ \ \ \ \ \ \ \ \ stemp\ +=\ sx[ix]\ *\ sy[iy];}
\DoxyCodeLine{00184\ \ \ \ \ \ \ \ \ ix\ +=\ *incx;}
\DoxyCodeLine{00185\ \ \ \ \ \ \ \ \ iy\ +=\ *incy;}
\DoxyCodeLine{00186\ \textcolor{comment}{/*\ L10:\ */}}
\DoxyCodeLine{00187\ \ \ \ \ \}}
\DoxyCodeLine{00188\ \ \ \ \ ret\_val\ =\ stemp;}
\DoxyCodeLine{00189\ \ \ \ \ \textcolor{keywordflow}{return}\ ret\_val;}
\DoxyCodeLine{00190\ }
\DoxyCodeLine{00191\ \textcolor{comment}{/*}}
\DoxyCodeLine{00192\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ code\ for\ both\ increments\ equal\ to\ 1}}
\DoxyCodeLine{00193\ \textcolor{comment}{}}
\DoxyCodeLine{00194\ \textcolor{comment}{}}
\DoxyCodeLine{00195\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ clean-\/up\ loop}}
\DoxyCodeLine{00196\ \textcolor{comment}{*/}}
\DoxyCodeLine{00197\ }
\DoxyCodeLine{00198\ L20:}
\DoxyCodeLine{00199\ \ \ \ \ m\ =\ *n\ \%\ 5;}
\DoxyCodeLine{00200\ \ \ \ \ \textcolor{keywordflow}{if}\ (m\ ==\ 0)\ \{}
\DoxyCodeLine{00201\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{goto}\ L40;}
\DoxyCodeLine{00202\ \ \ \ \ \}}
\DoxyCodeLine{00203\ \ \ \ \ i\_\_1\ =\ m;}
\DoxyCodeLine{00204\ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_1;\ ++i\_\_)\ \{}
\DoxyCodeLine{00205\ \ \ \ \ \ \ \ \ stemp\ +=\ sx[i\_\_]\ *\ sy[i\_\_];}
\DoxyCodeLine{00206\ \textcolor{comment}{/*\ L30:\ */}}
\DoxyCodeLine{00207\ \ \ \ \ \}}
\DoxyCodeLine{00208\ \ \ \ \ \textcolor{keywordflow}{if}\ (*n\ <\ 5)\ \{}
\DoxyCodeLine{00209\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{goto}\ L60;}
\DoxyCodeLine{00210\ \ \ \ \ \}}
\DoxyCodeLine{00211\ L40:}
\DoxyCodeLine{00212\ \ \ \ \ mp1\ =\ m\ +\ 1;}
\DoxyCodeLine{00213\ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{00214\ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ mp1;\ i\_\_\ <=\ i\_\_1;\ i\_\_\ +=\ 5)\ \{}
\DoxyCodeLine{00215\ \ \ \ \ \ \ \ \ stemp\ =\ stemp\ +\ sx[i\_\_]\ *\ sy[i\_\_]\ +\ sx[i\_\_\ +\ 1]\ *\ sy[i\_\_\ +\ 1]\ +\ sx[}
\DoxyCodeLine{00216\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_\ +\ 2]\ *\ sy[i\_\_\ +\ 2]\ +\ sx[i\_\_\ +\ 3]\ *\ sy[i\_\_\ +\ 3]\ +\ sx[i\_\_\ +}
\DoxyCodeLine{00217\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 4]\ *\ sy[i\_\_\ +\ 4];}
\DoxyCodeLine{00218\ \textcolor{comment}{/*\ L50:\ */}}
\DoxyCodeLine{00219\ \ \ \ \ \}}
\DoxyCodeLine{00220\ L60:}
\DoxyCodeLine{00221\ \ \ \ \ ret\_val\ =\ stemp;}
\DoxyCodeLine{00222\ \ \ \ \ \textcolor{keywordflow}{return}\ ret\_val;}
\DoxyCodeLine{00223\ \}\ \textcolor{comment}{/*\ sdot\_\ */}}
\DoxyCodeLine{00224\ }
\DoxyCodeLine{00225\ \textcolor{comment}{/*\ Subroutine\ */}\ \textcolor{keywordtype}{int}\ sgemm\_(\textcolor{keywordtype}{char}\ *transa,\ \textcolor{keywordtype}{char}\ *transb,\ integer\ *m,\ integer\ *}
\DoxyCodeLine{00226\ \ \ \ \ \ \ \ \ n,\ integer\ *k,\ real\ *alpha,\ real\ *a,\ integer\ *lda,\ real\ *b,\ integer\ *}
\DoxyCodeLine{00227\ \ \ \ \ \ \ \ \ ldb,\ real\ *beta,\ real\ *c\_\_,\ integer\ *ldc)}
\DoxyCodeLine{00228\ \{}
\DoxyCodeLine{00229\ \ \ \ \ \textcolor{comment}{/*\ System\ generated\ locals\ */}}
\DoxyCodeLine{00230\ \ \ \ \ integer\ a\_dim1,\ a\_offset,\ b\_dim1,\ b\_offset,\ c\_dim1,\ c\_offset,\ i\_\_1,\ i\_\_2,}
\DoxyCodeLine{00231\ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_3;}
\DoxyCodeLine{00232\ }
\DoxyCodeLine{00233\ \ \ \ \ \textcolor{comment}{/*\ Local\ variables\ */}}
\DoxyCodeLine{00234\ \ \ \ \ \textcolor{keyword}{static}\ integer\ i\_\_,\ j,\ l,\ info;}
\DoxyCodeLine{00235\ \ \ \ \ \textcolor{keyword}{static}\ logical\ nota,\ notb;}
\DoxyCodeLine{00236\ \ \ \ \ \textcolor{keyword}{static}\ real\ temp;}
\DoxyCodeLine{00237\ \ \ \ \ \textcolor{keyword}{static}\ integer\ ncola;}
\DoxyCodeLine{00238\ \ \ \ \ \textcolor{keyword}{extern}\ logical\ lsame\_(\textcolor{keywordtype}{char}\ *,\ \textcolor{keywordtype}{char}\ *);}
\DoxyCodeLine{00239\ \ \ \ \ \textcolor{keyword}{static}\ integer\ nrowa,\ nrowb;}
\DoxyCodeLine{00240\ \ \ \ \ \textcolor{keyword}{extern}\ \textcolor{comment}{/*\ Subroutine\ */}\ \textcolor{keywordtype}{int}\ xerbla\_(\textcolor{keywordtype}{char}\ *,\ integer\ *);}
\DoxyCodeLine{00241\ }
\DoxyCodeLine{00242\ }
\DoxyCodeLine{00243\ \textcolor{comment}{/*}}
\DoxyCodeLine{00244\ \textcolor{comment}{\ \ \ \ Purpose}}
\DoxyCodeLine{00245\ \textcolor{comment}{\ \ \ \ =======}}
\DoxyCodeLine{00246\ \textcolor{comment}{}}
\DoxyCodeLine{00247\ \textcolor{comment}{\ \ \ \ SGEMM\ \ performs\ one\ of\ the\ matrix-\/matrix\ operations}}
\DoxyCodeLine{00248\ \textcolor{comment}{}}
\DoxyCodeLine{00249\ \textcolor{comment}{\ \ \ \ \ \ \ C\ :=\ alpha*op(\ A\ )*op(\ B\ )\ +\ beta*C,}}
\DoxyCodeLine{00250\ \textcolor{comment}{}}
\DoxyCodeLine{00251\ \textcolor{comment}{\ \ \ \ where\ \ op(\ X\ )\ is\ one\ of}}
\DoxyCodeLine{00252\ \textcolor{comment}{}}
\DoxyCodeLine{00253\ \textcolor{comment}{\ \ \ \ \ \ \ op(\ X\ )\ =\ X\ \ \ or\ \ \ op(\ X\ )\ =\ X',}}
\DoxyCodeLine{00254\ \textcolor{comment}{}}
\DoxyCodeLine{00255\ \textcolor{comment}{\ \ \ \ alpha\ and\ beta\ are\ scalars,\ and\ A,\ B\ and\ C\ are\ matrices,\ with\ op(\ A\ )}}
\DoxyCodeLine{00256\ \textcolor{comment}{\ \ \ \ an\ m\ by\ k\ matrix,\ \ op(\ B\ )\ \ a\ \ k\ by\ n\ matrix\ and\ \ C\ an\ m\ by\ n\ matrix.}}
\DoxyCodeLine{00257\ \textcolor{comment}{}}
\DoxyCodeLine{00258\ \textcolor{comment}{\ \ \ \ Parameters}}
\DoxyCodeLine{00259\ \textcolor{comment}{\ \ \ \ ==========}}
\DoxyCodeLine{00260\ \textcolor{comment}{}}
\DoxyCodeLine{00261\ \textcolor{comment}{\ \ \ \ TRANSA\ -\/\ CHARACTER*1.}}
\DoxyCodeLine{00262\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ TRANSA\ specifies\ the\ form\ of\ op(\ A\ )\ to\ be\ used\ in}}
\DoxyCodeLine{00263\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ the\ matrix\ multiplication\ as\ follows:}}
\DoxyCodeLine{00264\ \textcolor{comment}{}}
\DoxyCodeLine{00265\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ TRANSA\ =\ 'N'\ or\ 'n',\ \ op(\ A\ )\ =\ A.}}
\DoxyCodeLine{00266\ \textcolor{comment}{}}
\DoxyCodeLine{00267\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ TRANSA\ =\ 'T'\ or\ 't',\ \ op(\ A\ )\ =\ A'.}}
\DoxyCodeLine{00268\ \textcolor{comment}{}}
\DoxyCodeLine{00269\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ TRANSA\ =\ 'C'\ or\ 'c',\ \ op(\ A\ )\ =\ A'.}}
\DoxyCodeLine{00270\ \textcolor{comment}{}}
\DoxyCodeLine{00271\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{00272\ \textcolor{comment}{}}
\DoxyCodeLine{00273\ \textcolor{comment}{\ \ \ \ TRANSB\ -\/\ CHARACTER*1.}}
\DoxyCodeLine{00274\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ TRANSB\ specifies\ the\ form\ of\ op(\ B\ )\ to\ be\ used\ in}}
\DoxyCodeLine{00275\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ the\ matrix\ multiplication\ as\ follows:}}
\DoxyCodeLine{00276\ \textcolor{comment}{}}
\DoxyCodeLine{00277\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ TRANSB\ =\ 'N'\ or\ 'n',\ \ op(\ B\ )\ =\ B.}}
\DoxyCodeLine{00278\ \textcolor{comment}{}}
\DoxyCodeLine{00279\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ TRANSB\ =\ 'T'\ or\ 't',\ \ op(\ B\ )\ =\ B'.}}
\DoxyCodeLine{00280\ \textcolor{comment}{}}
\DoxyCodeLine{00281\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ TRANSB\ =\ 'C'\ or\ 'c',\ \ op(\ B\ )\ =\ B'.}}
\DoxyCodeLine{00282\ \textcolor{comment}{}}
\DoxyCodeLine{00283\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{00284\ \textcolor{comment}{}}
\DoxyCodeLine{00285\ \textcolor{comment}{\ \ \ \ M\ \ \ \ \ \ -\/\ INTEGER.}}
\DoxyCodeLine{00286\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ \ M\ \ specifies\ \ the\ number\ \ of\ rows\ \ of\ the\ \ matrix}}
\DoxyCodeLine{00287\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ op(\ A\ )\ \ and\ of\ the\ \ matrix\ \ C.\ \ M\ \ must\ \ be\ at\ least\ \ zero.}}
\DoxyCodeLine{00288\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{00289\ \textcolor{comment}{}}
\DoxyCodeLine{00290\ \textcolor{comment}{\ \ \ \ N\ \ \ \ \ \ -\/\ INTEGER.}}
\DoxyCodeLine{00291\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ \ N\ \ specifies\ the\ number\ \ of\ columns\ of\ the\ matrix}}
\DoxyCodeLine{00292\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ op(\ B\ )\ and\ the\ number\ of\ columns\ of\ the\ matrix\ C.\ N\ must\ be}}
\DoxyCodeLine{00293\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ at\ least\ zero.}}
\DoxyCodeLine{00294\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{00295\ \textcolor{comment}{}}
\DoxyCodeLine{00296\ \textcolor{comment}{\ \ \ \ K\ \ \ \ \ \ -\/\ INTEGER.}}
\DoxyCodeLine{00297\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ \ K\ \ specifies\ \ the\ number\ of\ columns\ of\ the\ matrix}}
\DoxyCodeLine{00298\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ op(\ A\ )\ and\ the\ number\ of\ rows\ of\ the\ matrix\ op(\ B\ ).\ K\ must}}
\DoxyCodeLine{00299\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ be\ at\ least\ \ zero.}}
\DoxyCodeLine{00300\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{00301\ \textcolor{comment}{}}
\DoxyCodeLine{00302\ \textcolor{comment}{\ \ \ \ ALPHA\ \ -\/\ REAL\ \ \ \ \ \ \ \ \ \ \ \ .}}
\DoxyCodeLine{00303\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ ALPHA\ specifies\ the\ scalar\ alpha.}}
\DoxyCodeLine{00304\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{00305\ \textcolor{comment}{}}
\DoxyCodeLine{00306\ \textcolor{comment}{\ \ \ \ A\ \ \ \ \ \ -\/\ REAL\ \ \ \ \ \ \ \ \ \ \ \ \ array\ of\ DIMENSION\ (\ LDA,\ ka\ ),\ where\ ka\ is}}
\DoxyCodeLine{00307\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ k\ \ when\ \ TRANSA\ =\ 'N'\ or\ 'n',\ \ and\ is\ \ m\ \ otherwise.}}
\DoxyCodeLine{00308\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Before\ entry\ with\ \ TRANSA\ =\ 'N'\ or\ 'n',\ \ the\ leading\ \ m\ by\ k}}
\DoxyCodeLine{00309\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ part\ of\ the\ array\ \ A\ \ must\ contain\ the\ matrix\ \ A,\ \ otherwise}}
\DoxyCodeLine{00310\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ the\ leading\ \ k\ by\ m\ \ part\ of\ the\ array\ \ A\ \ must\ contain\ \ the}}
\DoxyCodeLine{00311\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ matrix\ A.}}
\DoxyCodeLine{00312\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{00313\ \textcolor{comment}{}}
\DoxyCodeLine{00314\ \textcolor{comment}{\ \ \ \ LDA\ \ \ \ -\/\ INTEGER.}}
\DoxyCodeLine{00315\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ LDA\ specifies\ the\ first\ dimension\ of\ A\ as\ declared}}
\DoxyCodeLine{00316\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ in\ the\ calling\ (sub)\ program.\ When\ \ TRANSA\ =\ 'N'\ or\ 'n'\ then}}
\DoxyCodeLine{00317\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ LDA\ must\ be\ at\ least\ \ max(\ 1,\ m\ ),\ otherwise\ \ LDA\ must\ be\ at}}
\DoxyCodeLine{00318\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ least\ \ max(\ 1,\ k\ ).}}
\DoxyCodeLine{00319\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{00320\ \textcolor{comment}{}}
\DoxyCodeLine{00321\ \textcolor{comment}{\ \ \ \ B\ \ \ \ \ \ -\/\ REAL\ \ \ \ \ \ \ \ \ \ \ \ \ array\ of\ DIMENSION\ (\ LDB,\ kb\ ),\ where\ kb\ is}}
\DoxyCodeLine{00322\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ n\ \ when\ \ TRANSB\ =\ 'N'\ or\ 'n',\ \ and\ is\ \ k\ \ otherwise.}}
\DoxyCodeLine{00323\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Before\ entry\ with\ \ TRANSB\ =\ 'N'\ or\ 'n',\ \ the\ leading\ \ k\ by\ n}}
\DoxyCodeLine{00324\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ part\ of\ the\ array\ \ B\ \ must\ contain\ the\ matrix\ \ B,\ \ otherwise}}
\DoxyCodeLine{00325\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ the\ leading\ \ n\ by\ k\ \ part\ of\ the\ array\ \ B\ \ must\ contain\ \ the}}
\DoxyCodeLine{00326\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ matrix\ B.}}
\DoxyCodeLine{00327\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{00328\ \textcolor{comment}{}}
\DoxyCodeLine{00329\ \textcolor{comment}{\ \ \ \ LDB\ \ \ \ -\/\ INTEGER.}}
\DoxyCodeLine{00330\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ LDB\ specifies\ the\ first\ dimension\ of\ B\ as\ declared}}
\DoxyCodeLine{00331\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ in\ the\ calling\ (sub)\ program.\ When\ \ TRANSB\ =\ 'N'\ or\ 'n'\ then}}
\DoxyCodeLine{00332\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ LDB\ must\ be\ at\ least\ \ max(\ 1,\ k\ ),\ otherwise\ \ LDB\ must\ be\ at}}
\DoxyCodeLine{00333\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ least\ \ max(\ 1,\ n\ ).}}
\DoxyCodeLine{00334\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{00335\ \textcolor{comment}{}}
\DoxyCodeLine{00336\ \textcolor{comment}{\ \ \ \ BETA\ \ \ -\/\ REAL\ \ \ \ \ \ \ \ \ \ \ \ .}}
\DoxyCodeLine{00337\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ \ BETA\ \ specifies\ the\ scalar\ \ beta.\ \ When\ \ BETA\ \ is}}
\DoxyCodeLine{00338\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ supplied\ as\ zero\ then\ C\ need\ not\ be\ set\ on\ input.}}
\DoxyCodeLine{00339\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{00340\ \textcolor{comment}{}}
\DoxyCodeLine{00341\ \textcolor{comment}{\ \ \ \ C\ \ \ \ \ \ -\/\ REAL\ \ \ \ \ \ \ \ \ \ \ \ \ array\ of\ DIMENSION\ (\ LDC,\ n\ ).}}
\DoxyCodeLine{00342\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Before\ entry,\ the\ leading\ \ m\ by\ n\ \ part\ of\ the\ array\ \ C\ must}}
\DoxyCodeLine{00343\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ contain\ the\ matrix\ \ C,\ \ except\ when\ \ beta\ \ is\ zero,\ in\ which}}
\DoxyCodeLine{00344\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ case\ C\ need\ not\ be\ set\ on\ entry.}}
\DoxyCodeLine{00345\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ exit,\ the\ array\ \ C\ \ is\ overwritten\ by\ the\ \ m\ by\ n\ \ matrix}}
\DoxyCodeLine{00346\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ (\ alpha*op(\ A\ )*op(\ B\ )\ +\ beta*C\ ).}}
\DoxyCodeLine{00347\ \textcolor{comment}{}}
\DoxyCodeLine{00348\ \textcolor{comment}{\ \ \ \ LDC\ \ \ \ -\/\ INTEGER.}}
\DoxyCodeLine{00349\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ LDC\ specifies\ the\ first\ dimension\ of\ C\ as\ declared}}
\DoxyCodeLine{00350\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ in\ \ the\ \ calling\ \ (sub)\ \ program.\ \ \ LDC\ \ must\ \ be\ \ at\ \ least}}
\DoxyCodeLine{00351\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ max(\ 1,\ m\ ).}}
\DoxyCodeLine{00352\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{00353\ \textcolor{comment}{}}
\DoxyCodeLine{00354\ \textcolor{comment}{}}
\DoxyCodeLine{00355\ \textcolor{comment}{\ \ \ \ Level\ 3\ Blas\ routine.}}
\DoxyCodeLine{00356\ \textcolor{comment}{}}
\DoxyCodeLine{00357\ \textcolor{comment}{\ \ \ \ -\/-\/\ Written\ on\ 8-\/February-\/1989.}}
\DoxyCodeLine{00358\ \textcolor{comment}{\ \ \ \ \ \ \ Jack\ Dongarra,\ Argonne\ National\ Laboratory.}}
\DoxyCodeLine{00359\ \textcolor{comment}{\ \ \ \ \ \ \ Iain\ Duff,\ AERE\ Harwell.}}
\DoxyCodeLine{00360\ \textcolor{comment}{\ \ \ \ \ \ \ Jeremy\ Du\ Croz,\ Numerical\ Algorithms\ Group\ Ltd.}}
\DoxyCodeLine{00361\ \textcolor{comment}{\ \ \ \ \ \ \ Sven\ Hammarling,\ Numerical\ Algorithms\ Group\ Ltd.}}
\DoxyCodeLine{00362\ \textcolor{comment}{}}
\DoxyCodeLine{00363\ \textcolor{comment}{}}
\DoxyCodeLine{00364\ \textcolor{comment}{\ \ \ \ \ \ \ Set\ \ NOTA\ \ and\ \ NOTB\ \ as\ \ true\ if\ \ A\ \ and\ \ B\ \ respectively\ are\ not}}
\DoxyCodeLine{00365\ \textcolor{comment}{\ \ \ \ \ \ \ transposed\ and\ set\ \ NROWA,\ NCOLA\ and\ \ NROWB\ \ as\ the\ number\ of\ rows}}
\DoxyCodeLine{00366\ \textcolor{comment}{\ \ \ \ \ \ \ and\ \ columns\ of\ \ A\ \ and\ the\ \ number\ of\ \ rows\ \ of\ \ B\ \ respectively.}}
\DoxyCodeLine{00367\ \textcolor{comment}{*/}}
\DoxyCodeLine{00368\ }
\DoxyCodeLine{00369\ \ \ \ \ \textcolor{comment}{/*\ Parameter\ adjustments\ */}}
\DoxyCodeLine{00370\ \ \ \ \ a\_dim1\ =\ *lda;}
\DoxyCodeLine{00371\ \ \ \ \ a\_offset\ =\ 1\ +\ a\_dim1;}
\DoxyCodeLine{00372\ \ \ \ \ a\ -\/=\ a\_offset;}
\DoxyCodeLine{00373\ \ \ \ \ b\_dim1\ =\ *ldb;}
\DoxyCodeLine{00374\ \ \ \ \ b\_offset\ =\ 1\ +\ b\_dim1;}
\DoxyCodeLine{00375\ \ \ \ \ b\ -\/=\ b\_offset;}
\DoxyCodeLine{00376\ \ \ \ \ c\_dim1\ =\ *ldc;}
\DoxyCodeLine{00377\ \ \ \ \ c\_offset\ =\ 1\ +\ c\_dim1;}
\DoxyCodeLine{00378\ \ \ \ \ c\_\_\ -\/=\ c\_offset;}
\DoxyCodeLine{00379\ }
\DoxyCodeLine{00380\ \ \ \ \ \textcolor{comment}{/*\ Function\ Body\ */}}
\DoxyCodeLine{00381\ \ \ \ \ nota\ =\ lsame\_(transa,\ \textcolor{stringliteral}{"{}N"{}});}
\DoxyCodeLine{00382\ \ \ \ \ notb\ =\ lsame\_(transb,\ \textcolor{stringliteral}{"{}N"{}});}
\DoxyCodeLine{00383\ \ \ \ \ \textcolor{keywordflow}{if}\ (nota)\ \{}
\DoxyCodeLine{00384\ \ \ \ \ \ \ \ \ nrowa\ =\ *m;}
\DoxyCodeLine{00385\ \ \ \ \ \ \ \ \ ncola\ =\ *k;}
\DoxyCodeLine{00386\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{00387\ \ \ \ \ \ \ \ \ nrowa\ =\ *k;}
\DoxyCodeLine{00388\ \ \ \ \ \ \ \ \ ncola\ =\ *m;}
\DoxyCodeLine{00389\ \ \ \ \ \}}
\DoxyCodeLine{00390\ \ \ \ \ \textcolor{keywordflow}{if}\ (notb)\ \{}
\DoxyCodeLine{00391\ \ \ \ \ \ \ \ \ nrowb\ =\ *k;}
\DoxyCodeLine{00392\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{00393\ \ \ \ \ \ \ \ \ nrowb\ =\ *n;}
\DoxyCodeLine{00394\ \ \ \ \ \}}
\DoxyCodeLine{00395\ }
\DoxyCodeLine{00396\ \textcolor{comment}{/*\ \ \ \ \ Test\ the\ input\ parameters.\ */}}
\DoxyCodeLine{00397\ }
\DoxyCodeLine{00398\ \ \ \ \ info\ =\ 0;}
\DoxyCodeLine{00399\ \ \ \ \ \textcolor{keywordflow}{if}\ (!\ nota\ \&\&\ !\ lsame\_(transa,\ \textcolor{stringliteral}{"{}C"{}})\ \&\&\ !\ lsame\_(}
\DoxyCodeLine{00400\ \ \ \ \ \ \ \ \ \ \ \ \ transa,\ \textcolor{stringliteral}{"{}T"{}}))\ \{}
\DoxyCodeLine{00401\ \ \ \ \ \ \ \ \ info\ =\ 1;}
\DoxyCodeLine{00402\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (!\ notb\ \&\&\ !\ lsame\_(transb,\ \textcolor{stringliteral}{"{}C"{}})\ \&\&\ !}
\DoxyCodeLine{00403\ \ \ \ \ \ \ \ \ \ \ \ \ lsame\_(transb,\ \textcolor{stringliteral}{"{}T"{}}))\ \{}
\DoxyCodeLine{00404\ \ \ \ \ \ \ \ \ info\ =\ 2;}
\DoxyCodeLine{00405\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (*m\ <\ 0)\ \{}
\DoxyCodeLine{00406\ \ \ \ \ \ \ \ \ info\ =\ 3;}
\DoxyCodeLine{00407\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (*n\ <\ 0)\ \{}
\DoxyCodeLine{00408\ \ \ \ \ \ \ \ \ info\ =\ 4;}
\DoxyCodeLine{00409\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (*k\ <\ 0)\ \{}
\DoxyCodeLine{00410\ \ \ \ \ \ \ \ \ info\ =\ 5;}
\DoxyCodeLine{00411\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (*lda\ <\ max(1,nrowa))\ \{}
\DoxyCodeLine{00412\ \ \ \ \ \ \ \ \ info\ =\ 8;}
\DoxyCodeLine{00413\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (*ldb\ <\ max(1,nrowb))\ \{}
\DoxyCodeLine{00414\ \ \ \ \ \ \ \ \ info\ =\ 10;}
\DoxyCodeLine{00415\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (*ldc\ <\ max(1,*m))\ \{}
\DoxyCodeLine{00416\ \ \ \ \ \ \ \ \ info\ =\ 13;}
\DoxyCodeLine{00417\ \ \ \ \ \}}
\DoxyCodeLine{00418\ \ \ \ \ \textcolor{keywordflow}{if}\ (info\ !=\ 0)\ \{}
\DoxyCodeLine{00419\ \ \ \ \ \ \ \ \ xerbla\_(\textcolor{stringliteral}{"{}SGEMM\ "{}},\ \&info);}
\DoxyCodeLine{00420\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{return}\ 0;}
\DoxyCodeLine{00421\ \ \ \ \ \}}
\DoxyCodeLine{00422\ }
\DoxyCodeLine{00423\ \textcolor{comment}{/*\ \ \ \ \ Quick\ return\ if\ possible.\ */}}
\DoxyCodeLine{00424\ }
\DoxyCodeLine{00425\ \ \ \ \ \textcolor{keywordflow}{if}\ (*m\ ==\ 0\ ||\ *n\ ==\ 0\ ||\ (*alpha\ ==\ 0.f\ ||\ *k\ ==\ 0)\ \&\&\ *beta\ ==\ 1.f)\ \{}
\DoxyCodeLine{00426\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{return}\ 0;}
\DoxyCodeLine{00427\ \ \ \ \ \}}
\DoxyCodeLine{00428\ }
\DoxyCodeLine{00429\ \textcolor{comment}{/*\ \ \ \ \ And\ if\ \ alpha.eq.zero.\ */}}
\DoxyCodeLine{00430\ }
\DoxyCodeLine{00431\ \ \ \ \ \textcolor{keywordflow}{if}\ (*alpha\ ==\ 0.f)\ \{}
\DoxyCodeLine{00432\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (*beta\ ==\ 0.f)\ \{}
\DoxyCodeLine{00433\ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{00434\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{00435\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{00436\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{00437\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ 0.f;}
\DoxyCodeLine{00438\ \textcolor{comment}{/*\ L10:\ */}}
\DoxyCodeLine{00439\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00440\ \textcolor{comment}{/*\ L20:\ */}}
\DoxyCodeLine{00441\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00442\ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{00443\ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{00444\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{00445\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{00446\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{00447\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ *beta\ *\ c\_\_[i\_\_\ +\ j\ *\ c\_dim1];}
\DoxyCodeLine{00448\ \textcolor{comment}{/*\ L30:\ */}}
\DoxyCodeLine{00449\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00450\ \textcolor{comment}{/*\ L40:\ */}}
\DoxyCodeLine{00451\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00452\ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00453\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{return}\ 0;}
\DoxyCodeLine{00454\ \ \ \ \ \}}
\DoxyCodeLine{00455\ }
\DoxyCodeLine{00456\ \textcolor{comment}{/*\ \ \ \ \ Start\ the\ operations.\ */}}
\DoxyCodeLine{00457\ }
\DoxyCodeLine{00458\ \ \ \ \ \textcolor{keywordflow}{if}\ (notb)\ \{}
\DoxyCodeLine{00459\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (nota)\ \{}
\DoxyCodeLine{00460\ }
\DoxyCodeLine{00461\ \textcolor{comment}{/*\ \ \ \ \ \ \ \ \ \ \ Form\ \ C\ :=\ alpha*A*B\ +\ beta*C.\ */}}
\DoxyCodeLine{00462\ }
\DoxyCodeLine{00463\ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{00464\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{00465\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (*beta\ ==\ 0.f)\ \{}
\DoxyCodeLine{00466\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{00467\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{00468\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ 0.f;}
\DoxyCodeLine{00469\ \textcolor{comment}{/*\ L50:\ */}}
\DoxyCodeLine{00470\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00471\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (*beta\ !=\ 1.f)\ \{}
\DoxyCodeLine{00472\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{00473\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{00474\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ *beta\ *\ c\_\_[i\_\_\ +\ j\ *\ c\_dim1];}
\DoxyCodeLine{00475\ \textcolor{comment}{/*\ L60:\ */}}
\DoxyCodeLine{00476\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00477\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00478\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *k;}
\DoxyCodeLine{00479\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (l\ =\ 1;\ l\ <=\ i\_\_2;\ ++l)\ \{}
\DoxyCodeLine{00480\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (b[l\ +\ j\ *\ b\_dim1]\ !=\ 0.f)\ \{}
\DoxyCodeLine{00481\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ =\ *alpha\ *\ b[l\ +\ j\ *\ b\_dim1];}
\DoxyCodeLine{00482\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_3\ =\ *m;}
\DoxyCodeLine{00483\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_3;\ ++i\_\_)\ \{}
\DoxyCodeLine{00484\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ +=\ temp\ *\ a[i\_\_\ +\ l\ *}
\DoxyCodeLine{00485\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ a\_dim1];}
\DoxyCodeLine{00486\ \textcolor{comment}{/*\ L70:\ */}}
\DoxyCodeLine{00487\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00488\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00489\ \textcolor{comment}{/*\ L80:\ */}}
\DoxyCodeLine{00490\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00491\ \textcolor{comment}{/*\ L90:\ */}}
\DoxyCodeLine{00492\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00493\ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{00494\ }
\DoxyCodeLine{00495\ \textcolor{comment}{/*\ \ \ \ \ \ \ \ \ \ \ Form\ \ C\ :=\ alpha*A'*B\ +\ beta*C\ */}}
\DoxyCodeLine{00496\ }
\DoxyCodeLine{00497\ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{00498\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{00499\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{00500\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{00501\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ =\ 0.f;}
\DoxyCodeLine{00502\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_3\ =\ *k;}
\DoxyCodeLine{00503\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (l\ =\ 1;\ l\ <=\ i\_\_3;\ ++l)\ \{}
\DoxyCodeLine{00504\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ +=\ a[l\ +\ i\_\_\ *\ a\_dim1]\ *\ b[l\ +\ j\ *\ b\_dim1];}
\DoxyCodeLine{00505\ \textcolor{comment}{/*\ L100:\ */}}
\DoxyCodeLine{00506\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00507\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (*beta\ ==\ 0.f)\ \{}
\DoxyCodeLine{00508\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ *alpha\ *\ temp;}
\DoxyCodeLine{00509\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{00510\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ *alpha\ *\ temp\ +\ *beta\ *\ c\_\_[}
\DoxyCodeLine{00511\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_\ +\ j\ *\ c\_dim1];}
\DoxyCodeLine{00512\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00513\ \textcolor{comment}{/*\ L110:\ */}}
\DoxyCodeLine{00514\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00515\ \textcolor{comment}{/*\ L120:\ */}}
\DoxyCodeLine{00516\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00517\ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00518\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{00519\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (nota)\ \{}
\DoxyCodeLine{00520\ }
\DoxyCodeLine{00521\ \textcolor{comment}{/*\ \ \ \ \ \ \ \ \ \ \ Form\ \ C\ :=\ alpha*A*B'\ +\ beta*C\ */}}
\DoxyCodeLine{00522\ }
\DoxyCodeLine{00523\ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{00524\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{00525\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (*beta\ ==\ 0.f)\ \{}
\DoxyCodeLine{00526\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{00527\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{00528\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ 0.f;}
\DoxyCodeLine{00529\ \textcolor{comment}{/*\ L130:\ */}}
\DoxyCodeLine{00530\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00531\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (*beta\ !=\ 1.f)\ \{}
\DoxyCodeLine{00532\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{00533\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{00534\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ *beta\ *\ c\_\_[i\_\_\ +\ j\ *\ c\_dim1];}
\DoxyCodeLine{00535\ \textcolor{comment}{/*\ L140:\ */}}
\DoxyCodeLine{00536\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00537\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00538\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *k;}
\DoxyCodeLine{00539\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (l\ =\ 1;\ l\ <=\ i\_\_2;\ ++l)\ \{}
\DoxyCodeLine{00540\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (b[j\ +\ l\ *\ b\_dim1]\ !=\ 0.f)\ \{}
\DoxyCodeLine{00541\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ =\ *alpha\ *\ b[j\ +\ l\ *\ b\_dim1];}
\DoxyCodeLine{00542\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_3\ =\ *m;}
\DoxyCodeLine{00543\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_3;\ ++i\_\_)\ \{}
\DoxyCodeLine{00544\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ +=\ temp\ *\ a[i\_\_\ +\ l\ *}
\DoxyCodeLine{00545\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ a\_dim1];}
\DoxyCodeLine{00546\ \textcolor{comment}{/*\ L150:\ */}}
\DoxyCodeLine{00547\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00548\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00549\ \textcolor{comment}{/*\ L160:\ */}}
\DoxyCodeLine{00550\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00551\ \textcolor{comment}{/*\ L170:\ */}}
\DoxyCodeLine{00552\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00553\ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{00554\ }
\DoxyCodeLine{00555\ \textcolor{comment}{/*\ \ \ \ \ \ \ \ \ \ \ Form\ \ C\ :=\ alpha*A'*B'\ +\ beta*C\ */}}
\DoxyCodeLine{00556\ }
\DoxyCodeLine{00557\ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{00558\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{00559\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{00560\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{00561\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ =\ 0.f;}
\DoxyCodeLine{00562\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_3\ =\ *k;}
\DoxyCodeLine{00563\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (l\ =\ 1;\ l\ <=\ i\_\_3;\ ++l)\ \{}
\DoxyCodeLine{00564\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ +=\ a[l\ +\ i\_\_\ *\ a\_dim1]\ *\ b[j\ +\ l\ *\ b\_dim1];}
\DoxyCodeLine{00565\ \textcolor{comment}{/*\ L180:\ */}}
\DoxyCodeLine{00566\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00567\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (*beta\ ==\ 0.f)\ \{}
\DoxyCodeLine{00568\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ *alpha\ *\ temp;}
\DoxyCodeLine{00569\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{00570\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ *alpha\ *\ temp\ +\ *beta\ *\ c\_\_[}
\DoxyCodeLine{00571\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_\ +\ j\ *\ c\_dim1];}
\DoxyCodeLine{00572\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00573\ \textcolor{comment}{/*\ L190:\ */}}
\DoxyCodeLine{00574\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00575\ \textcolor{comment}{/*\ L200:\ */}}
\DoxyCodeLine{00576\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00577\ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00578\ \ \ \ \ \}}
\DoxyCodeLine{00579\ }
\DoxyCodeLine{00580\ \ \ \ \ \textcolor{keywordflow}{return}\ 0;}
\DoxyCodeLine{00581\ }
\DoxyCodeLine{00582\ \textcolor{comment}{/*\ \ \ \ \ End\ of\ SGEMM\ .\ */}}
\DoxyCodeLine{00583\ }
\DoxyCodeLine{00584\ \}\ \textcolor{comment}{/*\ sgemm\_\ */}}
\DoxyCodeLine{00585\ }
\DoxyCodeLine{00586\ \textcolor{comment}{/*\ Subroutine\ */}\ \textcolor{keywordtype}{int}\ sgemv\_(\textcolor{keywordtype}{char}\ *trans,\ integer\ *m,\ integer\ *n,\ real\ *alpha,}
\DoxyCodeLine{00587\ \ \ \ \ \ \ \ \ real\ *a,\ integer\ *lda,\ real\ *x,\ integer\ *incx,\ real\ *beta,\ real\ *y,}
\DoxyCodeLine{00588\ \ \ \ \ \ \ \ \ integer\ *incy)}
\DoxyCodeLine{00589\ \{}
\DoxyCodeLine{00590\ \ \ \ \ \textcolor{comment}{/*\ System\ generated\ locals\ */}}
\DoxyCodeLine{00591\ \ \ \ \ integer\ a\_dim1,\ a\_offset,\ i\_\_1,\ i\_\_2;}
\DoxyCodeLine{00592\ }
\DoxyCodeLine{00593\ \ \ \ \ \textcolor{comment}{/*\ Local\ variables\ */}}
\DoxyCodeLine{00594\ \ \ \ \ \textcolor{keyword}{static}\ integer\ i\_\_,\ j,\ ix,\ iy,\ jx,\ jy,\ kx,\ ky,\ info;}
\DoxyCodeLine{00595\ \ \ \ \ \textcolor{keyword}{static}\ real\ temp;}
\DoxyCodeLine{00596\ \ \ \ \ \textcolor{keyword}{static}\ integer\ lenx,\ leny;}
\DoxyCodeLine{00597\ \ \ \ \ \textcolor{keyword}{extern}\ logical\ lsame\_(\textcolor{keywordtype}{char}\ *,\ \textcolor{keywordtype}{char}\ *);}
\DoxyCodeLine{00598\ \ \ \ \ \textcolor{keyword}{extern}\ \textcolor{comment}{/*\ Subroutine\ */}\ \textcolor{keywordtype}{int}\ xerbla\_(\textcolor{keywordtype}{char}\ *,\ integer\ *);}
\DoxyCodeLine{00599\ }
\DoxyCodeLine{00600\ }
\DoxyCodeLine{00601\ \textcolor{comment}{/*}}
\DoxyCodeLine{00602\ \textcolor{comment}{\ \ \ \ Purpose}}
\DoxyCodeLine{00603\ \textcolor{comment}{\ \ \ \ =======}}
\DoxyCodeLine{00604\ \textcolor{comment}{}}
\DoxyCodeLine{00605\ \textcolor{comment}{\ \ \ \ SGEMV\ \ performs\ one\ of\ the\ matrix-\/vector\ operations}}
\DoxyCodeLine{00606\ \textcolor{comment}{}}
\DoxyCodeLine{00607\ \textcolor{comment}{\ \ \ \ \ \ \ y\ :=\ alpha*A*x\ +\ beta*y,\ \ \ or\ \ \ y\ :=\ alpha*A'*x\ +\ beta*y,}}
\DoxyCodeLine{00608\ \textcolor{comment}{}}
\DoxyCodeLine{00609\ \textcolor{comment}{\ \ \ \ where\ alpha\ and\ beta\ are\ scalars,\ x\ and\ y\ are\ vectors\ and\ A\ is\ an}}
\DoxyCodeLine{00610\ \textcolor{comment}{\ \ \ \ m\ by\ n\ matrix.}}
\DoxyCodeLine{00611\ \textcolor{comment}{}}
\DoxyCodeLine{00612\ \textcolor{comment}{\ \ \ \ Parameters}}
\DoxyCodeLine{00613\ \textcolor{comment}{\ \ \ \ ==========}}
\DoxyCodeLine{00614\ \textcolor{comment}{}}
\DoxyCodeLine{00615\ \textcolor{comment}{\ \ \ \ TRANS\ \ -\/\ CHARACTER*1.}}
\DoxyCodeLine{00616\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ TRANS\ specifies\ the\ operation\ to\ be\ performed\ as}}
\DoxyCodeLine{00617\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ follows:}}
\DoxyCodeLine{00618\ \textcolor{comment}{}}
\DoxyCodeLine{00619\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ TRANS\ =\ 'N'\ or\ 'n'\ \ \ y\ :=\ alpha*A*x\ +\ beta*y.}}
\DoxyCodeLine{00620\ \textcolor{comment}{}}
\DoxyCodeLine{00621\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ TRANS\ =\ 'T'\ or\ 't'\ \ \ y\ :=\ alpha*A'*x\ +\ beta*y.}}
\DoxyCodeLine{00622\ \textcolor{comment}{}}
\DoxyCodeLine{00623\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ TRANS\ =\ 'C'\ or\ 'c'\ \ \ y\ :=\ alpha*A'*x\ +\ beta*y.}}
\DoxyCodeLine{00624\ \textcolor{comment}{}}
\DoxyCodeLine{00625\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{00626\ \textcolor{comment}{}}
\DoxyCodeLine{00627\ \textcolor{comment}{\ \ \ \ M\ \ \ \ \ \ -\/\ INTEGER.}}
\DoxyCodeLine{00628\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ M\ specifies\ the\ number\ of\ rows\ of\ the\ matrix\ A.}}
\DoxyCodeLine{00629\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ M\ must\ be\ at\ least\ zero.}}
\DoxyCodeLine{00630\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{00631\ \textcolor{comment}{}}
\DoxyCodeLine{00632\ \textcolor{comment}{\ \ \ \ N\ \ \ \ \ \ -\/\ INTEGER.}}
\DoxyCodeLine{00633\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ N\ specifies\ the\ number\ of\ columns\ of\ the\ matrix\ A.}}
\DoxyCodeLine{00634\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ N\ must\ be\ at\ least\ zero.}}
\DoxyCodeLine{00635\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{00636\ \textcolor{comment}{}}
\DoxyCodeLine{00637\ \textcolor{comment}{\ \ \ \ ALPHA\ \ -\/\ REAL\ \ \ \ \ \ \ \ \ \ \ \ .}}
\DoxyCodeLine{00638\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ ALPHA\ specifies\ the\ scalar\ alpha.}}
\DoxyCodeLine{00639\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{00640\ \textcolor{comment}{}}
\DoxyCodeLine{00641\ \textcolor{comment}{\ \ \ \ A\ \ \ \ \ \ -\/\ REAL\ \ \ \ \ \ \ \ \ \ \ \ \ array\ of\ DIMENSION\ (\ LDA,\ n\ ).}}
\DoxyCodeLine{00642\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Before\ entry,\ the\ leading\ m\ by\ n\ part\ of\ the\ array\ A\ must}}
\DoxyCodeLine{00643\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ contain\ the\ matrix\ of\ coefficients.}}
\DoxyCodeLine{00644\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{00645\ \textcolor{comment}{}}
\DoxyCodeLine{00646\ \textcolor{comment}{\ \ \ \ LDA\ \ \ \ -\/\ INTEGER.}}
\DoxyCodeLine{00647\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ LDA\ specifies\ the\ first\ dimension\ of\ A\ as\ declared}}
\DoxyCodeLine{00648\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ in\ the\ calling\ (sub)\ program.\ LDA\ must\ be\ at\ least}}
\DoxyCodeLine{00649\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ max(\ 1,\ m\ ).}}
\DoxyCodeLine{00650\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{00651\ \textcolor{comment}{}}
\DoxyCodeLine{00652\ \textcolor{comment}{\ \ \ \ X\ \ \ \ \ \ -\/\ REAL\ \ \ \ \ \ \ \ \ \ \ \ \ array\ of\ DIMENSION\ at\ least}}
\DoxyCodeLine{00653\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ (\ 1\ +\ (\ n\ -\/\ 1\ )*abs(\ INCX\ )\ )\ when\ TRANS\ =\ 'N'\ or\ 'n'}}
\DoxyCodeLine{00654\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ and\ at\ least}}
\DoxyCodeLine{00655\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ (\ 1\ +\ (\ m\ -\/\ 1\ )*abs(\ INCX\ )\ )\ otherwise.}}
\DoxyCodeLine{00656\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Before\ entry,\ the\ incremented\ array\ X\ must\ contain\ the}}
\DoxyCodeLine{00657\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ vector\ x.}}
\DoxyCodeLine{00658\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{00659\ \textcolor{comment}{}}
\DoxyCodeLine{00660\ \textcolor{comment}{\ \ \ \ INCX\ \ \ -\/\ INTEGER.}}
\DoxyCodeLine{00661\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ INCX\ specifies\ the\ increment\ for\ the\ elements\ of}}
\DoxyCodeLine{00662\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ X.\ INCX\ must\ not\ be\ zero.}}
\DoxyCodeLine{00663\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{00664\ \textcolor{comment}{}}
\DoxyCodeLine{00665\ \textcolor{comment}{\ \ \ \ BETA\ \ \ -\/\ REAL\ \ \ \ \ \ \ \ \ \ \ \ .}}
\DoxyCodeLine{00666\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ BETA\ specifies\ the\ scalar\ beta.\ When\ BETA\ is}}
\DoxyCodeLine{00667\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ supplied\ as\ zero\ then\ Y\ need\ not\ be\ set\ on\ input.}}
\DoxyCodeLine{00668\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{00669\ \textcolor{comment}{}}
\DoxyCodeLine{00670\ \textcolor{comment}{\ \ \ \ Y\ \ \ \ \ \ -\/\ REAL\ \ \ \ \ \ \ \ \ \ \ \ \ array\ of\ DIMENSION\ at\ least}}
\DoxyCodeLine{00671\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ (\ 1\ +\ (\ m\ -\/\ 1\ )*abs(\ INCY\ )\ )\ when\ TRANS\ =\ 'N'\ or\ 'n'}}
\DoxyCodeLine{00672\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ and\ at\ least}}
\DoxyCodeLine{00673\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ (\ 1\ +\ (\ n\ -\/\ 1\ )*abs(\ INCY\ )\ )\ otherwise.}}
\DoxyCodeLine{00674\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Before\ entry\ with\ BETA\ non-\/zero,\ the\ incremented\ array\ Y}}
\DoxyCodeLine{00675\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ must\ contain\ the\ vector\ y.\ On\ exit,\ Y\ is\ overwritten\ by\ the}}
\DoxyCodeLine{00676\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ updated\ vector\ y.}}
\DoxyCodeLine{00677\ \textcolor{comment}{}}
\DoxyCodeLine{00678\ \textcolor{comment}{\ \ \ \ INCY\ \ \ -\/\ INTEGER.}}
\DoxyCodeLine{00679\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ INCY\ specifies\ the\ increment\ for\ the\ elements\ of}}
\DoxyCodeLine{00680\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Y.\ INCY\ must\ not\ be\ zero.}}
\DoxyCodeLine{00681\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{00682\ \textcolor{comment}{}}
\DoxyCodeLine{00683\ \textcolor{comment}{}}
\DoxyCodeLine{00684\ \textcolor{comment}{\ \ \ \ Level\ 2\ Blas\ routine.}}
\DoxyCodeLine{00685\ \textcolor{comment}{}}
\DoxyCodeLine{00686\ \textcolor{comment}{\ \ \ \ -\/-\/\ Written\ on\ 22-\/October-\/1986.}}
\DoxyCodeLine{00687\ \textcolor{comment}{\ \ \ \ \ \ \ Jack\ Dongarra,\ Argonne\ National\ Lab.}}
\DoxyCodeLine{00688\ \textcolor{comment}{\ \ \ \ \ \ \ Jeremy\ Du\ Croz,\ Nag\ Central\ Office.}}
\DoxyCodeLine{00689\ \textcolor{comment}{\ \ \ \ \ \ \ Sven\ Hammarling,\ Nag\ Central\ Office.}}
\DoxyCodeLine{00690\ \textcolor{comment}{\ \ \ \ \ \ \ Richard\ Hanson,\ Sandia\ National\ Labs.}}
\DoxyCodeLine{00691\ \textcolor{comment}{}}
\DoxyCodeLine{00692\ \textcolor{comment}{}}
\DoxyCodeLine{00693\ \textcolor{comment}{\ \ \ \ \ \ \ Test\ the\ input\ parameters.}}
\DoxyCodeLine{00694\ \textcolor{comment}{*/}}
\DoxyCodeLine{00695\ }
\DoxyCodeLine{00696\ \ \ \ \ \textcolor{comment}{/*\ Parameter\ adjustments\ */}}
\DoxyCodeLine{00697\ \ \ \ \ a\_dim1\ =\ *lda;}
\DoxyCodeLine{00698\ \ \ \ \ a\_offset\ =\ 1\ +\ a\_dim1;}
\DoxyCodeLine{00699\ \ \ \ \ a\ -\/=\ a\_offset;}
\DoxyCodeLine{00700\ \ \ \ \ -\/-\/x;}
\DoxyCodeLine{00701\ \ \ \ \ -\/-\/y;}
\DoxyCodeLine{00702\ }
\DoxyCodeLine{00703\ \ \ \ \ \textcolor{comment}{/*\ Function\ Body\ */}}
\DoxyCodeLine{00704\ \ \ \ \ info\ =\ 0;}
\DoxyCodeLine{00705\ \ \ \ \ \textcolor{keywordflow}{if}\ (!\ lsame\_(trans,\ \textcolor{stringliteral}{"{}N"{}})\ \&\&\ !\ lsame\_(trans,\ \textcolor{stringliteral}{"{}T"{}})\ \&\&\ !\ lsame\_(trans,\ \textcolor{stringliteral}{"{}C"{}})}
\DoxyCodeLine{00706\ \ \ \ \ \ \ \ \ \ \ \ \ )\ \{}
\DoxyCodeLine{00707\ \ \ \ \ \ \ \ \ info\ =\ 1;}
\DoxyCodeLine{00708\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (*m\ <\ 0)\ \{}
\DoxyCodeLine{00709\ \ \ \ \ \ \ \ \ info\ =\ 2;}
\DoxyCodeLine{00710\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (*n\ <\ 0)\ \{}
\DoxyCodeLine{00711\ \ \ \ \ \ \ \ \ info\ =\ 3;}
\DoxyCodeLine{00712\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (*lda\ <\ max(1,*m))\ \{}
\DoxyCodeLine{00713\ \ \ \ \ \ \ \ \ info\ =\ 6;}
\DoxyCodeLine{00714\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (*incx\ ==\ 0)\ \{}
\DoxyCodeLine{00715\ \ \ \ \ \ \ \ \ info\ =\ 8;}
\DoxyCodeLine{00716\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (*incy\ ==\ 0)\ \{}
\DoxyCodeLine{00717\ \ \ \ \ \ \ \ \ info\ =\ 11;}
\DoxyCodeLine{00718\ \ \ \ \ \}}
\DoxyCodeLine{00719\ \ \ \ \ \textcolor{keywordflow}{if}\ (info\ !=\ 0)\ \{}
\DoxyCodeLine{00720\ \ \ \ \ \ \ \ \ xerbla\_(\textcolor{stringliteral}{"{}SGEMV\ "{}},\ \&info);}
\DoxyCodeLine{00721\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{return}\ 0;}
\DoxyCodeLine{00722\ \ \ \ \ \}}
\DoxyCodeLine{00723\ }
\DoxyCodeLine{00724\ \textcolor{comment}{/*\ \ \ \ \ Quick\ return\ if\ possible.\ */}}
\DoxyCodeLine{00725\ }
\DoxyCodeLine{00726\ \ \ \ \ \textcolor{keywordflow}{if}\ (*m\ ==\ 0\ ||\ *n\ ==\ 0\ ||\ *alpha\ ==\ 0.f\ \&\&\ *beta\ ==\ 1.f)\ \{}
\DoxyCodeLine{00727\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{return}\ 0;}
\DoxyCodeLine{00728\ \ \ \ \ \}}
\DoxyCodeLine{00729\ }
\DoxyCodeLine{00730\ \textcolor{comment}{/*}}
\DoxyCodeLine{00731\ \textcolor{comment}{\ \ \ \ \ \ \ Set\ \ LENX\ \ and\ \ LENY,\ the\ lengths\ of\ the\ vectors\ x\ and\ y,\ and\ set}}
\DoxyCodeLine{00732\ \textcolor{comment}{\ \ \ \ \ \ \ up\ the\ start\ points\ in\ \ X\ \ and\ \ Y.}}
\DoxyCodeLine{00733\ \textcolor{comment}{*/}}
\DoxyCodeLine{00734\ }
\DoxyCodeLine{00735\ \ \ \ \ \textcolor{keywordflow}{if}\ (lsame\_(trans,\ \textcolor{stringliteral}{"{}N"{}}))\ \{}
\DoxyCodeLine{00736\ \ \ \ \ \ \ \ \ lenx\ =\ *n;}
\DoxyCodeLine{00737\ \ \ \ \ \ \ \ \ leny\ =\ *m;}
\DoxyCodeLine{00738\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{00739\ \ \ \ \ \ \ \ \ lenx\ =\ *m;}
\DoxyCodeLine{00740\ \ \ \ \ \ \ \ \ leny\ =\ *n;}
\DoxyCodeLine{00741\ \ \ \ \ \}}
\DoxyCodeLine{00742\ \ \ \ \ \textcolor{keywordflow}{if}\ (*incx\ >\ 0)\ \{}
\DoxyCodeLine{00743\ \ \ \ \ \ \ \ \ kx\ =\ 1;}
\DoxyCodeLine{00744\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{00745\ \ \ \ \ \ \ \ \ kx\ =\ 1\ -\/\ (lenx\ -\/\ 1)\ *\ *incx;}
\DoxyCodeLine{00746\ \ \ \ \ \}}
\DoxyCodeLine{00747\ \ \ \ \ \textcolor{keywordflow}{if}\ (*incy\ >\ 0)\ \{}
\DoxyCodeLine{00748\ \ \ \ \ \ \ \ \ ky\ =\ 1;}
\DoxyCodeLine{00749\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{00750\ \ \ \ \ \ \ \ \ ky\ =\ 1\ -\/\ (leny\ -\/\ 1)\ *\ *incy;}
\DoxyCodeLine{00751\ \ \ \ \ \}}
\DoxyCodeLine{00752\ }
\DoxyCodeLine{00753\ \textcolor{comment}{/*}}
\DoxyCodeLine{00754\ \textcolor{comment}{\ \ \ \ \ \ \ Start\ the\ operations.\ In\ this\ version\ the\ elements\ of\ A\ are}}
\DoxyCodeLine{00755\ \textcolor{comment}{\ \ \ \ \ \ \ accessed\ sequentially\ with\ one\ pass\ through\ A.}}
\DoxyCodeLine{00756\ \textcolor{comment}{}}
\DoxyCodeLine{00757\ \textcolor{comment}{\ \ \ \ \ \ \ First\ form\ \ y\ :=\ beta*y.}}
\DoxyCodeLine{00758\ \textcolor{comment}{*/}}
\DoxyCodeLine{00759\ }
\DoxyCodeLine{00760\ \ \ \ \ \textcolor{keywordflow}{if}\ (*beta\ !=\ 1.f)\ \{}
\DoxyCodeLine{00761\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (*incy\ ==\ 1)\ \{}
\DoxyCodeLine{00762\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (*beta\ ==\ 0.f)\ \{}
\DoxyCodeLine{00763\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ leny;}
\DoxyCodeLine{00764\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_1;\ ++i\_\_)\ \{}
\DoxyCodeLine{00765\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ y[i\_\_]\ =\ 0.f;}
\DoxyCodeLine{00766\ \textcolor{comment}{/*\ L10:\ */}}
\DoxyCodeLine{00767\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00768\ \ \ \ \ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{00769\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ leny;}
\DoxyCodeLine{00770\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_1;\ ++i\_\_)\ \{}
\DoxyCodeLine{00771\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ y[i\_\_]\ =\ *beta\ *\ y[i\_\_];}
\DoxyCodeLine{00772\ \textcolor{comment}{/*\ L20:\ */}}
\DoxyCodeLine{00773\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00774\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00775\ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{00776\ \ \ \ \ \ \ \ \ \ \ \ \ iy\ =\ ky;}
\DoxyCodeLine{00777\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (*beta\ ==\ 0.f)\ \{}
\DoxyCodeLine{00778\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ leny;}
\DoxyCodeLine{00779\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_1;\ ++i\_\_)\ \{}
\DoxyCodeLine{00780\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ y[iy]\ =\ 0.f;}
\DoxyCodeLine{00781\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ iy\ +=\ *incy;}
\DoxyCodeLine{00782\ \textcolor{comment}{/*\ L30:\ */}}
\DoxyCodeLine{00783\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00784\ \ \ \ \ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{00785\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ leny;}
\DoxyCodeLine{00786\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_1;\ ++i\_\_)\ \{}
\DoxyCodeLine{00787\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ y[iy]\ =\ *beta\ *\ y[iy];}
\DoxyCodeLine{00788\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ iy\ +=\ *incy;}
\DoxyCodeLine{00789\ \textcolor{comment}{/*\ L40:\ */}}
\DoxyCodeLine{00790\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00791\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00792\ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00793\ \ \ \ \ \}}
\DoxyCodeLine{00794\ \ \ \ \ \textcolor{keywordflow}{if}\ (*alpha\ ==\ 0.f)\ \{}
\DoxyCodeLine{00795\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{return}\ 0;}
\DoxyCodeLine{00796\ \ \ \ \ \}}
\DoxyCodeLine{00797\ \ \ \ \ \textcolor{keywordflow}{if}\ (lsame\_(trans,\ \textcolor{stringliteral}{"{}N"{}}))\ \{}
\DoxyCodeLine{00798\ }
\DoxyCodeLine{00799\ \textcolor{comment}{/*\ \ \ \ \ \ \ \ Form\ \ y\ :=\ alpha*A*x\ +\ y.\ */}}
\DoxyCodeLine{00800\ }
\DoxyCodeLine{00801\ \ \ \ \ \ \ \ \ jx\ =\ kx;}
\DoxyCodeLine{00802\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (*incy\ ==\ 1)\ \{}
\DoxyCodeLine{00803\ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{00804\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{00805\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (x[jx]\ !=\ 0.f)\ \{}
\DoxyCodeLine{00806\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ =\ *alpha\ *\ x[jx];}
\DoxyCodeLine{00807\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{00808\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{00809\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ y[i\_\_]\ +=\ temp\ *\ a[i\_\_\ +\ j\ *\ a\_dim1];}
\DoxyCodeLine{00810\ \textcolor{comment}{/*\ L50:\ */}}
\DoxyCodeLine{00811\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00812\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00813\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ jx\ +=\ *incx;}
\DoxyCodeLine{00814\ \textcolor{comment}{/*\ L60:\ */}}
\DoxyCodeLine{00815\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00816\ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{00817\ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{00818\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{00819\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (x[jx]\ !=\ 0.f)\ \{}
\DoxyCodeLine{00820\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ =\ *alpha\ *\ x[jx];}
\DoxyCodeLine{00821\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ iy\ =\ ky;}
\DoxyCodeLine{00822\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{00823\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{00824\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ y[iy]\ +=\ temp\ *\ a[i\_\_\ +\ j\ *\ a\_dim1];}
\DoxyCodeLine{00825\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ iy\ +=\ *incy;}
\DoxyCodeLine{00826\ \textcolor{comment}{/*\ L70:\ */}}
\DoxyCodeLine{00827\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00828\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00829\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ jx\ +=\ *incx;}
\DoxyCodeLine{00830\ \textcolor{comment}{/*\ L80:\ */}}
\DoxyCodeLine{00831\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00832\ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00833\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{00834\ }
\DoxyCodeLine{00835\ \textcolor{comment}{/*\ \ \ \ \ \ \ \ Form\ \ y\ :=\ alpha*A'*x\ +\ y.\ */}}
\DoxyCodeLine{00836\ }
\DoxyCodeLine{00837\ \ \ \ \ \ \ \ \ jy\ =\ ky;}
\DoxyCodeLine{00838\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (*incx\ ==\ 1)\ \{}
\DoxyCodeLine{00839\ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{00840\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{00841\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ =\ 0.f;}
\DoxyCodeLine{00842\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{00843\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{00844\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ +=\ a[i\_\_\ +\ j\ *\ a\_dim1]\ *\ x[i\_\_];}
\DoxyCodeLine{00845\ \textcolor{comment}{/*\ L90:\ */}}
\DoxyCodeLine{00846\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00847\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ y[jy]\ +=\ *alpha\ *\ temp;}
\DoxyCodeLine{00848\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ jy\ +=\ *incy;}
\DoxyCodeLine{00849\ \textcolor{comment}{/*\ L100:\ */}}
\DoxyCodeLine{00850\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00851\ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{00852\ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{00853\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{00854\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ =\ 0.f;}
\DoxyCodeLine{00855\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ ix\ =\ kx;}
\DoxyCodeLine{00856\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{00857\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{00858\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ +=\ a[i\_\_\ +\ j\ *\ a\_dim1]\ *\ x[ix];}
\DoxyCodeLine{00859\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ ix\ +=\ *incx;}
\DoxyCodeLine{00860\ \textcolor{comment}{/*\ L110:\ */}}
\DoxyCodeLine{00861\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00862\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ y[jy]\ +=\ *alpha\ *\ temp;}
\DoxyCodeLine{00863\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ jy\ +=\ *incy;}
\DoxyCodeLine{00864\ \textcolor{comment}{/*\ L120:\ */}}
\DoxyCodeLine{00865\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00866\ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{00867\ \ \ \ \ \}}
\DoxyCodeLine{00868\ }
\DoxyCodeLine{00869\ \ \ \ \ \textcolor{keywordflow}{return}\ 0;}
\DoxyCodeLine{00870\ }
\DoxyCodeLine{00871\ \textcolor{comment}{/*\ \ \ \ \ End\ of\ SGEMV\ .\ */}}
\DoxyCodeLine{00872\ }
\DoxyCodeLine{00873\ \}\ \textcolor{comment}{/*\ sgemv\_\ */}}
\DoxyCodeLine{00874\ }
\DoxyCodeLine{00875\ \textcolor{comment}{/*\ Subroutine\ */}\ \textcolor{keywordtype}{int}\ sscal\_(integer\ *n,\ real\ *sa,\ real\ *sx,\ integer\ *incx)}
\DoxyCodeLine{00876\ \{}
\DoxyCodeLine{00877\ \ \ \ \ \textcolor{comment}{/*\ System\ generated\ locals\ */}}
\DoxyCodeLine{00878\ \ \ \ \ integer\ i\_\_1,\ i\_\_2;}
\DoxyCodeLine{00879\ }
\DoxyCodeLine{00880\ \ \ \ \ \textcolor{comment}{/*\ Local\ variables\ */}}
\DoxyCodeLine{00881\ \ \ \ \ \textcolor{keyword}{static}\ integer\ i\_\_,\ m,\ mp1,\ nincx;}
\DoxyCodeLine{00882\ }
\DoxyCodeLine{00883\ }
\DoxyCodeLine{00884\ \textcolor{comment}{/*}}
\DoxyCodeLine{00885\ \textcolor{comment}{\ \ \ \ \ \ \ scales\ a\ vector\ by\ a\ constant.}}
\DoxyCodeLine{00886\ \textcolor{comment}{\ \ \ \ \ \ \ uses\ unrolled\ loops\ for\ increment\ equal\ to\ 1.}}
\DoxyCodeLine{00887\ \textcolor{comment}{\ \ \ \ \ \ \ jack\ dongarra,\ linpack,\ 3/11/78.}}
\DoxyCodeLine{00888\ \textcolor{comment}{\ \ \ \ \ \ \ modified\ 3/93\ to\ return\ if\ incx\ .le.\ 0.}}
\DoxyCodeLine{00889\ \textcolor{comment}{\ \ \ \ \ \ \ modified\ 12/3/93,\ array(1)\ declarations\ changed\ to\ array(*)}}
\DoxyCodeLine{00890\ \textcolor{comment}{*/}}
\DoxyCodeLine{00891\ }
\DoxyCodeLine{00892\ }
\DoxyCodeLine{00893\ \ \ \ \ \textcolor{comment}{/*\ Parameter\ adjustments\ */}}
\DoxyCodeLine{00894\ \ \ \ \ -\/-\/sx;}
\DoxyCodeLine{00895\ }
\DoxyCodeLine{00896\ \ \ \ \ \textcolor{comment}{/*\ Function\ Body\ */}}
\DoxyCodeLine{00897\ \ \ \ \ \textcolor{keywordflow}{if}\ (*n\ <=\ 0\ ||\ *incx\ <=\ 0)\ \{}
\DoxyCodeLine{00898\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{return}\ 0;}
\DoxyCodeLine{00899\ \ \ \ \ \}}
\DoxyCodeLine{00900\ \ \ \ \ \textcolor{keywordflow}{if}\ (*incx\ ==\ 1)\ \{}
\DoxyCodeLine{00901\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{goto}\ L20;}
\DoxyCodeLine{00902\ \ \ \ \ \}}
\DoxyCodeLine{00903\ }
\DoxyCodeLine{00904\ \textcolor{comment}{/*\ \ \ \ \ \ \ \ code\ for\ increment\ not\ equal\ to\ 1\ */}}
\DoxyCodeLine{00905\ }
\DoxyCodeLine{00906\ \ \ \ \ nincx\ =\ *n\ *\ *incx;}
\DoxyCodeLine{00907\ \ \ \ \ i\_\_1\ =\ nincx;}
\DoxyCodeLine{00908\ \ \ \ \ i\_\_2\ =\ *incx;}
\DoxyCodeLine{00909\ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_2\ <\ 0\ ?\ i\_\_\ >=\ i\_\_1\ :\ i\_\_\ <=\ i\_\_1;\ i\_\_\ +=\ i\_\_2)\ \{}
\DoxyCodeLine{00910\ \ \ \ \ \ \ \ \ sx[i\_\_]\ =\ *sa\ *\ sx[i\_\_];}
\DoxyCodeLine{00911\ \textcolor{comment}{/*\ L10:\ */}}
\DoxyCodeLine{00912\ \ \ \ \ \}}
\DoxyCodeLine{00913\ \ \ \ \ \textcolor{keywordflow}{return}\ 0;}
\DoxyCodeLine{00914\ }
\DoxyCodeLine{00915\ \textcolor{comment}{/*}}
\DoxyCodeLine{00916\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ code\ for\ increment\ equal\ to\ 1}}
\DoxyCodeLine{00917\ \textcolor{comment}{}}
\DoxyCodeLine{00918\ \textcolor{comment}{}}
\DoxyCodeLine{00919\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ clean-\/up\ loop}}
\DoxyCodeLine{00920\ \textcolor{comment}{*/}}
\DoxyCodeLine{00921\ }
\DoxyCodeLine{00922\ L20:}
\DoxyCodeLine{00923\ \ \ \ \ m\ =\ *n\ \%\ 5;}
\DoxyCodeLine{00924\ \ \ \ \ \textcolor{keywordflow}{if}\ (m\ ==\ 0)\ \{}
\DoxyCodeLine{00925\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{goto}\ L40;}
\DoxyCodeLine{00926\ \ \ \ \ \}}
\DoxyCodeLine{00927\ \ \ \ \ i\_\_2\ =\ m;}
\DoxyCodeLine{00928\ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{00929\ \ \ \ \ \ \ \ \ sx[i\_\_]\ =\ *sa\ *\ sx[i\_\_];}
\DoxyCodeLine{00930\ \textcolor{comment}{/*\ L30:\ */}}
\DoxyCodeLine{00931\ \ \ \ \ \}}
\DoxyCodeLine{00932\ \ \ \ \ \textcolor{keywordflow}{if}\ (*n\ <\ 5)\ \{}
\DoxyCodeLine{00933\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{return}\ 0;}
\DoxyCodeLine{00934\ \ \ \ \ \}}
\DoxyCodeLine{00935\ L40:}
\DoxyCodeLine{00936\ \ \ \ \ mp1\ =\ m\ +\ 1;}
\DoxyCodeLine{00937\ \ \ \ \ i\_\_2\ =\ *n;}
\DoxyCodeLine{00938\ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ mp1;\ i\_\_\ <=\ i\_\_2;\ i\_\_\ +=\ 5)\ \{}
\DoxyCodeLine{00939\ \ \ \ \ \ \ \ \ sx[i\_\_]\ =\ *sa\ *\ sx[i\_\_];}
\DoxyCodeLine{00940\ \ \ \ \ \ \ \ \ sx[i\_\_\ +\ 1]\ =\ *sa\ *\ sx[i\_\_\ +\ 1];}
\DoxyCodeLine{00941\ \ \ \ \ \ \ \ \ sx[i\_\_\ +\ 2]\ =\ *sa\ *\ sx[i\_\_\ +\ 2];}
\DoxyCodeLine{00942\ \ \ \ \ \ \ \ \ sx[i\_\_\ +\ 3]\ =\ *sa\ *\ sx[i\_\_\ +\ 3];}
\DoxyCodeLine{00943\ \ \ \ \ \ \ \ \ sx[i\_\_\ +\ 4]\ =\ *sa\ *\ sx[i\_\_\ +\ 4];}
\DoxyCodeLine{00944\ \textcolor{comment}{/*\ L50:\ */}}
\DoxyCodeLine{00945\ \ \ \ \ \}}
\DoxyCodeLine{00946\ \ \ \ \ \textcolor{keywordflow}{return}\ 0;}
\DoxyCodeLine{00947\ \}\ \textcolor{comment}{/*\ sscal\_\ */}}
\DoxyCodeLine{00948\ }
\DoxyCodeLine{00949\ \textcolor{comment}{/*\ Subroutine\ */}\ \textcolor{keywordtype}{int}\ ssymm\_(\textcolor{keywordtype}{char}\ *side,\ \textcolor{keywordtype}{char}\ *uplo,\ integer\ *m,\ integer\ *n,}
\DoxyCodeLine{00950\ \ \ \ \ \ \ \ \ real\ *alpha,\ real\ *a,\ integer\ *lda,\ real\ *b,\ integer\ *ldb,\ real\ *beta,}
\DoxyCodeLine{00951\ \ \ \ \ \ \ \ \ \ real\ *c\_\_,\ integer\ *ldc)}
\DoxyCodeLine{00952\ \{}
\DoxyCodeLine{00953\ \ \ \ \ \textcolor{comment}{/*\ System\ generated\ locals\ */}}
\DoxyCodeLine{00954\ \ \ \ \ integer\ a\_dim1,\ a\_offset,\ b\_dim1,\ b\_offset,\ c\_dim1,\ c\_offset,\ i\_\_1,\ i\_\_2,}
\DoxyCodeLine{00955\ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_3;}
\DoxyCodeLine{00956\ }
\DoxyCodeLine{00957\ \ \ \ \ \textcolor{comment}{/*\ Local\ variables\ */}}
\DoxyCodeLine{00958\ \ \ \ \ \textcolor{keyword}{static}\ integer\ i\_\_,\ j,\ k,\ info;}
\DoxyCodeLine{00959\ \ \ \ \ \textcolor{keyword}{static}\ real\ temp1,\ temp2;}
\DoxyCodeLine{00960\ \ \ \ \ \textcolor{keyword}{extern}\ logical\ lsame\_(\textcolor{keywordtype}{char}\ *,\ \textcolor{keywordtype}{char}\ *);}
\DoxyCodeLine{00961\ \ \ \ \ \textcolor{keyword}{static}\ integer\ nrowa;}
\DoxyCodeLine{00962\ \ \ \ \ \textcolor{keyword}{static}\ logical\ upper;}
\DoxyCodeLine{00963\ \ \ \ \ \textcolor{keyword}{extern}\ \textcolor{comment}{/*\ Subroutine\ */}\ \textcolor{keywordtype}{int}\ xerbla\_(\textcolor{keywordtype}{char}\ *,\ integer\ *);}
\DoxyCodeLine{00964\ }
\DoxyCodeLine{00965\ }
\DoxyCodeLine{00966\ \textcolor{comment}{/*}}
\DoxyCodeLine{00967\ \textcolor{comment}{\ \ \ \ Purpose}}
\DoxyCodeLine{00968\ \textcolor{comment}{\ \ \ \ =======}}
\DoxyCodeLine{00969\ \textcolor{comment}{}}
\DoxyCodeLine{00970\ \textcolor{comment}{\ \ \ \ SSYMM\ \ performs\ one\ of\ the\ matrix-\/matrix\ operations}}
\DoxyCodeLine{00971\ \textcolor{comment}{}}
\DoxyCodeLine{00972\ \textcolor{comment}{\ \ \ \ \ \ \ C\ :=\ alpha*A*B\ +\ beta*C,}}
\DoxyCodeLine{00973\ \textcolor{comment}{}}
\DoxyCodeLine{00974\ \textcolor{comment}{\ \ \ \ or}}
\DoxyCodeLine{00975\ \textcolor{comment}{}}
\DoxyCodeLine{00976\ \textcolor{comment}{\ \ \ \ \ \ \ C\ :=\ alpha*B*A\ +\ beta*C,}}
\DoxyCodeLine{00977\ \textcolor{comment}{}}
\DoxyCodeLine{00978\ \textcolor{comment}{\ \ \ \ where\ alpha\ and\ beta\ are\ scalars,\ \ A\ is\ a\ symmetric\ matrix\ and\ \ B\ and}}
\DoxyCodeLine{00979\ \textcolor{comment}{\ \ \ \ C\ are\ \ m\ by\ n\ matrices.}}
\DoxyCodeLine{00980\ \textcolor{comment}{}}
\DoxyCodeLine{00981\ \textcolor{comment}{\ \ \ \ Parameters}}
\DoxyCodeLine{00982\ \textcolor{comment}{\ \ \ \ ==========}}
\DoxyCodeLine{00983\ \textcolor{comment}{}}
\DoxyCodeLine{00984\ \textcolor{comment}{\ \ \ \ SIDE\ \ \ -\/\ CHARACTER*1.}}
\DoxyCodeLine{00985\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ \ SIDE\ \ specifies\ whether\ \ the\ \ symmetric\ matrix\ \ A}}
\DoxyCodeLine{00986\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ appears\ on\ the\ \ left\ or\ right\ \ in\ the\ \ operation\ as\ follows:}}
\DoxyCodeLine{00987\ \textcolor{comment}{}}
\DoxyCodeLine{00988\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ SIDE\ =\ 'L'\ or\ 'l'\ \ \ C\ :=\ alpha*A*B\ +\ beta*C,}}
\DoxyCodeLine{00989\ \textcolor{comment}{}}
\DoxyCodeLine{00990\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ SIDE\ =\ 'R'\ or\ 'r'\ \ \ C\ :=\ alpha*B*A\ +\ beta*C,}}
\DoxyCodeLine{00991\ \textcolor{comment}{}}
\DoxyCodeLine{00992\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{00993\ \textcolor{comment}{}}
\DoxyCodeLine{00994\ \textcolor{comment}{\ \ \ \ UPLO\ \ \ -\/\ CHARACTER*1.}}
\DoxyCodeLine{00995\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ \ entry,\ \ \ UPLO\ \ specifies\ \ whether\ \ the\ \ upper\ \ or\ \ lower}}
\DoxyCodeLine{00996\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ triangular\ \ part\ \ of\ \ the\ \ symmetric\ \ matrix\ \ \ A\ \ is\ \ to\ \ be}}
\DoxyCodeLine{00997\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ referenced\ as\ follows:}}
\DoxyCodeLine{00998\ \textcolor{comment}{}}
\DoxyCodeLine{00999\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ UPLO\ =\ 'U'\ or\ 'u'\ \ \ Only\ the\ upper\ triangular\ part\ of\ the}}
\DoxyCodeLine{01000\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ symmetric\ matrix\ is\ to\ be\ referenced.}}
\DoxyCodeLine{01001\ \textcolor{comment}{}}
\DoxyCodeLine{01002\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ UPLO\ =\ 'L'\ or\ 'l'\ \ \ Only\ the\ lower\ triangular\ part\ of\ the}}
\DoxyCodeLine{01003\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ symmetric\ matrix\ is\ to\ be\ referenced.}}
\DoxyCodeLine{01004\ \textcolor{comment}{}}
\DoxyCodeLine{01005\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01006\ \textcolor{comment}{}}
\DoxyCodeLine{01007\ \textcolor{comment}{\ \ \ \ M\ \ \ \ \ \ -\/\ INTEGER.}}
\DoxyCodeLine{01008\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ \ M\ \ specifies\ the\ number\ of\ rows\ of\ the\ matrix\ \ C.}}
\DoxyCodeLine{01009\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ M\ \ must\ be\ at\ least\ zero.}}
\DoxyCodeLine{01010\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01011\ \textcolor{comment}{}}
\DoxyCodeLine{01012\ \textcolor{comment}{\ \ \ \ N\ \ \ \ \ \ -\/\ INTEGER.}}
\DoxyCodeLine{01013\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ N\ specifies\ the\ number\ of\ columns\ of\ the\ matrix\ C.}}
\DoxyCodeLine{01014\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ N\ \ must\ be\ at\ least\ zero.}}
\DoxyCodeLine{01015\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01016\ \textcolor{comment}{}}
\DoxyCodeLine{01017\ \textcolor{comment}{\ \ \ \ ALPHA\ \ -\/\ REAL\ \ \ \ \ \ \ \ \ \ \ \ .}}
\DoxyCodeLine{01018\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ ALPHA\ specifies\ the\ scalar\ alpha.}}
\DoxyCodeLine{01019\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01020\ \textcolor{comment}{}}
\DoxyCodeLine{01021\ \textcolor{comment}{\ \ \ \ A\ \ \ \ \ \ -\/\ REAL\ \ \ \ \ \ \ \ \ \ \ \ \ array\ of\ DIMENSION\ (\ LDA,\ ka\ ),\ where\ ka\ is}}
\DoxyCodeLine{01022\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ m\ \ when\ \ SIDE\ =\ 'L'\ or\ 'l'\ \ and\ is\ \ n\ otherwise.}}
\DoxyCodeLine{01023\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Before\ entry\ \ with\ \ SIDE\ =\ 'L'\ or\ 'l',\ \ the\ \ m\ by\ m\ \ part\ of}}
\DoxyCodeLine{01024\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ the\ array\ \ A\ \ must\ contain\ the\ \ symmetric\ matrix,\ \ such\ that}}
\DoxyCodeLine{01025\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ when\ \ UPLO\ =\ 'U'\ or\ 'u',\ the\ leading\ m\ by\ m\ upper\ triangular}}
\DoxyCodeLine{01026\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ part\ of\ the\ array\ \ A\ \ must\ contain\ the\ upper\ triangular\ part}}
\DoxyCodeLine{01027\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ of\ the\ \ symmetric\ matrix\ and\ the\ \ strictly\ \ lower\ triangular}}
\DoxyCodeLine{01028\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ part\ of\ \ A\ \ is\ not\ referenced,\ \ and\ when\ \ UPLO\ =\ 'L'\ or\ 'l',}}
\DoxyCodeLine{01029\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ the\ leading\ \ m\ by\ m\ \ lower\ triangular\ part\ \ of\ the\ \ array\ \ A}}
\DoxyCodeLine{01030\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ must\ \ contain\ \ the\ \ lower\ triangular\ part\ \ of\ the\ \ symmetric}}
\DoxyCodeLine{01031\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ matrix\ and\ the\ \ strictly\ upper\ triangular\ part\ of\ \ A\ \ is\ not}}
\DoxyCodeLine{01032\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ referenced.}}
\DoxyCodeLine{01033\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Before\ entry\ \ with\ \ SIDE\ =\ 'R'\ or\ 'r',\ \ the\ \ n\ by\ n\ \ part\ of}}
\DoxyCodeLine{01034\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ the\ array\ \ A\ \ must\ contain\ the\ \ symmetric\ matrix,\ \ such\ that}}
\DoxyCodeLine{01035\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ when\ \ UPLO\ =\ 'U'\ or\ 'u',\ the\ leading\ n\ by\ n\ upper\ triangular}}
\DoxyCodeLine{01036\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ part\ of\ the\ array\ \ A\ \ must\ contain\ the\ upper\ triangular\ part}}
\DoxyCodeLine{01037\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ of\ the\ \ symmetric\ matrix\ and\ the\ \ strictly\ \ lower\ triangular}}
\DoxyCodeLine{01038\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ part\ of\ \ A\ \ is\ not\ referenced,\ \ and\ when\ \ UPLO\ =\ 'L'\ or\ 'l',}}
\DoxyCodeLine{01039\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ the\ leading\ \ n\ by\ n\ \ lower\ triangular\ part\ \ of\ the\ \ array\ \ A}}
\DoxyCodeLine{01040\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ must\ \ contain\ \ the\ \ lower\ triangular\ part\ \ of\ the\ \ symmetric}}
\DoxyCodeLine{01041\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ matrix\ and\ the\ \ strictly\ upper\ triangular\ part\ of\ \ A\ \ is\ not}}
\DoxyCodeLine{01042\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ referenced.}}
\DoxyCodeLine{01043\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01044\ \textcolor{comment}{}}
\DoxyCodeLine{01045\ \textcolor{comment}{\ \ \ \ LDA\ \ \ \ -\/\ INTEGER.}}
\DoxyCodeLine{01046\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ LDA\ specifies\ the\ first\ dimension\ of\ A\ as\ declared}}
\DoxyCodeLine{01047\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ in\ the\ calling\ (sub)\ program.\ \ When\ \ SIDE\ =\ 'L'\ or\ 'l'\ \ then}}
\DoxyCodeLine{01048\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ LDA\ must\ be\ at\ least\ \ max(\ 1,\ m\ ),\ otherwise\ \ LDA\ must\ be\ at}}
\DoxyCodeLine{01049\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ least\ \ max(\ 1,\ n\ ).}}
\DoxyCodeLine{01050\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01051\ \textcolor{comment}{}}
\DoxyCodeLine{01052\ \textcolor{comment}{\ \ \ \ B\ \ \ \ \ \ -\/\ REAL\ \ \ \ \ \ \ \ \ \ \ \ \ array\ of\ DIMENSION\ (\ LDB,\ n\ ).}}
\DoxyCodeLine{01053\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Before\ entry,\ the\ leading\ \ m\ by\ n\ part\ of\ the\ array\ \ B\ \ must}}
\DoxyCodeLine{01054\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ contain\ the\ matrix\ B.}}
\DoxyCodeLine{01055\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01056\ \textcolor{comment}{}}
\DoxyCodeLine{01057\ \textcolor{comment}{\ \ \ \ LDB\ \ \ \ -\/\ INTEGER.}}
\DoxyCodeLine{01058\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ LDB\ specifies\ the\ first\ dimension\ of\ B\ as\ declared}}
\DoxyCodeLine{01059\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ in\ \ the\ \ calling\ \ (sub)\ \ program.\ \ \ LDB\ \ must\ \ be\ \ at\ \ least}}
\DoxyCodeLine{01060\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ max(\ 1,\ m\ ).}}
\DoxyCodeLine{01061\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01062\ \textcolor{comment}{}}
\DoxyCodeLine{01063\ \textcolor{comment}{\ \ \ \ BETA\ \ \ -\/\ REAL\ \ \ \ \ \ \ \ \ \ \ \ .}}
\DoxyCodeLine{01064\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ \ BETA\ \ specifies\ the\ scalar\ \ beta.\ \ When\ \ BETA\ \ is}}
\DoxyCodeLine{01065\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ supplied\ as\ zero\ then\ C\ need\ not\ be\ set\ on\ input.}}
\DoxyCodeLine{01066\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01067\ \textcolor{comment}{}}
\DoxyCodeLine{01068\ \textcolor{comment}{\ \ \ \ C\ \ \ \ \ \ -\/\ REAL\ \ \ \ \ \ \ \ \ \ \ \ \ array\ of\ DIMENSION\ (\ LDC,\ n\ ).}}
\DoxyCodeLine{01069\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Before\ entry,\ the\ leading\ \ m\ by\ n\ \ part\ of\ the\ array\ \ C\ must}}
\DoxyCodeLine{01070\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ contain\ the\ matrix\ \ C,\ \ except\ when\ \ beta\ \ is\ zero,\ in\ which}}
\DoxyCodeLine{01071\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ case\ C\ need\ not\ be\ set\ on\ entry.}}
\DoxyCodeLine{01072\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ exit,\ the\ array\ \ C\ \ is\ overwritten\ by\ the\ \ m\ by\ n\ updated}}
\DoxyCodeLine{01073\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ matrix.}}
\DoxyCodeLine{01074\ \textcolor{comment}{}}
\DoxyCodeLine{01075\ \textcolor{comment}{\ \ \ \ LDC\ \ \ \ -\/\ INTEGER.}}
\DoxyCodeLine{01076\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ LDC\ specifies\ the\ first\ dimension\ of\ C\ as\ declared}}
\DoxyCodeLine{01077\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ in\ \ the\ \ calling\ \ (sub)\ \ program.\ \ \ LDC\ \ must\ \ be\ \ at\ \ least}}
\DoxyCodeLine{01078\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ max(\ 1,\ m\ ).}}
\DoxyCodeLine{01079\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01080\ \textcolor{comment}{}}
\DoxyCodeLine{01081\ \textcolor{comment}{}}
\DoxyCodeLine{01082\ \textcolor{comment}{\ \ \ \ Level\ 3\ Blas\ routine.}}
\DoxyCodeLine{01083\ \textcolor{comment}{}}
\DoxyCodeLine{01084\ \textcolor{comment}{\ \ \ \ -\/-\/\ Written\ on\ 8-\/February-\/1989.}}
\DoxyCodeLine{01085\ \textcolor{comment}{\ \ \ \ \ \ \ Jack\ Dongarra,\ Argonne\ National\ Laboratory.}}
\DoxyCodeLine{01086\ \textcolor{comment}{\ \ \ \ \ \ \ Iain\ Duff,\ AERE\ Harwell.}}
\DoxyCodeLine{01087\ \textcolor{comment}{\ \ \ \ \ \ \ Jeremy\ Du\ Croz,\ Numerical\ Algorithms\ Group\ Ltd.}}
\DoxyCodeLine{01088\ \textcolor{comment}{\ \ \ \ \ \ \ Sven\ Hammarling,\ Numerical\ Algorithms\ Group\ Ltd.}}
\DoxyCodeLine{01089\ \textcolor{comment}{}}
\DoxyCodeLine{01090\ \textcolor{comment}{}}
\DoxyCodeLine{01091\ \textcolor{comment}{\ \ \ \ \ \ \ Set\ NROWA\ as\ the\ number\ of\ rows\ of\ A.}}
\DoxyCodeLine{01092\ \textcolor{comment}{*/}}
\DoxyCodeLine{01093\ }
\DoxyCodeLine{01094\ \ \ \ \ \textcolor{comment}{/*\ Parameter\ adjustments\ */}}
\DoxyCodeLine{01095\ \ \ \ \ a\_dim1\ =\ *lda;}
\DoxyCodeLine{01096\ \ \ \ \ a\_offset\ =\ 1\ +\ a\_dim1;}
\DoxyCodeLine{01097\ \ \ \ \ a\ -\/=\ a\_offset;}
\DoxyCodeLine{01098\ \ \ \ \ b\_dim1\ =\ *ldb;}
\DoxyCodeLine{01099\ \ \ \ \ b\_offset\ =\ 1\ +\ b\_dim1;}
\DoxyCodeLine{01100\ \ \ \ \ b\ -\/=\ b\_offset;}
\DoxyCodeLine{01101\ \ \ \ \ c\_dim1\ =\ *ldc;}
\DoxyCodeLine{01102\ \ \ \ \ c\_offset\ =\ 1\ +\ c\_dim1;}
\DoxyCodeLine{01103\ \ \ \ \ c\_\_\ -\/=\ c\_offset;}
\DoxyCodeLine{01104\ }
\DoxyCodeLine{01105\ \ \ \ \ \textcolor{comment}{/*\ Function\ Body\ */}}
\DoxyCodeLine{01106\ \ \ \ \ \textcolor{keywordflow}{if}\ (lsame\_(side,\ \textcolor{stringliteral}{"{}L"{}}))\ \{}
\DoxyCodeLine{01107\ \ \ \ \ \ \ \ \ nrowa\ =\ *m;}
\DoxyCodeLine{01108\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{01109\ \ \ \ \ \ \ \ \ nrowa\ =\ *n;}
\DoxyCodeLine{01110\ \ \ \ \ \}}
\DoxyCodeLine{01111\ \ \ \ \ upper\ =\ lsame\_(uplo,\ \textcolor{stringliteral}{"{}U"{}});}
\DoxyCodeLine{01112\ }
\DoxyCodeLine{01113\ \textcolor{comment}{/*\ \ \ \ \ Test\ the\ input\ parameters.\ */}}
\DoxyCodeLine{01114\ }
\DoxyCodeLine{01115\ \ \ \ \ info\ =\ 0;}
\DoxyCodeLine{01116\ \ \ \ \ \textcolor{keywordflow}{if}\ (!\ lsame\_(side,\ \textcolor{stringliteral}{"{}L"{}})\ \&\&\ !\ lsame\_(side,\ \textcolor{stringliteral}{"{}R"{}}))\ \{}
\DoxyCodeLine{01117\ \ \ \ \ \ \ \ \ info\ =\ 1;}
\DoxyCodeLine{01118\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (!\ upper\ \&\&\ !\ lsame\_(uplo,\ \textcolor{stringliteral}{"{}L"{}}))\ \{}
\DoxyCodeLine{01119\ \ \ \ \ \ \ \ \ info\ =\ 2;}
\DoxyCodeLine{01120\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (*m\ <\ 0)\ \{}
\DoxyCodeLine{01121\ \ \ \ \ \ \ \ \ info\ =\ 3;}
\DoxyCodeLine{01122\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (*n\ <\ 0)\ \{}
\DoxyCodeLine{01123\ \ \ \ \ \ \ \ \ info\ =\ 4;}
\DoxyCodeLine{01124\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (*lda\ <\ max(1,nrowa))\ \{}
\DoxyCodeLine{01125\ \ \ \ \ \ \ \ \ info\ =\ 7;}
\DoxyCodeLine{01126\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (*ldb\ <\ max(1,*m))\ \{}
\DoxyCodeLine{01127\ \ \ \ \ \ \ \ \ info\ =\ 9;}
\DoxyCodeLine{01128\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (*ldc\ <\ max(1,*m))\ \{}
\DoxyCodeLine{01129\ \ \ \ \ \ \ \ \ info\ =\ 12;}
\DoxyCodeLine{01130\ \ \ \ \ \}}
\DoxyCodeLine{01131\ \ \ \ \ \textcolor{keywordflow}{if}\ (info\ !=\ 0)\ \{}
\DoxyCodeLine{01132\ \ \ \ \ \ \ \ \ xerbla\_(\textcolor{stringliteral}{"{}SSYMM\ "{}},\ \&info);}
\DoxyCodeLine{01133\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{return}\ 0;}
\DoxyCodeLine{01134\ \ \ \ \ \}}
\DoxyCodeLine{01135\ }
\DoxyCodeLine{01136\ \textcolor{comment}{/*\ \ \ \ \ Quick\ return\ if\ possible.\ */}}
\DoxyCodeLine{01137\ }
\DoxyCodeLine{01138\ \ \ \ \ \textcolor{keywordflow}{if}\ (*m\ ==\ 0\ ||\ *n\ ==\ 0\ ||\ *alpha\ ==\ 0.f\ \&\&\ *beta\ ==\ 1.f)\ \{}
\DoxyCodeLine{01139\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{return}\ 0;}
\DoxyCodeLine{01140\ \ \ \ \ \}}
\DoxyCodeLine{01141\ }
\DoxyCodeLine{01142\ \textcolor{comment}{/*\ \ \ \ \ And\ when\ \ alpha.eq.zero.\ */}}
\DoxyCodeLine{01143\ }
\DoxyCodeLine{01144\ \ \ \ \ \textcolor{keywordflow}{if}\ (*alpha\ ==\ 0.f)\ \{}
\DoxyCodeLine{01145\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (*beta\ ==\ 0.f)\ \{}
\DoxyCodeLine{01146\ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{01147\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{01148\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{01149\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{01150\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ 0.f;}
\DoxyCodeLine{01151\ \textcolor{comment}{/*\ L10:\ */}}
\DoxyCodeLine{01152\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01153\ \textcolor{comment}{/*\ L20:\ */}}
\DoxyCodeLine{01154\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01155\ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{01156\ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{01157\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{01158\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{01159\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{01160\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ *beta\ *\ c\_\_[i\_\_\ +\ j\ *\ c\_dim1];}
\DoxyCodeLine{01161\ \textcolor{comment}{/*\ L30:\ */}}
\DoxyCodeLine{01162\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01163\ \textcolor{comment}{/*\ L40:\ */}}
\DoxyCodeLine{01164\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01165\ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01166\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{return}\ 0;}
\DoxyCodeLine{01167\ \ \ \ \ \}}
\DoxyCodeLine{01168\ }
\DoxyCodeLine{01169\ \textcolor{comment}{/*\ \ \ \ \ Start\ the\ operations.\ */}}
\DoxyCodeLine{01170\ }
\DoxyCodeLine{01171\ \ \ \ \ \textcolor{keywordflow}{if}\ (lsame\_(side,\ \textcolor{stringliteral}{"{}L"{}}))\ \{}
\DoxyCodeLine{01172\ }
\DoxyCodeLine{01173\ \textcolor{comment}{/*\ \ \ \ \ \ \ \ Form\ \ C\ :=\ alpha*A*B\ +\ beta*C.\ */}}
\DoxyCodeLine{01174\ }
\DoxyCodeLine{01175\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (upper)\ \{}
\DoxyCodeLine{01176\ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{01177\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{01178\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{01179\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{01180\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp1\ =\ *alpha\ *\ b[i\_\_\ +\ j\ *\ b\_dim1];}
\DoxyCodeLine{01181\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp2\ =\ 0.f;}
\DoxyCodeLine{01182\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_3\ =\ i\_\_\ -\/\ 1;}
\DoxyCodeLine{01183\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (k\ =\ 1;\ k\ <=\ i\_\_3;\ ++k)\ \{}
\DoxyCodeLine{01184\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[k\ +\ j\ *\ c\_dim1]\ +=\ temp1\ *\ a[k\ +\ i\_\_\ *\ a\_dim1];}
\DoxyCodeLine{01185\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp2\ +=\ b[k\ +\ j\ *\ b\_dim1]\ *\ a[k\ +\ i\_\_\ *\ a\_dim1];}
\DoxyCodeLine{01186\ \textcolor{comment}{/*\ L50:\ */}}
\DoxyCodeLine{01187\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01188\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (*beta\ ==\ 0.f)\ \{}
\DoxyCodeLine{01189\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ temp1\ *\ a[i\_\_\ +\ i\_\_\ *\ a\_dim1]}
\DoxyCodeLine{01190\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ +\ *alpha\ *\ temp2;}
\DoxyCodeLine{01191\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{01192\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ *beta\ *\ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]}
\DoxyCodeLine{01193\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ +\ temp1\ *\ a[i\_\_\ +\ i\_\_\ *\ a\_dim1]\ +\ *alpha\ *}
\DoxyCodeLine{01194\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp2;}
\DoxyCodeLine{01195\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01196\ \textcolor{comment}{/*\ L60:\ */}}
\DoxyCodeLine{01197\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01198\ \textcolor{comment}{/*\ L70:\ */}}
\DoxyCodeLine{01199\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01200\ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{01201\ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{01202\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{01203\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ *m;\ i\_\_\ >=\ 1;\ -\/-\/i\_\_)\ \{}
\DoxyCodeLine{01204\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp1\ =\ *alpha\ *\ b[i\_\_\ +\ j\ *\ b\_dim1];}
\DoxyCodeLine{01205\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp2\ =\ 0.f;}
\DoxyCodeLine{01206\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{01207\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (k\ =\ i\_\_\ +\ 1;\ k\ <=\ i\_\_2;\ ++k)\ \{}
\DoxyCodeLine{01208\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[k\ +\ j\ *\ c\_dim1]\ +=\ temp1\ *\ a[k\ +\ i\_\_\ *\ a\_dim1];}
\DoxyCodeLine{01209\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp2\ +=\ b[k\ +\ j\ *\ b\_dim1]\ *\ a[k\ +\ i\_\_\ *\ a\_dim1];}
\DoxyCodeLine{01210\ \textcolor{comment}{/*\ L80:\ */}}
\DoxyCodeLine{01211\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01212\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (*beta\ ==\ 0.f)\ \{}
\DoxyCodeLine{01213\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ temp1\ *\ a[i\_\_\ +\ i\_\_\ *\ a\_dim1]}
\DoxyCodeLine{01214\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ +\ *alpha\ *\ temp2;}
\DoxyCodeLine{01215\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{01216\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ *beta\ *\ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]}
\DoxyCodeLine{01217\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ +\ temp1\ *\ a[i\_\_\ +\ i\_\_\ *\ a\_dim1]\ +\ *alpha\ *}
\DoxyCodeLine{01218\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp2;}
\DoxyCodeLine{01219\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01220\ \textcolor{comment}{/*\ L90:\ */}}
\DoxyCodeLine{01221\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01222\ \textcolor{comment}{/*\ L100:\ */}}
\DoxyCodeLine{01223\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01224\ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01225\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{01226\ }
\DoxyCodeLine{01227\ \textcolor{comment}{/*\ \ \ \ \ \ \ \ Form\ \ C\ :=\ alpha*B*A\ +\ beta*C.\ */}}
\DoxyCodeLine{01228\ }
\DoxyCodeLine{01229\ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{01230\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{01231\ \ \ \ \ \ \ \ \ \ \ \ \ temp1\ =\ *alpha\ *\ a[j\ +\ j\ *\ a\_dim1];}
\DoxyCodeLine{01232\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (*beta\ ==\ 0.f)\ \{}
\DoxyCodeLine{01233\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{01234\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{01235\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ temp1\ *\ b[i\_\_\ +\ j\ *\ b\_dim1];}
\DoxyCodeLine{01236\ \textcolor{comment}{/*\ L110:\ */}}
\DoxyCodeLine{01237\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01238\ \ \ \ \ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{01239\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{01240\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{01241\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ *beta\ *\ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ +}
\DoxyCodeLine{01242\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp1\ *\ b[i\_\_\ +\ j\ *\ b\_dim1];}
\DoxyCodeLine{01243\ \textcolor{comment}{/*\ L120:\ */}}
\DoxyCodeLine{01244\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01245\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01246\ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ j\ -\/\ 1;}
\DoxyCodeLine{01247\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (k\ =\ 1;\ k\ <=\ i\_\_2;\ ++k)\ \{}
\DoxyCodeLine{01248\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (upper)\ \{}
\DoxyCodeLine{01249\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp1\ =\ *alpha\ *\ a[k\ +\ j\ *\ a\_dim1];}
\DoxyCodeLine{01250\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{01251\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp1\ =\ *alpha\ *\ a[j\ +\ k\ *\ a\_dim1];}
\DoxyCodeLine{01252\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01253\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_3\ =\ *m;}
\DoxyCodeLine{01254\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_3;\ ++i\_\_)\ \{}
\DoxyCodeLine{01255\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ +=\ temp1\ *\ b[i\_\_\ +\ k\ *\ b\_dim1];}
\DoxyCodeLine{01256\ \textcolor{comment}{/*\ L130:\ */}}
\DoxyCodeLine{01257\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01258\ \textcolor{comment}{/*\ L140:\ */}}
\DoxyCodeLine{01259\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01260\ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *n;}
\DoxyCodeLine{01261\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (k\ =\ j\ +\ 1;\ k\ <=\ i\_\_2;\ ++k)\ \{}
\DoxyCodeLine{01262\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (upper)\ \{}
\DoxyCodeLine{01263\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp1\ =\ *alpha\ *\ a[j\ +\ k\ *\ a\_dim1];}
\DoxyCodeLine{01264\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{01265\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp1\ =\ *alpha\ *\ a[k\ +\ j\ *\ a\_dim1];}
\DoxyCodeLine{01266\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01267\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_3\ =\ *m;}
\DoxyCodeLine{01268\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_3;\ ++i\_\_)\ \{}
\DoxyCodeLine{01269\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ +=\ temp1\ *\ b[i\_\_\ +\ k\ *\ b\_dim1];}
\DoxyCodeLine{01270\ \textcolor{comment}{/*\ L150:\ */}}
\DoxyCodeLine{01271\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01272\ \textcolor{comment}{/*\ L160:\ */}}
\DoxyCodeLine{01273\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01274\ \textcolor{comment}{/*\ L170:\ */}}
\DoxyCodeLine{01275\ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01276\ \ \ \ \ \}}
\DoxyCodeLine{01277\ }
\DoxyCodeLine{01278\ \ \ \ \ \textcolor{keywordflow}{return}\ 0;}
\DoxyCodeLine{01279\ }
\DoxyCodeLine{01280\ \textcolor{comment}{/*\ \ \ \ \ End\ of\ SSYMM\ .\ */}}
\DoxyCodeLine{01281\ }
\DoxyCodeLine{01282\ \}\ \textcolor{comment}{/*\ ssymm\_\ */}}
\DoxyCodeLine{01283\ }
\DoxyCodeLine{01284\ \textcolor{comment}{/*\ Subroutine\ */}\ \textcolor{keywordtype}{int}\ ssyrk\_(\textcolor{keywordtype}{char}\ *uplo,\ \textcolor{keywordtype}{char}\ *trans,\ integer\ *n,\ integer\ *k,}
\DoxyCodeLine{01285\ \ \ \ \ \ \ \ \ real\ *alpha,\ real\ *a,\ integer\ *lda,\ real\ *beta,\ real\ *c\_\_,\ integer\ *}
\DoxyCodeLine{01286\ \ \ \ \ \ \ \ \ ldc)}
\DoxyCodeLine{01287\ \{}
\DoxyCodeLine{01288\ \ \ \ \ \textcolor{comment}{/*\ System\ generated\ locals\ */}}
\DoxyCodeLine{01289\ \ \ \ \ integer\ a\_dim1,\ a\_offset,\ c\_dim1,\ c\_offset,\ i\_\_1,\ i\_\_2,\ i\_\_3;}
\DoxyCodeLine{01290\ }
\DoxyCodeLine{01291\ \ \ \ \ \textcolor{comment}{/*\ Local\ variables\ */}}
\DoxyCodeLine{01292\ \ \ \ \ \textcolor{keyword}{static}\ integer\ i\_\_,\ j,\ l,\ info;}
\DoxyCodeLine{01293\ \ \ \ \ \textcolor{keyword}{static}\ real\ temp;}
\DoxyCodeLine{01294\ \ \ \ \ \textcolor{keyword}{extern}\ logical\ lsame\_(\textcolor{keywordtype}{char}\ *,\ \textcolor{keywordtype}{char}\ *);}
\DoxyCodeLine{01295\ \ \ \ \ \textcolor{keyword}{static}\ integer\ nrowa;}
\DoxyCodeLine{01296\ \ \ \ \ \textcolor{keyword}{static}\ logical\ upper;}
\DoxyCodeLine{01297\ \ \ \ \ \textcolor{keyword}{extern}\ \textcolor{comment}{/*\ Subroutine\ */}\ \textcolor{keywordtype}{int}\ xerbla\_(\textcolor{keywordtype}{char}\ *,\ integer\ *);}
\DoxyCodeLine{01298\ }
\DoxyCodeLine{01299\ }
\DoxyCodeLine{01300\ \textcolor{comment}{/*}}
\DoxyCodeLine{01301\ \textcolor{comment}{\ \ \ \ Purpose}}
\DoxyCodeLine{01302\ \textcolor{comment}{\ \ \ \ =======}}
\DoxyCodeLine{01303\ \textcolor{comment}{}}
\DoxyCodeLine{01304\ \textcolor{comment}{\ \ \ \ SSYRK\ \ performs\ one\ of\ the\ symmetric\ rank\ k\ operations}}
\DoxyCodeLine{01305\ \textcolor{comment}{}}
\DoxyCodeLine{01306\ \textcolor{comment}{\ \ \ \ \ \ \ C\ :=\ alpha*A*A'\ +\ beta*C,}}
\DoxyCodeLine{01307\ \textcolor{comment}{}}
\DoxyCodeLine{01308\ \textcolor{comment}{\ \ \ \ or}}
\DoxyCodeLine{01309\ \textcolor{comment}{}}
\DoxyCodeLine{01310\ \textcolor{comment}{\ \ \ \ \ \ \ C\ :=\ alpha*A'*A\ +\ beta*C,}}
\DoxyCodeLine{01311\ \textcolor{comment}{}}
\DoxyCodeLine{01312\ \textcolor{comment}{\ \ \ \ where\ \ alpha\ and\ beta\ \ are\ scalars,\ C\ is\ an\ \ n\ by\ n\ \ symmetric\ matrix}}
\DoxyCodeLine{01313\ \textcolor{comment}{\ \ \ \ and\ \ A\ \ is\ an\ \ n\ by\ k\ \ matrix\ in\ the\ first\ case\ and\ a\ \ k\ by\ n\ \ matrix}}
\DoxyCodeLine{01314\ \textcolor{comment}{\ \ \ \ in\ the\ second\ case.}}
\DoxyCodeLine{01315\ \textcolor{comment}{}}
\DoxyCodeLine{01316\ \textcolor{comment}{\ \ \ \ Parameters}}
\DoxyCodeLine{01317\ \textcolor{comment}{\ \ \ \ ==========}}
\DoxyCodeLine{01318\ \textcolor{comment}{}}
\DoxyCodeLine{01319\ \textcolor{comment}{\ \ \ \ UPLO\ \ \ -\/\ CHARACTER*1.}}
\DoxyCodeLine{01320\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ \ entry,\ \ \ UPLO\ \ specifies\ \ whether\ \ the\ \ upper\ \ or\ \ lower}}
\DoxyCodeLine{01321\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ triangular\ \ part\ \ of\ the\ \ array\ \ C\ \ is\ to\ be\ \ referenced\ \ as}}
\DoxyCodeLine{01322\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ follows:}}
\DoxyCodeLine{01323\ \textcolor{comment}{}}
\DoxyCodeLine{01324\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ UPLO\ =\ 'U'\ or\ 'u'\ \ \ Only\ the\ \ upper\ triangular\ part\ of\ \ C}}
\DoxyCodeLine{01325\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ is\ to\ be\ referenced.}}
\DoxyCodeLine{01326\ \textcolor{comment}{}}
\DoxyCodeLine{01327\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ UPLO\ =\ 'L'\ or\ 'l'\ \ \ Only\ the\ \ lower\ triangular\ part\ of\ \ C}}
\DoxyCodeLine{01328\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ is\ to\ be\ referenced.}}
\DoxyCodeLine{01329\ \textcolor{comment}{}}
\DoxyCodeLine{01330\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01331\ \textcolor{comment}{}}
\DoxyCodeLine{01332\ \textcolor{comment}{\ \ \ \ TRANS\ \ -\/\ CHARACTER*1.}}
\DoxyCodeLine{01333\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ \ TRANS\ \ specifies\ the\ operation\ to\ be\ performed\ as}}
\DoxyCodeLine{01334\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ follows:}}
\DoxyCodeLine{01335\ \textcolor{comment}{}}
\DoxyCodeLine{01336\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ TRANS\ =\ 'N'\ or\ 'n'\ \ \ C\ :=\ alpha*A*A'\ +\ beta*C.}}
\DoxyCodeLine{01337\ \textcolor{comment}{}}
\DoxyCodeLine{01338\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ TRANS\ =\ 'T'\ or\ 't'\ \ \ C\ :=\ alpha*A'*A\ +\ beta*C.}}
\DoxyCodeLine{01339\ \textcolor{comment}{}}
\DoxyCodeLine{01340\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ TRANS\ =\ 'C'\ or\ 'c'\ \ \ C\ :=\ alpha*A'*A\ +\ beta*C.}}
\DoxyCodeLine{01341\ \textcolor{comment}{}}
\DoxyCodeLine{01342\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01343\ \textcolor{comment}{}}
\DoxyCodeLine{01344\ \textcolor{comment}{\ \ \ \ N\ \ \ \ \ \ -\/\ INTEGER.}}
\DoxyCodeLine{01345\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ \ N\ specifies\ the\ order\ of\ the\ matrix\ C.\ \ N\ must\ be}}
\DoxyCodeLine{01346\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ at\ least\ zero.}}
\DoxyCodeLine{01347\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01348\ \textcolor{comment}{}}
\DoxyCodeLine{01349\ \textcolor{comment}{\ \ \ \ K\ \ \ \ \ \ -\/\ INTEGER.}}
\DoxyCodeLine{01350\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry\ with\ \ TRANS\ =\ 'N'\ or\ 'n',\ \ K\ \ specifies\ \ the\ number}}
\DoxyCodeLine{01351\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ of\ \ columns\ \ \ of\ \ the\ \ \ matrix\ \ \ A,\ \ \ and\ \ on\ \ \ entry\ \ \ with}}
\DoxyCodeLine{01352\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ TRANS\ =\ 'T'\ or\ 't'\ or\ 'C'\ or\ 'c',\ \ K\ \ specifies\ \ the\ \ number}}
\DoxyCodeLine{01353\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ of\ rows\ of\ the\ matrix\ \ A.\ \ K\ must\ be\ at\ least\ zero.}}
\DoxyCodeLine{01354\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01355\ \textcolor{comment}{}}
\DoxyCodeLine{01356\ \textcolor{comment}{\ \ \ \ ALPHA\ \ -\/\ REAL\ \ \ \ \ \ \ \ \ \ \ \ .}}
\DoxyCodeLine{01357\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ ALPHA\ specifies\ the\ scalar\ alpha.}}
\DoxyCodeLine{01358\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01359\ \textcolor{comment}{}}
\DoxyCodeLine{01360\ \textcolor{comment}{\ \ \ \ A\ \ \ \ \ \ -\/\ REAL\ \ \ \ \ \ \ \ \ \ \ \ \ array\ of\ DIMENSION\ (\ LDA,\ ka\ ),\ where\ ka\ is}}
\DoxyCodeLine{01361\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ k\ \ when\ \ TRANS\ =\ 'N'\ or\ 'n',\ \ and\ is\ \ n\ \ otherwise.}}
\DoxyCodeLine{01362\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Before\ entry\ with\ \ TRANS\ =\ 'N'\ or\ 'n',\ \ the\ \ leading\ \ n\ by\ k}}
\DoxyCodeLine{01363\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ part\ of\ the\ array\ \ A\ \ must\ contain\ the\ matrix\ \ A,\ \ otherwise}}
\DoxyCodeLine{01364\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ the\ leading\ \ k\ by\ n\ \ part\ of\ the\ array\ \ A\ \ must\ contain\ \ the}}
\DoxyCodeLine{01365\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ matrix\ A.}}
\DoxyCodeLine{01366\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01367\ \textcolor{comment}{}}
\DoxyCodeLine{01368\ \textcolor{comment}{\ \ \ \ LDA\ \ \ \ -\/\ INTEGER.}}
\DoxyCodeLine{01369\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ LDA\ specifies\ the\ first\ dimension\ of\ A\ as\ declared}}
\DoxyCodeLine{01370\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ in\ \ the\ \ calling\ \ (sub)\ \ program.\ \ \ When\ \ TRANS\ =\ 'N'\ or\ 'n'}}
\DoxyCodeLine{01371\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ then\ \ LDA\ must\ be\ at\ least\ \ max(\ 1,\ n\ ),\ otherwise\ \ LDA\ must}}
\DoxyCodeLine{01372\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ be\ at\ least\ \ max(\ 1,\ k\ ).}}
\DoxyCodeLine{01373\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01374\ \textcolor{comment}{}}
\DoxyCodeLine{01375\ \textcolor{comment}{\ \ \ \ BETA\ \ \ -\/\ REAL\ \ \ \ \ \ \ \ \ \ \ \ .}}
\DoxyCodeLine{01376\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ BETA\ specifies\ the\ scalar\ beta.}}
\DoxyCodeLine{01377\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01378\ \textcolor{comment}{}}
\DoxyCodeLine{01379\ \textcolor{comment}{\ \ \ \ C\ \ \ \ \ \ -\/\ REAL\ \ \ \ \ \ \ \ \ \ \ \ \ array\ of\ DIMENSION\ (\ LDC,\ n\ ).}}
\DoxyCodeLine{01380\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Before\ entry\ \ with\ \ UPLO\ =\ 'U'\ or\ 'u',\ \ the\ leading\ \ n\ by\ n}}
\DoxyCodeLine{01381\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ upper\ triangular\ part\ of\ the\ array\ C\ must\ contain\ the\ upper}}
\DoxyCodeLine{01382\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ triangular\ part\ \ of\ the\ \ symmetric\ matrix\ \ and\ the\ strictly}}
\DoxyCodeLine{01383\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ lower\ triangular\ part\ of\ C\ is\ not\ referenced.\ \ On\ exit,\ the}}
\DoxyCodeLine{01384\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ upper\ triangular\ part\ of\ the\ array\ \ C\ is\ overwritten\ by\ the}}
\DoxyCodeLine{01385\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ upper\ triangular\ part\ of\ the\ updated\ matrix.}}
\DoxyCodeLine{01386\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Before\ entry\ \ with\ \ UPLO\ =\ 'L'\ or\ 'l',\ \ the\ leading\ \ n\ by\ n}}
\DoxyCodeLine{01387\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ lower\ triangular\ part\ of\ the\ array\ C\ must\ contain\ the\ lower}}
\DoxyCodeLine{01388\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ triangular\ part\ \ of\ the\ \ symmetric\ matrix\ \ and\ the\ strictly}}
\DoxyCodeLine{01389\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ upper\ triangular\ part\ of\ C\ is\ not\ referenced.\ \ On\ exit,\ the}}
\DoxyCodeLine{01390\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ lower\ triangular\ part\ of\ the\ array\ \ C\ is\ overwritten\ by\ the}}
\DoxyCodeLine{01391\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ lower\ triangular\ part\ of\ the\ updated\ matrix.}}
\DoxyCodeLine{01392\ \textcolor{comment}{}}
\DoxyCodeLine{01393\ \textcolor{comment}{\ \ \ \ LDC\ \ \ \ -\/\ INTEGER.}}
\DoxyCodeLine{01394\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ LDC\ specifies\ the\ first\ dimension\ of\ C\ as\ declared}}
\DoxyCodeLine{01395\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ in\ \ the\ \ calling\ \ (sub)\ \ program.\ \ \ LDC\ \ must\ \ be\ \ at\ \ least}}
\DoxyCodeLine{01396\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ max(\ 1,\ n\ ).}}
\DoxyCodeLine{01397\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01398\ \textcolor{comment}{}}
\DoxyCodeLine{01399\ \textcolor{comment}{}}
\DoxyCodeLine{01400\ \textcolor{comment}{\ \ \ \ Level\ 3\ Blas\ routine.}}
\DoxyCodeLine{01401\ \textcolor{comment}{}}
\DoxyCodeLine{01402\ \textcolor{comment}{\ \ \ \ -\/-\/\ Written\ on\ 8-\/February-\/1989.}}
\DoxyCodeLine{01403\ \textcolor{comment}{\ \ \ \ \ \ \ Jack\ Dongarra,\ Argonne\ National\ Laboratory.}}
\DoxyCodeLine{01404\ \textcolor{comment}{\ \ \ \ \ \ \ Iain\ Duff,\ AERE\ Harwell.}}
\DoxyCodeLine{01405\ \textcolor{comment}{\ \ \ \ \ \ \ Jeremy\ Du\ Croz,\ Numerical\ Algorithms\ Group\ Ltd.}}
\DoxyCodeLine{01406\ \textcolor{comment}{\ \ \ \ \ \ \ Sven\ Hammarling,\ Numerical\ Algorithms\ Group\ Ltd.}}
\DoxyCodeLine{01407\ \textcolor{comment}{}}
\DoxyCodeLine{01408\ \textcolor{comment}{}}
\DoxyCodeLine{01409\ \textcolor{comment}{\ \ \ \ \ \ \ Test\ the\ input\ parameters.}}
\DoxyCodeLine{01410\ \textcolor{comment}{*/}}
\DoxyCodeLine{01411\ }
\DoxyCodeLine{01412\ \ \ \ \ \textcolor{comment}{/*\ Parameter\ adjustments\ */}}
\DoxyCodeLine{01413\ \ \ \ \ a\_dim1\ =\ *lda;}
\DoxyCodeLine{01414\ \ \ \ \ a\_offset\ =\ 1\ +\ a\_dim1;}
\DoxyCodeLine{01415\ \ \ \ \ a\ -\/=\ a\_offset;}
\DoxyCodeLine{01416\ \ \ \ \ c\_dim1\ =\ *ldc;}
\DoxyCodeLine{01417\ \ \ \ \ c\_offset\ =\ 1\ +\ c\_dim1;}
\DoxyCodeLine{01418\ \ \ \ \ c\_\_\ -\/=\ c\_offset;}
\DoxyCodeLine{01419\ }
\DoxyCodeLine{01420\ \ \ \ \ \textcolor{comment}{/*\ Function\ Body\ */}}
\DoxyCodeLine{01421\ \ \ \ \ \textcolor{keywordflow}{if}\ (lsame\_(trans,\ \textcolor{stringliteral}{"{}N"{}}))\ \{}
\DoxyCodeLine{01422\ \ \ \ \ \ \ \ \ nrowa\ =\ *n;}
\DoxyCodeLine{01423\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{01424\ \ \ \ \ \ \ \ \ nrowa\ =\ *k;}
\DoxyCodeLine{01425\ \ \ \ \ \}}
\DoxyCodeLine{01426\ \ \ \ \ upper\ =\ lsame\_(uplo,\ \textcolor{stringliteral}{"{}U"{}});}
\DoxyCodeLine{01427\ }
\DoxyCodeLine{01428\ \ \ \ \ info\ =\ 0;}
\DoxyCodeLine{01429\ \ \ \ \ \textcolor{keywordflow}{if}\ (!\ upper\ \&\&\ !\ lsame\_(uplo,\ \textcolor{stringliteral}{"{}L"{}}))\ \{}
\DoxyCodeLine{01430\ \ \ \ \ \ \ \ \ info\ =\ 1;}
\DoxyCodeLine{01431\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (!\ lsame\_(trans,\ \textcolor{stringliteral}{"{}N"{}})\ \&\&\ !\ lsame\_(trans,}
\DoxyCodeLine{01432\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{stringliteral}{"{}T"{}})\ \&\&\ !\ lsame\_(trans,\ \textcolor{stringliteral}{"{}C"{}}))\ \{}
\DoxyCodeLine{01433\ \ \ \ \ \ \ \ \ info\ =\ 2;}
\DoxyCodeLine{01434\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (*n\ <\ 0)\ \{}
\DoxyCodeLine{01435\ \ \ \ \ \ \ \ \ info\ =\ 3;}
\DoxyCodeLine{01436\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (*k\ <\ 0)\ \{}
\DoxyCodeLine{01437\ \ \ \ \ \ \ \ \ info\ =\ 4;}
\DoxyCodeLine{01438\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (*lda\ <\ max(1,nrowa))\ \{}
\DoxyCodeLine{01439\ \ \ \ \ \ \ \ \ info\ =\ 7;}
\DoxyCodeLine{01440\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (*ldc\ <\ max(1,*n))\ \{}
\DoxyCodeLine{01441\ \ \ \ \ \ \ \ \ info\ =\ 10;}
\DoxyCodeLine{01442\ \ \ \ \ \}}
\DoxyCodeLine{01443\ \ \ \ \ \textcolor{keywordflow}{if}\ (info\ !=\ 0)\ \{}
\DoxyCodeLine{01444\ \ \ \ \ \ \ \ \ xerbla\_(\textcolor{stringliteral}{"{}SSYRK\ "{}},\ \&info);}
\DoxyCodeLine{01445\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{return}\ 0;}
\DoxyCodeLine{01446\ \ \ \ \ \}}
\DoxyCodeLine{01447\ }
\DoxyCodeLine{01448\ \textcolor{comment}{/*\ \ \ \ \ Quick\ return\ if\ possible.\ */}}
\DoxyCodeLine{01449\ }
\DoxyCodeLine{01450\ \ \ \ \ \textcolor{keywordflow}{if}\ (*n\ ==\ 0\ ||\ (*alpha\ ==\ 0.f\ ||\ *k\ ==\ 0)\ \&\&\ *beta\ ==\ 1.f)\ \{}
\DoxyCodeLine{01451\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{return}\ 0;}
\DoxyCodeLine{01452\ \ \ \ \ \}}
\DoxyCodeLine{01453\ }
\DoxyCodeLine{01454\ \textcolor{comment}{/*\ \ \ \ \ And\ when\ \ alpha.eq.zero.\ */}}
\DoxyCodeLine{01455\ }
\DoxyCodeLine{01456\ \ \ \ \ \textcolor{keywordflow}{if}\ (*alpha\ ==\ 0.f)\ \{}
\DoxyCodeLine{01457\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (upper)\ \{}
\DoxyCodeLine{01458\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (*beta\ ==\ 0.f)\ \{}
\DoxyCodeLine{01459\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{01460\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{01461\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ j;}
\DoxyCodeLine{01462\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{01463\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ 0.f;}
\DoxyCodeLine{01464\ \textcolor{comment}{/*\ L10:\ */}}
\DoxyCodeLine{01465\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01466\ \textcolor{comment}{/*\ L20:\ */}}
\DoxyCodeLine{01467\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01468\ \ \ \ \ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{01469\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{01470\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{01471\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ j;}
\DoxyCodeLine{01472\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{01473\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ *beta\ *\ c\_\_[i\_\_\ +\ j\ *\ c\_dim1];}
\DoxyCodeLine{01474\ \textcolor{comment}{/*\ L30:\ */}}
\DoxyCodeLine{01475\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01476\ \textcolor{comment}{/*\ L40:\ */}}
\DoxyCodeLine{01477\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01478\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01479\ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{01480\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (*beta\ ==\ 0.f)\ \{}
\DoxyCodeLine{01481\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{01482\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{01483\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *n;}
\DoxyCodeLine{01484\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ j;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{01485\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ 0.f;}
\DoxyCodeLine{01486\ \textcolor{comment}{/*\ L50:\ */}}
\DoxyCodeLine{01487\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01488\ \textcolor{comment}{/*\ L60:\ */}}
\DoxyCodeLine{01489\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01490\ \ \ \ \ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{01491\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{01492\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{01493\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *n;}
\DoxyCodeLine{01494\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ j;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{01495\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ *beta\ *\ c\_\_[i\_\_\ +\ j\ *\ c\_dim1];}
\DoxyCodeLine{01496\ \textcolor{comment}{/*\ L70:\ */}}
\DoxyCodeLine{01497\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01498\ \textcolor{comment}{/*\ L80:\ */}}
\DoxyCodeLine{01499\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01500\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01501\ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01502\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{return}\ 0;}
\DoxyCodeLine{01503\ \ \ \ \ \}}
\DoxyCodeLine{01504\ }
\DoxyCodeLine{01505\ \textcolor{comment}{/*\ \ \ \ \ Start\ the\ operations.\ */}}
\DoxyCodeLine{01506\ }
\DoxyCodeLine{01507\ \ \ \ \ \textcolor{keywordflow}{if}\ (lsame\_(trans,\ \textcolor{stringliteral}{"{}N"{}}))\ \{}
\DoxyCodeLine{01508\ }
\DoxyCodeLine{01509\ \textcolor{comment}{/*\ \ \ \ \ \ \ \ Form\ \ C\ :=\ alpha*A*A'\ +\ beta*C.\ */}}
\DoxyCodeLine{01510\ }
\DoxyCodeLine{01511\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (upper)\ \{}
\DoxyCodeLine{01512\ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{01513\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{01514\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (*beta\ ==\ 0.f)\ \{}
\DoxyCodeLine{01515\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ j;}
\DoxyCodeLine{01516\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{01517\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ 0.f;}
\DoxyCodeLine{01518\ \textcolor{comment}{/*\ L90:\ */}}
\DoxyCodeLine{01519\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01520\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (*beta\ !=\ 1.f)\ \{}
\DoxyCodeLine{01521\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ j;}
\DoxyCodeLine{01522\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{01523\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ *beta\ *\ c\_\_[i\_\_\ +\ j\ *\ c\_dim1];}
\DoxyCodeLine{01524\ \textcolor{comment}{/*\ L100:\ */}}
\DoxyCodeLine{01525\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01526\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01527\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *k;}
\DoxyCodeLine{01528\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (l\ =\ 1;\ l\ <=\ i\_\_2;\ ++l)\ \{}
\DoxyCodeLine{01529\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (a[j\ +\ l\ *\ a\_dim1]\ !=\ 0.f)\ \{}
\DoxyCodeLine{01530\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ =\ *alpha\ *\ a[j\ +\ l\ *\ a\_dim1];}
\DoxyCodeLine{01531\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_3\ =\ j;}
\DoxyCodeLine{01532\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_3;\ ++i\_\_)\ \{}
\DoxyCodeLine{01533\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ +=\ temp\ *\ a[i\_\_\ +\ l\ *}
\DoxyCodeLine{01534\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ a\_dim1];}
\DoxyCodeLine{01535\ \textcolor{comment}{/*\ L110:\ */}}
\DoxyCodeLine{01536\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01537\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01538\ \textcolor{comment}{/*\ L120:\ */}}
\DoxyCodeLine{01539\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01540\ \textcolor{comment}{/*\ L130:\ */}}
\DoxyCodeLine{01541\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01542\ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{01543\ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{01544\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{01545\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (*beta\ ==\ 0.f)\ \{}
\DoxyCodeLine{01546\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *n;}
\DoxyCodeLine{01547\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ j;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{01548\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ 0.f;}
\DoxyCodeLine{01549\ \textcolor{comment}{/*\ L140:\ */}}
\DoxyCodeLine{01550\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01551\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (*beta\ !=\ 1.f)\ \{}
\DoxyCodeLine{01552\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *n;}
\DoxyCodeLine{01553\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ j;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{01554\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ *beta\ *\ c\_\_[i\_\_\ +\ j\ *\ c\_dim1];}
\DoxyCodeLine{01555\ \textcolor{comment}{/*\ L150:\ */}}
\DoxyCodeLine{01556\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01557\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01558\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *k;}
\DoxyCodeLine{01559\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (l\ =\ 1;\ l\ <=\ i\_\_2;\ ++l)\ \{}
\DoxyCodeLine{01560\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (a[j\ +\ l\ *\ a\_dim1]\ !=\ 0.f)\ \{}
\DoxyCodeLine{01561\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ =\ *alpha\ *\ a[j\ +\ l\ *\ a\_dim1];}
\DoxyCodeLine{01562\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_3\ =\ *n;}
\DoxyCodeLine{01563\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ j;\ i\_\_\ <=\ i\_\_3;\ ++i\_\_)\ \{}
\DoxyCodeLine{01564\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ +=\ temp\ *\ a[i\_\_\ +\ l\ *}
\DoxyCodeLine{01565\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ a\_dim1];}
\DoxyCodeLine{01566\ \textcolor{comment}{/*\ L160:\ */}}
\DoxyCodeLine{01567\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01568\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01569\ \textcolor{comment}{/*\ L170:\ */}}
\DoxyCodeLine{01570\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01571\ \textcolor{comment}{/*\ L180:\ */}}
\DoxyCodeLine{01572\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01573\ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01574\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{01575\ }
\DoxyCodeLine{01576\ \textcolor{comment}{/*\ \ \ \ \ \ \ \ Form\ \ C\ :=\ alpha*A'*A\ +\ beta*C.\ */}}
\DoxyCodeLine{01577\ }
\DoxyCodeLine{01578\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (upper)\ \{}
\DoxyCodeLine{01579\ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{01580\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{01581\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ j;}
\DoxyCodeLine{01582\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{01583\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ =\ 0.f;}
\DoxyCodeLine{01584\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_3\ =\ *k;}
\DoxyCodeLine{01585\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (l\ =\ 1;\ l\ <=\ i\_\_3;\ ++l)\ \{}
\DoxyCodeLine{01586\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ +=\ a[l\ +\ i\_\_\ *\ a\_dim1]\ *\ a[l\ +\ j\ *\ a\_dim1];}
\DoxyCodeLine{01587\ \textcolor{comment}{/*\ L190:\ */}}
\DoxyCodeLine{01588\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01589\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (*beta\ ==\ 0.f)\ \{}
\DoxyCodeLine{01590\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ *alpha\ *\ temp;}
\DoxyCodeLine{01591\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{01592\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ *alpha\ *\ temp\ +\ *beta\ *\ c\_\_[}
\DoxyCodeLine{01593\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_\ +\ j\ *\ c\_dim1];}
\DoxyCodeLine{01594\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01595\ \textcolor{comment}{/*\ L200:\ */}}
\DoxyCodeLine{01596\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01597\ \textcolor{comment}{/*\ L210:\ */}}
\DoxyCodeLine{01598\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01599\ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{01600\ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{01601\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{01602\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *n;}
\DoxyCodeLine{01603\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ j;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{01604\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ =\ 0.f;}
\DoxyCodeLine{01605\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_3\ =\ *k;}
\DoxyCodeLine{01606\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (l\ =\ 1;\ l\ <=\ i\_\_3;\ ++l)\ \{}
\DoxyCodeLine{01607\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ +=\ a[l\ +\ i\_\_\ *\ a\_dim1]\ *\ a[l\ +\ j\ *\ a\_dim1];}
\DoxyCodeLine{01608\ \textcolor{comment}{/*\ L220:\ */}}
\DoxyCodeLine{01609\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01610\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (*beta\ ==\ 0.f)\ \{}
\DoxyCodeLine{01611\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ *alpha\ *\ temp;}
\DoxyCodeLine{01612\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{01613\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ c\_\_[i\_\_\ +\ j\ *\ c\_dim1]\ =\ *alpha\ *\ temp\ +\ *beta\ *\ c\_\_[}
\DoxyCodeLine{01614\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_\ +\ j\ *\ c\_dim1];}
\DoxyCodeLine{01615\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01616\ \textcolor{comment}{/*\ L230:\ */}}
\DoxyCodeLine{01617\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01618\ \textcolor{comment}{/*\ L240:\ */}}
\DoxyCodeLine{01619\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01620\ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01621\ \ \ \ \ \}}
\DoxyCodeLine{01622\ }
\DoxyCodeLine{01623\ \ \ \ \ \textcolor{keywordflow}{return}\ 0;}
\DoxyCodeLine{01624\ }
\DoxyCodeLine{01625\ \textcolor{comment}{/*\ \ \ \ \ End\ of\ SSYRK\ .\ */}}
\DoxyCodeLine{01626\ }
\DoxyCodeLine{01627\ \}\ \textcolor{comment}{/*\ ssyrk\_\ */}}
\DoxyCodeLine{01628\ }
\DoxyCodeLine{01629\ \textcolor{comment}{/*\ Subroutine\ */}\ \textcolor{keywordtype}{int}\ strsm\_(\textcolor{keywordtype}{char}\ *side,\ \textcolor{keywordtype}{char}\ *uplo,\ \textcolor{keywordtype}{char}\ *transa,\ \textcolor{keywordtype}{char}\ *diag,}
\DoxyCodeLine{01630\ \ \ \ \ \ \ \ \ integer\ *m,\ integer\ *n,\ real\ *alpha,\ real\ *a,\ integer\ *lda,\ real\ *b,}
\DoxyCodeLine{01631\ \ \ \ \ \ \ \ \ integer\ *ldb)}
\DoxyCodeLine{01632\ \{}
\DoxyCodeLine{01633\ \ \ \ \ \textcolor{comment}{/*\ System\ generated\ locals\ */}}
\DoxyCodeLine{01634\ \ \ \ \ integer\ a\_dim1,\ a\_offset,\ b\_dim1,\ b\_offset,\ i\_\_1,\ i\_\_2,\ i\_\_3;}
\DoxyCodeLine{01635\ }
\DoxyCodeLine{01636\ \ \ \ \ \textcolor{comment}{/*\ Local\ variables\ */}}
\DoxyCodeLine{01637\ \ \ \ \ \textcolor{keyword}{static}\ integer\ i\_\_,\ j,\ k,\ info;}
\DoxyCodeLine{01638\ \ \ \ \ \textcolor{keyword}{static}\ real\ temp;}
\DoxyCodeLine{01639\ \ \ \ \ \textcolor{keyword}{static}\ logical\ lside;}
\DoxyCodeLine{01640\ \ \ \ \ \textcolor{keyword}{extern}\ logical\ lsame\_(\textcolor{keywordtype}{char}\ *,\ \textcolor{keywordtype}{char}\ *);}
\DoxyCodeLine{01641\ \ \ \ \ \textcolor{keyword}{static}\ integer\ nrowa;}
\DoxyCodeLine{01642\ \ \ \ \ \textcolor{keyword}{static}\ logical\ upper;}
\DoxyCodeLine{01643\ \ \ \ \ \textcolor{keyword}{extern}\ \textcolor{comment}{/*\ Subroutine\ */}\ \textcolor{keywordtype}{int}\ xerbla\_(\textcolor{keywordtype}{char}\ *,\ integer\ *);}
\DoxyCodeLine{01644\ \ \ \ \ \textcolor{keyword}{static}\ logical\ nounit;}
\DoxyCodeLine{01645\ }
\DoxyCodeLine{01646\ }
\DoxyCodeLine{01647\ \textcolor{comment}{/*}}
\DoxyCodeLine{01648\ \textcolor{comment}{\ \ \ \ Purpose}}
\DoxyCodeLine{01649\ \textcolor{comment}{\ \ \ \ =======}}
\DoxyCodeLine{01650\ \textcolor{comment}{}}
\DoxyCodeLine{01651\ \textcolor{comment}{\ \ \ \ STRSM\ \ solves\ one\ of\ the\ matrix\ equations}}
\DoxyCodeLine{01652\ \textcolor{comment}{}}
\DoxyCodeLine{01653\ \textcolor{comment}{\ \ \ \ \ \ \ op(\ A\ )*X\ =\ alpha*B,\ \ \ or\ \ \ X*op(\ A\ )\ =\ alpha*B,}}
\DoxyCodeLine{01654\ \textcolor{comment}{}}
\DoxyCodeLine{01655\ \textcolor{comment}{\ \ \ \ where\ alpha\ is\ a\ scalar,\ X\ and\ B\ are\ m\ by\ n\ matrices,\ A\ is\ a\ unit,\ or}}
\DoxyCodeLine{01656\ \textcolor{comment}{\ \ \ \ non-\/unit,\ \ upper\ or\ lower\ triangular\ matrix\ \ and\ \ op(\ A\ )\ \ is\ one\ \ of}}
\DoxyCodeLine{01657\ \textcolor{comment}{}}
\DoxyCodeLine{01658\ \textcolor{comment}{\ \ \ \ \ \ \ op(\ A\ )\ =\ A\ \ \ or\ \ \ op(\ A\ )\ =\ A'.}}
\DoxyCodeLine{01659\ \textcolor{comment}{}}
\DoxyCodeLine{01660\ \textcolor{comment}{\ \ \ \ The\ matrix\ X\ is\ overwritten\ on\ B.}}
\DoxyCodeLine{01661\ \textcolor{comment}{}}
\DoxyCodeLine{01662\ \textcolor{comment}{\ \ \ \ Parameters}}
\DoxyCodeLine{01663\ \textcolor{comment}{\ \ \ \ ==========}}
\DoxyCodeLine{01664\ \textcolor{comment}{}}
\DoxyCodeLine{01665\ \textcolor{comment}{\ \ \ \ SIDE\ \ \ -\/\ CHARACTER*1.}}
\DoxyCodeLine{01666\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ SIDE\ specifies\ whether\ op(\ A\ )\ appears\ on\ the\ left}}
\DoxyCodeLine{01667\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ or\ right\ of\ X\ as\ follows:}}
\DoxyCodeLine{01668\ \textcolor{comment}{}}
\DoxyCodeLine{01669\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ SIDE\ =\ 'L'\ or\ 'l'\ \ \ op(\ A\ )*X\ =\ alpha*B.}}
\DoxyCodeLine{01670\ \textcolor{comment}{}}
\DoxyCodeLine{01671\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ SIDE\ =\ 'R'\ or\ 'r'\ \ \ X*op(\ A\ )\ =\ alpha*B.}}
\DoxyCodeLine{01672\ \textcolor{comment}{}}
\DoxyCodeLine{01673\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01674\ \textcolor{comment}{}}
\DoxyCodeLine{01675\ \textcolor{comment}{\ \ \ \ UPLO\ \ \ -\/\ CHARACTER*1.}}
\DoxyCodeLine{01676\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ UPLO\ specifies\ whether\ the\ matrix\ A\ is\ an\ upper\ or}}
\DoxyCodeLine{01677\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ lower\ triangular\ matrix\ as\ follows:}}
\DoxyCodeLine{01678\ \textcolor{comment}{}}
\DoxyCodeLine{01679\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ UPLO\ =\ 'U'\ or\ 'u'\ \ \ A\ is\ an\ upper\ triangular\ matrix.}}
\DoxyCodeLine{01680\ \textcolor{comment}{}}
\DoxyCodeLine{01681\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ UPLO\ =\ 'L'\ or\ 'l'\ \ \ A\ is\ a\ lower\ triangular\ matrix.}}
\DoxyCodeLine{01682\ \textcolor{comment}{}}
\DoxyCodeLine{01683\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01684\ \textcolor{comment}{}}
\DoxyCodeLine{01685\ \textcolor{comment}{\ \ \ \ TRANSA\ -\/\ CHARACTER*1.}}
\DoxyCodeLine{01686\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ TRANSA\ specifies\ the\ form\ of\ op(\ A\ )\ to\ be\ used\ in}}
\DoxyCodeLine{01687\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ the\ matrix\ multiplication\ as\ follows:}}
\DoxyCodeLine{01688\ \textcolor{comment}{}}
\DoxyCodeLine{01689\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ TRANSA\ =\ 'N'\ or\ 'n'\ \ \ op(\ A\ )\ =\ A.}}
\DoxyCodeLine{01690\ \textcolor{comment}{}}
\DoxyCodeLine{01691\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ TRANSA\ =\ 'T'\ or\ 't'\ \ \ op(\ A\ )\ =\ A'.}}
\DoxyCodeLine{01692\ \textcolor{comment}{}}
\DoxyCodeLine{01693\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ TRANSA\ =\ 'C'\ or\ 'c'\ \ \ op(\ A\ )\ =\ A'.}}
\DoxyCodeLine{01694\ \textcolor{comment}{}}
\DoxyCodeLine{01695\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01696\ \textcolor{comment}{}}
\DoxyCodeLine{01697\ \textcolor{comment}{\ \ \ \ DIAG\ \ \ -\/\ CHARACTER*1.}}
\DoxyCodeLine{01698\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ DIAG\ specifies\ whether\ or\ not\ A\ is\ unit\ triangular}}
\DoxyCodeLine{01699\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ as\ follows:}}
\DoxyCodeLine{01700\ \textcolor{comment}{}}
\DoxyCodeLine{01701\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ DIAG\ =\ 'U'\ or\ 'u'\ \ \ A\ is\ assumed\ to\ be\ unit\ triangular.}}
\DoxyCodeLine{01702\ \textcolor{comment}{}}
\DoxyCodeLine{01703\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ DIAG\ =\ 'N'\ or\ 'n'\ \ \ A\ is\ not\ assumed\ to\ be\ unit}}
\DoxyCodeLine{01704\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ triangular.}}
\DoxyCodeLine{01705\ \textcolor{comment}{}}
\DoxyCodeLine{01706\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01707\ \textcolor{comment}{}}
\DoxyCodeLine{01708\ \textcolor{comment}{\ \ \ \ M\ \ \ \ \ \ -\/\ INTEGER.}}
\DoxyCodeLine{01709\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ M\ specifies\ the\ number\ of\ rows\ of\ B.\ M\ must\ be\ at}}
\DoxyCodeLine{01710\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ least\ zero.}}
\DoxyCodeLine{01711\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01712\ \textcolor{comment}{}}
\DoxyCodeLine{01713\ \textcolor{comment}{\ \ \ \ N\ \ \ \ \ \ -\/\ INTEGER.}}
\DoxyCodeLine{01714\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ N\ specifies\ the\ number\ of\ columns\ of\ B.\ \ N\ must\ be}}
\DoxyCodeLine{01715\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ at\ least\ zero.}}
\DoxyCodeLine{01716\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01717\ \textcolor{comment}{}}
\DoxyCodeLine{01718\ \textcolor{comment}{\ \ \ \ ALPHA\ \ -\/\ REAL\ \ \ \ \ \ \ \ \ \ \ \ .}}
\DoxyCodeLine{01719\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ \ ALPHA\ specifies\ the\ scalar\ \ alpha.\ When\ \ alpha\ is}}
\DoxyCodeLine{01720\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ zero\ then\ \ A\ is\ not\ referenced\ and\ \ B\ need\ not\ be\ set\ before}}
\DoxyCodeLine{01721\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ entry.}}
\DoxyCodeLine{01722\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01723\ \textcolor{comment}{}}
\DoxyCodeLine{01724\ \textcolor{comment}{\ \ \ \ A\ \ \ \ \ \ -\/\ REAL\ \ \ \ \ \ \ \ \ \ \ \ \ array\ of\ DIMENSION\ (\ LDA,\ k\ ),\ where\ k\ is\ m}}
\DoxyCodeLine{01725\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ when\ \ SIDE\ =\ 'L'\ or\ 'l'\ \ and\ is\ \ n\ \ when\ \ SIDE\ =\ 'R'\ or\ 'r'.}}
\DoxyCodeLine{01726\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Before\ entry\ \ with\ \ UPLO\ =\ 'U'\ or\ 'u',\ \ the\ \ leading\ \ k\ by\ k}}
\DoxyCodeLine{01727\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ upper\ triangular\ part\ of\ the\ array\ \ A\ must\ contain\ the\ upper}}
\DoxyCodeLine{01728\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ triangular\ matrix\ \ and\ the\ strictly\ lower\ triangular\ part\ of}}
\DoxyCodeLine{01729\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ A\ is\ not\ referenced.}}
\DoxyCodeLine{01730\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Before\ entry\ \ with\ \ UPLO\ =\ 'L'\ or\ 'l',\ \ the\ \ leading\ \ k\ by\ k}}
\DoxyCodeLine{01731\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ lower\ triangular\ part\ of\ the\ array\ \ A\ must\ contain\ the\ lower}}
\DoxyCodeLine{01732\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ triangular\ matrix\ \ and\ the\ strictly\ upper\ triangular\ part\ of}}
\DoxyCodeLine{01733\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ A\ is\ not\ referenced.}}
\DoxyCodeLine{01734\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Note\ that\ when\ \ DIAG\ =\ 'U'\ or\ 'u',\ \ the\ diagonal\ elements\ of}}
\DoxyCodeLine{01735\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ A\ \ are\ not\ referenced\ either,\ \ but\ are\ assumed\ to\ be\ \ unity.}}
\DoxyCodeLine{01736\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01737\ \textcolor{comment}{}}
\DoxyCodeLine{01738\ \textcolor{comment}{\ \ \ \ LDA\ \ \ \ -\/\ INTEGER.}}
\DoxyCodeLine{01739\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ LDA\ specifies\ the\ first\ dimension\ of\ A\ as\ declared}}
\DoxyCodeLine{01740\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ in\ the\ calling\ (sub)\ program.\ \ When\ \ SIDE\ =\ 'L'\ or\ 'l'\ \ then}}
\DoxyCodeLine{01741\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ LDA\ \ must\ be\ at\ least\ \ max(\ 1,\ m\ ),\ \ when\ \ SIDE\ =\ 'R'\ or\ 'r'}}
\DoxyCodeLine{01742\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ then\ LDA\ must\ be\ at\ least\ max(\ 1,\ n\ ).}}
\DoxyCodeLine{01743\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01744\ \textcolor{comment}{}}
\DoxyCodeLine{01745\ \textcolor{comment}{\ \ \ \ B\ \ \ \ \ \ -\/\ REAL\ \ \ \ \ \ \ \ \ \ \ \ \ array\ of\ DIMENSION\ (\ LDB,\ n\ ).}}
\DoxyCodeLine{01746\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Before\ entry,\ \ the\ leading\ \ m\ by\ n\ part\ of\ the\ array\ \ B\ must}}
\DoxyCodeLine{01747\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ contain\ \ the\ \ right-\/hand\ \ side\ \ matrix\ \ B,\ \ and\ \ on\ exit\ \ is}}
\DoxyCodeLine{01748\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ overwritten\ by\ the\ solution\ matrix\ \ X.}}
\DoxyCodeLine{01749\ \textcolor{comment}{}}
\DoxyCodeLine{01750\ \textcolor{comment}{\ \ \ \ LDB\ \ \ \ -\/\ INTEGER.}}
\DoxyCodeLine{01751\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ On\ entry,\ LDB\ specifies\ the\ first\ dimension\ of\ B\ as\ declared}}
\DoxyCodeLine{01752\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ in\ \ the\ \ calling\ \ (sub)\ \ program.\ \ \ LDB\ \ must\ \ be\ \ at\ \ least}}
\DoxyCodeLine{01753\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ max(\ 1,\ m\ ).}}
\DoxyCodeLine{01754\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ \ Unchanged\ on\ exit.}}
\DoxyCodeLine{01755\ \textcolor{comment}{}}
\DoxyCodeLine{01756\ \textcolor{comment}{}}
\DoxyCodeLine{01757\ \textcolor{comment}{\ \ \ \ Level\ 3\ Blas\ routine.}}
\DoxyCodeLine{01758\ \textcolor{comment}{}}
\DoxyCodeLine{01759\ \textcolor{comment}{}}
\DoxyCodeLine{01760\ \textcolor{comment}{\ \ \ \ -\/-\/\ Written\ on\ 8-\/February-\/1989.}}
\DoxyCodeLine{01761\ \textcolor{comment}{\ \ \ \ \ \ \ Jack\ Dongarra,\ Argonne\ National\ Laboratory.}}
\DoxyCodeLine{01762\ \textcolor{comment}{\ \ \ \ \ \ \ Iain\ Duff,\ AERE\ Harwell.}}
\DoxyCodeLine{01763\ \textcolor{comment}{\ \ \ \ \ \ \ Jeremy\ Du\ Croz,\ Numerical\ Algorithms\ Group\ Ltd.}}
\DoxyCodeLine{01764\ \textcolor{comment}{\ \ \ \ \ \ \ Sven\ Hammarling,\ Numerical\ Algorithms\ Group\ Ltd.}}
\DoxyCodeLine{01765\ \textcolor{comment}{}}
\DoxyCodeLine{01766\ \textcolor{comment}{}}
\DoxyCodeLine{01767\ \textcolor{comment}{\ \ \ \ \ \ \ Test\ the\ input\ parameters.}}
\DoxyCodeLine{01768\ \textcolor{comment}{*/}}
\DoxyCodeLine{01769\ }
\DoxyCodeLine{01770\ \ \ \ \ \textcolor{comment}{/*\ Parameter\ adjustments\ */}}
\DoxyCodeLine{01771\ \ \ \ \ a\_dim1\ =\ *lda;}
\DoxyCodeLine{01772\ \ \ \ \ a\_offset\ =\ 1\ +\ a\_dim1;}
\DoxyCodeLine{01773\ \ \ \ \ a\ -\/=\ a\_offset;}
\DoxyCodeLine{01774\ \ \ \ \ b\_dim1\ =\ *ldb;}
\DoxyCodeLine{01775\ \ \ \ \ b\_offset\ =\ 1\ +\ b\_dim1;}
\DoxyCodeLine{01776\ \ \ \ \ b\ -\/=\ b\_offset;}
\DoxyCodeLine{01777\ }
\DoxyCodeLine{01778\ \ \ \ \ \textcolor{comment}{/*\ Function\ Body\ */}}
\DoxyCodeLine{01779\ \ \ \ \ lside\ =\ lsame\_(side,\ \textcolor{stringliteral}{"{}L"{}});}
\DoxyCodeLine{01780\ \ \ \ \ \textcolor{keywordflow}{if}\ (lside)\ \{}
\DoxyCodeLine{01781\ \ \ \ \ \ \ \ \ nrowa\ =\ *m;}
\DoxyCodeLine{01782\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{01783\ \ \ \ \ \ \ \ \ nrowa\ =\ *n;}
\DoxyCodeLine{01784\ \ \ \ \ \}}
\DoxyCodeLine{01785\ \ \ \ \ nounit\ =\ lsame\_(diag,\ \textcolor{stringliteral}{"{}N"{}});}
\DoxyCodeLine{01786\ \ \ \ \ upper\ =\ lsame\_(uplo,\ \textcolor{stringliteral}{"{}U"{}});}
\DoxyCodeLine{01787\ }
\DoxyCodeLine{01788\ \ \ \ \ info\ =\ 0;}
\DoxyCodeLine{01789\ \ \ \ \ \textcolor{keywordflow}{if}\ (!\ lside\ \&\&\ !\ lsame\_(side,\ \textcolor{stringliteral}{"{}R"{}}))\ \{}
\DoxyCodeLine{01790\ \ \ \ \ \ \ \ \ info\ =\ 1;}
\DoxyCodeLine{01791\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (!\ upper\ \&\&\ !\ lsame\_(uplo,\ \textcolor{stringliteral}{"{}L"{}}))\ \{}
\DoxyCodeLine{01792\ \ \ \ \ \ \ \ \ info\ =\ 2;}
\DoxyCodeLine{01793\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (!\ lsame\_(transa,\ \textcolor{stringliteral}{"{}N"{}})\ \&\&\ !\ lsame\_(transa,}
\DoxyCodeLine{01794\ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{stringliteral}{"{}T"{}})\ \&\&\ !\ lsame\_(transa,\ \textcolor{stringliteral}{"{}C"{}}))\ \{}
\DoxyCodeLine{01795\ \ \ \ \ \ \ \ \ info\ =\ 3;}
\DoxyCodeLine{01796\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (!\ lsame\_(diag,\ \textcolor{stringliteral}{"{}U"{}})\ \&\&\ !\ lsame\_(diag,}
\DoxyCodeLine{01797\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{stringliteral}{"{}N"{}}))\ \{}
\DoxyCodeLine{01798\ \ \ \ \ \ \ \ \ info\ =\ 4;}
\DoxyCodeLine{01799\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (*m\ <\ 0)\ \{}
\DoxyCodeLine{01800\ \ \ \ \ \ \ \ \ info\ =\ 5;}
\DoxyCodeLine{01801\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (*n\ <\ 0)\ \{}
\DoxyCodeLine{01802\ \ \ \ \ \ \ \ \ info\ =\ 6;}
\DoxyCodeLine{01803\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (*lda\ <\ max(1,nrowa))\ \{}
\DoxyCodeLine{01804\ \ \ \ \ \ \ \ \ info\ =\ 9;}
\DoxyCodeLine{01805\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \textcolor{keywordflow}{if}\ (*ldb\ <\ max(1,*m))\ \{}
\DoxyCodeLine{01806\ \ \ \ \ \ \ \ \ info\ =\ 11;}
\DoxyCodeLine{01807\ \ \ \ \ \}}
\DoxyCodeLine{01808\ \ \ \ \ \textcolor{keywordflow}{if}\ (info\ !=\ 0)\ \{}
\DoxyCodeLine{01809\ \ \ \ \ \ \ \ \ xerbla\_(\textcolor{stringliteral}{"{}STRSM\ "{}},\ \&info);}
\DoxyCodeLine{01810\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{return}\ 0;}
\DoxyCodeLine{01811\ \ \ \ \ \}}
\DoxyCodeLine{01812\ }
\DoxyCodeLine{01813\ \textcolor{comment}{/*\ \ \ \ \ Quick\ return\ if\ possible.\ */}}
\DoxyCodeLine{01814\ }
\DoxyCodeLine{01815\ \ \ \ \ \textcolor{keywordflow}{if}\ (*n\ ==\ 0)\ \{}
\DoxyCodeLine{01816\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{return}\ 0;}
\DoxyCodeLine{01817\ \ \ \ \ \}}
\DoxyCodeLine{01818\ }
\DoxyCodeLine{01819\ \textcolor{comment}{/*\ \ \ \ \ And\ when\ \ alpha.eq.zero.\ */}}
\DoxyCodeLine{01820\ }
\DoxyCodeLine{01821\ \ \ \ \ \textcolor{keywordflow}{if}\ (*alpha\ ==\ 0.f)\ \{}
\DoxyCodeLine{01822\ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{01823\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{01824\ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{01825\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{01826\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ b[i\_\_\ +\ j\ *\ b\_dim1]\ =\ 0.f;}
\DoxyCodeLine{01827\ \textcolor{comment}{/*\ L10:\ */}}
\DoxyCodeLine{01828\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01829\ \textcolor{comment}{/*\ L20:\ */}}
\DoxyCodeLine{01830\ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01831\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{return}\ 0;}
\DoxyCodeLine{01832\ \ \ \ \ \}}
\DoxyCodeLine{01833\ }
\DoxyCodeLine{01834\ \textcolor{comment}{/*\ \ \ \ \ Start\ the\ operations.\ */}}
\DoxyCodeLine{01835\ }
\DoxyCodeLine{01836\ \ \ \ \ \textcolor{keywordflow}{if}\ (lside)\ \{}
\DoxyCodeLine{01837\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (lsame\_(transa,\ \textcolor{stringliteral}{"{}N"{}}))\ \{}
\DoxyCodeLine{01838\ }
\DoxyCodeLine{01839\ \textcolor{comment}{/*\ \ \ \ \ \ \ \ \ \ \ Form\ \ B\ :=\ alpha*inv(\ A\ )*B.\ */}}
\DoxyCodeLine{01840\ }
\DoxyCodeLine{01841\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (upper)\ \{}
\DoxyCodeLine{01842\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{01843\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{01844\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (*alpha\ !=\ 1.f)\ \{}
\DoxyCodeLine{01845\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{01846\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{01847\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ b[i\_\_\ +\ j\ *\ b\_dim1]\ =\ *alpha\ *\ b[i\_\_\ +\ j\ *\ b\_dim1]}
\DoxyCodeLine{01848\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ ;}
\DoxyCodeLine{01849\ \textcolor{comment}{/*\ L30:\ */}}
\DoxyCodeLine{01850\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01851\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01852\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (k\ =\ *m;\ k\ >=\ 1;\ -\/-\/k)\ \{}
\DoxyCodeLine{01853\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (b[k\ +\ j\ *\ b\_dim1]\ !=\ 0.f)\ \{}
\DoxyCodeLine{01854\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (nounit)\ \{}
\DoxyCodeLine{01855\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ b[k\ +\ j\ *\ b\_dim1]\ /=\ a[k\ +\ k\ *\ a\_dim1];}
\DoxyCodeLine{01856\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01857\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ k\ -\/\ 1;}
\DoxyCodeLine{01858\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{01859\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ b[i\_\_\ +\ j\ *\ b\_dim1]\ -\/=\ b[k\ +\ j\ *\ b\_dim1]\ *\ a[}
\DoxyCodeLine{01860\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_\ +\ k\ *\ a\_dim1];}
\DoxyCodeLine{01861\ \textcolor{comment}{/*\ L40:\ */}}
\DoxyCodeLine{01862\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01863\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01864\ \textcolor{comment}{/*\ L50:\ */}}
\DoxyCodeLine{01865\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01866\ \textcolor{comment}{/*\ L60:\ */}}
\DoxyCodeLine{01867\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01868\ \ \ \ \ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{01869\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{01870\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{01871\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (*alpha\ !=\ 1.f)\ \{}
\DoxyCodeLine{01872\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{01873\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{01874\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ b[i\_\_\ +\ j\ *\ b\_dim1]\ =\ *alpha\ *\ b[i\_\_\ +\ j\ *\ b\_dim1]}
\DoxyCodeLine{01875\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ ;}
\DoxyCodeLine{01876\ \textcolor{comment}{/*\ L70:\ */}}
\DoxyCodeLine{01877\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01878\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01879\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{01880\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (k\ =\ 1;\ k\ <=\ i\_\_2;\ ++k)\ \{}
\DoxyCodeLine{01881\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (b[k\ +\ j\ *\ b\_dim1]\ !=\ 0.f)\ \{}
\DoxyCodeLine{01882\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (nounit)\ \{}
\DoxyCodeLine{01883\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ b[k\ +\ j\ *\ b\_dim1]\ /=\ a[k\ +\ k\ *\ a\_dim1];}
\DoxyCodeLine{01884\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01885\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_3\ =\ *m;}
\DoxyCodeLine{01886\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ k\ +\ 1;\ i\_\_\ <=\ i\_\_3;\ ++i\_\_)\ \{}
\DoxyCodeLine{01887\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ b[i\_\_\ +\ j\ *\ b\_dim1]\ -\/=\ b[k\ +\ j\ *\ b\_dim1]\ *\ a[}
\DoxyCodeLine{01888\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_\ +\ k\ *\ a\_dim1];}
\DoxyCodeLine{01889\ \textcolor{comment}{/*\ L80:\ */}}
\DoxyCodeLine{01890\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01891\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01892\ \textcolor{comment}{/*\ L90:\ */}}
\DoxyCodeLine{01893\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01894\ \textcolor{comment}{/*\ L100:\ */}}
\DoxyCodeLine{01895\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01896\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01897\ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{01898\ }
\DoxyCodeLine{01899\ \textcolor{comment}{/*\ \ \ \ \ \ \ \ \ \ \ Form\ \ B\ :=\ alpha*inv(\ A'\ )*B.\ */}}
\DoxyCodeLine{01900\ }
\DoxyCodeLine{01901\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (upper)\ \{}
\DoxyCodeLine{01902\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{01903\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{01904\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{01905\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{01906\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ =\ *alpha\ *\ b[i\_\_\ +\ j\ *\ b\_dim1];}
\DoxyCodeLine{01907\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_3\ =\ i\_\_\ -\/\ 1;}
\DoxyCodeLine{01908\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (k\ =\ 1;\ k\ <=\ i\_\_3;\ ++k)\ \{}
\DoxyCodeLine{01909\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ -\/=\ a[k\ +\ i\_\_\ *\ a\_dim1]\ *\ b[k\ +\ j\ *\ b\_dim1];}
\DoxyCodeLine{01910\ \textcolor{comment}{/*\ L110:\ */}}
\DoxyCodeLine{01911\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01912\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (nounit)\ \{}
\DoxyCodeLine{01913\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ /=\ a[i\_\_\ +\ i\_\_\ *\ a\_dim1];}
\DoxyCodeLine{01914\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01915\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ b[i\_\_\ +\ j\ *\ b\_dim1]\ =\ temp;}
\DoxyCodeLine{01916\ \textcolor{comment}{/*\ L120:\ */}}
\DoxyCodeLine{01917\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01918\ \textcolor{comment}{/*\ L130:\ */}}
\DoxyCodeLine{01919\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01920\ \ \ \ \ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{01921\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{01922\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{01923\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ *m;\ i\_\_\ >=\ 1;\ -\/-\/i\_\_)\ \{}
\DoxyCodeLine{01924\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ =\ *alpha\ *\ b[i\_\_\ +\ j\ *\ b\_dim1];}
\DoxyCodeLine{01925\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{01926\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (k\ =\ i\_\_\ +\ 1;\ k\ <=\ i\_\_2;\ ++k)\ \{}
\DoxyCodeLine{01927\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ -\/=\ a[k\ +\ i\_\_\ *\ a\_dim1]\ *\ b[k\ +\ j\ *\ b\_dim1];}
\DoxyCodeLine{01928\ \textcolor{comment}{/*\ L140:\ */}}
\DoxyCodeLine{01929\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01930\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (nounit)\ \{}
\DoxyCodeLine{01931\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ /=\ a[i\_\_\ +\ i\_\_\ *\ a\_dim1];}
\DoxyCodeLine{01932\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01933\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ b[i\_\_\ +\ j\ *\ b\_dim1]\ =\ temp;}
\DoxyCodeLine{01934\ \textcolor{comment}{/*\ L150:\ */}}
\DoxyCodeLine{01935\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01936\ \textcolor{comment}{/*\ L160:\ */}}
\DoxyCodeLine{01937\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01938\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01939\ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01940\ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{01941\ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (lsame\_(transa,\ \textcolor{stringliteral}{"{}N"{}}))\ \{}
\DoxyCodeLine{01942\ }
\DoxyCodeLine{01943\ \textcolor{comment}{/*\ \ \ \ \ \ \ \ \ \ \ Form\ \ B\ :=\ alpha*B*inv(\ A\ ).\ */}}
\DoxyCodeLine{01944\ }
\DoxyCodeLine{01945\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (upper)\ \{}
\DoxyCodeLine{01946\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{01947\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{01948\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (*alpha\ !=\ 1.f)\ \{}
\DoxyCodeLine{01949\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{01950\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{01951\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ b[i\_\_\ +\ j\ *\ b\_dim1]\ =\ *alpha\ *\ b[i\_\_\ +\ j\ *\ b\_dim1]}
\DoxyCodeLine{01952\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ ;}
\DoxyCodeLine{01953\ \textcolor{comment}{/*\ L170:\ */}}
\DoxyCodeLine{01954\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01955\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01956\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ j\ -\/\ 1;}
\DoxyCodeLine{01957\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (k\ =\ 1;\ k\ <=\ i\_\_2;\ ++k)\ \{}
\DoxyCodeLine{01958\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (a[k\ +\ j\ *\ a\_dim1]\ !=\ 0.f)\ \{}
\DoxyCodeLine{01959\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_3\ =\ *m;}
\DoxyCodeLine{01960\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_3;\ ++i\_\_)\ \{}
\DoxyCodeLine{01961\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ b[i\_\_\ +\ j\ *\ b\_dim1]\ -\/=\ a[k\ +\ j\ *\ a\_dim1]\ *\ b[}
\DoxyCodeLine{01962\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_\ +\ k\ *\ b\_dim1];}
\DoxyCodeLine{01963\ \textcolor{comment}{/*\ L180:\ */}}
\DoxyCodeLine{01964\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01965\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01966\ \textcolor{comment}{/*\ L190:\ */}}
\DoxyCodeLine{01967\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01968\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (nounit)\ \{}
\DoxyCodeLine{01969\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ =\ 1.f\ /\ a[j\ +\ j\ *\ a\_dim1];}
\DoxyCodeLine{01970\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{01971\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{01972\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ b[i\_\_\ +\ j\ *\ b\_dim1]\ =\ temp\ *\ b[i\_\_\ +\ j\ *\ b\_dim1];}
\DoxyCodeLine{01973\ \textcolor{comment}{/*\ L200:\ */}}
\DoxyCodeLine{01974\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01975\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01976\ \textcolor{comment}{/*\ L210:\ */}}
\DoxyCodeLine{01977\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01978\ \ \ \ \ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{01979\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ *n;\ j\ >=\ 1;\ -\/-\/j)\ \{}
\DoxyCodeLine{01980\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (*alpha\ !=\ 1.f)\ \{}
\DoxyCodeLine{01981\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *m;}
\DoxyCodeLine{01982\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_1;\ ++i\_\_)\ \{}
\DoxyCodeLine{01983\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ b[i\_\_\ +\ j\ *\ b\_dim1]\ =\ *alpha\ *\ b[i\_\_\ +\ j\ *\ b\_dim1]}
\DoxyCodeLine{01984\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ ;}
\DoxyCodeLine{01985\ \textcolor{comment}{/*\ L220:\ */}}
\DoxyCodeLine{01986\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01987\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01988\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{01989\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (k\ =\ j\ +\ 1;\ k\ <=\ i\_\_1;\ ++k)\ \{}
\DoxyCodeLine{01990\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (a[k\ +\ j\ *\ a\_dim1]\ !=\ 0.f)\ \{}
\DoxyCodeLine{01991\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{01992\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{01993\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ b[i\_\_\ +\ j\ *\ b\_dim1]\ -\/=\ a[k\ +\ j\ *\ a\_dim1]\ *\ b[}
\DoxyCodeLine{01994\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_\ +\ k\ *\ b\_dim1];}
\DoxyCodeLine{01995\ \textcolor{comment}{/*\ L230:\ */}}
\DoxyCodeLine{01996\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01997\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{01998\ \textcolor{comment}{/*\ L240:\ */}}
\DoxyCodeLine{01999\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{02000\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (nounit)\ \{}
\DoxyCodeLine{02001\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ =\ 1.f\ /\ a[j\ +\ j\ *\ a\_dim1];}
\DoxyCodeLine{02002\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *m;}
\DoxyCodeLine{02003\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_1;\ ++i\_\_)\ \{}
\DoxyCodeLine{02004\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ b[i\_\_\ +\ j\ *\ b\_dim1]\ =\ temp\ *\ b[i\_\_\ +\ j\ *\ b\_dim1];}
\DoxyCodeLine{02005\ \textcolor{comment}{/*\ L250:\ */}}
\DoxyCodeLine{02006\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{02007\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{02008\ \textcolor{comment}{/*\ L260:\ */}}
\DoxyCodeLine{02009\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{02010\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{02011\ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{02012\ }
\DoxyCodeLine{02013\ \textcolor{comment}{/*\ \ \ \ \ \ \ \ \ \ \ Form\ \ B\ :=\ alpha*B*inv(\ A'\ ).\ */}}
\DoxyCodeLine{02014\ }
\DoxyCodeLine{02015\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (upper)\ \{}
\DoxyCodeLine{02016\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (k\ =\ *n;\ k\ >=\ 1;\ -\/-\/k)\ \{}
\DoxyCodeLine{02017\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (nounit)\ \{}
\DoxyCodeLine{02018\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ =\ 1.f\ /\ a[k\ +\ k\ *\ a\_dim1];}
\DoxyCodeLine{02019\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *m;}
\DoxyCodeLine{02020\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_1;\ ++i\_\_)\ \{}
\DoxyCodeLine{02021\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ b[i\_\_\ +\ k\ *\ b\_dim1]\ =\ temp\ *\ b[i\_\_\ +\ k\ *\ b\_dim1];}
\DoxyCodeLine{02022\ \textcolor{comment}{/*\ L270:\ */}}
\DoxyCodeLine{02023\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{02024\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{02025\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ k\ -\/\ 1;}
\DoxyCodeLine{02026\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ 1;\ j\ <=\ i\_\_1;\ ++j)\ \{}
\DoxyCodeLine{02027\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (a[j\ +\ k\ *\ a\_dim1]\ !=\ 0.f)\ \{}
\DoxyCodeLine{02028\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ =\ a[j\ +\ k\ *\ a\_dim1];}
\DoxyCodeLine{02029\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{02030\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{02031\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ b[i\_\_\ +\ j\ *\ b\_dim1]\ -\/=\ temp\ *\ b[i\_\_\ +\ k\ *}
\DoxyCodeLine{02032\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ b\_dim1];}
\DoxyCodeLine{02033\ \textcolor{comment}{/*\ L280:\ */}}
\DoxyCodeLine{02034\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{02035\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{02036\ \textcolor{comment}{/*\ L290:\ */}}
\DoxyCodeLine{02037\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{02038\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (*alpha\ !=\ 1.f)\ \{}
\DoxyCodeLine{02039\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *m;}
\DoxyCodeLine{02040\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_1;\ ++i\_\_)\ \{}
\DoxyCodeLine{02041\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ b[i\_\_\ +\ k\ *\ b\_dim1]\ =\ *alpha\ *\ b[i\_\_\ +\ k\ *\ b\_dim1]}
\DoxyCodeLine{02042\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ ;}
\DoxyCodeLine{02043\ \textcolor{comment}{/*\ L300:\ */}}
\DoxyCodeLine{02044\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{02045\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{02046\ \textcolor{comment}{/*\ L310:\ */}}
\DoxyCodeLine{02047\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{02048\ \ \ \ \ \ \ \ \ \ \ \ \ \}\ \textcolor{keywordflow}{else}\ \{}
\DoxyCodeLine{02049\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_1\ =\ *n;}
\DoxyCodeLine{02050\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (k\ =\ 1;\ k\ <=\ i\_\_1;\ ++k)\ \{}
\DoxyCodeLine{02051\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (nounit)\ \{}
\DoxyCodeLine{02052\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ =\ 1.f\ /\ a[k\ +\ k\ *\ a\_dim1];}
\DoxyCodeLine{02053\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{02054\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{02055\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ b[i\_\_\ +\ k\ *\ b\_dim1]\ =\ temp\ *\ b[i\_\_\ +\ k\ *\ b\_dim1];}
\DoxyCodeLine{02056\ \textcolor{comment}{/*\ L320:\ */}}
\DoxyCodeLine{02057\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{02058\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{02059\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *n;}
\DoxyCodeLine{02060\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (j\ =\ k\ +\ 1;\ j\ <=\ i\_\_2;\ ++j)\ \{}
\DoxyCodeLine{02061\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (a[j\ +\ k\ *\ a\_dim1]\ !=\ 0.f)\ \{}
\DoxyCodeLine{02062\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ temp\ =\ a[j\ +\ k\ *\ a\_dim1];}
\DoxyCodeLine{02063\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_3\ =\ *m;}
\DoxyCodeLine{02064\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_3;\ ++i\_\_)\ \{}
\DoxyCodeLine{02065\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ b[i\_\_\ +\ j\ *\ b\_dim1]\ -\/=\ temp\ *\ b[i\_\_\ +\ k\ *}
\DoxyCodeLine{02066\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ b\_dim1];}
\DoxyCodeLine{02067\ \textcolor{comment}{/*\ L330:\ */}}
\DoxyCodeLine{02068\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{02069\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{02070\ \textcolor{comment}{/*\ L340:\ */}}
\DoxyCodeLine{02071\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{02072\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{if}\ (*alpha\ !=\ 1.f)\ \{}
\DoxyCodeLine{02073\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\_\_2\ =\ *m;}
\DoxyCodeLine{02074\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{keywordflow}{for}\ (i\_\_\ =\ 1;\ i\_\_\ <=\ i\_\_2;\ ++i\_\_)\ \{}
\DoxyCodeLine{02075\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ b[i\_\_\ +\ k\ *\ b\_dim1]\ =\ *alpha\ *\ b[i\_\_\ +\ k\ *\ b\_dim1]}
\DoxyCodeLine{02076\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ ;}
\DoxyCodeLine{02077\ \textcolor{comment}{/*\ L350:\ */}}
\DoxyCodeLine{02078\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{02079\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{02080\ \textcolor{comment}{/*\ L360:\ */}}
\DoxyCodeLine{02081\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{02082\ \ \ \ \ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{02083\ \ \ \ \ \ \ \ \ \}}
\DoxyCodeLine{02084\ \ \ \ \ \}}
\DoxyCodeLine{02085\ }
\DoxyCodeLine{02086\ \ \ \ \ \textcolor{keywordflow}{return}\ 0;}
\DoxyCodeLine{02087\ }
\DoxyCodeLine{02088\ \textcolor{comment}{/*\ \ \ \ \ End\ of\ STRSM\ .\ */}}
\DoxyCodeLine{02089\ }
\DoxyCodeLine{02090\ \}\ \textcolor{comment}{/*\ strsm\_\ */}}
\DoxyCodeLine{02091\ }
\DoxyCodeLine{02092\ \textcolor{comment}{/*\ Subroutine\ */}\ \textcolor{keywordtype}{int}\ xerbla\_(\textcolor{keywordtype}{char}\ *srname,\ integer\ *info)}
\DoxyCodeLine{02093\ \{}
\DoxyCodeLine{02094\ \ \ \ \ \textcolor{comment}{/*\ Format\ strings\ */}}
\DoxyCodeLine{02095\ \ \ \ \ \textcolor{keyword}{static}\ \textcolor{keywordtype}{char}\ fmt\_9999[]\ =\ \textcolor{stringliteral}{"{}(\(\backslash\)002\ **\ On\ entry\ to\ \(\backslash\)002,a6,\(\backslash\)002\ parameter\ nu"{}}}
\DoxyCodeLine{02096\ \ \ \ \ \ \ \ \ \ \ \ \ \textcolor{stringliteral}{"{}mber\ \(\backslash\)002,i2,\(\backslash\)002\ had\ \(\backslash\)002,\(\backslash\)002an\ illegal\ value\(\backslash\)002)"{}};}
\DoxyCodeLine{02097\ }
\DoxyCodeLine{02098\ \ \ \ \ \textcolor{comment}{/*\ Builtin\ functions\ */}}
\DoxyCodeLine{02099\ \ \ \ \ integer\ s\_wsfe(cilist\ *),\ do\_fio(integer\ *,\ \textcolor{keywordtype}{char}\ *,\ ftnlen),\ e\_wsfe(\textcolor{keywordtype}{void});}
\DoxyCodeLine{02100\ \ \ \ \ \textcolor{comment}{/*\ Subroutine\ */}\ \textcolor{keywordtype}{int}\ s\_stop(\textcolor{keywordtype}{char}\ *,\ ftnlen);}
\DoxyCodeLine{02101\ }
\DoxyCodeLine{02102\ \ \ \ \ \textcolor{comment}{/*\ Fortran\ I/O\ blocks\ */}}
\DoxyCodeLine{02103\ \ \ \ \ \textcolor{keyword}{static}\ cilist\ io\_\_\_60\ =\ \{\ 0,\ 6,\ 0,\ fmt\_9999,\ 0\ \};}
\DoxyCodeLine{02104\ }
\DoxyCodeLine{02105\ }
\DoxyCodeLine{02106\ \textcolor{comment}{/*}}
\DoxyCodeLine{02107\ \textcolor{comment}{\ \ \ \ -\/-\/\ LAPACK\ auxiliary\ routine\ (preliminary\ version)\ -\/-\/}}
\DoxyCodeLine{02108\ \textcolor{comment}{\ \ \ \ \ \ \ Univ.\ of\ Tennessee,\ Univ.\ of\ California\ Berkeley,\ NAG\ Ltd.,}}
\DoxyCodeLine{02109\ \textcolor{comment}{\ \ \ \ \ \ \ Courant\ Institute,\ Argonne\ National\ Lab,\ and\ Rice\ University}}
\DoxyCodeLine{02110\ \textcolor{comment}{\ \ \ \ \ \ \ February\ 29,\ 1992}}
\DoxyCodeLine{02111\ \textcolor{comment}{}}
\DoxyCodeLine{02112\ \textcolor{comment}{}}
\DoxyCodeLine{02113\ \textcolor{comment}{\ \ \ \ Purpose}}
\DoxyCodeLine{02114\ \textcolor{comment}{\ \ \ \ =======}}
\DoxyCodeLine{02115\ \textcolor{comment}{}}
\DoxyCodeLine{02116\ \textcolor{comment}{\ \ \ \ XERBLA\ \ is\ an\ error\ handler\ for\ the\ LAPACK\ routines.}}
\DoxyCodeLine{02117\ \textcolor{comment}{\ \ \ \ It\ is\ called\ by\ an\ LAPACK\ routine\ if\ an\ input\ parameter\ has\ an}}
\DoxyCodeLine{02118\ \textcolor{comment}{\ \ \ \ invalid\ value.\ \ A\ message\ is\ printed\ and\ execution\ stops.}}
\DoxyCodeLine{02119\ \textcolor{comment}{}}
\DoxyCodeLine{02120\ \textcolor{comment}{\ \ \ \ Installers\ may\ consider\ modifying\ the\ STOP\ statement\ in\ order\ to}}
\DoxyCodeLine{02121\ \textcolor{comment}{\ \ \ \ call\ system-\/specific\ exception-\/handling\ facilities.}}
\DoxyCodeLine{02122\ \textcolor{comment}{}}
\DoxyCodeLine{02123\ \textcolor{comment}{\ \ \ \ Arguments}}
\DoxyCodeLine{02124\ \textcolor{comment}{\ \ \ \ =========}}
\DoxyCodeLine{02125\ \textcolor{comment}{}}
\DoxyCodeLine{02126\ \textcolor{comment}{\ \ \ \ SRNAME\ \ (input)\ CHARACTER*6}}
\DoxyCodeLine{02127\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ The\ name\ of\ the\ routine\ which\ called\ XERBLA.}}
\DoxyCodeLine{02128\ \textcolor{comment}{}}
\DoxyCodeLine{02129\ \textcolor{comment}{\ \ \ \ INFO\ \ \ \ (input)\ INTEGER}}
\DoxyCodeLine{02130\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ The\ position\ of\ the\ invalid\ parameter\ in\ the\ parameter\ list}}
\DoxyCodeLine{02131\ \textcolor{comment}{\ \ \ \ \ \ \ \ \ \ \ \ of\ the\ calling\ routine.}}
\DoxyCodeLine{02132\ \textcolor{comment}{*/}}
\DoxyCodeLine{02133\ }
\DoxyCodeLine{02134\ }
\DoxyCodeLine{02135\ \ \ \ \ s\_wsfe(\&io\_\_\_60);}
\DoxyCodeLine{02136\ \ \ \ \ do\_fio(\&c\_\_1,\ srname,\ (ftnlen)6);}
\DoxyCodeLine{02137\ \ \ \ \ do\_fio(\&c\_\_1,\ (\textcolor{keywordtype}{char}\ *)\&(*info),\ (ftnlen)\textcolor{keyword}{sizeof}(integer));}
\DoxyCodeLine{02138\ \ \ \ \ e\_wsfe();}
\DoxyCodeLine{02139\ }
\DoxyCodeLine{02140\ \ \ \ \ s\_stop(\textcolor{stringliteral}{"{}"{}},\ (ftnlen)0);}
\DoxyCodeLine{02141\ }
\DoxyCodeLine{02142\ }
\DoxyCodeLine{02143\ \textcolor{comment}{/*\ \ \ \ \ End\ of\ XERBLA\ */}}
\DoxyCodeLine{02144\ }
\DoxyCodeLine{02145\ \ \ \ \ \textcolor{keywordflow}{return}\ 0;}
\DoxyCodeLine{02146\ \}\ \textcolor{comment}{/*\ xerbla\_\ */}}
\DoxyCodeLine{02147\ }

\end{DoxyCode}
