diff --git a/interface/dsdot.html b/interface/dsdot.html
index 46e4cacc..ff01132c 100644
--- a/interface/dsdot.html
+++ b/interface/dsdot.html
@@ -150,7 +150,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~430"></span>
+              <span class="anchor" id="variable-n~270"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_asum.html b/interface/f77_asum.html
index 9f7bda96..8190d5bc 100644
--- a/interface/f77_asum.html
+++ b/interface/f77_asum.html
@@ -170,7 +170,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~317"></span>
+              <span class="anchor" id="variable-n~157"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -185,7 +185,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~141"></span>
+              <span class="anchor" id="variable-x~133"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -245,7 +245,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~319"></span>
+              <span class="anchor" id="variable-n~159"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -260,7 +260,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~143"></span>
+              <span class="anchor" id="variable-x~135"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -320,7 +320,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~318"></span>
+              <span class="anchor" id="variable-n~158"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -335,7 +335,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~142"></span>
+              <span class="anchor" id="variable-x~134"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -395,7 +395,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~320"></span>
+              <span class="anchor" id="variable-n~160"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -410,7 +410,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~144"></span>
+              <span class="anchor" id="variable-x~136"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_axpy.html b/interface/f77_axpy.html
index db190cf4..6a193f1a 100644
--- a/interface/f77_axpy.html
+++ b/interface/f77_axpy.html
@@ -171,7 +171,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~307"></span>
+              <span class="anchor" id="variable-n~147"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -186,7 +186,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~241"></span>
+              <span class="anchor" id="variable-a~81"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -201,7 +201,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~131"></span>
+              <span class="anchor" id="variable-x~123"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -231,7 +231,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~73"></span>
+              <span class="anchor" id="variable-y~69"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -286,7 +286,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~308"></span>
+              <span class="anchor" id="variable-n~148"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -301,7 +301,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~242"></span>
+              <span class="anchor" id="variable-a~82"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -316,7 +316,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~132"></span>
+              <span class="anchor" id="variable-x~124"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -346,7 +346,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~74"></span>
+              <span class="anchor" id="variable-y~70"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -401,7 +401,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~309"></span>
+              <span class="anchor" id="variable-n~149"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -416,7 +416,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~243"></span>
+              <span class="anchor" id="variable-a~83"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -431,7 +431,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~133"></span>
+              <span class="anchor" id="variable-x~125"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -461,7 +461,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~75"></span>
+              <span class="anchor" id="variable-y~71"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -516,7 +516,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~310"></span>
+              <span class="anchor" id="variable-n~150"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -531,7 +531,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~244"></span>
+              <span class="anchor" id="variable-a~84"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -546,7 +546,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~134"></span>
+              <span class="anchor" id="variable-x~126"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -576,7 +576,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~76"></span>
+              <span class="anchor" id="variable-y~72"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/f77_copy.html b/interface/f77_copy.html
index a564ce22..b9235b7f 100644
--- a/interface/f77_copy.html
+++ b/interface/f77_copy.html
@@ -171,7 +171,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~299"></span>
+              <span class="anchor" id="variable-n~139"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -186,7 +186,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~123"></span>
+              <span class="anchor" id="variable-x~115"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -216,7 +216,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~65"></span>
+              <span class="anchor" id="variable-y~61"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -271,7 +271,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~300"></span>
+              <span class="anchor" id="variable-n~140"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -286,7 +286,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~124"></span>
+              <span class="anchor" id="variable-x~116"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -316,7 +316,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~66"></span>
+              <span class="anchor" id="variable-y~62"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -371,7 +371,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~301"></span>
+              <span class="anchor" id="variable-n~141"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -386,7 +386,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~125"></span>
+              <span class="anchor" id="variable-x~117"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -416,7 +416,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~67"></span>
+              <span class="anchor" id="variable-y~63"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -471,7 +471,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~302"></span>
+              <span class="anchor" id="variable-n~142"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -486,7 +486,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~126"></span>
+              <span class="anchor" id="variable-x~118"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -516,7 +516,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~68"></span>
+              <span class="anchor" id="variable-y~64"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/f77_dot.html b/interface/f77_dot.html
index 74aaeea4..1fbc7130 100644
--- a/interface/f77_dot.html
+++ b/interface/f77_dot.html
@@ -168,7 +168,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~311"></span>
+              <span class="anchor" id="variable-n~151"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -183,7 +183,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~135"></span>
+              <span class="anchor" id="variable-x~127"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -213,7 +213,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~77"></span>
+              <span class="anchor" id="variable-y~73"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -273,7 +273,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~312"></span>
+              <span class="anchor" id="variable-n~152"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -288,7 +288,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~136"></span>
+              <span class="anchor" id="variable-x~128"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -318,7 +318,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~78"></span>
+              <span class="anchor" id="variable-y~74"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_dotc.html b/interface/f77_dotc.html
index 8157404c..caaed07e 100644
--- a/interface/f77_dotc.html
+++ b/interface/f77_dotc.html
@@ -168,7 +168,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~313"></span>
+              <span class="anchor" id="variable-n~153"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -183,7 +183,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~137"></span>
+              <span class="anchor" id="variable-x~129"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -213,7 +213,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~79"></span>
+              <span class="anchor" id="variable-y~75"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -273,7 +273,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~314"></span>
+              <span class="anchor" id="variable-n~154"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -288,7 +288,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~138"></span>
+              <span class="anchor" id="variable-x~130"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -318,7 +318,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~80"></span>
+              <span class="anchor" id="variable-y~76"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_dotu.html b/interface/f77_dotu.html
index 5abf9dd7..73e2ed3f 100644
--- a/interface/f77_dotu.html
+++ b/interface/f77_dotu.html
@@ -168,7 +168,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~315"></span>
+              <span class="anchor" id="variable-n~155"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -183,7 +183,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~139"></span>
+              <span class="anchor" id="variable-x~131"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -213,7 +213,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~81"></span>
+              <span class="anchor" id="variable-y~77"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -273,7 +273,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~316"></span>
+              <span class="anchor" id="variable-n~156"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -288,7 +288,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~140"></span>
+              <span class="anchor" id="variable-x~132"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -318,7 +318,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~82"></span>
+              <span class="anchor" id="variable-y~78"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_gbmv.html b/interface/f77_gbmv.html
index 66f792d0..e3ab5778 100644
--- a/interface/f77_gbmv.html
+++ b/interface/f77_gbmv.html
@@ -171,7 +171,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~77"></span>
+              <span class="anchor" id="variable-trans~41"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -186,7 +186,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~131"></span>
+              <span class="anchor" id="variable-m~31"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -201,7 +201,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~339"></span>
+              <span class="anchor" id="variable-n~179"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -261,7 +261,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~255"></span>
+              <span class="anchor" id="variable-a~95"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -276,7 +276,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~231"></span>
+              <span class="anchor" id="variable-lda~71"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -291,7 +291,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~163"></span>
+              <span class="anchor" id="variable-x~155"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -336,7 +336,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~91"></span>
+              <span class="anchor" id="variable-y~87"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -391,7 +391,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~78"></span>
+              <span class="anchor" id="variable-trans~42"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -406,7 +406,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~132"></span>
+              <span class="anchor" id="variable-m~32"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -421,7 +421,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~340"></span>
+              <span class="anchor" id="variable-n~180"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -481,7 +481,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~256"></span>
+              <span class="anchor" id="variable-a~96"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -496,7 +496,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~232"></span>
+              <span class="anchor" id="variable-lda~72"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -511,7 +511,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~164"></span>
+              <span class="anchor" id="variable-x~156"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -556,7 +556,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~92"></span>
+              <span class="anchor" id="variable-y~88"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -611,7 +611,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~79"></span>
+              <span class="anchor" id="variable-trans~43"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -626,7 +626,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~133"></span>
+              <span class="anchor" id="variable-m~33"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -641,7 +641,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~341"></span>
+              <span class="anchor" id="variable-n~181"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -701,7 +701,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~257"></span>
+              <span class="anchor" id="variable-a~97"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -716,7 +716,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~233"></span>
+              <span class="anchor" id="variable-lda~73"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -731,7 +731,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~165"></span>
+              <span class="anchor" id="variable-x~157"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -776,7 +776,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~93"></span>
+              <span class="anchor" id="variable-y~89"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -831,7 +831,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~80"></span>
+              <span class="anchor" id="variable-trans~44"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -846,7 +846,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~134"></span>
+              <span class="anchor" id="variable-m~34"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -861,7 +861,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~342"></span>
+              <span class="anchor" id="variable-n~182"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -921,7 +921,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~258"></span>
+              <span class="anchor" id="variable-a~98"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -936,7 +936,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~234"></span>
+              <span class="anchor" id="variable-lda~74"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -951,7 +951,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~166"></span>
+              <span class="anchor" id="variable-x~158"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -996,7 +996,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~94"></span>
+              <span class="anchor" id="variable-y~90"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/f77_gels.html b/interface/f77_gels.html
index db8beb5a..95bd4bcc 100644
--- a/interface/f77_gels.html
+++ b/interface/f77_gels.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~9"></span>
+              <span class="anchor" id="variable-trans~89"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~37"></span>
+              <span class="anchor" id="variable-m~97"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -202,7 +202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~97"></span>
+              <span class="anchor" id="variable-n~375"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -232,7 +232,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~97"></span>
+              <span class="anchor" id="variable-a~261"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -247,7 +247,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~97"></span>
+              <span class="anchor" id="variable-lda~237"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -262,7 +262,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~21"></span>
+              <span class="anchor" id="variable-b~65"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -277,7 +277,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~21"></span>
+              <span class="anchor" id="variable-ldb~61"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -363,7 +363,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~10"></span>
+              <span class="anchor" id="variable-trans~90"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -378,7 +378,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~38"></span>
+              <span class="anchor" id="variable-m~98"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -393,7 +393,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~98"></span>
+              <span class="anchor" id="variable-n~376"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -423,7 +423,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~98"></span>
+              <span class="anchor" id="variable-a~262"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -438,7 +438,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~98"></span>
+              <span class="anchor" id="variable-lda~238"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -453,7 +453,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~22"></span>
+              <span class="anchor" id="variable-b~66"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -468,7 +468,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~22"></span>
+              <span class="anchor" id="variable-ldb~62"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -554,7 +554,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~11"></span>
+              <span class="anchor" id="variable-trans~91"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -569,7 +569,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~39"></span>
+              <span class="anchor" id="variable-m~99"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -584,7 +584,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~99"></span>
+              <span class="anchor" id="variable-n~377"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -614,7 +614,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~99"></span>
+              <span class="anchor" id="variable-a~263"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -629,7 +629,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~99"></span>
+              <span class="anchor" id="variable-lda~239"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -644,7 +644,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~23"></span>
+              <span class="anchor" id="variable-b~67"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -659,7 +659,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~23"></span>
+              <span class="anchor" id="variable-ldb~63"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -745,7 +745,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~12"></span>
+              <span class="anchor" id="variable-trans~92"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -760,7 +760,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~40"></span>
+              <span class="anchor" id="variable-m~100"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -775,7 +775,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~100"></span>
+              <span class="anchor" id="variable-n~378"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -805,7 +805,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~100"></span>
+              <span class="anchor" id="variable-a~264"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -820,7 +820,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~100"></span>
+              <span class="anchor" id="variable-lda~240"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -835,7 +835,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~24"></span>
+              <span class="anchor" id="variable-b~68"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -850,7 +850,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~24"></span>
+              <span class="anchor" id="variable-ldb~64"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_gelsd.html b/interface/f77_gelsd.html
index 79ba6496..199fd74b 100644
--- a/interface/f77_gelsd.html
+++ b/interface/f77_gelsd.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~49"></span>
+              <span class="anchor" id="variable-m~109"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~109"></span>
+              <span class="anchor" id="variable-n~387"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -217,7 +217,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~109"></span>
+              <span class="anchor" id="variable-a~273"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -232,7 +232,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~109"></span>
+              <span class="anchor" id="variable-lda~249"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -247,7 +247,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~33"></span>
+              <span class="anchor" id="variable-b~77"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -262,7 +262,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~33"></span>
+              <span class="anchor" id="variable-ldb~73"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -277,7 +277,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~9"></span>
+              <span class="anchor" id="variable-s~25"></span>
               real(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -408,7 +408,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~50"></span>
+              <span class="anchor" id="variable-m~110"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -423,7 +423,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~110"></span>
+              <span class="anchor" id="variable-n~388"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -453,7 +453,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~110"></span>
+              <span class="anchor" id="variable-a~274"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -468,7 +468,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~110"></span>
+              <span class="anchor" id="variable-lda~250"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -483,7 +483,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~34"></span>
+              <span class="anchor" id="variable-b~78"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -498,7 +498,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~34"></span>
+              <span class="anchor" id="variable-ldb~74"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -513,7 +513,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~10"></span>
+              <span class="anchor" id="variable-s~26"></span>
               real(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -644,7 +644,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~51"></span>
+              <span class="anchor" id="variable-m~111"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -659,7 +659,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~111"></span>
+              <span class="anchor" id="variable-n~389"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -689,7 +689,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~111"></span>
+              <span class="anchor" id="variable-a~275"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -704,7 +704,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~111"></span>
+              <span class="anchor" id="variable-lda~251"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -719,7 +719,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~35"></span>
+              <span class="anchor" id="variable-b~79"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -734,7 +734,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~35"></span>
+              <span class="anchor" id="variable-ldb~75"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -749,7 +749,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~11"></span>
+              <span class="anchor" id="variable-s~27"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -880,7 +880,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~52"></span>
+              <span class="anchor" id="variable-m~112"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -895,7 +895,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~112"></span>
+              <span class="anchor" id="variable-n~390"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -925,7 +925,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~112"></span>
+              <span class="anchor" id="variable-a~276"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -940,7 +940,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~112"></span>
+              <span class="anchor" id="variable-lda~252"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -955,7 +955,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~36"></span>
+              <span class="anchor" id="variable-b~80"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -970,7 +970,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~36"></span>
+              <span class="anchor" id="variable-ldb~76"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -985,7 +985,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~12"></span>
+              <span class="anchor" id="variable-s~28"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(out)</td>
diff --git a/interface/f77_gelss.html b/interface/f77_gelss.html
index cafeac46..5a501977 100644
--- a/interface/f77_gelss.html
+++ b/interface/f77_gelss.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~53"></span>
+              <span class="anchor" id="variable-m~113"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~113"></span>
+              <span class="anchor" id="variable-n~391"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -217,7 +217,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~113"></span>
+              <span class="anchor" id="variable-a~277"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -232,7 +232,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~113"></span>
+              <span class="anchor" id="variable-lda~253"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -247,7 +247,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~37"></span>
+              <span class="anchor" id="variable-b~81"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -262,7 +262,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~37"></span>
+              <span class="anchor" id="variable-ldb~77"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -277,7 +277,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~13"></span>
+              <span class="anchor" id="variable-s~29"></span>
               real(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -393,7 +393,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~54"></span>
+              <span class="anchor" id="variable-m~114"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -408,7 +408,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~114"></span>
+              <span class="anchor" id="variable-n~392"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -438,7 +438,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~114"></span>
+              <span class="anchor" id="variable-a~278"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -453,7 +453,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~114"></span>
+              <span class="anchor" id="variable-lda~254"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -468,7 +468,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~38"></span>
+              <span class="anchor" id="variable-b~82"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -483,7 +483,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~38"></span>
+              <span class="anchor" id="variable-ldb~78"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -498,7 +498,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~14"></span>
+              <span class="anchor" id="variable-s~30"></span>
               real(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -614,7 +614,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~55"></span>
+              <span class="anchor" id="variable-m~115"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -629,7 +629,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~115"></span>
+              <span class="anchor" id="variable-n~393"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -659,7 +659,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~115"></span>
+              <span class="anchor" id="variable-a~279"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -674,7 +674,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~115"></span>
+              <span class="anchor" id="variable-lda~255"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -689,7 +689,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~39"></span>
+              <span class="anchor" id="variable-b~83"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -704,7 +704,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~39"></span>
+              <span class="anchor" id="variable-ldb~79"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -719,7 +719,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~15"></span>
+              <span class="anchor" id="variable-s~31"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -835,7 +835,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~56"></span>
+              <span class="anchor" id="variable-m~116"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -850,7 +850,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~116"></span>
+              <span class="anchor" id="variable-n~394"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -880,7 +880,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~116"></span>
+              <span class="anchor" id="variable-a~280"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -895,7 +895,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~116"></span>
+              <span class="anchor" id="variable-lda~256"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -910,7 +910,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~40"></span>
+              <span class="anchor" id="variable-b~84"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -925,7 +925,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~40"></span>
+              <span class="anchor" id="variable-ldb~80"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -940,7 +940,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~16"></span>
+              <span class="anchor" id="variable-s~32"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(out)</td>
diff --git a/interface/f77_gelst.html b/interface/f77_gelst.html
index ff48ddfe..370a669b 100644
--- a/interface/f77_gelst.html
+++ b/interface/f77_gelst.html
@@ -173,7 +173,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~13"></span>
+              <span class="anchor" id="variable-trans~93"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -188,7 +188,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~41"></span>
+              <span class="anchor" id="variable-m~101"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -203,7 +203,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~101"></span>
+              <span class="anchor" id="variable-n~379"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -233,7 +233,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~101"></span>
+              <span class="anchor" id="variable-a~265"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -248,7 +248,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~101"></span>
+              <span class="anchor" id="variable-lda~241"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -263,7 +263,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~25"></span>
+              <span class="anchor" id="variable-b~69"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -278,7 +278,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~25"></span>
+              <span class="anchor" id="variable-ldb~65"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -365,7 +365,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~14"></span>
+              <span class="anchor" id="variable-trans~94"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -380,7 +380,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~42"></span>
+              <span class="anchor" id="variable-m~102"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -395,7 +395,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~102"></span>
+              <span class="anchor" id="variable-n~380"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -425,7 +425,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~102"></span>
+              <span class="anchor" id="variable-a~266"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -440,7 +440,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~102"></span>
+              <span class="anchor" id="variable-lda~242"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -455,7 +455,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~26"></span>
+              <span class="anchor" id="variable-b~70"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -470,7 +470,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~26"></span>
+              <span class="anchor" id="variable-ldb~66"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -557,7 +557,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~15"></span>
+              <span class="anchor" id="variable-trans~95"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -572,7 +572,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~43"></span>
+              <span class="anchor" id="variable-m~103"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -587,7 +587,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~103"></span>
+              <span class="anchor" id="variable-n~381"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -617,7 +617,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~103"></span>
+              <span class="anchor" id="variable-a~267"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -632,7 +632,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~103"></span>
+              <span class="anchor" id="variable-lda~243"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -647,7 +647,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~27"></span>
+              <span class="anchor" id="variable-b~71"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -662,7 +662,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~27"></span>
+              <span class="anchor" id="variable-ldb~67"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -749,7 +749,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~16"></span>
+              <span class="anchor" id="variable-trans~96"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -764,7 +764,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~44"></span>
+              <span class="anchor" id="variable-m~104"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -779,7 +779,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~104"></span>
+              <span class="anchor" id="variable-n~382"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -809,7 +809,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~104"></span>
+              <span class="anchor" id="variable-a~268"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -824,7 +824,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~104"></span>
+              <span class="anchor" id="variable-lda~244"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -839,7 +839,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~28"></span>
+              <span class="anchor" id="variable-b~72"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -854,7 +854,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~28"></span>
+              <span class="anchor" id="variable-ldb~68"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_gelsy.html b/interface/f77_gelsy.html
index 3bc14475..362a5f8c 100644
--- a/interface/f77_gelsy.html
+++ b/interface/f77_gelsy.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~57"></span>
+              <span class="anchor" id="variable-m~117"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~117"></span>
+              <span class="anchor" id="variable-n~395"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -217,7 +217,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~117"></span>
+              <span class="anchor" id="variable-a~281"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -232,7 +232,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~117"></span>
+              <span class="anchor" id="variable-lda~257"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -247,7 +247,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~41"></span>
+              <span class="anchor" id="variable-b~85"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -262,7 +262,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~41"></span>
+              <span class="anchor" id="variable-ldb~81"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -393,7 +393,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~58"></span>
+              <span class="anchor" id="variable-m~118"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -408,7 +408,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~118"></span>
+              <span class="anchor" id="variable-n~396"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -438,7 +438,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~118"></span>
+              <span class="anchor" id="variable-a~282"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -453,7 +453,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~118"></span>
+              <span class="anchor" id="variable-lda~258"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -468,7 +468,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~42"></span>
+              <span class="anchor" id="variable-b~86"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -483,7 +483,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~42"></span>
+              <span class="anchor" id="variable-ldb~82"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -614,7 +614,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~59"></span>
+              <span class="anchor" id="variable-m~119"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -629,7 +629,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~119"></span>
+              <span class="anchor" id="variable-n~397"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -659,7 +659,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~119"></span>
+              <span class="anchor" id="variable-a~283"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -674,7 +674,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~119"></span>
+              <span class="anchor" id="variable-lda~259"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -689,7 +689,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~43"></span>
+              <span class="anchor" id="variable-b~87"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -704,7 +704,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~43"></span>
+              <span class="anchor" id="variable-ldb~83"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -835,7 +835,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~60"></span>
+              <span class="anchor" id="variable-m~120"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -850,7 +850,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~120"></span>
+              <span class="anchor" id="variable-n~398"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -880,7 +880,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~120"></span>
+              <span class="anchor" id="variable-a~284"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -895,7 +895,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~120"></span>
+              <span class="anchor" id="variable-lda~260"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -910,7 +910,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~44"></span>
+              <span class="anchor" id="variable-b~88"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -925,7 +925,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~44"></span>
+              <span class="anchor" id="variable-ldb~84"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_gemm.html b/interface/f77_gemm.html
index c0173d0f..1bfe0344 100644
--- a/interface/f77_gemm.html
+++ b/interface/f77_gemm.html
@@ -201,7 +201,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~145"></span>
+              <span class="anchor" id="variable-m~45"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -216,7 +216,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~405"></span>
+              <span class="anchor" id="variable-n~245"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -231,7 +231,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~69"></span>
+              <span class="anchor" id="variable-k~37"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -261,7 +261,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~301"></span>
+              <span class="anchor" id="variable-a~141"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -276,7 +276,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~277"></span>
+              <span class="anchor" id="variable-lda~117"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -291,7 +291,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~77"></span>
+              <span class="anchor" id="variable-b~25"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -306,7 +306,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~73"></span>
+              <span class="anchor" id="variable-ldb~21"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -336,7 +336,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~57"></span>
+              <span class="anchor" id="variable-c~33"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -351,7 +351,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~33"></span>
+              <span class="anchor" id="variable-ldc~17"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -421,7 +421,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~146"></span>
+              <span class="anchor" id="variable-m~46"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -436,7 +436,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~406"></span>
+              <span class="anchor" id="variable-n~246"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -451,7 +451,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~70"></span>
+              <span class="anchor" id="variable-k~38"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -481,7 +481,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~302"></span>
+              <span class="anchor" id="variable-a~142"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -496,7 +496,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~278"></span>
+              <span class="anchor" id="variable-lda~118"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -511,7 +511,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~78"></span>
+              <span class="anchor" id="variable-b~26"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -526,7 +526,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~74"></span>
+              <span class="anchor" id="variable-ldb~22"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -556,7 +556,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~58"></span>
+              <span class="anchor" id="variable-c~34"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -571,7 +571,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~34"></span>
+              <span class="anchor" id="variable-ldc~18"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -641,7 +641,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~147"></span>
+              <span class="anchor" id="variable-m~47"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -656,7 +656,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~407"></span>
+              <span class="anchor" id="variable-n~247"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -671,7 +671,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~71"></span>
+              <span class="anchor" id="variable-k~39"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -701,7 +701,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~303"></span>
+              <span class="anchor" id="variable-a~143"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -716,7 +716,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~279"></span>
+              <span class="anchor" id="variable-lda~119"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -731,7 +731,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~79"></span>
+              <span class="anchor" id="variable-b~27"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -746,7 +746,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~75"></span>
+              <span class="anchor" id="variable-ldb~23"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -776,7 +776,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~59"></span>
+              <span class="anchor" id="variable-c~35"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -791,7 +791,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~35"></span>
+              <span class="anchor" id="variable-ldc~19"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -861,7 +861,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~148"></span>
+              <span class="anchor" id="variable-m~48"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -876,7 +876,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~408"></span>
+              <span class="anchor" id="variable-n~248"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -891,7 +891,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~72"></span>
+              <span class="anchor" id="variable-k~40"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -921,7 +921,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~304"></span>
+              <span class="anchor" id="variable-a~144"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -936,7 +936,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~280"></span>
+              <span class="anchor" id="variable-lda~120"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -951,7 +951,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~80"></span>
+              <span class="anchor" id="variable-b~28"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -966,7 +966,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~76"></span>
+              <span class="anchor" id="variable-ldb~24"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -996,7 +996,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~60"></span>
+              <span class="anchor" id="variable-c~36"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -1011,7 +1011,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~36"></span>
+              <span class="anchor" id="variable-ldc~20"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_gemv.html b/interface/f77_gemv.html
index 6da9204a..561c553e 100644
--- a/interface/f77_gemv.html
+++ b/interface/f77_gemv.html
@@ -171,7 +171,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~81"></span>
+              <span class="anchor" id="variable-trans~45"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -186,7 +186,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~135"></span>
+              <span class="anchor" id="variable-m~35"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -201,7 +201,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~343"></span>
+              <span class="anchor" id="variable-n~183"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -231,7 +231,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~259"></span>
+              <span class="anchor" id="variable-a~99"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -246,7 +246,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~235"></span>
+              <span class="anchor" id="variable-lda~75"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -261,7 +261,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~167"></span>
+              <span class="anchor" id="variable-x~159"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -306,7 +306,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~95"></span>
+              <span class="anchor" id="variable-y~91"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -361,7 +361,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~82"></span>
+              <span class="anchor" id="variable-trans~46"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -376,7 +376,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~136"></span>
+              <span class="anchor" id="variable-m~36"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -391,7 +391,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~344"></span>
+              <span class="anchor" id="variable-n~184"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -421,7 +421,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~260"></span>
+              <span class="anchor" id="variable-a~100"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -436,7 +436,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~236"></span>
+              <span class="anchor" id="variable-lda~76"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -451,7 +451,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~168"></span>
+              <span class="anchor" id="variable-x~160"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -496,7 +496,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~96"></span>
+              <span class="anchor" id="variable-y~92"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -551,7 +551,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~83"></span>
+              <span class="anchor" id="variable-trans~47"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -566,7 +566,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~137"></span>
+              <span class="anchor" id="variable-m~37"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -581,7 +581,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~345"></span>
+              <span class="anchor" id="variable-n~185"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -611,7 +611,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~261"></span>
+              <span class="anchor" id="variable-a~101"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -626,7 +626,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~237"></span>
+              <span class="anchor" id="variable-lda~77"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -641,7 +641,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~169"></span>
+              <span class="anchor" id="variable-x~161"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -686,7 +686,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~97"></span>
+              <span class="anchor" id="variable-y~93"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -741,7 +741,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~84"></span>
+              <span class="anchor" id="variable-trans~48"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -756,7 +756,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~138"></span>
+              <span class="anchor" id="variable-m~38"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -771,7 +771,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~346"></span>
+              <span class="anchor" id="variable-n~186"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -801,7 +801,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~262"></span>
+              <span class="anchor" id="variable-a~102"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -816,7 +816,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~238"></span>
+              <span class="anchor" id="variable-lda~78"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -831,7 +831,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~170"></span>
+              <span class="anchor" id="variable-x~162"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -876,7 +876,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~98"></span>
+              <span class="anchor" id="variable-y~94"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/f77_geqrf.html b/interface/f77_geqrf.html
index cdc567bc..12363bfa 100644
--- a/interface/f77_geqrf.html
+++ b/interface/f77_geqrf.html
@@ -171,7 +171,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~17"></span>
+              <span class="anchor" id="variable-m~77"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -186,7 +186,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~47"></span>
+              <span class="anchor" id="variable-n~325"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -201,7 +201,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~47"></span>
+              <span class="anchor" id="variable-a~211"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -216,7 +216,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~47"></span>
+              <span class="anchor" id="variable-lda~187"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -316,7 +316,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~18"></span>
+              <span class="anchor" id="variable-m~78"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -331,7 +331,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~48"></span>
+              <span class="anchor" id="variable-n~326"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -346,7 +346,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~48"></span>
+              <span class="anchor" id="variable-a~212"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -361,7 +361,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~48"></span>
+              <span class="anchor" id="variable-lda~188"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -461,7 +461,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~19"></span>
+              <span class="anchor" id="variable-m~79"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -476,7 +476,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~49"></span>
+              <span class="anchor" id="variable-n~327"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -491,7 +491,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~49"></span>
+              <span class="anchor" id="variable-a~213"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -506,7 +506,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~49"></span>
+              <span class="anchor" id="variable-lda~189"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -606,7 +606,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~20"></span>
+              <span class="anchor" id="variable-m~80"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -621,7 +621,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~50"></span>
+              <span class="anchor" id="variable-n~328"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -636,7 +636,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~50"></span>
+              <span class="anchor" id="variable-a~214"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -651,7 +651,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~50"></span>
+              <span class="anchor" id="variable-lda~190"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_ger.html b/interface/f77_ger.html
index 41379a46..7201d715 100644
--- a/interface/f77_ger.html
+++ b/interface/f77_ger.html
@@ -169,7 +169,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~139"></span>
+              <span class="anchor" id="variable-m~39"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~347"></span>
+              <span class="anchor" id="variable-n~187"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -214,7 +214,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~171"></span>
+              <span class="anchor" id="variable-x~163"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -244,7 +244,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~99"></span>
+              <span class="anchor" id="variable-y~95"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -274,7 +274,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~263"></span>
+              <span class="anchor" id="variable-a~103"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -289,7 +289,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~239"></span>
+              <span class="anchor" id="variable-lda~79"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -329,7 +329,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~140"></span>
+              <span class="anchor" id="variable-m~40"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -344,7 +344,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~348"></span>
+              <span class="anchor" id="variable-n~188"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -374,7 +374,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~172"></span>
+              <span class="anchor" id="variable-x~164"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -404,7 +404,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~100"></span>
+              <span class="anchor" id="variable-y~96"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -434,7 +434,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~264"></span>
+              <span class="anchor" id="variable-a~104"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -449,7 +449,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~240"></span>
+              <span class="anchor" id="variable-lda~80"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_gerc.html b/interface/f77_gerc.html
index e8ea662a..0869ae20 100644
--- a/interface/f77_gerc.html
+++ b/interface/f77_gerc.html
@@ -169,7 +169,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~141"></span>
+              <span class="anchor" id="variable-m~41"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~349"></span>
+              <span class="anchor" id="variable-n~189"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -214,7 +214,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~173"></span>
+              <span class="anchor" id="variable-x~165"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -244,7 +244,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~101"></span>
+              <span class="anchor" id="variable-y~97"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -274,7 +274,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~265"></span>
+              <span class="anchor" id="variable-a~105"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -289,7 +289,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~241"></span>
+              <span class="anchor" id="variable-lda~81"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -329,7 +329,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~142"></span>
+              <span class="anchor" id="variable-m~42"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -344,7 +344,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~350"></span>
+              <span class="anchor" id="variable-n~190"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -374,7 +374,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~174"></span>
+              <span class="anchor" id="variable-x~166"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -404,7 +404,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~102"></span>
+              <span class="anchor" id="variable-y~98"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -434,7 +434,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~266"></span>
+              <span class="anchor" id="variable-a~106"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -449,7 +449,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~242"></span>
+              <span class="anchor" id="variable-lda~82"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_gerqf.html b/interface/f77_gerqf.html
index 1cb39876..b8d9e8ac 100644
--- a/interface/f77_gerqf.html
+++ b/interface/f77_gerqf.html
@@ -171,7 +171,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~21"></span>
+              <span class="anchor" id="variable-m~81"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -186,7 +186,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~51"></span>
+              <span class="anchor" id="variable-n~329"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -201,7 +201,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~51"></span>
+              <span class="anchor" id="variable-a~215"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -216,7 +216,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~51"></span>
+              <span class="anchor" id="variable-lda~191"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -316,7 +316,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~22"></span>
+              <span class="anchor" id="variable-m~82"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -331,7 +331,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~52"></span>
+              <span class="anchor" id="variable-n~330"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -346,7 +346,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~52"></span>
+              <span class="anchor" id="variable-a~216"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -361,7 +361,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~52"></span>
+              <span class="anchor" id="variable-lda~192"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -461,7 +461,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~23"></span>
+              <span class="anchor" id="variable-m~83"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -476,7 +476,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~53"></span>
+              <span class="anchor" id="variable-n~331"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -491,7 +491,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~53"></span>
+              <span class="anchor" id="variable-a~217"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -506,7 +506,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~53"></span>
+              <span class="anchor" id="variable-lda~193"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -606,7 +606,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~24"></span>
+              <span class="anchor" id="variable-m~84"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -621,7 +621,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~54"></span>
+              <span class="anchor" id="variable-n~332"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -636,7 +636,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~54"></span>
+              <span class="anchor" id="variable-a~218"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -651,7 +651,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~54"></span>
+              <span class="anchor" id="variable-lda~194"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_geru.html b/interface/f77_geru.html
index 003106d1..63e87a84 100644
--- a/interface/f77_geru.html
+++ b/interface/f77_geru.html
@@ -169,7 +169,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~143"></span>
+              <span class="anchor" id="variable-m~43"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~351"></span>
+              <span class="anchor" id="variable-n~191"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -214,7 +214,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~175"></span>
+              <span class="anchor" id="variable-x~167"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -244,7 +244,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~103"></span>
+              <span class="anchor" id="variable-y~99"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -274,7 +274,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~267"></span>
+              <span class="anchor" id="variable-a~107"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -289,7 +289,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~243"></span>
+              <span class="anchor" id="variable-lda~83"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -329,7 +329,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~144"></span>
+              <span class="anchor" id="variable-m~44"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -344,7 +344,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~352"></span>
+              <span class="anchor" id="variable-n~192"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -374,7 +374,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~176"></span>
+              <span class="anchor" id="variable-x~168"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -404,7 +404,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~104"></span>
+              <span class="anchor" id="variable-y~100"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -434,7 +434,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~268"></span>
+              <span class="anchor" id="variable-a~108"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -449,7 +449,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~244"></span>
+              <span class="anchor" id="variable-lda~84"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_gesvd.html b/interface/f77_gesvd.html
index 0d9c510b..22a80221 100644
--- a/interface/f77_gesvd.html
+++ b/interface/f77_gesvd.html
@@ -201,7 +201,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~29"></span>
+              <span class="anchor" id="variable-m~89"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -216,7 +216,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~73"></span>
+              <span class="anchor" id="variable-n~351"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -231,7 +231,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~73"></span>
+              <span class="anchor" id="variable-a~237"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -246,7 +246,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~73"></span>
+              <span class="anchor" id="variable-lda~213"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -261,7 +261,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~5"></span>
+              <span class="anchor" id="variable-s~21"></span>
               real(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -436,7 +436,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~30"></span>
+              <span class="anchor" id="variable-m~90"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -451,7 +451,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~74"></span>
+              <span class="anchor" id="variable-n~352"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -466,7 +466,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~74"></span>
+              <span class="anchor" id="variable-a~238"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -481,7 +481,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~74"></span>
+              <span class="anchor" id="variable-lda~214"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -496,7 +496,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~6"></span>
+              <span class="anchor" id="variable-s~22"></span>
               real(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -671,7 +671,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~31"></span>
+              <span class="anchor" id="variable-m~91"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -686,7 +686,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~75"></span>
+              <span class="anchor" id="variable-n~353"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -701,7 +701,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~75"></span>
+              <span class="anchor" id="variable-a~239"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -716,7 +716,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~75"></span>
+              <span class="anchor" id="variable-lda~215"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -731,7 +731,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~7"></span>
+              <span class="anchor" id="variable-s~23"></span>
               real(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -921,7 +921,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~32"></span>
+              <span class="anchor" id="variable-m~92"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -936,7 +936,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~76"></span>
+              <span class="anchor" id="variable-n~354"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -951,7 +951,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~76"></span>
+              <span class="anchor" id="variable-a~240"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -966,7 +966,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~76"></span>
+              <span class="anchor" id="variable-lda~216"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -981,7 +981,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~8"></span>
+              <span class="anchor" id="variable-s~24"></span>
               real(kind=REAL64),
             </td>
 <td>intent(out)</td>
diff --git a/interface/f77_getrf.html b/interface/f77_getrf.html
index 701a189e..2bcbd289 100644
--- a/interface/f77_getrf.html
+++ b/interface/f77_getrf.html
@@ -171,7 +171,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~25"></span>
+              <span class="anchor" id="variable-m~85"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -186,7 +186,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~55"></span>
+              <span class="anchor" id="variable-n~333"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -201,7 +201,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~55"></span>
+              <span class="anchor" id="variable-a~219"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -216,7 +216,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~55"></span>
+              <span class="anchor" id="variable-lda~195"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -286,7 +286,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~26"></span>
+              <span class="anchor" id="variable-m~86"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -301,7 +301,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~56"></span>
+              <span class="anchor" id="variable-n~334"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -316,7 +316,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~56"></span>
+              <span class="anchor" id="variable-a~220"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -331,7 +331,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~56"></span>
+              <span class="anchor" id="variable-lda~196"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -401,7 +401,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~27"></span>
+              <span class="anchor" id="variable-m~87"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -416,7 +416,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~57"></span>
+              <span class="anchor" id="variable-n~335"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -431,7 +431,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~57"></span>
+              <span class="anchor" id="variable-a~221"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -446,7 +446,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~57"></span>
+              <span class="anchor" id="variable-lda~197"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -516,7 +516,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~28"></span>
+              <span class="anchor" id="variable-m~88"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -531,7 +531,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~58"></span>
+              <span class="anchor" id="variable-n~336"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -546,7 +546,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~58"></span>
+              <span class="anchor" id="variable-a~222"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -561,7 +561,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~58"></span>
+              <span class="anchor" id="variable-lda~198"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_getri.html b/interface/f77_getri.html
index 2b918260..978eab5e 100644
--- a/interface/f77_getri.html
+++ b/interface/f77_getri.html
@@ -171,7 +171,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~59"></span>
+              <span class="anchor" id="variable-n~337"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -186,7 +186,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~59"></span>
+              <span class="anchor" id="variable-a~223"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -201,7 +201,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~59"></span>
+              <span class="anchor" id="variable-lda~199"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -301,7 +301,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~60"></span>
+              <span class="anchor" id="variable-n~338"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -316,7 +316,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~60"></span>
+              <span class="anchor" id="variable-a~224"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -331,7 +331,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~60"></span>
+              <span class="anchor" id="variable-lda~200"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -431,7 +431,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~61"></span>
+              <span class="anchor" id="variable-n~339"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -446,7 +446,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~61"></span>
+              <span class="anchor" id="variable-a~225"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -461,7 +461,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~61"></span>
+              <span class="anchor" id="variable-lda~201"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -561,7 +561,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~62"></span>
+              <span class="anchor" id="variable-n~340"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -576,7 +576,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~62"></span>
+              <span class="anchor" id="variable-a~226"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -591,7 +591,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~62"></span>
+              <span class="anchor" id="variable-lda~202"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_getrs.html b/interface/f77_getrs.html
index a2bc479c..6244ab4b 100644
--- a/interface/f77_getrs.html
+++ b/interface/f77_getrs.html
@@ -171,7 +171,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~5"></span>
+              <span class="anchor" id="variable-trans~85"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -186,7 +186,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~63"></span>
+              <span class="anchor" id="variable-n~341"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -216,7 +216,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~63"></span>
+              <span class="anchor" id="variable-a~227"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -231,7 +231,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~63"></span>
+              <span class="anchor" id="variable-lda~203"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -261,7 +261,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~11"></span>
+              <span class="anchor" id="variable-b~55"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -276,7 +276,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~11"></span>
+              <span class="anchor" id="variable-ldb~51"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -331,7 +331,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~6"></span>
+              <span class="anchor" id="variable-trans~86"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -346,7 +346,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~64"></span>
+              <span class="anchor" id="variable-n~342"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -376,7 +376,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~64"></span>
+              <span class="anchor" id="variable-a~228"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -391,7 +391,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~64"></span>
+              <span class="anchor" id="variable-lda~204"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -421,7 +421,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~12"></span>
+              <span class="anchor" id="variable-b~56"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -436,7 +436,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~12"></span>
+              <span class="anchor" id="variable-ldb~52"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -491,7 +491,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~7"></span>
+              <span class="anchor" id="variable-trans~87"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -506,7 +506,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~65"></span>
+              <span class="anchor" id="variable-n~343"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -536,7 +536,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~65"></span>
+              <span class="anchor" id="variable-a~229"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -551,7 +551,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~65"></span>
+              <span class="anchor" id="variable-lda~205"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -581,7 +581,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~13"></span>
+              <span class="anchor" id="variable-b~57"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -596,7 +596,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~13"></span>
+              <span class="anchor" id="variable-ldb~53"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -651,7 +651,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~8"></span>
+              <span class="anchor" id="variable-trans~88"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -666,7 +666,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~66"></span>
+              <span class="anchor" id="variable-n~344"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -696,7 +696,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~66"></span>
+              <span class="anchor" id="variable-a~230"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -711,7 +711,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~66"></span>
+              <span class="anchor" id="variable-lda~206"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -741,7 +741,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~14"></span>
+              <span class="anchor" id="variable-b~58"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -756,7 +756,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~14"></span>
+              <span class="anchor" id="variable-ldb~54"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_getsls.html b/interface/f77_getsls.html
index 6be5860c..048c356e 100644
--- a/interface/f77_getsls.html
+++ b/interface/f77_getsls.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~17"></span>
+              <span class="anchor" id="variable-trans~97"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~45"></span>
+              <span class="anchor" id="variable-m~105"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -202,7 +202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~105"></span>
+              <span class="anchor" id="variable-n~383"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -232,7 +232,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~105"></span>
+              <span class="anchor" id="variable-a~269"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -247,7 +247,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~105"></span>
+              <span class="anchor" id="variable-lda~245"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -262,7 +262,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~29"></span>
+              <span class="anchor" id="variable-b~73"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -277,7 +277,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~29"></span>
+              <span class="anchor" id="variable-ldb~69"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -363,7 +363,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~18"></span>
+              <span class="anchor" id="variable-trans~98"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -378,7 +378,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~46"></span>
+              <span class="anchor" id="variable-m~106"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -393,7 +393,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~106"></span>
+              <span class="anchor" id="variable-n~384"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -423,7 +423,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~106"></span>
+              <span class="anchor" id="variable-a~270"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -438,7 +438,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~106"></span>
+              <span class="anchor" id="variable-lda~246"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -453,7 +453,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~30"></span>
+              <span class="anchor" id="variable-b~74"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -468,7 +468,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~30"></span>
+              <span class="anchor" id="variable-ldb~70"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -554,7 +554,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~19"></span>
+              <span class="anchor" id="variable-trans~99"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -569,7 +569,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~47"></span>
+              <span class="anchor" id="variable-m~107"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -584,7 +584,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~107"></span>
+              <span class="anchor" id="variable-n~385"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -614,7 +614,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~107"></span>
+              <span class="anchor" id="variable-a~271"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -629,7 +629,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~107"></span>
+              <span class="anchor" id="variable-lda~247"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -644,7 +644,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~31"></span>
+              <span class="anchor" id="variable-b~75"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -659,7 +659,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~31"></span>
+              <span class="anchor" id="variable-ldb~71"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -745,7 +745,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~20"></span>
+              <span class="anchor" id="variable-trans~100"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -760,7 +760,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~48"></span>
+              <span class="anchor" id="variable-m~108"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -775,7 +775,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~108"></span>
+              <span class="anchor" id="variable-n~386"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -805,7 +805,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~108"></span>
+              <span class="anchor" id="variable-a~272"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -820,7 +820,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~108"></span>
+              <span class="anchor" id="variable-lda~248"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -835,7 +835,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~32"></span>
+              <span class="anchor" id="variable-b~76"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -850,7 +850,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~32"></span>
+              <span class="anchor" id="variable-ldb~72"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_gglse.html b/interface/f77_gglse.html
index 1c989b2a..14e613af 100644
--- a/interface/f77_gglse.html
+++ b/interface/f77_gglse.html
@@ -171,7 +171,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~61"></span>
+              <span class="anchor" id="variable-m~121"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -186,7 +186,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~121"></span>
+              <span class="anchor" id="variable-n~399"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -216,7 +216,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~121"></span>
+              <span class="anchor" id="variable-a~285"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -231,7 +231,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~121"></span>
+              <span class="anchor" id="variable-lda~261"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -246,7 +246,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~45"></span>
+              <span class="anchor" id="variable-b~89"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -261,7 +261,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~45"></span>
+              <span class="anchor" id="variable-ldb~85"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -276,7 +276,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c"></span>
+              <span class="anchor" id="variable-c~49"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -306,7 +306,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x"></span>
+              <span class="anchor" id="variable-x~229"></span>
               real(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -391,7 +391,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~62"></span>
+              <span class="anchor" id="variable-m~122"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -406,7 +406,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~122"></span>
+              <span class="anchor" id="variable-n~400"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -436,7 +436,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~122"></span>
+              <span class="anchor" id="variable-a~286"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -451,7 +451,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~122"></span>
+              <span class="anchor" id="variable-lda~262"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -466,7 +466,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~46"></span>
+              <span class="anchor" id="variable-b~90"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -481,7 +481,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~46"></span>
+              <span class="anchor" id="variable-ldb~86"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -496,7 +496,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~2"></span>
+              <span class="anchor" id="variable-c~50"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -526,7 +526,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~2"></span>
+              <span class="anchor" id="variable-x~230"></span>
               real(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -611,7 +611,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~63"></span>
+              <span class="anchor" id="variable-m~123"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -626,7 +626,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~123"></span>
+              <span class="anchor" id="variable-n~401"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -656,7 +656,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~123"></span>
+              <span class="anchor" id="variable-a~287"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -671,7 +671,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~123"></span>
+              <span class="anchor" id="variable-lda~263"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -686,7 +686,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~47"></span>
+              <span class="anchor" id="variable-b~91"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -701,7 +701,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~47"></span>
+              <span class="anchor" id="variable-ldb~87"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -716,7 +716,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~3"></span>
+              <span class="anchor" id="variable-c~51"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -746,7 +746,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~3"></span>
+              <span class="anchor" id="variable-x~231"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -831,7 +831,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~64"></span>
+              <span class="anchor" id="variable-m~124"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -846,7 +846,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~124"></span>
+              <span class="anchor" id="variable-n~402"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -876,7 +876,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~124"></span>
+              <span class="anchor" id="variable-a~288"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -891,7 +891,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~124"></span>
+              <span class="anchor" id="variable-lda~264"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -906,7 +906,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~48"></span>
+              <span class="anchor" id="variable-b~92"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -921,7 +921,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~48"></span>
+              <span class="anchor" id="variable-ldb~88"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -936,7 +936,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~4"></span>
+              <span class="anchor" id="variable-c~52"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -966,7 +966,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~4"></span>
+              <span class="anchor" id="variable-x~232"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(out)</td>
diff --git a/interface/f77_gglsm.html b/interface/f77_gglsm.html
index de574d97..2ef9ee0d 100644
--- a/interface/f77_gglsm.html
+++ b/interface/f77_gglsm.html
@@ -171,7 +171,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~125"></span>
+              <span class="anchor" id="variable-n~403"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -186,7 +186,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~65"></span>
+              <span class="anchor" id="variable-m~125"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -216,7 +216,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~125"></span>
+              <span class="anchor" id="variable-a~289"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -231,7 +231,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~125"></span>
+              <span class="anchor" id="variable-lda~265"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -246,7 +246,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~49"></span>
+              <span class="anchor" id="variable-b~93"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -261,7 +261,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~49"></span>
+              <span class="anchor" id="variable-ldb~89"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -291,7 +291,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~5"></span>
+              <span class="anchor" id="variable-x~233"></span>
               real(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -306,7 +306,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y"></span>
+              <span class="anchor" id="variable-y~121"></span>
               real(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -391,7 +391,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~126"></span>
+              <span class="anchor" id="variable-n~404"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -406,7 +406,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~66"></span>
+              <span class="anchor" id="variable-m~126"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -436,7 +436,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~126"></span>
+              <span class="anchor" id="variable-a~290"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -451,7 +451,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~126"></span>
+              <span class="anchor" id="variable-lda~266"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -466,7 +466,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~50"></span>
+              <span class="anchor" id="variable-b~94"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -481,7 +481,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~50"></span>
+              <span class="anchor" id="variable-ldb~90"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -511,7 +511,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~6"></span>
+              <span class="anchor" id="variable-x~234"></span>
               real(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -526,7 +526,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~2"></span>
+              <span class="anchor" id="variable-y~122"></span>
               real(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -611,7 +611,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~127"></span>
+              <span class="anchor" id="variable-n~405"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -626,7 +626,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~67"></span>
+              <span class="anchor" id="variable-m~127"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -656,7 +656,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~127"></span>
+              <span class="anchor" id="variable-a~291"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -671,7 +671,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~127"></span>
+              <span class="anchor" id="variable-lda~267"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -686,7 +686,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~51"></span>
+              <span class="anchor" id="variable-b~95"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -701,7 +701,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~51"></span>
+              <span class="anchor" id="variable-ldb~91"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -731,7 +731,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~7"></span>
+              <span class="anchor" id="variable-x~235"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -746,7 +746,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~3"></span>
+              <span class="anchor" id="variable-y~123"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -831,7 +831,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~128"></span>
+              <span class="anchor" id="variable-n~406"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -846,7 +846,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~68"></span>
+              <span class="anchor" id="variable-m~128"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -876,7 +876,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~128"></span>
+              <span class="anchor" id="variable-a~292"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -891,7 +891,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~128"></span>
+              <span class="anchor" id="variable-lda~268"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -906,7 +906,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~52"></span>
+              <span class="anchor" id="variable-b~96"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -921,7 +921,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~52"></span>
+              <span class="anchor" id="variable-ldb~92"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -951,7 +951,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~8"></span>
+              <span class="anchor" id="variable-x~236"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -966,7 +966,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~4"></span>
+              <span class="anchor" id="variable-y~124"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(out)</td>
diff --git a/interface/f77_hbmv.html b/interface/f77_hbmv.html
index 63aaedee..b74f5da8 100644
--- a/interface/f77_hbmv.html
+++ b/interface/f77_hbmv.html
@@ -169,7 +169,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~121"></span>
+              <span class="anchor" id="variable-uplo~73"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~353"></span>
+              <span class="anchor" id="variable-n~193"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -199,7 +199,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~57"></span>
+              <span class="anchor" id="variable-k~25"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -229,7 +229,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~269"></span>
+              <span class="anchor" id="variable-a~109"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -244,7 +244,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~245"></span>
+              <span class="anchor" id="variable-lda~85"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -259,7 +259,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~177"></span>
+              <span class="anchor" id="variable-x~169"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -304,7 +304,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~105"></span>
+              <span class="anchor" id="variable-y~101"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -359,7 +359,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~122"></span>
+              <span class="anchor" id="variable-uplo~74"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -374,7 +374,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~354"></span>
+              <span class="anchor" id="variable-n~194"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -389,7 +389,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~58"></span>
+              <span class="anchor" id="variable-k~26"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -419,7 +419,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~270"></span>
+              <span class="anchor" id="variable-a~110"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -434,7 +434,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~246"></span>
+              <span class="anchor" id="variable-lda~86"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -449,7 +449,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~178"></span>
+              <span class="anchor" id="variable-x~170"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -494,7 +494,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~106"></span>
+              <span class="anchor" id="variable-y~102"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/f77_heevd.html b/interface/f77_heevd.html
index 06100f69..4c219bf4 100644
--- a/interface/f77_heevd.html
+++ b/interface/f77_heevd.html
@@ -184,7 +184,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~27"></span>
+              <span class="anchor" id="variable-uplo~171"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -199,7 +199,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~71"></span>
+              <span class="anchor" id="variable-n~349"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -214,7 +214,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~71"></span>
+              <span class="anchor" id="variable-a~235"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -229,7 +229,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~71"></span>
+              <span class="anchor" id="variable-lda~211"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -404,7 +404,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~28"></span>
+              <span class="anchor" id="variable-uplo~172"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -419,7 +419,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~72"></span>
+              <span class="anchor" id="variable-n~350"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -434,7 +434,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~72"></span>
+              <span class="anchor" id="variable-a~236"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -449,7 +449,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~72"></span>
+              <span class="anchor" id="variable-lda~212"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_heevr.html b/interface/f77_heevr.html
index 6c4a3e2b..65c09008 100644
--- a/interface/f77_heevr.html
+++ b/interface/f77_heevr.html
@@ -199,7 +199,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~47"></span>
+              <span class="anchor" id="variable-uplo~191"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -214,7 +214,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~95"></span>
+              <span class="anchor" id="variable-n~373"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -229,7 +229,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~95"></span>
+              <span class="anchor" id="variable-a~259"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -244,7 +244,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~95"></span>
+              <span class="anchor" id="variable-lda~235"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -334,7 +334,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~35"></span>
+              <span class="anchor" id="variable-m~95"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -569,7 +569,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~48"></span>
+              <span class="anchor" id="variable-uplo~192"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -584,7 +584,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~96"></span>
+              <span class="anchor" id="variable-n~374"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -599,7 +599,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~96"></span>
+              <span class="anchor" id="variable-a~260"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -614,7 +614,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~96"></span>
+              <span class="anchor" id="variable-lda~236"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -704,7 +704,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~36"></span>
+              <span class="anchor" id="variable-m~96"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_heevx.html b/interface/f77_heevx.html
index a38a9f13..9ac4136b 100644
--- a/interface/f77_heevx.html
+++ b/interface/f77_heevx.html
@@ -199,7 +199,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~45"></span>
+              <span class="anchor" id="variable-uplo~189"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -214,7 +214,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~93"></span>
+              <span class="anchor" id="variable-n~371"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -229,7 +229,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~93"></span>
+              <span class="anchor" id="variable-a~257"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -244,7 +244,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~93"></span>
+              <span class="anchor" id="variable-lda~233"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -334,7 +334,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~33"></span>
+              <span class="anchor" id="variable-m~93"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -569,7 +569,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~46"></span>
+              <span class="anchor" id="variable-uplo~190"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -584,7 +584,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~94"></span>
+              <span class="anchor" id="variable-n~372"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -599,7 +599,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~94"></span>
+              <span class="anchor" id="variable-a~258"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -614,7 +614,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~94"></span>
+              <span class="anchor" id="variable-lda~234"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -704,7 +704,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~34"></span>
+              <span class="anchor" id="variable-m~94"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_hegv.html b/interface/f77_hegv.html
index 2e875343..08c1ec4c 100644
--- a/interface/f77_hegv.html
+++ b/interface/f77_hegv.html
@@ -199,7 +199,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~25"></span>
+              <span class="anchor" id="variable-uplo~169"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -214,7 +214,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~69"></span>
+              <span class="anchor" id="variable-n~347"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -229,7 +229,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~69"></span>
+              <span class="anchor" id="variable-a~233"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -244,7 +244,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~69"></span>
+              <span class="anchor" id="variable-lda~209"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -259,7 +259,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~15"></span>
+              <span class="anchor" id="variable-b~59"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -274,7 +274,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~15"></span>
+              <span class="anchor" id="variable-ldb~55"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -419,7 +419,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~26"></span>
+              <span class="anchor" id="variable-uplo~170"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -434,7 +434,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~70"></span>
+              <span class="anchor" id="variable-n~348"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -449,7 +449,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~70"></span>
+              <span class="anchor" id="variable-a~234"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -464,7 +464,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~70"></span>
+              <span class="anchor" id="variable-lda~210"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -479,7 +479,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~16"></span>
+              <span class="anchor" id="variable-b~60"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -494,7 +494,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~16"></span>
+              <span class="anchor" id="variable-ldb~56"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_hemm.html b/interface/f77_hemm.html
index b1c37da1..7163d7cb 100644
--- a/interface/f77_hemm.html
+++ b/interface/f77_hemm.html
@@ -169,7 +169,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~29"></span>
+              <span class="anchor" id="variable-side~13"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~173"></span>
+              <span class="anchor" id="variable-uplo~125"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -199,7 +199,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~149"></span>
+              <span class="anchor" id="variable-m~49"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -214,7 +214,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~409"></span>
+              <span class="anchor" id="variable-n~249"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -244,7 +244,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~305"></span>
+              <span class="anchor" id="variable-a~145"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -259,7 +259,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~281"></span>
+              <span class="anchor" id="variable-lda~121"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -274,7 +274,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~81"></span>
+              <span class="anchor" id="variable-b~29"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -289,7 +289,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~77"></span>
+              <span class="anchor" id="variable-ldb~25"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -319,7 +319,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~61"></span>
+              <span class="anchor" id="variable-c~37"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -334,7 +334,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~37"></span>
+              <span class="anchor" id="variable-ldc~21"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -374,7 +374,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~30"></span>
+              <span class="anchor" id="variable-side~14"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -389,7 +389,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~174"></span>
+              <span class="anchor" id="variable-uplo~126"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -404,7 +404,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~150"></span>
+              <span class="anchor" id="variable-m~50"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -419,7 +419,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~410"></span>
+              <span class="anchor" id="variable-n~250"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -449,7 +449,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~306"></span>
+              <span class="anchor" id="variable-a~146"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -464,7 +464,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~282"></span>
+              <span class="anchor" id="variable-lda~122"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -479,7 +479,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~82"></span>
+              <span class="anchor" id="variable-b~30"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -494,7 +494,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~78"></span>
+              <span class="anchor" id="variable-ldb~26"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -524,7 +524,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~62"></span>
+              <span class="anchor" id="variable-c~38"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -539,7 +539,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~38"></span>
+              <span class="anchor" id="variable-ldc~22"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_hemv.html b/interface/f77_hemv.html
index eb8359e8..3438aaed 100644
--- a/interface/f77_hemv.html
+++ b/interface/f77_hemv.html
@@ -169,7 +169,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~123"></span>
+              <span class="anchor" id="variable-uplo~75"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~355"></span>
+              <span class="anchor" id="variable-n~195"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -214,7 +214,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~271"></span>
+              <span class="anchor" id="variable-a~111"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -229,7 +229,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~247"></span>
+              <span class="anchor" id="variable-lda~87"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -244,7 +244,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~179"></span>
+              <span class="anchor" id="variable-x~171"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -289,7 +289,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~107"></span>
+              <span class="anchor" id="variable-y~103"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -344,7 +344,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~124"></span>
+              <span class="anchor" id="variable-uplo~76"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -359,7 +359,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~356"></span>
+              <span class="anchor" id="variable-n~196"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -389,7 +389,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~272"></span>
+              <span class="anchor" id="variable-a~112"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -404,7 +404,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~248"></span>
+              <span class="anchor" id="variable-lda~88"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -419,7 +419,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~180"></span>
+              <span class="anchor" id="variable-x~172"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -464,7 +464,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~108"></span>
+              <span class="anchor" id="variable-y~104"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/f77_her.html b/interface/f77_her.html
index b9938e17..a9c23716 100644
--- a/interface/f77_her.html
+++ b/interface/f77_her.html
@@ -169,7 +169,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~125"></span>
+              <span class="anchor" id="variable-uplo~77"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~357"></span>
+              <span class="anchor" id="variable-n~197"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -214,7 +214,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~181"></span>
+              <span class="anchor" id="variable-x~173"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -244,7 +244,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~273"></span>
+              <span class="anchor" id="variable-a~113"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -259,7 +259,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~249"></span>
+              <span class="anchor" id="variable-lda~89"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -299,7 +299,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~126"></span>
+              <span class="anchor" id="variable-uplo~78"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -314,7 +314,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~358"></span>
+              <span class="anchor" id="variable-n~198"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -344,7 +344,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~182"></span>
+              <span class="anchor" id="variable-x~174"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -374,7 +374,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~274"></span>
+              <span class="anchor" id="variable-a~114"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -389,7 +389,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~250"></span>
+              <span class="anchor" id="variable-lda~90"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_her2.html b/interface/f77_her2.html
index fe943110..77759f00 100644
--- a/interface/f77_her2.html
+++ b/interface/f77_her2.html
@@ -169,7 +169,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~127"></span>
+              <span class="anchor" id="variable-uplo~79"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~359"></span>
+              <span class="anchor" id="variable-n~199"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -214,7 +214,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~183"></span>
+              <span class="anchor" id="variable-x~175"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -244,7 +244,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~109"></span>
+              <span class="anchor" id="variable-y~105"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -274,7 +274,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~275"></span>
+              <span class="anchor" id="variable-a~115"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -289,7 +289,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~251"></span>
+              <span class="anchor" id="variable-lda~91"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -329,7 +329,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~128"></span>
+              <span class="anchor" id="variable-uplo~80"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -344,7 +344,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~360"></span>
+              <span class="anchor" id="variable-n~200"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -374,7 +374,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~184"></span>
+              <span class="anchor" id="variable-x~176"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -404,7 +404,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~110"></span>
+              <span class="anchor" id="variable-y~106"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -434,7 +434,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~276"></span>
+              <span class="anchor" id="variable-a~116"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -449,7 +449,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~252"></span>
+              <span class="anchor" id="variable-lda~92"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_her2k.html b/interface/f77_her2k.html
index bc92ea37..2ee48468 100644
--- a/interface/f77_her2k.html
+++ b/interface/f77_her2k.html
@@ -169,7 +169,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~177"></span>
+              <span class="anchor" id="variable-uplo~129"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~111"></span>
+              <span class="anchor" id="variable-trans~75"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -199,7 +199,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~413"></span>
+              <span class="anchor" id="variable-n~253"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -214,7 +214,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~75"></span>
+              <span class="anchor" id="variable-k~43"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -244,7 +244,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~309"></span>
+              <span class="anchor" id="variable-a~149"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -259,7 +259,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~285"></span>
+              <span class="anchor" id="variable-lda~125"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -274,7 +274,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~83"></span>
+              <span class="anchor" id="variable-b~31"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -289,7 +289,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~79"></span>
+              <span class="anchor" id="variable-ldb~27"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -319,7 +319,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~65"></span>
+              <span class="anchor" id="variable-c~41"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -334,7 +334,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~41"></span>
+              <span class="anchor" id="variable-ldc~25"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -374,7 +374,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~178"></span>
+              <span class="anchor" id="variable-uplo~130"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -389,7 +389,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~112"></span>
+              <span class="anchor" id="variable-trans~76"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -404,7 +404,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~414"></span>
+              <span class="anchor" id="variable-n~254"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -419,7 +419,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~76"></span>
+              <span class="anchor" id="variable-k~44"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -449,7 +449,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~310"></span>
+              <span class="anchor" id="variable-a~150"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -464,7 +464,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~286"></span>
+              <span class="anchor" id="variable-lda~126"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -479,7 +479,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~84"></span>
+              <span class="anchor" id="variable-b~32"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -494,7 +494,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~80"></span>
+              <span class="anchor" id="variable-ldb~28"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -524,7 +524,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~66"></span>
+              <span class="anchor" id="variable-c~42"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -539,7 +539,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~42"></span>
+              <span class="anchor" id="variable-ldc~26"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_herk.html b/interface/f77_herk.html
index ec39f1de..fd6fe2d0 100644
--- a/interface/f77_herk.html
+++ b/interface/f77_herk.html
@@ -169,7 +169,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~175"></span>
+              <span class="anchor" id="variable-uplo~127"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~109"></span>
+              <span class="anchor" id="variable-trans~73"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -199,7 +199,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~411"></span>
+              <span class="anchor" id="variable-n~251"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -214,7 +214,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~73"></span>
+              <span class="anchor" id="variable-k~41"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -244,7 +244,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~307"></span>
+              <span class="anchor" id="variable-a~147"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -259,7 +259,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~283"></span>
+              <span class="anchor" id="variable-lda~123"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -289,7 +289,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~63"></span>
+              <span class="anchor" id="variable-c~39"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -304,7 +304,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~39"></span>
+              <span class="anchor" id="variable-ldc~23"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -344,7 +344,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~176"></span>
+              <span class="anchor" id="variable-uplo~128"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -359,7 +359,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~110"></span>
+              <span class="anchor" id="variable-trans~74"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -374,7 +374,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~412"></span>
+              <span class="anchor" id="variable-n~252"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -389,7 +389,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~74"></span>
+              <span class="anchor" id="variable-k~42"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -419,7 +419,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~308"></span>
+              <span class="anchor" id="variable-a~148"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -434,7 +434,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~284"></span>
+              <span class="anchor" id="variable-lda~124"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -464,7 +464,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~64"></span>
+              <span class="anchor" id="variable-c~40"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -479,7 +479,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~40"></span>
+              <span class="anchor" id="variable-ldc~24"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_hetrf.html b/interface/f77_hetrf.html
index 38227a2f..32eea8fa 100644
--- a/interface/f77_hetrf.html
+++ b/interface/f77_hetrf.html
@@ -169,7 +169,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~23"></span>
+              <span class="anchor" id="variable-uplo~167"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~67"></span>
+              <span class="anchor" id="variable-n~345"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -199,7 +199,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~67"></span>
+              <span class="anchor" id="variable-a~231"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -214,7 +214,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~67"></span>
+              <span class="anchor" id="variable-lda~207"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -314,7 +314,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~24"></span>
+              <span class="anchor" id="variable-uplo~168"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -329,7 +329,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~68"></span>
+              <span class="anchor" id="variable-n~346"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -344,7 +344,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~68"></span>
+              <span class="anchor" id="variable-a~232"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -359,7 +359,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~68"></span>
+              <span class="anchor" id="variable-lda~208"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_hpmv.html b/interface/f77_hpmv.html
index 4d937235..83da3dec 100644
--- a/interface/f77_hpmv.html
+++ b/interface/f77_hpmv.html
@@ -169,7 +169,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~129"></span>
+              <span class="anchor" id="variable-uplo~81"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~361"></span>
+              <span class="anchor" id="variable-n~201"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -229,7 +229,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~185"></span>
+              <span class="anchor" id="variable-x~177"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -274,7 +274,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~111"></span>
+              <span class="anchor" id="variable-y~107"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -329,7 +329,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~130"></span>
+              <span class="anchor" id="variable-uplo~82"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -344,7 +344,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~362"></span>
+              <span class="anchor" id="variable-n~202"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -389,7 +389,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~186"></span>
+              <span class="anchor" id="variable-x~178"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -434,7 +434,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~112"></span>
+              <span class="anchor" id="variable-y~108"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/f77_hpr.html b/interface/f77_hpr.html
index da09afdc..f9aad354 100644
--- a/interface/f77_hpr.html
+++ b/interface/f77_hpr.html
@@ -169,7 +169,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~131"></span>
+              <span class="anchor" id="variable-uplo~83"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~363"></span>
+              <span class="anchor" id="variable-n~203"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -214,7 +214,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~187"></span>
+              <span class="anchor" id="variable-x~179"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -284,7 +284,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~132"></span>
+              <span class="anchor" id="variable-uplo~84"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -299,7 +299,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~364"></span>
+              <span class="anchor" id="variable-n~204"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -329,7 +329,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~188"></span>
+              <span class="anchor" id="variable-x~180"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_hpr2.html b/interface/f77_hpr2.html
index 41be6b7a..3ff7f808 100644
--- a/interface/f77_hpr2.html
+++ b/interface/f77_hpr2.html
@@ -169,7 +169,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~133"></span>
+              <span class="anchor" id="variable-uplo~85"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~365"></span>
+              <span class="anchor" id="variable-n~205"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -214,7 +214,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~189"></span>
+              <span class="anchor" id="variable-x~181"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -244,7 +244,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~113"></span>
+              <span class="anchor" id="variable-y~109"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -314,7 +314,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~134"></span>
+              <span class="anchor" id="variable-uplo~86"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -329,7 +329,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~366"></span>
+              <span class="anchor" id="variable-n~206"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -359,7 +359,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~190"></span>
+              <span class="anchor" id="variable-x~182"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -389,7 +389,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~114"></span>
+              <span class="anchor" id="variable-y~110"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_iamax.html b/interface/f77_iamax.html
index a17b11fa..a54cedb5 100644
--- a/interface/f77_iamax.html
+++ b/interface/f77_iamax.html
@@ -170,7 +170,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~431"></span>
+              <span class="anchor" id="variable-n~271"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -185,7 +185,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~229"></span>
+              <span class="anchor" id="variable-x~221"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -245,7 +245,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~432"></span>
+              <span class="anchor" id="variable-n~272"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -260,7 +260,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~230"></span>
+              <span class="anchor" id="variable-x~222"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -320,7 +320,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~433"></span>
+              <span class="anchor" id="variable-n~273"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -335,7 +335,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~231"></span>
+              <span class="anchor" id="variable-x~223"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -395,7 +395,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~434"></span>
+              <span class="anchor" id="variable-n~274"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -410,7 +410,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~232"></span>
+              <span class="anchor" id="variable-x~224"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_iamin.html b/interface/f77_iamin.html
index a11777d0..383876a7 100644
--- a/interface/f77_iamin.html
+++ b/interface/f77_iamin.html
@@ -170,7 +170,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~435"></span>
+              <span class="anchor" id="variable-n~275"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -185,7 +185,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~233"></span>
+              <span class="anchor" id="variable-x~225"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -245,7 +245,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~436"></span>
+              <span class="anchor" id="variable-n~276"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -260,7 +260,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~234"></span>
+              <span class="anchor" id="variable-x~226"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -320,7 +320,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~437"></span>
+              <span class="anchor" id="variable-n~277"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -335,7 +335,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~235"></span>
+              <span class="anchor" id="variable-x~227"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -395,7 +395,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~438"></span>
+              <span class="anchor" id="variable-n~278"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -410,7 +410,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~236"></span>
+              <span class="anchor" id="variable-x~228"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_lartg.html b/interface/f77_lartg.html
index c9ee9717..722eb303 100644
--- a/interface/f77_lartg.html
+++ b/interface/f77_lartg.html
@@ -201,7 +201,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~21"></span>
+              <span class="anchor" id="variable-c~69"></span>
               real(kind=wp),
             </td>
 <td>intent(inout)</td>
@@ -216,7 +216,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~17"></span>
+              <span class="anchor" id="variable-s~33"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -301,7 +301,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~22"></span>
+              <span class="anchor" id="variable-c~70"></span>
               real(kind=wp),
             </td>
 <td>intent(inout)</td>
@@ -316,7 +316,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~18"></span>
+              <span class="anchor" id="variable-s~34"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -401,7 +401,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~23"></span>
+              <span class="anchor" id="variable-c~71"></span>
               real(kind=wp),
             </td>
 <td>intent(inout)</td>
@@ -416,7 +416,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~19"></span>
+              <span class="anchor" id="variable-s~35"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -501,7 +501,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~24"></span>
+              <span class="anchor" id="variable-c~72"></span>
               real(kind=wp),
             </td>
 <td>intent(inout)</td>
@@ -516,7 +516,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~20"></span>
+              <span class="anchor" id="variable-s~36"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/f77_nrm2.html b/interface/f77_nrm2.html
index 18028c97..3e719510 100644
--- a/interface/f77_nrm2.html
+++ b/interface/f77_nrm2.html
@@ -170,7 +170,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~321"></span>
+              <span class="anchor" id="variable-n~161"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -185,7 +185,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~145"></span>
+              <span class="anchor" id="variable-x~137"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -245,7 +245,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~323"></span>
+              <span class="anchor" id="variable-n~163"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -260,7 +260,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~147"></span>
+              <span class="anchor" id="variable-x~139"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -320,7 +320,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~322"></span>
+              <span class="anchor" id="variable-n~162"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -335,7 +335,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~146"></span>
+              <span class="anchor" id="variable-x~138"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -395,7 +395,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~324"></span>
+              <span class="anchor" id="variable-n~164"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -410,7 +410,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~148"></span>
+              <span class="anchor" id="variable-x~140"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_org2r.html b/interface/f77_org2r.html
index 7e95f9ac..f5fc86a4 100644
--- a/interface/f77_org2r.html
+++ b/interface/f77_org2r.html
@@ -175,7 +175,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~69"></span>
+              <span class="anchor" id="variable-m~129"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -190,7 +190,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~129"></span>
+              <span class="anchor" id="variable-n~407"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -205,7 +205,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k"></span>
+              <span class="anchor" id="variable-k~49"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -220,7 +220,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~129"></span>
+              <span class="anchor" id="variable-a~293"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -235,7 +235,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~129"></span>
+              <span class="anchor" id="variable-lda~269"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -326,7 +326,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~70"></span>
+              <span class="anchor" id="variable-m~130"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -341,7 +341,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~130"></span>
+              <span class="anchor" id="variable-n~408"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -356,7 +356,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~2"></span>
+              <span class="anchor" id="variable-k~50"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -371,7 +371,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~130"></span>
+              <span class="anchor" id="variable-a~294"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -386,7 +386,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~130"></span>
+              <span class="anchor" id="variable-lda~270"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_orgqr.html b/interface/f77_orgqr.html
index 68490d1b..b4bb5564 100644
--- a/interface/f77_orgqr.html
+++ b/interface/f77_orgqr.html
@@ -175,7 +175,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~81"></span>
+              <span class="anchor" id="variable-m~141"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -190,7 +190,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~141"></span>
+              <span class="anchor" id="variable-n~419"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -205,7 +205,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~13"></span>
+              <span class="anchor" id="variable-k~61"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -220,7 +220,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~141"></span>
+              <span class="anchor" id="variable-a~305"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -235,7 +235,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~141"></span>
+              <span class="anchor" id="variable-lda~281"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -341,7 +341,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~82"></span>
+              <span class="anchor" id="variable-m~142"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -356,7 +356,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~142"></span>
+              <span class="anchor" id="variable-n~420"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -371,7 +371,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~14"></span>
+              <span class="anchor" id="variable-k~62"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -386,7 +386,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~142"></span>
+              <span class="anchor" id="variable-a~306"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -401,7 +401,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~142"></span>
+              <span class="anchor" id="variable-lda~282"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_orgr2.html b/interface/f77_orgr2.html
index 2ffa59cb..20ad8317 100644
--- a/interface/f77_orgr2.html
+++ b/interface/f77_orgr2.html
@@ -175,7 +175,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~71"></span>
+              <span class="anchor" id="variable-m~131"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -190,7 +190,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~131"></span>
+              <span class="anchor" id="variable-n~409"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -205,7 +205,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~3"></span>
+              <span class="anchor" id="variable-k~51"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -220,7 +220,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~131"></span>
+              <span class="anchor" id="variable-a~295"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -235,7 +235,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~131"></span>
+              <span class="anchor" id="variable-lda~271"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -326,7 +326,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~72"></span>
+              <span class="anchor" id="variable-m~132"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -341,7 +341,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~132"></span>
+              <span class="anchor" id="variable-n~410"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -356,7 +356,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~4"></span>
+              <span class="anchor" id="variable-k~52"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -371,7 +371,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~132"></span>
+              <span class="anchor" id="variable-a~296"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -386,7 +386,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~132"></span>
+              <span class="anchor" id="variable-lda~272"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_orgrq.html b/interface/f77_orgrq.html
index 7844fdac..29d02a09 100644
--- a/interface/f77_orgrq.html
+++ b/interface/f77_orgrq.html
@@ -175,7 +175,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~83"></span>
+              <span class="anchor" id="variable-m~143"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -190,7 +190,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~143"></span>
+              <span class="anchor" id="variable-n~421"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -205,7 +205,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~15"></span>
+              <span class="anchor" id="variable-k~63"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -220,7 +220,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~143"></span>
+              <span class="anchor" id="variable-a~307"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -235,7 +235,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~143"></span>
+              <span class="anchor" id="variable-lda~283"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -341,7 +341,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~84"></span>
+              <span class="anchor" id="variable-m~144"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -356,7 +356,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~144"></span>
+              <span class="anchor" id="variable-n~422"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -371,7 +371,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~16"></span>
+              <span class="anchor" id="variable-k~64"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -386,7 +386,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~144"></span>
+              <span class="anchor" id="variable-a~308"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -401,7 +401,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~144"></span>
+              <span class="anchor" id="variable-lda~284"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_orm2r.html b/interface/f77_orm2r.html
index 37f49e6f..5830f189 100644
--- a/interface/f77_orm2r.html
+++ b/interface/f77_orm2r.html
@@ -182,7 +182,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side"></span>
+              <span class="anchor" id="variable-side~25"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -197,7 +197,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~21"></span>
+              <span class="anchor" id="variable-trans~101"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -212,7 +212,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~73"></span>
+              <span class="anchor" id="variable-m~133"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -227,7 +227,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~133"></span>
+              <span class="anchor" id="variable-n~411"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -242,7 +242,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~5"></span>
+              <span class="anchor" id="variable-k~53"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -257,7 +257,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~133"></span>
+              <span class="anchor" id="variable-a~297"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -272,7 +272,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~133"></span>
+              <span class="anchor" id="variable-lda~273"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -302,7 +302,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~5"></span>
+              <span class="anchor" id="variable-c~53"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -317,7 +317,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc"></span>
+              <span class="anchor" id="variable-ldc~33"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -400,7 +400,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~2"></span>
+              <span class="anchor" id="variable-side~26"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -415,7 +415,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~22"></span>
+              <span class="anchor" id="variable-trans~102"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -430,7 +430,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~74"></span>
+              <span class="anchor" id="variable-m~134"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -445,7 +445,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~134"></span>
+              <span class="anchor" id="variable-n~412"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -460,7 +460,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~6"></span>
+              <span class="anchor" id="variable-k~54"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -475,7 +475,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~134"></span>
+              <span class="anchor" id="variable-a~298"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -490,7 +490,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~134"></span>
+              <span class="anchor" id="variable-lda~274"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -520,7 +520,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~6"></span>
+              <span class="anchor" id="variable-c~54"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -535,7 +535,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~2"></span>
+              <span class="anchor" id="variable-ldc~34"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_ormqr.html b/interface/f77_ormqr.html
index 858ee9c0..bf6ffbab 100644
--- a/interface/f77_ormqr.html
+++ b/interface/f77_ormqr.html
@@ -182,7 +182,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~5"></span>
+              <span class="anchor" id="variable-side~29"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -197,7 +197,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~25"></span>
+              <span class="anchor" id="variable-trans~105"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -212,7 +212,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~77"></span>
+              <span class="anchor" id="variable-m~137"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -227,7 +227,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~137"></span>
+              <span class="anchor" id="variable-n~415"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -242,7 +242,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~9"></span>
+              <span class="anchor" id="variable-k~57"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -257,7 +257,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~137"></span>
+              <span class="anchor" id="variable-a~301"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -272,7 +272,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~137"></span>
+              <span class="anchor" id="variable-lda~277"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -302,7 +302,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~9"></span>
+              <span class="anchor" id="variable-c~57"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -317,7 +317,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~5"></span>
+              <span class="anchor" id="variable-ldc~37"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -415,7 +415,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~6"></span>
+              <span class="anchor" id="variable-side~30"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -430,7 +430,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~26"></span>
+              <span class="anchor" id="variable-trans~106"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -445,7 +445,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~78"></span>
+              <span class="anchor" id="variable-m~138"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -460,7 +460,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~138"></span>
+              <span class="anchor" id="variable-n~416"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -475,7 +475,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~10"></span>
+              <span class="anchor" id="variable-k~58"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -490,7 +490,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~138"></span>
+              <span class="anchor" id="variable-a~302"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -505,7 +505,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~138"></span>
+              <span class="anchor" id="variable-lda~278"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -535,7 +535,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~10"></span>
+              <span class="anchor" id="variable-c~58"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -550,7 +550,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~6"></span>
+              <span class="anchor" id="variable-ldc~38"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_ormr2.html b/interface/f77_ormr2.html
index 19d8f016..17c053ad 100644
--- a/interface/f77_ormr2.html
+++ b/interface/f77_ormr2.html
@@ -182,7 +182,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~3"></span>
+              <span class="anchor" id="variable-side~27"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -197,7 +197,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~23"></span>
+              <span class="anchor" id="variable-trans~103"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -212,7 +212,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~75"></span>
+              <span class="anchor" id="variable-m~135"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -227,7 +227,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~135"></span>
+              <span class="anchor" id="variable-n~413"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -242,7 +242,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~7"></span>
+              <span class="anchor" id="variable-k~55"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -257,7 +257,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~135"></span>
+              <span class="anchor" id="variable-a~299"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -272,7 +272,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~135"></span>
+              <span class="anchor" id="variable-lda~275"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -302,7 +302,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~7"></span>
+              <span class="anchor" id="variable-c~55"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -317,7 +317,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~3"></span>
+              <span class="anchor" id="variable-ldc~35"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -400,7 +400,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~4"></span>
+              <span class="anchor" id="variable-side~28"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -415,7 +415,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~24"></span>
+              <span class="anchor" id="variable-trans~104"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -430,7 +430,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~76"></span>
+              <span class="anchor" id="variable-m~136"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -445,7 +445,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~136"></span>
+              <span class="anchor" id="variable-n~414"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -460,7 +460,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~8"></span>
+              <span class="anchor" id="variable-k~56"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -475,7 +475,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~136"></span>
+              <span class="anchor" id="variable-a~300"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -490,7 +490,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~136"></span>
+              <span class="anchor" id="variable-lda~276"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -520,7 +520,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~8"></span>
+              <span class="anchor" id="variable-c~56"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -535,7 +535,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~4"></span>
+              <span class="anchor" id="variable-ldc~36"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_ormrq.html b/interface/f77_ormrq.html
index e60f0b29..c93f7a10 100644
--- a/interface/f77_ormrq.html
+++ b/interface/f77_ormrq.html
@@ -182,7 +182,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~7"></span>
+              <span class="anchor" id="variable-side~31"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -197,7 +197,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~27"></span>
+              <span class="anchor" id="variable-trans~107"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -212,7 +212,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~79"></span>
+              <span class="anchor" id="variable-m~139"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -227,7 +227,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~139"></span>
+              <span class="anchor" id="variable-n~417"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -242,7 +242,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~11"></span>
+              <span class="anchor" id="variable-k~59"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -257,7 +257,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~139"></span>
+              <span class="anchor" id="variable-a~303"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -272,7 +272,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~139"></span>
+              <span class="anchor" id="variable-lda~279"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -302,7 +302,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~11"></span>
+              <span class="anchor" id="variable-c~59"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -317,7 +317,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~7"></span>
+              <span class="anchor" id="variable-ldc~39"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -415,7 +415,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~8"></span>
+              <span class="anchor" id="variable-side~32"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -430,7 +430,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~28"></span>
+              <span class="anchor" id="variable-trans~108"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -445,7 +445,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~80"></span>
+              <span class="anchor" id="variable-m~140"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -460,7 +460,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~140"></span>
+              <span class="anchor" id="variable-n~418"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -475,7 +475,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~12"></span>
+              <span class="anchor" id="variable-k~60"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -490,7 +490,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~140"></span>
+              <span class="anchor" id="variable-a~304"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -505,7 +505,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~140"></span>
+              <span class="anchor" id="variable-lda~280"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -535,7 +535,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~12"></span>
+              <span class="anchor" id="variable-c~60"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -550,7 +550,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~8"></span>
+              <span class="anchor" id="variable-ldc~40"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_pocon.html b/interface/f77_pocon.html
index b963ae87..24258484 100644
--- a/interface/f77_pocon.html
+++ b/interface/f77_pocon.html
@@ -159,7 +159,7 @@ <h2>Subroutines</h2>
 See also: <a href="../interface/mfi_pocon.html">mfi_pocon</a>, <a href="../interface/f77_pocon.html">f77_pocon</a>.
 spocon estimates the reciprocal of the condition number (in the
 1-norm) of a real(REAL32) Hermitian positive definite matrix using the
-Cholesky factorization A = U<strong>H<em>U or A = L</em>L</strong>H computed by sPOTRF.
+Cholesky factorization <script type="math/tex"> A = U^\dagger U </script> or ( A = LL^\dagger |) computed by sPOTRF.
 An estimate is obtained for norm(inv(A)), and the reciprocal of the
 condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))).</p>
 
@@ -176,7 +176,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~41"></span>
+              <span class="anchor" id="variable-uplo~185"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -191,7 +191,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~89"></span>
+              <span class="anchor" id="variable-n~367"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -206,7 +206,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~89"></span>
+              <span class="anchor" id="variable-a~253"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -221,7 +221,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~89"></span>
+              <span class="anchor" id="variable-lda~229"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -324,7 +324,7 @@ <h4>Arguments</h4>
 See also: <a href="../interface/mfi_pocon.html">mfi_pocon</a>, <a href="../interface/f77_pocon.html">f77_pocon</a>.
 dpocon estimates the reciprocal of the condition number (in the
 1-norm) of a real(REAL64) Hermitian positive definite matrix using the
-Cholesky factorization A = U<strong>H<em>U or A = L</em>L</strong>H computed by dPOTRF.
+Cholesky factorization <script type="math/tex"> A = U^\dagger U </script> or ( A = LL^\dagger |) computed by dPOTRF.
 An estimate is obtained for norm(inv(A)), and the reciprocal of the
 condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))).</p>
 
@@ -341,7 +341,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~42"></span>
+              <span class="anchor" id="variable-uplo~186"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -356,7 +356,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~90"></span>
+              <span class="anchor" id="variable-n~368"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -371,7 +371,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~90"></span>
+              <span class="anchor" id="variable-a~254"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -386,7 +386,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~90"></span>
+              <span class="anchor" id="variable-lda~230"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -489,7 +489,7 @@ <h4>Arguments</h4>
 See also: <a href="../interface/mfi_pocon.html">mfi_pocon</a>, <a href="../interface/f77_pocon.html">f77_pocon</a>.
 cpocon estimates the reciprocal of the condition number (in the
 1-norm) of a complex(REAL32) Hermitian positive definite matrix using the
-Cholesky factorization A = U<strong>H<em>U or A = L</em>L</strong>H computed by cPOTRF.
+Cholesky factorization <script type="math/tex"> A = U^\dagger U </script> or ( A = LL^\dagger |) computed by cPOTRF.
 An estimate is obtained for norm(inv(A)), and the reciprocal of the
 condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))).</p>
 
@@ -506,7 +506,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~43"></span>
+              <span class="anchor" id="variable-uplo~187"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -521,7 +521,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~91"></span>
+              <span class="anchor" id="variable-n~369"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -536,7 +536,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~91"></span>
+              <span class="anchor" id="variable-a~255"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -551,7 +551,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~91"></span>
+              <span class="anchor" id="variable-lda~231"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -654,7 +654,7 @@ <h4>Arguments</h4>
 See also: <a href="../interface/mfi_pocon.html">mfi_pocon</a>, <a href="../interface/f77_pocon.html">f77_pocon</a>.
 zpocon estimates the reciprocal of the condition number (in the
 1-norm) of a complex(REAL64) Hermitian positive definite matrix using the
-Cholesky factorization A = U<strong>H<em>U or A = L</em>L</strong>H computed by zPOTRF.
+Cholesky factorization <script type="math/tex"> A = U^\dagger U </script> or ( A = LL^\dagger |) computed by zPOTRF.
 An estimate is obtained for norm(inv(A)), and the reciprocal of the
 condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))).</p>
 
@@ -671,7 +671,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~44"></span>
+              <span class="anchor" id="variable-uplo~188"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -686,7 +686,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~92"></span>
+              <span class="anchor" id="variable-n~370"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -701,7 +701,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~92"></span>
+              <span class="anchor" id="variable-a~256"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -716,7 +716,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~92"></span>
+              <span class="anchor" id="variable-lda~232"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_potrf.html b/interface/f77_potrf.html
index b7865dde..ecb60d34 100644
--- a/interface/f77_potrf.html
+++ b/interface/f77_potrf.html
@@ -171,7 +171,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~29"></span>
+              <span class="anchor" id="variable-uplo~173"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -186,7 +186,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~77"></span>
+              <span class="anchor" id="variable-n~355"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -201,7 +201,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~77"></span>
+              <span class="anchor" id="variable-a~241"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -216,7 +216,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~77"></span>
+              <span class="anchor" id="variable-lda~217"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -271,7 +271,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~30"></span>
+              <span class="anchor" id="variable-uplo~174"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -286,7 +286,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~78"></span>
+              <span class="anchor" id="variable-n~356"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -301,7 +301,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~78"></span>
+              <span class="anchor" id="variable-a~242"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -316,7 +316,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~78"></span>
+              <span class="anchor" id="variable-lda~218"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -371,7 +371,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~31"></span>
+              <span class="anchor" id="variable-uplo~175"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -386,7 +386,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~79"></span>
+              <span class="anchor" id="variable-n~357"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -401,7 +401,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~79"></span>
+              <span class="anchor" id="variable-a~243"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -416,7 +416,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~79"></span>
+              <span class="anchor" id="variable-lda~219"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -471,7 +471,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~32"></span>
+              <span class="anchor" id="variable-uplo~176"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -486,7 +486,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~80"></span>
+              <span class="anchor" id="variable-n~358"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -501,7 +501,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~80"></span>
+              <span class="anchor" id="variable-a~244"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -516,7 +516,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~80"></span>
+              <span class="anchor" id="variable-lda~220"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_potri.html b/interface/f77_potri.html
index bd66b8bb..6456952f 100644
--- a/interface/f77_potri.html
+++ b/interface/f77_potri.html
@@ -171,7 +171,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~33"></span>
+              <span class="anchor" id="variable-uplo~177"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -186,7 +186,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~81"></span>
+              <span class="anchor" id="variable-n~359"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -201,7 +201,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~81"></span>
+              <span class="anchor" id="variable-a~245"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -216,7 +216,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~81"></span>
+              <span class="anchor" id="variable-lda~221"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -271,7 +271,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~34"></span>
+              <span class="anchor" id="variable-uplo~178"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -286,7 +286,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~82"></span>
+              <span class="anchor" id="variable-n~360"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -301,7 +301,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~82"></span>
+              <span class="anchor" id="variable-a~246"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -316,7 +316,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~82"></span>
+              <span class="anchor" id="variable-lda~222"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -371,7 +371,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~35"></span>
+              <span class="anchor" id="variable-uplo~179"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -386,7 +386,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~83"></span>
+              <span class="anchor" id="variable-n~361"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -401,7 +401,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~83"></span>
+              <span class="anchor" id="variable-a~247"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -416,7 +416,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~83"></span>
+              <span class="anchor" id="variable-lda~223"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -471,7 +471,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~36"></span>
+              <span class="anchor" id="variable-uplo~180"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -486,7 +486,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~84"></span>
+              <span class="anchor" id="variable-n~362"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -501,7 +501,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~84"></span>
+              <span class="anchor" id="variable-a~248"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -516,7 +516,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~84"></span>
+              <span class="anchor" id="variable-lda~224"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_potrs.html b/interface/f77_potrs.html
index 4dfcc16f..c607ca0a 100644
--- a/interface/f77_potrs.html
+++ b/interface/f77_potrs.html
@@ -171,7 +171,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~37"></span>
+              <span class="anchor" id="variable-uplo~181"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -186,7 +186,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~85"></span>
+              <span class="anchor" id="variable-n~363"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -216,7 +216,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~85"></span>
+              <span class="anchor" id="variable-a~249"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -231,7 +231,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~85"></span>
+              <span class="anchor" id="variable-lda~225"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -246,7 +246,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~17"></span>
+              <span class="anchor" id="variable-b~61"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -261,7 +261,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~17"></span>
+              <span class="anchor" id="variable-ldb~57"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -316,7 +316,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~38"></span>
+              <span class="anchor" id="variable-uplo~182"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -331,7 +331,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~86"></span>
+              <span class="anchor" id="variable-n~364"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -361,7 +361,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~86"></span>
+              <span class="anchor" id="variable-a~250"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -376,7 +376,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~86"></span>
+              <span class="anchor" id="variable-lda~226"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -391,7 +391,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~18"></span>
+              <span class="anchor" id="variable-b~62"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -406,7 +406,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~18"></span>
+              <span class="anchor" id="variable-ldb~58"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -461,7 +461,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~39"></span>
+              <span class="anchor" id="variable-uplo~183"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -476,7 +476,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~87"></span>
+              <span class="anchor" id="variable-n~365"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -506,7 +506,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~87"></span>
+              <span class="anchor" id="variable-a~251"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -521,7 +521,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~87"></span>
+              <span class="anchor" id="variable-lda~227"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -536,7 +536,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~19"></span>
+              <span class="anchor" id="variable-b~63"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -551,7 +551,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~19"></span>
+              <span class="anchor" id="variable-ldb~59"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -606,7 +606,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~40"></span>
+              <span class="anchor" id="variable-uplo~184"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -621,7 +621,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~88"></span>
+              <span class="anchor" id="variable-n~366"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -651,7 +651,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~88"></span>
+              <span class="anchor" id="variable-a~252"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -666,7 +666,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~88"></span>
+              <span class="anchor" id="variable-lda~228"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -681,7 +681,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~20"></span>
+              <span class="anchor" id="variable-b~64"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -696,7 +696,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~20"></span>
+              <span class="anchor" id="variable-ldb~60"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_rot.html b/interface/f77_rot.html
index 73add632..d50cbcda 100644
--- a/interface/f77_rot.html
+++ b/interface/f77_rot.html
@@ -174,7 +174,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~325"></span>
+              <span class="anchor" id="variable-n~165"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -189,7 +189,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~149"></span>
+              <span class="anchor" id="variable-x~141"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -219,7 +219,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~83"></span>
+              <span class="anchor" id="variable-y~79"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -249,7 +249,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~47"></span>
+              <span class="anchor" id="variable-c~23"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -264,7 +264,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~27"></span>
+              <span class="anchor" id="variable-s~7"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -305,7 +305,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~326"></span>
+              <span class="anchor" id="variable-n~166"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -320,7 +320,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~150"></span>
+              <span class="anchor" id="variable-x~142"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -350,7 +350,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~84"></span>
+              <span class="anchor" id="variable-y~80"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -380,7 +380,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~48"></span>
+              <span class="anchor" id="variable-c~24"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -395,7 +395,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~28"></span>
+              <span class="anchor" id="variable-s~8"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -436,7 +436,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~327"></span>
+              <span class="anchor" id="variable-n~167"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -451,7 +451,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~151"></span>
+              <span class="anchor" id="variable-x~143"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -481,7 +481,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~85"></span>
+              <span class="anchor" id="variable-y~81"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -511,7 +511,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~49"></span>
+              <span class="anchor" id="variable-c~25"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -526,7 +526,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~29"></span>
+              <span class="anchor" id="variable-s~9"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -567,7 +567,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~328"></span>
+              <span class="anchor" id="variable-n~168"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -582,7 +582,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~152"></span>
+              <span class="anchor" id="variable-x~144"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -612,7 +612,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~86"></span>
+              <span class="anchor" id="variable-y~82"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -642,7 +642,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~50"></span>
+              <span class="anchor" id="variable-c~26"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -657,7 +657,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~30"></span>
+              <span class="anchor" id="variable-s~10"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -698,7 +698,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~329"></span>
+              <span class="anchor" id="variable-n~169"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -713,7 +713,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~153"></span>
+              <span class="anchor" id="variable-x~145"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -743,7 +743,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~87"></span>
+              <span class="anchor" id="variable-y~83"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -773,7 +773,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~51"></span>
+              <span class="anchor" id="variable-c~27"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -788,7 +788,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~31"></span>
+              <span class="anchor" id="variable-s~11"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -829,7 +829,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~330"></span>
+              <span class="anchor" id="variable-n~170"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -844,7 +844,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~154"></span>
+              <span class="anchor" id="variable-x~146"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -874,7 +874,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~88"></span>
+              <span class="anchor" id="variable-y~84"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -904,7 +904,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~52"></span>
+              <span class="anchor" id="variable-c~28"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -919,7 +919,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~32"></span>
+              <span class="anchor" id="variable-s~12"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_rotg.html b/interface/f77_rotg.html
index c3648359..e6704380 100644
--- a/interface/f77_rotg.html
+++ b/interface/f77_rotg.html
@@ -177,7 +177,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~245"></span>
+              <span class="anchor" id="variable-a~85"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -192,7 +192,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~73"></span>
+              <span class="anchor" id="variable-b~21"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -207,7 +207,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~53"></span>
+              <span class="anchor" id="variable-c~29"></span>
               real(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -222,7 +222,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~33"></span>
+              <span class="anchor" id="variable-s~13"></span>
               real(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -268,7 +268,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~246"></span>
+              <span class="anchor" id="variable-a~86"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -283,7 +283,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~74"></span>
+              <span class="anchor" id="variable-b~22"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -298,7 +298,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~54"></span>
+              <span class="anchor" id="variable-c~30"></span>
               real(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -313,7 +313,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~34"></span>
+              <span class="anchor" id="variable-s~14"></span>
               real(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -359,7 +359,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~247"></span>
+              <span class="anchor" id="variable-a~87"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -374,7 +374,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~75"></span>
+              <span class="anchor" id="variable-b~23"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -389,7 +389,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~55"></span>
+              <span class="anchor" id="variable-c~31"></span>
               real(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -404,7 +404,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~35"></span>
+              <span class="anchor" id="variable-s~15"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -450,7 +450,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~248"></span>
+              <span class="anchor" id="variable-a~88"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -465,7 +465,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~76"></span>
+              <span class="anchor" id="variable-b~24"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -480,7 +480,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~56"></span>
+              <span class="anchor" id="variable-c~32"></span>
               real(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -495,7 +495,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~36"></span>
+              <span class="anchor" id="variable-s~16"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(out)</td>
diff --git a/interface/f77_rotm.html b/interface/f77_rotm.html
index 55bfc390..752a3a36 100644
--- a/interface/f77_rotm.html
+++ b/interface/f77_rotm.html
@@ -169,7 +169,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~331"></span>
+              <span class="anchor" id="variable-n~171"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~155"></span>
+              <span class="anchor" id="variable-x~147"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -214,7 +214,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~89"></span>
+              <span class="anchor" id="variable-y~85"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -284,7 +284,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~332"></span>
+              <span class="anchor" id="variable-n~172"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -299,7 +299,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~156"></span>
+              <span class="anchor" id="variable-x~148"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -329,7 +329,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~90"></span>
+              <span class="anchor" id="variable-y~86"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/f77_sbmv.html b/interface/f77_sbmv.html
index 734450bf..a89d6d0f 100644
--- a/interface/f77_sbmv.html
+++ b/interface/f77_sbmv.html
@@ -169,7 +169,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~135"></span>
+              <span class="anchor" id="variable-uplo~87"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~367"></span>
+              <span class="anchor" id="variable-n~207"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -199,7 +199,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~59"></span>
+              <span class="anchor" id="variable-k~27"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -229,7 +229,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~277"></span>
+              <span class="anchor" id="variable-a~117"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -244,7 +244,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~253"></span>
+              <span class="anchor" id="variable-lda~93"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -259,7 +259,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~191"></span>
+              <span class="anchor" id="variable-x~183"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -304,7 +304,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~115"></span>
+              <span class="anchor" id="variable-y~111"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -359,7 +359,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~136"></span>
+              <span class="anchor" id="variable-uplo~88"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -374,7 +374,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~368"></span>
+              <span class="anchor" id="variable-n~208"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -389,7 +389,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~60"></span>
+              <span class="anchor" id="variable-k~28"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -419,7 +419,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~278"></span>
+              <span class="anchor" id="variable-a~118"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -434,7 +434,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~254"></span>
+              <span class="anchor" id="variable-lda~94"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -449,7 +449,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~192"></span>
+              <span class="anchor" id="variable-x~184"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -494,7 +494,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~116"></span>
+              <span class="anchor" id="variable-y~112"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/f77_scal.html b/interface/f77_scal.html
index 0a1d762e..b8764ec5 100644
--- a/interface/f77_scal.html
+++ b/interface/f77_scal.html
@@ -174,7 +174,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~333"></span>
+              <span class="anchor" id="variable-n~173"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -189,7 +189,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~249"></span>
+              <span class="anchor" id="variable-a~89"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -204,7 +204,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~157"></span>
+              <span class="anchor" id="variable-x~149"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -260,7 +260,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~334"></span>
+              <span class="anchor" id="variable-n~174"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -275,7 +275,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~250"></span>
+              <span class="anchor" id="variable-a~90"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -290,7 +290,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~158"></span>
+              <span class="anchor" id="variable-x~150"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -346,7 +346,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~335"></span>
+              <span class="anchor" id="variable-n~175"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -361,7 +361,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~251"></span>
+              <span class="anchor" id="variable-a~91"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -376,7 +376,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~159"></span>
+              <span class="anchor" id="variable-x~151"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -432,7 +432,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~336"></span>
+              <span class="anchor" id="variable-n~176"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -447,7 +447,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~252"></span>
+              <span class="anchor" id="variable-a~92"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -462,7 +462,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~160"></span>
+              <span class="anchor" id="variable-x~152"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -518,7 +518,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~337"></span>
+              <span class="anchor" id="variable-n~177"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -533,7 +533,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~253"></span>
+              <span class="anchor" id="variable-a~93"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -548,7 +548,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~161"></span>
+              <span class="anchor" id="variable-x~153"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -604,7 +604,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~338"></span>
+              <span class="anchor" id="variable-n~178"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -619,7 +619,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~254"></span>
+              <span class="anchor" id="variable-a~94"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -634,7 +634,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~162"></span>
+              <span class="anchor" id="variable-x~154"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/f77_spmv.html b/interface/f77_spmv.html
index 59724e51..885b1888 100644
--- a/interface/f77_spmv.html
+++ b/interface/f77_spmv.html
@@ -169,7 +169,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~137"></span>
+              <span class="anchor" id="variable-uplo~89"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~369"></span>
+              <span class="anchor" id="variable-n~209"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -229,7 +229,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~193"></span>
+              <span class="anchor" id="variable-x~185"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -274,7 +274,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~117"></span>
+              <span class="anchor" id="variable-y~113"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -329,7 +329,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~138"></span>
+              <span class="anchor" id="variable-uplo~90"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -344,7 +344,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~370"></span>
+              <span class="anchor" id="variable-n~210"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -389,7 +389,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~194"></span>
+              <span class="anchor" id="variable-x~186"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -434,7 +434,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~118"></span>
+              <span class="anchor" id="variable-y~114"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/f77_spr.html b/interface/f77_spr.html
index 26b106f4..2db155d9 100644
--- a/interface/f77_spr.html
+++ b/interface/f77_spr.html
@@ -169,7 +169,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~139"></span>
+              <span class="anchor" id="variable-uplo~91"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~371"></span>
+              <span class="anchor" id="variable-n~211"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -214,7 +214,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~195"></span>
+              <span class="anchor" id="variable-x~187"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -284,7 +284,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~140"></span>
+              <span class="anchor" id="variable-uplo~92"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -299,7 +299,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~372"></span>
+              <span class="anchor" id="variable-n~212"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -329,7 +329,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~196"></span>
+              <span class="anchor" id="variable-x~188"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_spr2.html b/interface/f77_spr2.html
index b91c046b..732f9173 100644
--- a/interface/f77_spr2.html
+++ b/interface/f77_spr2.html
@@ -169,7 +169,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~141"></span>
+              <span class="anchor" id="variable-uplo~93"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~373"></span>
+              <span class="anchor" id="variable-n~213"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -214,7 +214,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~197"></span>
+              <span class="anchor" id="variable-x~189"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -244,7 +244,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~119"></span>
+              <span class="anchor" id="variable-y~115"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -314,7 +314,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~142"></span>
+              <span class="anchor" id="variable-uplo~94"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -329,7 +329,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~374"></span>
+              <span class="anchor" id="variable-n~214"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -359,7 +359,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~198"></span>
+              <span class="anchor" id="variable-x~190"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -389,7 +389,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~120"></span>
+              <span class="anchor" id="variable-y~116"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_swap.html b/interface/f77_swap.html
index a3321ff4..bef552b2 100644
--- a/interface/f77_swap.html
+++ b/interface/f77_swap.html
@@ -171,7 +171,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~303"></span>
+              <span class="anchor" id="variable-n~143"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -186,7 +186,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~127"></span>
+              <span class="anchor" id="variable-x~119"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -216,7 +216,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~69"></span>
+              <span class="anchor" id="variable-y~65"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -271,7 +271,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~304"></span>
+              <span class="anchor" id="variable-n~144"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -286,7 +286,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~128"></span>
+              <span class="anchor" id="variable-x~120"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -316,7 +316,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~70"></span>
+              <span class="anchor" id="variable-y~66"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -371,7 +371,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~305"></span>
+              <span class="anchor" id="variable-n~145"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -386,7 +386,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~129"></span>
+              <span class="anchor" id="variable-x~121"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -416,7 +416,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~71"></span>
+              <span class="anchor" id="variable-y~67"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -471,7 +471,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~306"></span>
+              <span class="anchor" id="variable-n~146"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -486,7 +486,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~130"></span>
+              <span class="anchor" id="variable-x~122"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -516,7 +516,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~72"></span>
+              <span class="anchor" id="variable-y~68"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/f77_symm.html b/interface/f77_symm.html
index 7f181ebb..e812d55e 100644
--- a/interface/f77_symm.html
+++ b/interface/f77_symm.html
@@ -169,7 +169,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~31"></span>
+              <span class="anchor" id="variable-side~15"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~179"></span>
+              <span class="anchor" id="variable-uplo~131"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -199,7 +199,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~151"></span>
+              <span class="anchor" id="variable-m~51"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -214,7 +214,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~415"></span>
+              <span class="anchor" id="variable-n~255"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -244,7 +244,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~311"></span>
+              <span class="anchor" id="variable-a~151"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -259,7 +259,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~287"></span>
+              <span class="anchor" id="variable-lda~127"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -274,7 +274,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~85"></span>
+              <span class="anchor" id="variable-b~33"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -289,7 +289,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~81"></span>
+              <span class="anchor" id="variable-ldb~29"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -319,7 +319,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~67"></span>
+              <span class="anchor" id="variable-c~43"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -334,7 +334,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~43"></span>
+              <span class="anchor" id="variable-ldc~27"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -374,7 +374,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~32"></span>
+              <span class="anchor" id="variable-side~16"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -389,7 +389,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~180"></span>
+              <span class="anchor" id="variable-uplo~132"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -404,7 +404,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~152"></span>
+              <span class="anchor" id="variable-m~52"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -419,7 +419,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~416"></span>
+              <span class="anchor" id="variable-n~256"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -449,7 +449,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~312"></span>
+              <span class="anchor" id="variable-a~152"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -464,7 +464,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~288"></span>
+              <span class="anchor" id="variable-lda~128"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -479,7 +479,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~86"></span>
+              <span class="anchor" id="variable-b~34"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -494,7 +494,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~82"></span>
+              <span class="anchor" id="variable-ldb~30"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -524,7 +524,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~68"></span>
+              <span class="anchor" id="variable-c~44"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -539,7 +539,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~44"></span>
+              <span class="anchor" id="variable-ldc~28"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_symv.html b/interface/f77_symv.html
index 3f2f6fa9..9d765903 100644
--- a/interface/f77_symv.html
+++ b/interface/f77_symv.html
@@ -169,7 +169,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~143"></span>
+              <span class="anchor" id="variable-uplo~95"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~375"></span>
+              <span class="anchor" id="variable-n~215"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -214,7 +214,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~279"></span>
+              <span class="anchor" id="variable-a~119"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -229,7 +229,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~255"></span>
+              <span class="anchor" id="variable-lda~95"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -244,7 +244,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~199"></span>
+              <span class="anchor" id="variable-x~191"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -289,7 +289,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~121"></span>
+              <span class="anchor" id="variable-y~117"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -344,7 +344,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~144"></span>
+              <span class="anchor" id="variable-uplo~96"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -359,7 +359,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~376"></span>
+              <span class="anchor" id="variable-n~216"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -389,7 +389,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~280"></span>
+              <span class="anchor" id="variable-a~120"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -404,7 +404,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~256"></span>
+              <span class="anchor" id="variable-lda~96"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -419,7 +419,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~200"></span>
+              <span class="anchor" id="variable-x~192"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -464,7 +464,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~122"></span>
+              <span class="anchor" id="variable-y~118"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/f77_syr.html b/interface/f77_syr.html
index d94740bd..483f4d85 100644
--- a/interface/f77_syr.html
+++ b/interface/f77_syr.html
@@ -169,7 +169,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~145"></span>
+              <span class="anchor" id="variable-uplo~97"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~377"></span>
+              <span class="anchor" id="variable-n~217"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -214,7 +214,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~201"></span>
+              <span class="anchor" id="variable-x~193"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -244,7 +244,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~281"></span>
+              <span class="anchor" id="variable-a~121"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -259,7 +259,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~257"></span>
+              <span class="anchor" id="variable-lda~97"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -299,7 +299,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~146"></span>
+              <span class="anchor" id="variable-uplo~98"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -314,7 +314,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~378"></span>
+              <span class="anchor" id="variable-n~218"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -344,7 +344,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~202"></span>
+              <span class="anchor" id="variable-x~194"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -374,7 +374,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~282"></span>
+              <span class="anchor" id="variable-a~122"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -389,7 +389,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~258"></span>
+              <span class="anchor" id="variable-lda~98"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_syr2.html b/interface/f77_syr2.html
index d6e4666b..2582af64 100644
--- a/interface/f77_syr2.html
+++ b/interface/f77_syr2.html
@@ -169,7 +169,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~147"></span>
+              <span class="anchor" id="variable-uplo~99"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~379"></span>
+              <span class="anchor" id="variable-n~219"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -214,7 +214,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~203"></span>
+              <span class="anchor" id="variable-x~195"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -244,7 +244,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~123"></span>
+              <span class="anchor" id="variable-y~119"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -274,7 +274,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~283"></span>
+              <span class="anchor" id="variable-a~123"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -289,7 +289,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~259"></span>
+              <span class="anchor" id="variable-lda~99"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -329,7 +329,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~148"></span>
+              <span class="anchor" id="variable-uplo~100"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -344,7 +344,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~380"></span>
+              <span class="anchor" id="variable-n~220"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -374,7 +374,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~204"></span>
+              <span class="anchor" id="variable-x~196"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -404,7 +404,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~124"></span>
+              <span class="anchor" id="variable-y~120"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -434,7 +434,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~284"></span>
+              <span class="anchor" id="variable-a~124"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -449,7 +449,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~260"></span>
+              <span class="anchor" id="variable-lda~100"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_syr2k.html b/interface/f77_syr2k.html
index 75d502ef..a9c386c8 100644
--- a/interface/f77_syr2k.html
+++ b/interface/f77_syr2k.html
@@ -169,7 +169,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~183"></span>
+              <span class="anchor" id="variable-uplo~135"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~115"></span>
+              <span class="anchor" id="variable-trans~79"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -199,7 +199,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~419"></span>
+              <span class="anchor" id="variable-n~259"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -214,7 +214,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~79"></span>
+              <span class="anchor" id="variable-k~47"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -244,7 +244,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~315"></span>
+              <span class="anchor" id="variable-a~155"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -259,7 +259,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~291"></span>
+              <span class="anchor" id="variable-lda~131"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -274,7 +274,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~87"></span>
+              <span class="anchor" id="variable-b~35"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -289,7 +289,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~83"></span>
+              <span class="anchor" id="variable-ldb~31"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -319,7 +319,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~71"></span>
+              <span class="anchor" id="variable-c~47"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -334,7 +334,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~47"></span>
+              <span class="anchor" id="variable-ldc~31"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -374,7 +374,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~184"></span>
+              <span class="anchor" id="variable-uplo~136"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -389,7 +389,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~116"></span>
+              <span class="anchor" id="variable-trans~80"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -404,7 +404,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~420"></span>
+              <span class="anchor" id="variable-n~260"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -419,7 +419,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~80"></span>
+              <span class="anchor" id="variable-k~48"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -449,7 +449,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~316"></span>
+              <span class="anchor" id="variable-a~156"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -464,7 +464,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~292"></span>
+              <span class="anchor" id="variable-lda~132"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -479,7 +479,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~88"></span>
+              <span class="anchor" id="variable-b~36"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -494,7 +494,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~84"></span>
+              <span class="anchor" id="variable-ldb~32"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -524,7 +524,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~72"></span>
+              <span class="anchor" id="variable-c~48"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -539,7 +539,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~48"></span>
+              <span class="anchor" id="variable-ldc~32"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_syrk.html b/interface/f77_syrk.html
index 5188c57a..f47a5ca1 100644
--- a/interface/f77_syrk.html
+++ b/interface/f77_syrk.html
@@ -169,7 +169,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~181"></span>
+              <span class="anchor" id="variable-uplo~133"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~113"></span>
+              <span class="anchor" id="variable-trans~77"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -199,7 +199,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~417"></span>
+              <span class="anchor" id="variable-n~257"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -214,7 +214,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~77"></span>
+              <span class="anchor" id="variable-k~45"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -244,7 +244,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~313"></span>
+              <span class="anchor" id="variable-a~153"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -259,7 +259,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~289"></span>
+              <span class="anchor" id="variable-lda~129"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -289,7 +289,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~69"></span>
+              <span class="anchor" id="variable-c~45"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -304,7 +304,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~45"></span>
+              <span class="anchor" id="variable-ldc~29"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -344,7 +344,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~182"></span>
+              <span class="anchor" id="variable-uplo~134"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -359,7 +359,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~114"></span>
+              <span class="anchor" id="variable-trans~78"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -374,7 +374,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~418"></span>
+              <span class="anchor" id="variable-n~258"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -389,7 +389,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~78"></span>
+              <span class="anchor" id="variable-k~46"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -419,7 +419,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~314"></span>
+              <span class="anchor" id="variable-a~154"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -434,7 +434,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~290"></span>
+              <span class="anchor" id="variable-lda~130"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -464,7 +464,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~70"></span>
+              <span class="anchor" id="variable-c~46"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -479,7 +479,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~46"></span>
+              <span class="anchor" id="variable-ldc~30"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_tbmv.html b/interface/f77_tbmv.html
index c1727572..039af73a 100644
--- a/interface/f77_tbmv.html
+++ b/interface/f77_tbmv.html
@@ -171,7 +171,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~149"></span>
+              <span class="anchor" id="variable-uplo~101"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -186,7 +186,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~85"></span>
+              <span class="anchor" id="variable-trans~49"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -216,7 +216,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~381"></span>
+              <span class="anchor" id="variable-n~221"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -231,7 +231,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~61"></span>
+              <span class="anchor" id="variable-k~29"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -246,7 +246,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~285"></span>
+              <span class="anchor" id="variable-a~125"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -261,7 +261,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~261"></span>
+              <span class="anchor" id="variable-lda~101"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -276,7 +276,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~205"></span>
+              <span class="anchor" id="variable-x~197"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -331,7 +331,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~150"></span>
+              <span class="anchor" id="variable-uplo~102"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -346,7 +346,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~86"></span>
+              <span class="anchor" id="variable-trans~50"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -376,7 +376,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~382"></span>
+              <span class="anchor" id="variable-n~222"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -391,7 +391,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~62"></span>
+              <span class="anchor" id="variable-k~30"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -406,7 +406,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~286"></span>
+              <span class="anchor" id="variable-a~126"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -421,7 +421,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~262"></span>
+              <span class="anchor" id="variable-lda~102"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -436,7 +436,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~206"></span>
+              <span class="anchor" id="variable-x~198"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -491,7 +491,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~151"></span>
+              <span class="anchor" id="variable-uplo~103"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -506,7 +506,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~87"></span>
+              <span class="anchor" id="variable-trans~51"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -536,7 +536,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~383"></span>
+              <span class="anchor" id="variable-n~223"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -551,7 +551,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~63"></span>
+              <span class="anchor" id="variable-k~31"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -566,7 +566,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~287"></span>
+              <span class="anchor" id="variable-a~127"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -581,7 +581,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~263"></span>
+              <span class="anchor" id="variable-lda~103"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -596,7 +596,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~207"></span>
+              <span class="anchor" id="variable-x~199"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -651,7 +651,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~152"></span>
+              <span class="anchor" id="variable-uplo~104"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -666,7 +666,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~88"></span>
+              <span class="anchor" id="variable-trans~52"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -696,7 +696,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~384"></span>
+              <span class="anchor" id="variable-n~224"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -711,7 +711,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~64"></span>
+              <span class="anchor" id="variable-k~32"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -726,7 +726,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~288"></span>
+              <span class="anchor" id="variable-a~128"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -741,7 +741,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~264"></span>
+              <span class="anchor" id="variable-lda~104"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -756,7 +756,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~208"></span>
+              <span class="anchor" id="variable-x~200"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/f77_tbsv.html b/interface/f77_tbsv.html
index 49a9516b..c60050d0 100644
--- a/interface/f77_tbsv.html
+++ b/interface/f77_tbsv.html
@@ -171,7 +171,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~153"></span>
+              <span class="anchor" id="variable-uplo~105"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -186,7 +186,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~89"></span>
+              <span class="anchor" id="variable-trans~53"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -216,7 +216,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~385"></span>
+              <span class="anchor" id="variable-n~225"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -231,7 +231,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~65"></span>
+              <span class="anchor" id="variable-k~33"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -246,7 +246,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~289"></span>
+              <span class="anchor" id="variable-a~129"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -261,7 +261,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~265"></span>
+              <span class="anchor" id="variable-lda~105"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -276,7 +276,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~209"></span>
+              <span class="anchor" id="variable-x~201"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -331,7 +331,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~154"></span>
+              <span class="anchor" id="variable-uplo~106"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -346,7 +346,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~90"></span>
+              <span class="anchor" id="variable-trans~54"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -376,7 +376,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~386"></span>
+              <span class="anchor" id="variable-n~226"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -391,7 +391,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~66"></span>
+              <span class="anchor" id="variable-k~34"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -406,7 +406,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~290"></span>
+              <span class="anchor" id="variable-a~130"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -421,7 +421,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~266"></span>
+              <span class="anchor" id="variable-lda~106"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -436,7 +436,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~210"></span>
+              <span class="anchor" id="variable-x~202"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -491,7 +491,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~155"></span>
+              <span class="anchor" id="variable-uplo~107"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -506,7 +506,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~91"></span>
+              <span class="anchor" id="variable-trans~55"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -536,7 +536,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~387"></span>
+              <span class="anchor" id="variable-n~227"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -551,7 +551,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~67"></span>
+              <span class="anchor" id="variable-k~35"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -566,7 +566,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~291"></span>
+              <span class="anchor" id="variable-a~131"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -581,7 +581,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~267"></span>
+              <span class="anchor" id="variable-lda~107"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -596,7 +596,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~211"></span>
+              <span class="anchor" id="variable-x~203"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -651,7 +651,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~156"></span>
+              <span class="anchor" id="variable-uplo~108"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -666,7 +666,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~92"></span>
+              <span class="anchor" id="variable-trans~56"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -696,7 +696,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~388"></span>
+              <span class="anchor" id="variable-n~228"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -711,7 +711,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~68"></span>
+              <span class="anchor" id="variable-k~36"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -726,7 +726,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~292"></span>
+              <span class="anchor" id="variable-a~132"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -741,7 +741,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~268"></span>
+              <span class="anchor" id="variable-lda~108"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -756,7 +756,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~212"></span>
+              <span class="anchor" id="variable-x~204"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/f77_tpmv.html b/interface/f77_tpmv.html
index f3437c61..8d74fc7d 100644
--- a/interface/f77_tpmv.html
+++ b/interface/f77_tpmv.html
@@ -171,7 +171,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~157"></span>
+              <span class="anchor" id="variable-uplo~109"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -186,7 +186,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~93"></span>
+              <span class="anchor" id="variable-trans~57"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -216,7 +216,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~389"></span>
+              <span class="anchor" id="variable-n~229"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -246,7 +246,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~213"></span>
+              <span class="anchor" id="variable-x~205"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -301,7 +301,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~158"></span>
+              <span class="anchor" id="variable-uplo~110"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -316,7 +316,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~94"></span>
+              <span class="anchor" id="variable-trans~58"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -346,7 +346,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~390"></span>
+              <span class="anchor" id="variable-n~230"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -376,7 +376,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~214"></span>
+              <span class="anchor" id="variable-x~206"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -431,7 +431,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~159"></span>
+              <span class="anchor" id="variable-uplo~111"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -446,7 +446,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~95"></span>
+              <span class="anchor" id="variable-trans~59"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -476,7 +476,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~391"></span>
+              <span class="anchor" id="variable-n~231"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -506,7 +506,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~215"></span>
+              <span class="anchor" id="variable-x~207"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -561,7 +561,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~160"></span>
+              <span class="anchor" id="variable-uplo~112"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -576,7 +576,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~96"></span>
+              <span class="anchor" id="variable-trans~60"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -606,7 +606,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~392"></span>
+              <span class="anchor" id="variable-n~232"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -636,7 +636,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~216"></span>
+              <span class="anchor" id="variable-x~208"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/f77_tpsv.html b/interface/f77_tpsv.html
index 2dd68f5f..2a03af75 100644
--- a/interface/f77_tpsv.html
+++ b/interface/f77_tpsv.html
@@ -171,7 +171,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~161"></span>
+              <span class="anchor" id="variable-uplo~113"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -186,7 +186,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~97"></span>
+              <span class="anchor" id="variable-trans~61"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -216,7 +216,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~393"></span>
+              <span class="anchor" id="variable-n~233"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -246,7 +246,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~217"></span>
+              <span class="anchor" id="variable-x~209"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -301,7 +301,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~162"></span>
+              <span class="anchor" id="variable-uplo~114"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -316,7 +316,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~98"></span>
+              <span class="anchor" id="variable-trans~62"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -346,7 +346,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~394"></span>
+              <span class="anchor" id="variable-n~234"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -376,7 +376,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~218"></span>
+              <span class="anchor" id="variable-x~210"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -431,7 +431,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~163"></span>
+              <span class="anchor" id="variable-uplo~115"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -446,7 +446,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~99"></span>
+              <span class="anchor" id="variable-trans~63"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -476,7 +476,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~395"></span>
+              <span class="anchor" id="variable-n~235"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -506,7 +506,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~219"></span>
+              <span class="anchor" id="variable-x~211"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -561,7 +561,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~164"></span>
+              <span class="anchor" id="variable-uplo~116"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -576,7 +576,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~100"></span>
+              <span class="anchor" id="variable-trans~64"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -606,7 +606,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~396"></span>
+              <span class="anchor" id="variable-n~236"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -636,7 +636,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~220"></span>
+              <span class="anchor" id="variable-x~212"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/f77_trmm.html b/interface/f77_trmm.html
index d3c20e0e..06e799dc 100644
--- a/interface/f77_trmm.html
+++ b/interface/f77_trmm.html
@@ -171,7 +171,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~33"></span>
+              <span class="anchor" id="variable-side~17"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -186,7 +186,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~185"></span>
+              <span class="anchor" id="variable-uplo~137"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -231,7 +231,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~153"></span>
+              <span class="anchor" id="variable-m~53"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -246,7 +246,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~421"></span>
+              <span class="anchor" id="variable-n~261"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -276,7 +276,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~317"></span>
+              <span class="anchor" id="variable-a~157"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -291,7 +291,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~293"></span>
+              <span class="anchor" id="variable-lda~133"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -306,7 +306,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~89"></span>
+              <span class="anchor" id="variable-b~37"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -321,7 +321,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~85"></span>
+              <span class="anchor" id="variable-ldb~33"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -361,7 +361,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~34"></span>
+              <span class="anchor" id="variable-side~18"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -376,7 +376,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~186"></span>
+              <span class="anchor" id="variable-uplo~138"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -421,7 +421,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~154"></span>
+              <span class="anchor" id="variable-m~54"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -436,7 +436,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~422"></span>
+              <span class="anchor" id="variable-n~262"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -466,7 +466,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~318"></span>
+              <span class="anchor" id="variable-a~158"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -481,7 +481,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~294"></span>
+              <span class="anchor" id="variable-lda~134"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -496,7 +496,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~90"></span>
+              <span class="anchor" id="variable-b~38"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -511,7 +511,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~86"></span>
+              <span class="anchor" id="variable-ldb~34"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -551,7 +551,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~35"></span>
+              <span class="anchor" id="variable-side~19"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -566,7 +566,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~187"></span>
+              <span class="anchor" id="variable-uplo~139"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -611,7 +611,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~155"></span>
+              <span class="anchor" id="variable-m~55"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -626,7 +626,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~423"></span>
+              <span class="anchor" id="variable-n~263"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -656,7 +656,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~319"></span>
+              <span class="anchor" id="variable-a~159"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -671,7 +671,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~295"></span>
+              <span class="anchor" id="variable-lda~135"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -686,7 +686,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~91"></span>
+              <span class="anchor" id="variable-b~39"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -701,7 +701,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~87"></span>
+              <span class="anchor" id="variable-ldb~35"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -741,7 +741,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~36"></span>
+              <span class="anchor" id="variable-side~20"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -756,7 +756,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~188"></span>
+              <span class="anchor" id="variable-uplo~140"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -801,7 +801,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~156"></span>
+              <span class="anchor" id="variable-m~56"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -816,7 +816,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~424"></span>
+              <span class="anchor" id="variable-n~264"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -846,7 +846,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~320"></span>
+              <span class="anchor" id="variable-a~160"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -861,7 +861,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~296"></span>
+              <span class="anchor" id="variable-lda~136"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -876,7 +876,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~92"></span>
+              <span class="anchor" id="variable-b~40"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -891,7 +891,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~88"></span>
+              <span class="anchor" id="variable-ldb~36"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_trmv.html b/interface/f77_trmv.html
index b05447bd..74cd0a2d 100644
--- a/interface/f77_trmv.html
+++ b/interface/f77_trmv.html
@@ -171,7 +171,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~165"></span>
+              <span class="anchor" id="variable-uplo~117"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -186,7 +186,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~101"></span>
+              <span class="anchor" id="variable-trans~65"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -216,7 +216,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~397"></span>
+              <span class="anchor" id="variable-n~237"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -231,7 +231,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~293"></span>
+              <span class="anchor" id="variable-a~133"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -246,7 +246,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~269"></span>
+              <span class="anchor" id="variable-lda~109"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -261,7 +261,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~221"></span>
+              <span class="anchor" id="variable-x~213"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -316,7 +316,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~166"></span>
+              <span class="anchor" id="variable-uplo~118"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -331,7 +331,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~102"></span>
+              <span class="anchor" id="variable-trans~66"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -361,7 +361,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~398"></span>
+              <span class="anchor" id="variable-n~238"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -376,7 +376,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~294"></span>
+              <span class="anchor" id="variable-a~134"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -391,7 +391,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~270"></span>
+              <span class="anchor" id="variable-lda~110"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -406,7 +406,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~222"></span>
+              <span class="anchor" id="variable-x~214"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -461,7 +461,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~167"></span>
+              <span class="anchor" id="variable-uplo~119"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -476,7 +476,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~103"></span>
+              <span class="anchor" id="variable-trans~67"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -506,7 +506,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~399"></span>
+              <span class="anchor" id="variable-n~239"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -521,7 +521,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~295"></span>
+              <span class="anchor" id="variable-a~135"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -536,7 +536,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~271"></span>
+              <span class="anchor" id="variable-lda~111"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -551,7 +551,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~223"></span>
+              <span class="anchor" id="variable-x~215"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -606,7 +606,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~168"></span>
+              <span class="anchor" id="variable-uplo~120"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -621,7 +621,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~104"></span>
+              <span class="anchor" id="variable-trans~68"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -651,7 +651,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~400"></span>
+              <span class="anchor" id="variable-n~240"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -666,7 +666,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~296"></span>
+              <span class="anchor" id="variable-a~136"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -681,7 +681,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~272"></span>
+              <span class="anchor" id="variable-lda~112"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -696,7 +696,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~224"></span>
+              <span class="anchor" id="variable-x~216"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/f77_trsm.html b/interface/f77_trsm.html
index 125a3d5d..51ef5456 100644
--- a/interface/f77_trsm.html
+++ b/interface/f77_trsm.html
@@ -171,7 +171,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~37"></span>
+              <span class="anchor" id="variable-side~21"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -186,7 +186,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~189"></span>
+              <span class="anchor" id="variable-uplo~141"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -231,7 +231,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~157"></span>
+              <span class="anchor" id="variable-m~57"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -246,7 +246,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~425"></span>
+              <span class="anchor" id="variable-n~265"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -276,7 +276,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~321"></span>
+              <span class="anchor" id="variable-a~161"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -291,7 +291,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~297"></span>
+              <span class="anchor" id="variable-lda~137"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -306,7 +306,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~93"></span>
+              <span class="anchor" id="variable-b~41"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -321,7 +321,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~89"></span>
+              <span class="anchor" id="variable-ldb~37"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -361,7 +361,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~38"></span>
+              <span class="anchor" id="variable-side~22"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -376,7 +376,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~190"></span>
+              <span class="anchor" id="variable-uplo~142"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -421,7 +421,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~158"></span>
+              <span class="anchor" id="variable-m~58"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -436,7 +436,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~426"></span>
+              <span class="anchor" id="variable-n~266"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -466,7 +466,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~322"></span>
+              <span class="anchor" id="variable-a~162"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -481,7 +481,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~298"></span>
+              <span class="anchor" id="variable-lda~138"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -496,7 +496,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~94"></span>
+              <span class="anchor" id="variable-b~42"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -511,7 +511,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~90"></span>
+              <span class="anchor" id="variable-ldb~38"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -551,7 +551,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~39"></span>
+              <span class="anchor" id="variable-side~23"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -566,7 +566,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~191"></span>
+              <span class="anchor" id="variable-uplo~143"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -611,7 +611,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~159"></span>
+              <span class="anchor" id="variable-m~59"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -626,7 +626,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~427"></span>
+              <span class="anchor" id="variable-n~267"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -656,7 +656,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~323"></span>
+              <span class="anchor" id="variable-a~163"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -671,7 +671,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~299"></span>
+              <span class="anchor" id="variable-lda~139"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -686,7 +686,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~95"></span>
+              <span class="anchor" id="variable-b~43"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -701,7 +701,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~91"></span>
+              <span class="anchor" id="variable-ldb~39"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -741,7 +741,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~40"></span>
+              <span class="anchor" id="variable-side~24"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -756,7 +756,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~192"></span>
+              <span class="anchor" id="variable-uplo~144"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -801,7 +801,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~160"></span>
+              <span class="anchor" id="variable-m~60"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -816,7 +816,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~428"></span>
+              <span class="anchor" id="variable-n~268"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -846,7 +846,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~324"></span>
+              <span class="anchor" id="variable-a~164"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -861,7 +861,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~300"></span>
+              <span class="anchor" id="variable-lda~140"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -876,7 +876,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~96"></span>
+              <span class="anchor" id="variable-b~44"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -891,7 +891,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~92"></span>
+              <span class="anchor" id="variable-ldb~40"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_trsv.html b/interface/f77_trsv.html
index 1a379d83..a2818155 100644
--- a/interface/f77_trsv.html
+++ b/interface/f77_trsv.html
@@ -171,7 +171,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~169"></span>
+              <span class="anchor" id="variable-uplo~121"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -186,7 +186,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~105"></span>
+              <span class="anchor" id="variable-trans~69"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -216,7 +216,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~401"></span>
+              <span class="anchor" id="variable-n~241"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -231,7 +231,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~297"></span>
+              <span class="anchor" id="variable-a~137"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -246,7 +246,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~273"></span>
+              <span class="anchor" id="variable-lda~113"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -261,7 +261,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~225"></span>
+              <span class="anchor" id="variable-x~217"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -316,7 +316,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~170"></span>
+              <span class="anchor" id="variable-uplo~122"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -331,7 +331,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~106"></span>
+              <span class="anchor" id="variable-trans~70"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -361,7 +361,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~402"></span>
+              <span class="anchor" id="variable-n~242"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -376,7 +376,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~298"></span>
+              <span class="anchor" id="variable-a~138"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -391,7 +391,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~274"></span>
+              <span class="anchor" id="variable-lda~114"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -406,7 +406,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~226"></span>
+              <span class="anchor" id="variable-x~218"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -461,7 +461,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~171"></span>
+              <span class="anchor" id="variable-uplo~123"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -476,7 +476,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~107"></span>
+              <span class="anchor" id="variable-trans~71"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -506,7 +506,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~403"></span>
+              <span class="anchor" id="variable-n~243"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -521,7 +521,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~299"></span>
+              <span class="anchor" id="variable-a~139"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -536,7 +536,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~275"></span>
+              <span class="anchor" id="variable-lda~115"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -551,7 +551,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~227"></span>
+              <span class="anchor" id="variable-x~219"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -606,7 +606,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~172"></span>
+              <span class="anchor" id="variable-uplo~124"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -621,7 +621,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~108"></span>
+              <span class="anchor" id="variable-trans~72"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -651,7 +651,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~404"></span>
+              <span class="anchor" id="variable-n~244"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -666,7 +666,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~300"></span>
+              <span class="anchor" id="variable-a~140"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -681,7 +681,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~276"></span>
+              <span class="anchor" id="variable-lda~116"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -696,7 +696,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~228"></span>
+              <span class="anchor" id="variable-x~220"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/f77_ung2r.html b/interface/f77_ung2r.html
index d0e6e34e..e5d53cad 100644
--- a/interface/f77_ung2r.html
+++ b/interface/f77_ung2r.html
@@ -175,7 +175,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~85"></span>
+              <span class="anchor" id="variable-m~145"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -190,7 +190,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~145"></span>
+              <span class="anchor" id="variable-n~423"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -205,7 +205,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~17"></span>
+              <span class="anchor" id="variable-k~65"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -220,7 +220,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~145"></span>
+              <span class="anchor" id="variable-a~309"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -235,7 +235,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~145"></span>
+              <span class="anchor" id="variable-lda~285"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -326,7 +326,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~86"></span>
+              <span class="anchor" id="variable-m~146"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -341,7 +341,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~146"></span>
+              <span class="anchor" id="variable-n~424"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -356,7 +356,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~18"></span>
+              <span class="anchor" id="variable-k~66"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -371,7 +371,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~146"></span>
+              <span class="anchor" id="variable-a~310"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -386,7 +386,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~146"></span>
+              <span class="anchor" id="variable-lda~286"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_ungqr.html b/interface/f77_ungqr.html
index 4e666588..1970c42d 100644
--- a/interface/f77_ungqr.html
+++ b/interface/f77_ungqr.html
@@ -175,7 +175,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~97"></span>
+              <span class="anchor" id="variable-m~157"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -190,7 +190,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~157"></span>
+              <span class="anchor" id="variable-n~435"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -205,7 +205,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~29"></span>
+              <span class="anchor" id="variable-k~77"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -220,7 +220,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~157"></span>
+              <span class="anchor" id="variable-a~321"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -235,7 +235,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~157"></span>
+              <span class="anchor" id="variable-lda~297"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -341,7 +341,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~98"></span>
+              <span class="anchor" id="variable-m~158"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -356,7 +356,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~158"></span>
+              <span class="anchor" id="variable-n~436"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -371,7 +371,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~30"></span>
+              <span class="anchor" id="variable-k~78"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -386,7 +386,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~158"></span>
+              <span class="anchor" id="variable-a~322"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -401,7 +401,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~158"></span>
+              <span class="anchor" id="variable-lda~298"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_ungr2.html b/interface/f77_ungr2.html
index 4e483d2d..53f4d0e4 100644
--- a/interface/f77_ungr2.html
+++ b/interface/f77_ungr2.html
@@ -175,7 +175,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~87"></span>
+              <span class="anchor" id="variable-m~147"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -190,7 +190,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~147"></span>
+              <span class="anchor" id="variable-n~425"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -205,7 +205,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~19"></span>
+              <span class="anchor" id="variable-k~67"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -220,7 +220,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~147"></span>
+              <span class="anchor" id="variable-a~311"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -235,7 +235,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~147"></span>
+              <span class="anchor" id="variable-lda~287"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -326,7 +326,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~88"></span>
+              <span class="anchor" id="variable-m~148"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -341,7 +341,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~148"></span>
+              <span class="anchor" id="variable-n~426"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -356,7 +356,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~20"></span>
+              <span class="anchor" id="variable-k~68"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -371,7 +371,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~148"></span>
+              <span class="anchor" id="variable-a~312"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -386,7 +386,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~148"></span>
+              <span class="anchor" id="variable-lda~288"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_ungrq.html b/interface/f77_ungrq.html
index a7f00e55..f8469cf0 100644
--- a/interface/f77_ungrq.html
+++ b/interface/f77_ungrq.html
@@ -175,7 +175,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~99"></span>
+              <span class="anchor" id="variable-m~159"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -190,7 +190,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~159"></span>
+              <span class="anchor" id="variable-n~437"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -205,7 +205,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~31"></span>
+              <span class="anchor" id="variable-k~79"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -220,7 +220,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~159"></span>
+              <span class="anchor" id="variable-a~323"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -235,7 +235,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~159"></span>
+              <span class="anchor" id="variable-lda~299"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -341,7 +341,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~100"></span>
+              <span class="anchor" id="variable-m~160"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -356,7 +356,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~160"></span>
+              <span class="anchor" id="variable-n~438"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -371,7 +371,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~32"></span>
+              <span class="anchor" id="variable-k~80"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -386,7 +386,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~160"></span>
+              <span class="anchor" id="variable-a~324"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -401,7 +401,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~160"></span>
+              <span class="anchor" id="variable-lda~300"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_unm2r.html b/interface/f77_unm2r.html
index 547417b0..3772a937 100644
--- a/interface/f77_unm2r.html
+++ b/interface/f77_unm2r.html
@@ -182,7 +182,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~9"></span>
+              <span class="anchor" id="variable-side~33"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -197,7 +197,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~29"></span>
+              <span class="anchor" id="variable-trans~109"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -212,7 +212,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~89"></span>
+              <span class="anchor" id="variable-m~149"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -227,7 +227,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~149"></span>
+              <span class="anchor" id="variable-n~427"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -242,7 +242,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~21"></span>
+              <span class="anchor" id="variable-k~69"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -257,7 +257,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~149"></span>
+              <span class="anchor" id="variable-a~313"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -272,7 +272,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~149"></span>
+              <span class="anchor" id="variable-lda~289"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -302,7 +302,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~13"></span>
+              <span class="anchor" id="variable-c~61"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -317,7 +317,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~9"></span>
+              <span class="anchor" id="variable-ldc~41"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -400,7 +400,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~10"></span>
+              <span class="anchor" id="variable-side~34"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -415,7 +415,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~30"></span>
+              <span class="anchor" id="variable-trans~110"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -430,7 +430,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~90"></span>
+              <span class="anchor" id="variable-m~150"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -445,7 +445,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~150"></span>
+              <span class="anchor" id="variable-n~428"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -460,7 +460,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~22"></span>
+              <span class="anchor" id="variable-k~70"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -475,7 +475,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~150"></span>
+              <span class="anchor" id="variable-a~314"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -490,7 +490,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~150"></span>
+              <span class="anchor" id="variable-lda~290"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -520,7 +520,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~14"></span>
+              <span class="anchor" id="variable-c~62"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -535,7 +535,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~10"></span>
+              <span class="anchor" id="variable-ldc~42"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_unmqr.html b/interface/f77_unmqr.html
index bcf0c859..9fa04022 100644
--- a/interface/f77_unmqr.html
+++ b/interface/f77_unmqr.html
@@ -182,7 +182,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~13"></span>
+              <span class="anchor" id="variable-side~37"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -197,7 +197,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~33"></span>
+              <span class="anchor" id="variable-trans~113"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -212,7 +212,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~93"></span>
+              <span class="anchor" id="variable-m~153"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -227,7 +227,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~153"></span>
+              <span class="anchor" id="variable-n~431"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -242,7 +242,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~25"></span>
+              <span class="anchor" id="variable-k~73"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -257,7 +257,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~153"></span>
+              <span class="anchor" id="variable-a~317"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -272,7 +272,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~153"></span>
+              <span class="anchor" id="variable-lda~293"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -302,7 +302,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~17"></span>
+              <span class="anchor" id="variable-c~65"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -317,7 +317,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~13"></span>
+              <span class="anchor" id="variable-ldc~45"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -415,7 +415,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~14"></span>
+              <span class="anchor" id="variable-side~38"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -430,7 +430,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~34"></span>
+              <span class="anchor" id="variable-trans~114"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -445,7 +445,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~94"></span>
+              <span class="anchor" id="variable-m~154"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -460,7 +460,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~154"></span>
+              <span class="anchor" id="variable-n~432"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -475,7 +475,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~26"></span>
+              <span class="anchor" id="variable-k~74"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -490,7 +490,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~154"></span>
+              <span class="anchor" id="variable-a~318"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -505,7 +505,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~154"></span>
+              <span class="anchor" id="variable-lda~294"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -535,7 +535,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~18"></span>
+              <span class="anchor" id="variable-c~66"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -550,7 +550,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~14"></span>
+              <span class="anchor" id="variable-ldc~46"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_unmr2.html b/interface/f77_unmr2.html
index cbdff298..8c9b8473 100644
--- a/interface/f77_unmr2.html
+++ b/interface/f77_unmr2.html
@@ -182,7 +182,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~11"></span>
+              <span class="anchor" id="variable-side~35"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -197,7 +197,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~31"></span>
+              <span class="anchor" id="variable-trans~111"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -212,7 +212,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~91"></span>
+              <span class="anchor" id="variable-m~151"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -227,7 +227,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~151"></span>
+              <span class="anchor" id="variable-n~429"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -242,7 +242,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~23"></span>
+              <span class="anchor" id="variable-k~71"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -257,7 +257,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~151"></span>
+              <span class="anchor" id="variable-a~315"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -272,7 +272,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~151"></span>
+              <span class="anchor" id="variable-lda~291"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -302,7 +302,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~15"></span>
+              <span class="anchor" id="variable-c~63"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -317,7 +317,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~11"></span>
+              <span class="anchor" id="variable-ldc~43"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -400,7 +400,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~12"></span>
+              <span class="anchor" id="variable-side~36"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -415,7 +415,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~32"></span>
+              <span class="anchor" id="variable-trans~112"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -430,7 +430,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~92"></span>
+              <span class="anchor" id="variable-m~152"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -445,7 +445,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~152"></span>
+              <span class="anchor" id="variable-n~430"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -460,7 +460,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~24"></span>
+              <span class="anchor" id="variable-k~72"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -475,7 +475,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~152"></span>
+              <span class="anchor" id="variable-a~316"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -490,7 +490,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~152"></span>
+              <span class="anchor" id="variable-lda~292"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -520,7 +520,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~16"></span>
+              <span class="anchor" id="variable-c~64"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -535,7 +535,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~12"></span>
+              <span class="anchor" id="variable-ldc~44"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/f77_unmrq.html b/interface/f77_unmrq.html
index a6876830..40d61ab1 100644
--- a/interface/f77_unmrq.html
+++ b/interface/f77_unmrq.html
@@ -182,7 +182,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~15"></span>
+              <span class="anchor" id="variable-side~39"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -197,7 +197,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~35"></span>
+              <span class="anchor" id="variable-trans~115"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -212,7 +212,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~95"></span>
+              <span class="anchor" id="variable-m~155"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -227,7 +227,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~155"></span>
+              <span class="anchor" id="variable-n~433"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -242,7 +242,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~27"></span>
+              <span class="anchor" id="variable-k~75"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -257,7 +257,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~155"></span>
+              <span class="anchor" id="variable-a~319"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -272,7 +272,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~155"></span>
+              <span class="anchor" id="variable-lda~295"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -302,7 +302,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~19"></span>
+              <span class="anchor" id="variable-c~67"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -317,7 +317,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~15"></span>
+              <span class="anchor" id="variable-ldc~47"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -415,7 +415,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~16"></span>
+              <span class="anchor" id="variable-side~40"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -430,7 +430,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~36"></span>
+              <span class="anchor" id="variable-trans~116"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -445,7 +445,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~96"></span>
+              <span class="anchor" id="variable-m~156"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -460,7 +460,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~156"></span>
+              <span class="anchor" id="variable-n~434"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -475,7 +475,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~28"></span>
+              <span class="anchor" id="variable-k~76"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -490,7 +490,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~156"></span>
+              <span class="anchor" id="variable-a~320"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -505,7 +505,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~156"></span>
+              <span class="anchor" id="variable-lda~296"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -535,7 +535,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~20"></span>
+              <span class="anchor" id="variable-c~68"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -550,7 +550,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~16"></span>
+              <span class="anchor" id="variable-ldc~48"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/interface/mfi_asum.html b/interface/mfi_asum.html
index fdd91786..e4735dc4 100644
--- a/interface/mfi_asum.html
+++ b/interface/mfi_asum.html
@@ -174,7 +174,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~27"></span>
+              <span class="anchor" id="variable-x~19"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -235,7 +235,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~28"></span>
+              <span class="anchor" id="variable-x~20"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -296,7 +296,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~29"></span>
+              <span class="anchor" id="variable-x~21"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -357,7 +357,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~30"></span>
+              <span class="anchor" id="variable-x~22"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/interface/mfi_axpy.html b/interface/mfi_axpy.html
index fad87534..6fa40bf9 100644
--- a/interface/mfi_axpy.html
+++ b/interface/mfi_axpy.html
@@ -174,7 +174,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~17"></span>
+              <span class="anchor" id="variable-x~9"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -189,7 +189,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~13"></span>
+              <span class="anchor" id="variable-y~9"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -204,7 +204,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~161"></span>
+              <span class="anchor" id="variable-a"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in),</td>
@@ -275,7 +275,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~18"></span>
+              <span class="anchor" id="variable-x~10"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -290,7 +290,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~14"></span>
+              <span class="anchor" id="variable-y~10"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -305,7 +305,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~162"></span>
+              <span class="anchor" id="variable-a~2"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in),</td>
@@ -376,7 +376,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~19"></span>
+              <span class="anchor" id="variable-x~11"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -391,7 +391,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~15"></span>
+              <span class="anchor" id="variable-y~11"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -406,7 +406,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~163"></span>
+              <span class="anchor" id="variable-a~3"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in),</td>
@@ -477,7 +477,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~20"></span>
+              <span class="anchor" id="variable-x~12"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -492,7 +492,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~16"></span>
+              <span class="anchor" id="variable-y~12"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -507,7 +507,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~164"></span>
+              <span class="anchor" id="variable-a~4"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_copy.html b/interface/mfi_copy.html
index e4258962..33319ba1 100644
--- a/interface/mfi_copy.html
+++ b/interface/mfi_copy.html
@@ -174,7 +174,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~9"></span>
+              <span class="anchor" id="variable-x"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -189,7 +189,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~5"></span>
+              <span class="anchor" id="variable-y"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -260,7 +260,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~10"></span>
+              <span class="anchor" id="variable-x~2"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -275,7 +275,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~6"></span>
+              <span class="anchor" id="variable-y~2"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -346,7 +346,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~11"></span>
+              <span class="anchor" id="variable-x~3"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -361,7 +361,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~7"></span>
+              <span class="anchor" id="variable-y~3"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -432,7 +432,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~12"></span>
+              <span class="anchor" id="variable-x~4"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -447,7 +447,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~8"></span>
+              <span class="anchor" id="variable-y~4"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/mfi_dot.html b/interface/mfi_dot.html
index 4ac1193b..e2a841c9 100644
--- a/interface/mfi_dot.html
+++ b/interface/mfi_dot.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~21"></span>
+              <span class="anchor" id="variable-x~13"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~17"></span>
+              <span class="anchor" id="variable-y~13"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -263,7 +263,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~22"></span>
+              <span class="anchor" id="variable-x~14"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -278,7 +278,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~18"></span>
+              <span class="anchor" id="variable-y~14"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/interface/mfi_dotc.html b/interface/mfi_dotc.html
index 19a69c30..d0990b06 100644
--- a/interface/mfi_dotc.html
+++ b/interface/mfi_dotc.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~23"></span>
+              <span class="anchor" id="variable-x~15"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~19"></span>
+              <span class="anchor" id="variable-y~15"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -263,7 +263,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~24"></span>
+              <span class="anchor" id="variable-x~16"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -278,7 +278,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~20"></span>
+              <span class="anchor" id="variable-y~16"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/interface/mfi_dotu.html b/interface/mfi_dotu.html
index 1896c762..5f9cce69 100644
--- a/interface/mfi_dotu.html
+++ b/interface/mfi_dotu.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~25"></span>
+              <span class="anchor" id="variable-x~17"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~21"></span>
+              <span class="anchor" id="variable-y~17"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -263,7 +263,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~26"></span>
+              <span class="anchor" id="variable-x~18"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -278,7 +278,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~22"></span>
+              <span class="anchor" id="variable-y~18"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/interface/mfi_gbmv.html b/interface/mfi_gbmv.html
index 16433721..1ba7ef30 100644
--- a/interface/mfi_gbmv.html
+++ b/interface/mfi_gbmv.html
@@ -174,7 +174,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~171"></span>
+              <span class="anchor" id="variable-a~11"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -189,7 +189,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~49"></span>
+              <span class="anchor" id="variable-x~41"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -204,7 +204,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~31"></span>
+              <span class="anchor" id="variable-y~27"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -234,7 +234,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~101"></span>
+              <span class="anchor" id="variable-m"></span>
               integer,
             </td>
 <td>intent(in),</td>
@@ -279,7 +279,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~37"></span>
+              <span class="anchor" id="variable-trans"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -350,7 +350,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~172"></span>
+              <span class="anchor" id="variable-a~12"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -365,7 +365,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~50"></span>
+              <span class="anchor" id="variable-x~42"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -380,7 +380,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~32"></span>
+              <span class="anchor" id="variable-y~28"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -410,7 +410,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~102"></span>
+              <span class="anchor" id="variable-m~2"></span>
               integer,
             </td>
 <td>intent(in),</td>
@@ -455,7 +455,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~38"></span>
+              <span class="anchor" id="variable-trans~2"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -526,7 +526,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~173"></span>
+              <span class="anchor" id="variable-a~13"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -541,7 +541,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~51"></span>
+              <span class="anchor" id="variable-x~43"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -556,7 +556,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~33"></span>
+              <span class="anchor" id="variable-y~29"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -586,7 +586,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~103"></span>
+              <span class="anchor" id="variable-m~3"></span>
               integer,
             </td>
 <td>intent(in),</td>
@@ -631,7 +631,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~39"></span>
+              <span class="anchor" id="variable-trans~3"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -702,7 +702,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~174"></span>
+              <span class="anchor" id="variable-a~14"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -717,7 +717,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~52"></span>
+              <span class="anchor" id="variable-x~44"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -732,7 +732,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~34"></span>
+              <span class="anchor" id="variable-y~30"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -762,7 +762,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~104"></span>
+              <span class="anchor" id="variable-m~4"></span>
               integer,
             </td>
 <td>intent(in),</td>
@@ -807,7 +807,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~40"></span>
+              <span class="anchor" id="variable-trans~4"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_gemm.html b/interface/mfi_gemm.html
index c487bc64..ac4094fc 100644
--- a/interface/mfi_gemm.html
+++ b/interface/mfi_gemm.html
@@ -174,7 +174,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~217"></span>
+              <span class="anchor" id="variable-a~57"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -189,7 +189,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~53"></span>
+              <span class="anchor" id="variable-b"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -204,7 +204,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~31"></span>
+              <span class="anchor" id="variable-c~7"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -305,7 +305,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~218"></span>
+              <span class="anchor" id="variable-a~58"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -320,7 +320,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~54"></span>
+              <span class="anchor" id="variable-b~2"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -335,7 +335,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~32"></span>
+              <span class="anchor" id="variable-c~8"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -436,7 +436,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~219"></span>
+              <span class="anchor" id="variable-a~59"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -451,7 +451,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~55"></span>
+              <span class="anchor" id="variable-b~3"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -466,7 +466,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~33"></span>
+              <span class="anchor" id="variable-c~9"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -567,7 +567,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~220"></span>
+              <span class="anchor" id="variable-a~60"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -582,7 +582,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~56"></span>
+              <span class="anchor" id="variable-b~4"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -597,7 +597,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~34"></span>
+              <span class="anchor" id="variable-c~10"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/mfi_gemv.html b/interface/mfi_gemv.html
index c472f1e6..6d68e4e2 100644
--- a/interface/mfi_gemv.html
+++ b/interface/mfi_gemv.html
@@ -174,7 +174,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~175"></span>
+              <span class="anchor" id="variable-a~15"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -189,7 +189,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~53"></span>
+              <span class="anchor" id="variable-x~45"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -204,7 +204,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~35"></span>
+              <span class="anchor" id="variable-y~31"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -219,7 +219,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~41"></span>
+              <span class="anchor" id="variable-trans~5"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -320,7 +320,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~176"></span>
+              <span class="anchor" id="variable-a~16"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -335,7 +335,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~54"></span>
+              <span class="anchor" id="variable-x~46"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -350,7 +350,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~36"></span>
+              <span class="anchor" id="variable-y~32"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -365,7 +365,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~42"></span>
+              <span class="anchor" id="variable-trans~6"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -466,7 +466,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~177"></span>
+              <span class="anchor" id="variable-a~17"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -481,7 +481,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~55"></span>
+              <span class="anchor" id="variable-x~47"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -496,7 +496,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~37"></span>
+              <span class="anchor" id="variable-y~33"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -511,7 +511,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~43"></span>
+              <span class="anchor" id="variable-trans~7"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -612,7 +612,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~178"></span>
+              <span class="anchor" id="variable-a~18"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -627,7 +627,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~56"></span>
+              <span class="anchor" id="variable-x~48"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -642,7 +642,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~38"></span>
+              <span class="anchor" id="variable-y~34"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -657,7 +657,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~44"></span>
+              <span class="anchor" id="variable-trans~8"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_geqrf.html b/interface/mfi_geqrf.html
index 51e7961e..ac49fdba 100644
--- a/interface/mfi_geqrf.html
+++ b/interface/mfi_geqrf.html
@@ -174,7 +174,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a"></span>
+              <span class="anchor" id="variable-a~165"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -245,7 +245,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~2"></span>
+              <span class="anchor" id="variable-a~166"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -316,7 +316,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~3"></span>
+              <span class="anchor" id="variable-a~167"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -387,7 +387,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~4"></span>
+              <span class="anchor" id="variable-a~168"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/mfi_ger.html b/interface/mfi_ger.html
index cc4b8e01..0943fdd7 100644
--- a/interface/mfi_ger.html
+++ b/interface/mfi_ger.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~179"></span>
+              <span class="anchor" id="variable-a~19"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~57"></span>
+              <span class="anchor" id="variable-x~49"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -202,7 +202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~39"></span>
+              <span class="anchor" id="variable-y~35"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -288,7 +288,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~180"></span>
+              <span class="anchor" id="variable-a~20"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -303,7 +303,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~58"></span>
+              <span class="anchor" id="variable-x~50"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -318,7 +318,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~40"></span>
+              <span class="anchor" id="variable-y~36"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/interface/mfi_gerc.html b/interface/mfi_gerc.html
index 49189cc3..31f4cafb 100644
--- a/interface/mfi_gerc.html
+++ b/interface/mfi_gerc.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~181"></span>
+              <span class="anchor" id="variable-a~21"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~59"></span>
+              <span class="anchor" id="variable-x~51"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -202,7 +202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~41"></span>
+              <span class="anchor" id="variable-y~37"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -288,7 +288,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~182"></span>
+              <span class="anchor" id="variable-a~22"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -303,7 +303,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~60"></span>
+              <span class="anchor" id="variable-x~52"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -318,7 +318,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~42"></span>
+              <span class="anchor" id="variable-y~38"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/interface/mfi_gerqf.html b/interface/mfi_gerqf.html
index d292046f..63faf83a 100644
--- a/interface/mfi_gerqf.html
+++ b/interface/mfi_gerqf.html
@@ -174,7 +174,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~5"></span>
+              <span class="anchor" id="variable-a~169"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -245,7 +245,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~6"></span>
+              <span class="anchor" id="variable-a~170"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -316,7 +316,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~7"></span>
+              <span class="anchor" id="variable-a~171"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -387,7 +387,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~8"></span>
+              <span class="anchor" id="variable-a~172"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/mfi_geru.html b/interface/mfi_geru.html
index c9e137dd..1b12fdf6 100644
--- a/interface/mfi_geru.html
+++ b/interface/mfi_geru.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~183"></span>
+              <span class="anchor" id="variable-a~23"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~61"></span>
+              <span class="anchor" id="variable-x~53"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -202,7 +202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~43"></span>
+              <span class="anchor" id="variable-y~39"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -288,7 +288,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~184"></span>
+              <span class="anchor" id="variable-a~24"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -303,7 +303,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~62"></span>
+              <span class="anchor" id="variable-x~54"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -318,7 +318,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~44"></span>
+              <span class="anchor" id="variable-y~40"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/interface/mfi_gesvd.html b/interface/mfi_gesvd.html
index d18475ac..f6f1c7d1 100644
--- a/interface/mfi_gesvd.html
+++ b/interface/mfi_gesvd.html
@@ -174,7 +174,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~27"></span>
+              <span class="anchor" id="variable-a~191"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -189,7 +189,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s"></span>
+              <span class="anchor" id="variable-s~17"></span>
               real(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -305,7 +305,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~28"></span>
+              <span class="anchor" id="variable-a~192"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -320,7 +320,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~2"></span>
+              <span class="anchor" id="variable-s~18"></span>
               real(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -436,7 +436,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~29"></span>
+              <span class="anchor" id="variable-a~193"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -451,7 +451,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~3"></span>
+              <span class="anchor" id="variable-s~19"></span>
               real(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -567,7 +567,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~30"></span>
+              <span class="anchor" id="variable-a~194"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -582,7 +582,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~4"></span>
+              <span class="anchor" id="variable-s~20"></span>
               real(kind=REAL64),
             </td>
 <td>intent(out)</td>
diff --git a/interface/mfi_getrf.html b/interface/mfi_getrf.html
index d1b1a577..fdd06b2e 100644
--- a/interface/mfi_getrf.html
+++ b/interface/mfi_getrf.html
@@ -174,7 +174,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~9"></span>
+              <span class="anchor" id="variable-a~173"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -245,7 +245,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~10"></span>
+              <span class="anchor" id="variable-a~174"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -316,7 +316,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~11"></span>
+              <span class="anchor" id="variable-a~175"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -387,7 +387,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~12"></span>
+              <span class="anchor" id="variable-a~176"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/mfi_getri.html b/interface/mfi_getri.html
index 8e4ab97f..4a4df27a 100644
--- a/interface/mfi_getri.html
+++ b/interface/mfi_getri.html
@@ -174,7 +174,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~13"></span>
+              <span class="anchor" id="variable-a~177"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -245,7 +245,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~14"></span>
+              <span class="anchor" id="variable-a~178"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -316,7 +316,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~15"></span>
+              <span class="anchor" id="variable-a~179"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -387,7 +387,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~16"></span>
+              <span class="anchor" id="variable-a~180"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/mfi_getrs.html b/interface/mfi_getrs.html
index ba17dade..5d6b34a2 100644
--- a/interface/mfi_getrs.html
+++ b/interface/mfi_getrs.html
@@ -174,7 +174,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~17"></span>
+              <span class="anchor" id="variable-a~181"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -204,7 +204,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b"></span>
+              <span class="anchor" id="variable-b~45"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -219,7 +219,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans"></span>
+              <span class="anchor" id="variable-trans~81"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -275,7 +275,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~18"></span>
+              <span class="anchor" id="variable-a~182"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -305,7 +305,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~2"></span>
+              <span class="anchor" id="variable-b~46"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -320,7 +320,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~2"></span>
+              <span class="anchor" id="variable-trans~82"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -376,7 +376,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~19"></span>
+              <span class="anchor" id="variable-a~183"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -406,7 +406,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~3"></span>
+              <span class="anchor" id="variable-b~47"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -421,7 +421,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~3"></span>
+              <span class="anchor" id="variable-trans~83"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -477,7 +477,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~20"></span>
+              <span class="anchor" id="variable-a~184"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -507,7 +507,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~4"></span>
+              <span class="anchor" id="variable-b~48"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -522,7 +522,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~4"></span>
+              <span class="anchor" id="variable-trans~84"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_hbmv.html b/interface/mfi_hbmv.html
index 5f853de0..3b60ae9a 100644
--- a/interface/mfi_hbmv.html
+++ b/interface/mfi_hbmv.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~185"></span>
+              <span class="anchor" id="variable-a~25"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~63"></span>
+              <span class="anchor" id="variable-x~55"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -202,7 +202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~45"></span>
+              <span class="anchor" id="variable-y~41"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -217,7 +217,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~49"></span>
+              <span class="anchor" id="variable-uplo"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -318,7 +318,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~186"></span>
+              <span class="anchor" id="variable-a~26"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -333,7 +333,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~64"></span>
+              <span class="anchor" id="variable-x~56"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -348,7 +348,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~46"></span>
+              <span class="anchor" id="variable-y~42"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -363,7 +363,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~50"></span>
+              <span class="anchor" id="variable-uplo~2"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_heevd.html b/interface/mfi_heevd.html
index 312a00b9..e3e961a3 100644
--- a/interface/mfi_heevd.html
+++ b/interface/mfi_heevd.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~25"></span>
+              <span class="anchor" id="variable-a~189"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -217,7 +217,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~5"></span>
+              <span class="anchor" id="variable-uplo~149"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -273,7 +273,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~26"></span>
+              <span class="anchor" id="variable-a~190"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -318,7 +318,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~6"></span>
+              <span class="anchor" id="variable-uplo~150"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_hegv.html b/interface/mfi_hegv.html
index 17e2b839..00566d7c 100644
--- a/interface/mfi_hegv.html
+++ b/interface/mfi_hegv.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~23"></span>
+              <span class="anchor" id="variable-a~187"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~5"></span>
+              <span class="anchor" id="variable-b~49"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -247,7 +247,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~3"></span>
+              <span class="anchor" id="variable-uplo~147"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -303,7 +303,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~24"></span>
+              <span class="anchor" id="variable-a~188"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -318,7 +318,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~6"></span>
+              <span class="anchor" id="variable-b~50"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -378,7 +378,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~4"></span>
+              <span class="anchor" id="variable-uplo~148"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_hemm.html b/interface/mfi_hemm.html
index 6530b791..52805713 100644
--- a/interface/mfi_hemm.html
+++ b/interface/mfi_hemm.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~221"></span>
+              <span class="anchor" id="variable-a~61"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~57"></span>
+              <span class="anchor" id="variable-b~5"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -202,7 +202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~35"></span>
+              <span class="anchor" id="variable-c~11"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -217,7 +217,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~17"></span>
+              <span class="anchor" id="variable-side"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -232,7 +232,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~101"></span>
+              <span class="anchor" id="variable-uplo~53"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -303,7 +303,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~222"></span>
+              <span class="anchor" id="variable-a~62"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -318,7 +318,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~58"></span>
+              <span class="anchor" id="variable-b~6"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -333,7 +333,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~36"></span>
+              <span class="anchor" id="variable-c~12"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -348,7 +348,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~18"></span>
+              <span class="anchor" id="variable-side~2"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -363,7 +363,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~102"></span>
+              <span class="anchor" id="variable-uplo~54"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_hemv.html b/interface/mfi_hemv.html
index b5826a5c..a34adff2 100644
--- a/interface/mfi_hemv.html
+++ b/interface/mfi_hemv.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~187"></span>
+              <span class="anchor" id="variable-a~27"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~65"></span>
+              <span class="anchor" id="variable-x~57"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -202,7 +202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~47"></span>
+              <span class="anchor" id="variable-y~43"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -217,7 +217,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~51"></span>
+              <span class="anchor" id="variable-uplo~3"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -318,7 +318,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~188"></span>
+              <span class="anchor" id="variable-a~28"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -333,7 +333,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~66"></span>
+              <span class="anchor" id="variable-x~58"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -348,7 +348,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~48"></span>
+              <span class="anchor" id="variable-y~44"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -363,7 +363,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~52"></span>
+              <span class="anchor" id="variable-uplo~4"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_her.html b/interface/mfi_her.html
index 643ac025..4df43fd3 100644
--- a/interface/mfi_her.html
+++ b/interface/mfi_her.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~189"></span>
+              <span class="anchor" id="variable-a~29"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~67"></span>
+              <span class="anchor" id="variable-x~59"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -202,7 +202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~53"></span>
+              <span class="anchor" id="variable-uplo~5"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -273,7 +273,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~190"></span>
+              <span class="anchor" id="variable-a~30"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -288,7 +288,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~68"></span>
+              <span class="anchor" id="variable-x~60"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -303,7 +303,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~54"></span>
+              <span class="anchor" id="variable-uplo~6"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_her2.html b/interface/mfi_her2.html
index 734feb27..46423061 100644
--- a/interface/mfi_her2.html
+++ b/interface/mfi_her2.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~191"></span>
+              <span class="anchor" id="variable-a~31"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~69"></span>
+              <span class="anchor" id="variable-x~61"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -202,7 +202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~49"></span>
+              <span class="anchor" id="variable-y~45"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -217,7 +217,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~55"></span>
+              <span class="anchor" id="variable-uplo~7"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -303,7 +303,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~192"></span>
+              <span class="anchor" id="variable-a~32"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -318,7 +318,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~70"></span>
+              <span class="anchor" id="variable-x~62"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -333,7 +333,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~50"></span>
+              <span class="anchor" id="variable-y~46"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -348,7 +348,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~56"></span>
+              <span class="anchor" id="variable-uplo~8"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_her2k.html b/interface/mfi_her2k.html
index a99bb168..6f6965e3 100644
--- a/interface/mfi_her2k.html
+++ b/interface/mfi_her2k.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~225"></span>
+              <span class="anchor" id="variable-a~65"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~59"></span>
+              <span class="anchor" id="variable-b~7"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -202,7 +202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~39"></span>
+              <span class="anchor" id="variable-c~15"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -217,7 +217,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~105"></span>
+              <span class="anchor" id="variable-uplo~57"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -232,7 +232,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~71"></span>
+              <span class="anchor" id="variable-trans~35"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -303,7 +303,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~226"></span>
+              <span class="anchor" id="variable-a~66"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -318,7 +318,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~60"></span>
+              <span class="anchor" id="variable-b~8"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -333,7 +333,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~40"></span>
+              <span class="anchor" id="variable-c~16"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -348,7 +348,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~106"></span>
+              <span class="anchor" id="variable-uplo~58"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -363,7 +363,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~72"></span>
+              <span class="anchor" id="variable-trans~36"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_herk.html b/interface/mfi_herk.html
index 340f54f6..8fc5419f 100644
--- a/interface/mfi_herk.html
+++ b/interface/mfi_herk.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~223"></span>
+              <span class="anchor" id="variable-a~63"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~37"></span>
+              <span class="anchor" id="variable-c~13"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -202,7 +202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~103"></span>
+              <span class="anchor" id="variable-uplo~55"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -217,7 +217,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~69"></span>
+              <span class="anchor" id="variable-trans~33"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -288,7 +288,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~224"></span>
+              <span class="anchor" id="variable-a~64"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -303,7 +303,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~38"></span>
+              <span class="anchor" id="variable-c~14"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -318,7 +318,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~104"></span>
+              <span class="anchor" id="variable-uplo~56"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -333,7 +333,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~70"></span>
+              <span class="anchor" id="variable-trans~34"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_hetrf.html b/interface/mfi_hetrf.html
index 1c57c784..dc34f099 100644
--- a/interface/mfi_hetrf.html
+++ b/interface/mfi_hetrf.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~21"></span>
+              <span class="anchor" id="variable-a~185"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo"></span>
+              <span class="anchor" id="variable-uplo~145"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -258,7 +258,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~22"></span>
+              <span class="anchor" id="variable-a~186"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -273,7 +273,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~2"></span>
+              <span class="anchor" id="variable-uplo~146"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_hpmv.html b/interface/mfi_hpmv.html
index c4c3fea5..6955a514 100644
--- a/interface/mfi_hpmv.html
+++ b/interface/mfi_hpmv.html
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~71"></span>
+              <span class="anchor" id="variable-x~63"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -202,7 +202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~51"></span>
+              <span class="anchor" id="variable-y~47"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -217,7 +217,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~57"></span>
+              <span class="anchor" id="variable-uplo~9"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -333,7 +333,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~72"></span>
+              <span class="anchor" id="variable-x~64"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -348,7 +348,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~52"></span>
+              <span class="anchor" id="variable-y~48"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -363,7 +363,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~58"></span>
+              <span class="anchor" id="variable-uplo~10"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_hpr.html b/interface/mfi_hpr.html
index aa152db5..516ed3df 100644
--- a/interface/mfi_hpr.html
+++ b/interface/mfi_hpr.html
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~73"></span>
+              <span class="anchor" id="variable-x~65"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -202,7 +202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~59"></span>
+              <span class="anchor" id="variable-uplo~11"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -288,7 +288,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~74"></span>
+              <span class="anchor" id="variable-x~66"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -303,7 +303,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~60"></span>
+              <span class="anchor" id="variable-uplo~12"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_hpr2.html b/interface/mfi_hpr2.html
index 4295ef89..d2faf975 100644
--- a/interface/mfi_hpr2.html
+++ b/interface/mfi_hpr2.html
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~75"></span>
+              <span class="anchor" id="variable-x~67"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -202,7 +202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~53"></span>
+              <span class="anchor" id="variable-y~49"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -217,7 +217,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~61"></span>
+              <span class="anchor" id="variable-uplo~13"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -318,7 +318,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~76"></span>
+              <span class="anchor" id="variable-x~68"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -333,7 +333,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~54"></span>
+              <span class="anchor" id="variable-y~50"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -348,7 +348,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~62"></span>
+              <span class="anchor" id="variable-uplo~14"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_iamax.html b/interface/mfi_iamax.html
index f7f288da..80b9c426 100644
--- a/interface/mfi_iamax.html
+++ b/interface/mfi_iamax.html
@@ -174,7 +174,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~115"></span>
+              <span class="anchor" id="variable-x~107"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -235,7 +235,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~116"></span>
+              <span class="anchor" id="variable-x~108"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -296,7 +296,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~117"></span>
+              <span class="anchor" id="variable-x~109"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -357,7 +357,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~118"></span>
+              <span class="anchor" id="variable-x~110"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/interface/mfi_iamin.html b/interface/mfi_iamin.html
index 37f084ea..34fc773a 100644
--- a/interface/mfi_iamin.html
+++ b/interface/mfi_iamin.html
@@ -174,7 +174,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~119"></span>
+              <span class="anchor" id="variable-x~111"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -235,7 +235,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~120"></span>
+              <span class="anchor" id="variable-x~112"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -296,7 +296,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~121"></span>
+              <span class="anchor" id="variable-x~113"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -357,7 +357,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~122"></span>
+              <span class="anchor" id="variable-x~114"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/interface/mfi_nrm2.html b/interface/mfi_nrm2.html
index edd10ae0..8f456b4f 100644
--- a/interface/mfi_nrm2.html
+++ b/interface/mfi_nrm2.html
@@ -174,7 +174,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~31"></span>
+              <span class="anchor" id="variable-x~23"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -235,7 +235,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~32"></span>
+              <span class="anchor" id="variable-x~24"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -296,7 +296,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~33"></span>
+              <span class="anchor" id="variable-x~25"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -357,7 +357,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~34"></span>
+              <span class="anchor" id="variable-x~26"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/interface/mfi_pocon.html b/interface/mfi_pocon.html
index 5335fde9..8e1085c1 100644
--- a/interface/mfi_pocon.html
+++ b/interface/mfi_pocon.html
@@ -175,7 +175,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~43"></span>
+              <span class="anchor" id="variable-a~207"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -220,7 +220,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~19"></span>
+              <span class="anchor" id="variable-uplo~163"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -277,7 +277,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~44"></span>
+              <span class="anchor" id="variable-a~208"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -322,7 +322,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~20"></span>
+              <span class="anchor" id="variable-uplo~164"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -379,7 +379,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~45"></span>
+              <span class="anchor" id="variable-a~209"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -424,7 +424,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~21"></span>
+              <span class="anchor" id="variable-uplo~165"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -481,7 +481,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~46"></span>
+              <span class="anchor" id="variable-a~210"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -526,7 +526,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~22"></span>
+              <span class="anchor" id="variable-uplo~166"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_potrf.html b/interface/mfi_potrf.html
index c6999b38..79502e08 100644
--- a/interface/mfi_potrf.html
+++ b/interface/mfi_potrf.html
@@ -174,7 +174,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~31"></span>
+              <span class="anchor" id="variable-a~195"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -204,7 +204,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~7"></span>
+              <span class="anchor" id="variable-uplo~151"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -245,7 +245,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~32"></span>
+              <span class="anchor" id="variable-a~196"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -275,7 +275,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~8"></span>
+              <span class="anchor" id="variable-uplo~152"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -316,7 +316,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~33"></span>
+              <span class="anchor" id="variable-a~197"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -346,7 +346,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~9"></span>
+              <span class="anchor" id="variable-uplo~153"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -387,7 +387,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~34"></span>
+              <span class="anchor" id="variable-a~198"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -417,7 +417,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~10"></span>
+              <span class="anchor" id="variable-uplo~154"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_potri.html b/interface/mfi_potri.html
index b8ed8df5..86b69ae5 100644
--- a/interface/mfi_potri.html
+++ b/interface/mfi_potri.html
@@ -174,7 +174,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~35"></span>
+              <span class="anchor" id="variable-a~199"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -204,7 +204,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~11"></span>
+              <span class="anchor" id="variable-uplo~155"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -245,7 +245,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~36"></span>
+              <span class="anchor" id="variable-a~200"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -275,7 +275,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~12"></span>
+              <span class="anchor" id="variable-uplo~156"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -316,7 +316,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~37"></span>
+              <span class="anchor" id="variable-a~201"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -346,7 +346,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~13"></span>
+              <span class="anchor" id="variable-uplo~157"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -387,7 +387,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~38"></span>
+              <span class="anchor" id="variable-a~202"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -417,7 +417,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~14"></span>
+              <span class="anchor" id="variable-uplo~158"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_potrs.html b/interface/mfi_potrs.html
index de7c278b..7c09dbf6 100644
--- a/interface/mfi_potrs.html
+++ b/interface/mfi_potrs.html
@@ -174,7 +174,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~39"></span>
+              <span class="anchor" id="variable-a~203"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -189,7 +189,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~7"></span>
+              <span class="anchor" id="variable-b~51"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -204,7 +204,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~15"></span>
+              <span class="anchor" id="variable-uplo~159"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -260,7 +260,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~40"></span>
+              <span class="anchor" id="variable-a~204"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -275,7 +275,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~8"></span>
+              <span class="anchor" id="variable-b~52"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -290,7 +290,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~16"></span>
+              <span class="anchor" id="variable-uplo~160"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -346,7 +346,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~41"></span>
+              <span class="anchor" id="variable-a~205"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -361,7 +361,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~9"></span>
+              <span class="anchor" id="variable-b~53"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -376,7 +376,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~17"></span>
+              <span class="anchor" id="variable-uplo~161"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -432,7 +432,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~42"></span>
+              <span class="anchor" id="variable-a~206"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -447,7 +447,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~10"></span>
+              <span class="anchor" id="variable-b~54"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -462,7 +462,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~18"></span>
+              <span class="anchor" id="variable-uplo~162"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_rot.html b/interface/mfi_rot.html
index 75af0aaa..e89a91a4 100644
--- a/interface/mfi_rot.html
+++ b/interface/mfi_rot.html
@@ -178,7 +178,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~35"></span>
+              <span class="anchor" id="variable-x~27"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -193,7 +193,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~23"></span>
+              <span class="anchor" id="variable-y~19"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -208,7 +208,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~25"></span>
+              <span class="anchor" id="variable-c"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -223,7 +223,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~21"></span>
+              <span class="anchor" id="variable-s"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -296,7 +296,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~36"></span>
+              <span class="anchor" id="variable-x~28"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -311,7 +311,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~24"></span>
+              <span class="anchor" id="variable-y~20"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -326,7 +326,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~26"></span>
+              <span class="anchor" id="variable-c~2"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -341,7 +341,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~22"></span>
+              <span class="anchor" id="variable-s~2"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -414,7 +414,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~37"></span>
+              <span class="anchor" id="variable-x~29"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -429,7 +429,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~25"></span>
+              <span class="anchor" id="variable-y~21"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -444,7 +444,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~27"></span>
+              <span class="anchor" id="variable-c~3"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -459,7 +459,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~23"></span>
+              <span class="anchor" id="variable-s~3"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -532,7 +532,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~38"></span>
+              <span class="anchor" id="variable-x~30"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -547,7 +547,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~26"></span>
+              <span class="anchor" id="variable-y~22"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -562,7 +562,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~28"></span>
+              <span class="anchor" id="variable-c~4"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -577,7 +577,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~24"></span>
+              <span class="anchor" id="variable-s~4"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -650,7 +650,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~39"></span>
+              <span class="anchor" id="variable-x~31"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -665,7 +665,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~27"></span>
+              <span class="anchor" id="variable-y~23"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -680,7 +680,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~29"></span>
+              <span class="anchor" id="variable-c~5"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -695,7 +695,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~25"></span>
+              <span class="anchor" id="variable-s~5"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -768,7 +768,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~40"></span>
+              <span class="anchor" id="variable-x~32"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -783,7 +783,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~28"></span>
+              <span class="anchor" id="variable-y~24"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -798,7 +798,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~30"></span>
+              <span class="anchor" id="variable-c~6"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -813,7 +813,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~26"></span>
+              <span class="anchor" id="variable-s~6"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/interface/mfi_rotm.html b/interface/mfi_rotm.html
index 8c5f19d4..f2515047 100644
--- a/interface/mfi_rotm.html
+++ b/interface/mfi_rotm.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~41"></span>
+              <span class="anchor" id="variable-x~33"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~29"></span>
+              <span class="anchor" id="variable-y~25"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -273,7 +273,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~42"></span>
+              <span class="anchor" id="variable-x~34"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -288,7 +288,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~30"></span>
+              <span class="anchor" id="variable-y~26"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/mfi_sbmv.html b/interface/mfi_sbmv.html
index caa2e6ae..6bc24f2c 100644
--- a/interface/mfi_sbmv.html
+++ b/interface/mfi_sbmv.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~193"></span>
+              <span class="anchor" id="variable-a~33"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~77"></span>
+              <span class="anchor" id="variable-x~69"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -202,7 +202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~55"></span>
+              <span class="anchor" id="variable-y~51"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -217,7 +217,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~63"></span>
+              <span class="anchor" id="variable-uplo~15"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -318,7 +318,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~194"></span>
+              <span class="anchor" id="variable-a~34"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -333,7 +333,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~78"></span>
+              <span class="anchor" id="variable-x~70"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -348,7 +348,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~56"></span>
+              <span class="anchor" id="variable-y~52"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -363,7 +363,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~64"></span>
+              <span class="anchor" id="variable-uplo~16"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_scal.html b/interface/mfi_scal.html
index 49e5a325..c77c185a 100644
--- a/interface/mfi_scal.html
+++ b/interface/mfi_scal.html
@@ -177,7 +177,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~165"></span>
+              <span class="anchor" id="variable-a~5"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -192,7 +192,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~43"></span>
+              <span class="anchor" id="variable-x~35"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -249,7 +249,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~166"></span>
+              <span class="anchor" id="variable-a~6"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -264,7 +264,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~44"></span>
+              <span class="anchor" id="variable-x~36"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -321,7 +321,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~167"></span>
+              <span class="anchor" id="variable-a~7"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -336,7 +336,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~45"></span>
+              <span class="anchor" id="variable-x~37"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -393,7 +393,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~168"></span>
+              <span class="anchor" id="variable-a~8"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -408,7 +408,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~46"></span>
+              <span class="anchor" id="variable-x~38"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -465,7 +465,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~169"></span>
+              <span class="anchor" id="variable-a~9"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -480,7 +480,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~47"></span>
+              <span class="anchor" id="variable-x~39"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -537,7 +537,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~170"></span>
+              <span class="anchor" id="variable-a~10"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -552,7 +552,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~48"></span>
+              <span class="anchor" id="variable-x~40"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/mfi_spmv.html b/interface/mfi_spmv.html
index 583e0853..f1c283c9 100644
--- a/interface/mfi_spmv.html
+++ b/interface/mfi_spmv.html
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~79"></span>
+              <span class="anchor" id="variable-x~71"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -202,7 +202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~57"></span>
+              <span class="anchor" id="variable-y~53"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -217,7 +217,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~65"></span>
+              <span class="anchor" id="variable-uplo~17"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -333,7 +333,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~80"></span>
+              <span class="anchor" id="variable-x~72"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -348,7 +348,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~58"></span>
+              <span class="anchor" id="variable-y~54"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -363,7 +363,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~66"></span>
+              <span class="anchor" id="variable-uplo~18"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_spr.html b/interface/mfi_spr.html
index 30314b39..e73fb928 100644
--- a/interface/mfi_spr.html
+++ b/interface/mfi_spr.html
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~81"></span>
+              <span class="anchor" id="variable-x~73"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -202,7 +202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~67"></span>
+              <span class="anchor" id="variable-uplo~19"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -288,7 +288,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~82"></span>
+              <span class="anchor" id="variable-x~74"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -303,7 +303,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~68"></span>
+              <span class="anchor" id="variable-uplo~20"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_spr2.html b/interface/mfi_spr2.html
index 626c8714..6ab03652 100644
--- a/interface/mfi_spr2.html
+++ b/interface/mfi_spr2.html
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~83"></span>
+              <span class="anchor" id="variable-x~75"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -202,7 +202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~59"></span>
+              <span class="anchor" id="variable-y~55"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -217,7 +217,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~69"></span>
+              <span class="anchor" id="variable-uplo~21"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -318,7 +318,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~84"></span>
+              <span class="anchor" id="variable-x~76"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -333,7 +333,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~60"></span>
+              <span class="anchor" id="variable-y~56"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -348,7 +348,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~70"></span>
+              <span class="anchor" id="variable-uplo~22"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_swap.html b/interface/mfi_swap.html
index 132b174f..b460dbcf 100644
--- a/interface/mfi_swap.html
+++ b/interface/mfi_swap.html
@@ -174,7 +174,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~13"></span>
+              <span class="anchor" id="variable-x~5"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -189,7 +189,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~9"></span>
+              <span class="anchor" id="variable-y~5"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -260,7 +260,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~14"></span>
+              <span class="anchor" id="variable-x~6"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -275,7 +275,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~10"></span>
+              <span class="anchor" id="variable-y~6"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -346,7 +346,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~15"></span>
+              <span class="anchor" id="variable-x~7"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -361,7 +361,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~11"></span>
+              <span class="anchor" id="variable-y~7"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -432,7 +432,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~16"></span>
+              <span class="anchor" id="variable-x~8"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -447,7 +447,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~12"></span>
+              <span class="anchor" id="variable-y~8"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/interface/mfi_symm.html b/interface/mfi_symm.html
index 1cd0778d..5d8a75a9 100644
--- a/interface/mfi_symm.html
+++ b/interface/mfi_symm.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~227"></span>
+              <span class="anchor" id="variable-a~67"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~61"></span>
+              <span class="anchor" id="variable-b~9"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -202,7 +202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~41"></span>
+              <span class="anchor" id="variable-c~17"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -217,7 +217,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~19"></span>
+              <span class="anchor" id="variable-side~3"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -232,7 +232,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~107"></span>
+              <span class="anchor" id="variable-uplo~59"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -303,7 +303,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~228"></span>
+              <span class="anchor" id="variable-a~68"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -318,7 +318,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~62"></span>
+              <span class="anchor" id="variable-b~10"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -333,7 +333,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~42"></span>
+              <span class="anchor" id="variable-c~18"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -348,7 +348,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~20"></span>
+              <span class="anchor" id="variable-side~4"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -363,7 +363,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~108"></span>
+              <span class="anchor" id="variable-uplo~60"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_symv.html b/interface/mfi_symv.html
index 3de20767..d163467a 100644
--- a/interface/mfi_symv.html
+++ b/interface/mfi_symv.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~195"></span>
+              <span class="anchor" id="variable-a~35"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~85"></span>
+              <span class="anchor" id="variable-x~77"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -202,7 +202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~61"></span>
+              <span class="anchor" id="variable-y~57"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -217,7 +217,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~71"></span>
+              <span class="anchor" id="variable-uplo~23"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -318,7 +318,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~196"></span>
+              <span class="anchor" id="variable-a~36"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -333,7 +333,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~86"></span>
+              <span class="anchor" id="variable-x~78"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -348,7 +348,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~62"></span>
+              <span class="anchor" id="variable-y~58"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -363,7 +363,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~72"></span>
+              <span class="anchor" id="variable-uplo~24"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_syr.html b/interface/mfi_syr.html
index d7cae637..bc2dc03a 100644
--- a/interface/mfi_syr.html
+++ b/interface/mfi_syr.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~197"></span>
+              <span class="anchor" id="variable-a~37"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~87"></span>
+              <span class="anchor" id="variable-x~79"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -202,7 +202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~73"></span>
+              <span class="anchor" id="variable-uplo~25"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -273,7 +273,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~198"></span>
+              <span class="anchor" id="variable-a~38"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -288,7 +288,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~88"></span>
+              <span class="anchor" id="variable-x~80"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -303,7 +303,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~74"></span>
+              <span class="anchor" id="variable-uplo~26"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_syr2.html b/interface/mfi_syr2.html
index 49d4b88c..31ef9bcf 100644
--- a/interface/mfi_syr2.html
+++ b/interface/mfi_syr2.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~199"></span>
+              <span class="anchor" id="variable-a~39"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~89"></span>
+              <span class="anchor" id="variable-x~81"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -202,7 +202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~63"></span>
+              <span class="anchor" id="variable-y~59"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -217,7 +217,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~75"></span>
+              <span class="anchor" id="variable-uplo~27"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -303,7 +303,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~200"></span>
+              <span class="anchor" id="variable-a~40"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -318,7 +318,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~90"></span>
+              <span class="anchor" id="variable-x~82"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -333,7 +333,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~64"></span>
+              <span class="anchor" id="variable-y~60"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -348,7 +348,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~76"></span>
+              <span class="anchor" id="variable-uplo~28"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_syr2k.html b/interface/mfi_syr2k.html
index 0122d976..ffaf3f5a 100644
--- a/interface/mfi_syr2k.html
+++ b/interface/mfi_syr2k.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~231"></span>
+              <span class="anchor" id="variable-a~71"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~63"></span>
+              <span class="anchor" id="variable-b~11"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -202,7 +202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~45"></span>
+              <span class="anchor" id="variable-c~21"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -217,7 +217,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~111"></span>
+              <span class="anchor" id="variable-uplo~63"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -232,7 +232,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~75"></span>
+              <span class="anchor" id="variable-trans~39"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -303,7 +303,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~232"></span>
+              <span class="anchor" id="variable-a~72"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -318,7 +318,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~64"></span>
+              <span class="anchor" id="variable-b~12"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -333,7 +333,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~46"></span>
+              <span class="anchor" id="variable-c~22"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -348,7 +348,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~112"></span>
+              <span class="anchor" id="variable-uplo~64"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -363,7 +363,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~76"></span>
+              <span class="anchor" id="variable-trans~40"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_syrk.html b/interface/mfi_syrk.html
index 2d699d10..94159178 100644
--- a/interface/mfi_syrk.html
+++ b/interface/mfi_syrk.html
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~229"></span>
+              <span class="anchor" id="variable-a~69"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -187,7 +187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~43"></span>
+              <span class="anchor" id="variable-c~19"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -202,7 +202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~109"></span>
+              <span class="anchor" id="variable-uplo~61"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -217,7 +217,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~73"></span>
+              <span class="anchor" id="variable-trans~37"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -288,7 +288,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~230"></span>
+              <span class="anchor" id="variable-a~70"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -303,7 +303,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~44"></span>
+              <span class="anchor" id="variable-c~20"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -318,7 +318,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~110"></span>
+              <span class="anchor" id="variable-uplo~62"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -333,7 +333,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~74"></span>
+              <span class="anchor" id="variable-trans~38"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_tbmv.html b/interface/mfi_tbmv.html
index 4f0804ce..d3197a8f 100644
--- a/interface/mfi_tbmv.html
+++ b/interface/mfi_tbmv.html
@@ -174,7 +174,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~201"></span>
+              <span class="anchor" id="variable-a~41"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -189,7 +189,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~91"></span>
+              <span class="anchor" id="variable-x~83"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -204,7 +204,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~77"></span>
+              <span class="anchor" id="variable-uplo~29"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -219,7 +219,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~45"></span>
+              <span class="anchor" id="variable-trans~9"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -290,7 +290,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~202"></span>
+              <span class="anchor" id="variable-a~42"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -305,7 +305,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~92"></span>
+              <span class="anchor" id="variable-x~84"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -320,7 +320,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~78"></span>
+              <span class="anchor" id="variable-uplo~30"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -335,7 +335,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~46"></span>
+              <span class="anchor" id="variable-trans~10"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -406,7 +406,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~203"></span>
+              <span class="anchor" id="variable-a~43"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -421,7 +421,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~93"></span>
+              <span class="anchor" id="variable-x~85"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -436,7 +436,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~79"></span>
+              <span class="anchor" id="variable-uplo~31"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -451,7 +451,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~47"></span>
+              <span class="anchor" id="variable-trans~11"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -522,7 +522,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~204"></span>
+              <span class="anchor" id="variable-a~44"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -537,7 +537,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~94"></span>
+              <span class="anchor" id="variable-x~86"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -552,7 +552,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~80"></span>
+              <span class="anchor" id="variable-uplo~32"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -567,7 +567,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~48"></span>
+              <span class="anchor" id="variable-trans~12"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_tbsv.html b/interface/mfi_tbsv.html
index 42fa8a92..78001801 100644
--- a/interface/mfi_tbsv.html
+++ b/interface/mfi_tbsv.html
@@ -174,7 +174,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~205"></span>
+              <span class="anchor" id="variable-a~45"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -189,7 +189,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~95"></span>
+              <span class="anchor" id="variable-x~87"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -204,7 +204,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~81"></span>
+              <span class="anchor" id="variable-uplo~33"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -219,7 +219,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~49"></span>
+              <span class="anchor" id="variable-trans~13"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -290,7 +290,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~206"></span>
+              <span class="anchor" id="variable-a~46"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -305,7 +305,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~96"></span>
+              <span class="anchor" id="variable-x~88"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -320,7 +320,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~82"></span>
+              <span class="anchor" id="variable-uplo~34"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -335,7 +335,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~50"></span>
+              <span class="anchor" id="variable-trans~14"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -406,7 +406,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~207"></span>
+              <span class="anchor" id="variable-a~47"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -421,7 +421,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~97"></span>
+              <span class="anchor" id="variable-x~89"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -436,7 +436,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~83"></span>
+              <span class="anchor" id="variable-uplo~35"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -451,7 +451,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~51"></span>
+              <span class="anchor" id="variable-trans~15"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -522,7 +522,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~208"></span>
+              <span class="anchor" id="variable-a~48"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -537,7 +537,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~98"></span>
+              <span class="anchor" id="variable-x~90"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -552,7 +552,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~84"></span>
+              <span class="anchor" id="variable-uplo~36"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -567,7 +567,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~52"></span>
+              <span class="anchor" id="variable-trans~16"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_tpmv.html b/interface/mfi_tpmv.html
index a115f98c..173fd55a 100644
--- a/interface/mfi_tpmv.html
+++ b/interface/mfi_tpmv.html
@@ -189,7 +189,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~99"></span>
+              <span class="anchor" id="variable-x~91"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -204,7 +204,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~85"></span>
+              <span class="anchor" id="variable-uplo~37"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -219,7 +219,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~53"></span>
+              <span class="anchor" id="variable-trans~17"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -305,7 +305,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~100"></span>
+              <span class="anchor" id="variable-x~92"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -320,7 +320,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~86"></span>
+              <span class="anchor" id="variable-uplo~38"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -335,7 +335,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~54"></span>
+              <span class="anchor" id="variable-trans~18"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -421,7 +421,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~101"></span>
+              <span class="anchor" id="variable-x~93"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -436,7 +436,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~87"></span>
+              <span class="anchor" id="variable-uplo~39"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -451,7 +451,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~55"></span>
+              <span class="anchor" id="variable-trans~19"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -537,7 +537,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~102"></span>
+              <span class="anchor" id="variable-x~94"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -552,7 +552,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~88"></span>
+              <span class="anchor" id="variable-uplo~40"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -567,7 +567,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~56"></span>
+              <span class="anchor" id="variable-trans~20"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_tpsv.html b/interface/mfi_tpsv.html
index 0879381f..dbf95243 100644
--- a/interface/mfi_tpsv.html
+++ b/interface/mfi_tpsv.html
@@ -189,7 +189,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~103"></span>
+              <span class="anchor" id="variable-x~95"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -204,7 +204,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~89"></span>
+              <span class="anchor" id="variable-uplo~41"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -219,7 +219,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~57"></span>
+              <span class="anchor" id="variable-trans~21"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -305,7 +305,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~104"></span>
+              <span class="anchor" id="variable-x~96"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -320,7 +320,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~90"></span>
+              <span class="anchor" id="variable-uplo~42"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -335,7 +335,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~58"></span>
+              <span class="anchor" id="variable-trans~22"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -421,7 +421,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~105"></span>
+              <span class="anchor" id="variable-x~97"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -436,7 +436,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~91"></span>
+              <span class="anchor" id="variable-uplo~43"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -451,7 +451,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~59"></span>
+              <span class="anchor" id="variable-trans~23"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -537,7 +537,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~106"></span>
+              <span class="anchor" id="variable-x~98"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -552,7 +552,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~92"></span>
+              <span class="anchor" id="variable-uplo~44"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -567,7 +567,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~60"></span>
+              <span class="anchor" id="variable-trans~24"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_trmm.html b/interface/mfi_trmm.html
index dcc6bdfb..efb6b064 100644
--- a/interface/mfi_trmm.html
+++ b/interface/mfi_trmm.html
@@ -174,7 +174,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~233"></span>
+              <span class="anchor" id="variable-a~73"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -189,7 +189,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~65"></span>
+              <span class="anchor" id="variable-b~13"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -204,7 +204,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~21"></span>
+              <span class="anchor" id="variable-side~5"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -219,7 +219,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~113"></span>
+              <span class="anchor" id="variable-uplo~65"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -305,7 +305,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~234"></span>
+              <span class="anchor" id="variable-a~74"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -320,7 +320,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~66"></span>
+              <span class="anchor" id="variable-b~14"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -335,7 +335,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~22"></span>
+              <span class="anchor" id="variable-side~6"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -350,7 +350,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~114"></span>
+              <span class="anchor" id="variable-uplo~66"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -436,7 +436,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~235"></span>
+              <span class="anchor" id="variable-a~75"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -451,7 +451,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~67"></span>
+              <span class="anchor" id="variable-b~15"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -466,7 +466,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~23"></span>
+              <span class="anchor" id="variable-side~7"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -481,7 +481,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~115"></span>
+              <span class="anchor" id="variable-uplo~67"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -567,7 +567,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~236"></span>
+              <span class="anchor" id="variable-a~76"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -582,7 +582,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~68"></span>
+              <span class="anchor" id="variable-b~16"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -597,7 +597,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~24"></span>
+              <span class="anchor" id="variable-side~8"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -612,7 +612,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~116"></span>
+              <span class="anchor" id="variable-uplo~68"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_trmv.html b/interface/mfi_trmv.html
index 4fdb7e29..18f7f5c6 100644
--- a/interface/mfi_trmv.html
+++ b/interface/mfi_trmv.html
@@ -174,7 +174,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~209"></span>
+              <span class="anchor" id="variable-a~49"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -189,7 +189,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~107"></span>
+              <span class="anchor" id="variable-x~99"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -204,7 +204,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~93"></span>
+              <span class="anchor" id="variable-uplo~45"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -219,7 +219,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~61"></span>
+              <span class="anchor" id="variable-trans~25"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -290,7 +290,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~210"></span>
+              <span class="anchor" id="variable-a~50"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -305,7 +305,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~108"></span>
+              <span class="anchor" id="variable-x~100"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -320,7 +320,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~94"></span>
+              <span class="anchor" id="variable-uplo~46"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -335,7 +335,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~62"></span>
+              <span class="anchor" id="variable-trans~26"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -406,7 +406,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~211"></span>
+              <span class="anchor" id="variable-a~51"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -421,7 +421,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~109"></span>
+              <span class="anchor" id="variable-x~101"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -436,7 +436,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~95"></span>
+              <span class="anchor" id="variable-uplo~47"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -451,7 +451,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~63"></span>
+              <span class="anchor" id="variable-trans~27"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -522,7 +522,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~212"></span>
+              <span class="anchor" id="variable-a~52"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -537,7 +537,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~110"></span>
+              <span class="anchor" id="variable-x~102"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -552,7 +552,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~96"></span>
+              <span class="anchor" id="variable-uplo~48"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -567,7 +567,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~64"></span>
+              <span class="anchor" id="variable-trans~28"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_trsm.html b/interface/mfi_trsm.html
index 0f9ac49a..8ff8b0b1 100644
--- a/interface/mfi_trsm.html
+++ b/interface/mfi_trsm.html
@@ -174,7 +174,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~237"></span>
+              <span class="anchor" id="variable-a~77"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -189,7 +189,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~69"></span>
+              <span class="anchor" id="variable-b~17"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -204,7 +204,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~25"></span>
+              <span class="anchor" id="variable-side~9"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -219,7 +219,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~117"></span>
+              <span class="anchor" id="variable-uplo~69"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -305,7 +305,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~238"></span>
+              <span class="anchor" id="variable-a~78"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -320,7 +320,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~70"></span>
+              <span class="anchor" id="variable-b~18"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -335,7 +335,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~26"></span>
+              <span class="anchor" id="variable-side~10"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -350,7 +350,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~118"></span>
+              <span class="anchor" id="variable-uplo~70"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -436,7 +436,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~239"></span>
+              <span class="anchor" id="variable-a~79"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -451,7 +451,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~71"></span>
+              <span class="anchor" id="variable-b~19"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -466,7 +466,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~27"></span>
+              <span class="anchor" id="variable-side~11"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -481,7 +481,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~119"></span>
+              <span class="anchor" id="variable-uplo~71"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -567,7 +567,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~240"></span>
+              <span class="anchor" id="variable-a~80"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -582,7 +582,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~72"></span>
+              <span class="anchor" id="variable-b~20"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -597,7 +597,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~28"></span>
+              <span class="anchor" id="variable-side~12"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -612,7 +612,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~120"></span>
+              <span class="anchor" id="variable-uplo~72"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/mfi_trsv.html b/interface/mfi_trsv.html
index 16a7f8d2..9c762fe9 100644
--- a/interface/mfi_trsv.html
+++ b/interface/mfi_trsv.html
@@ -174,7 +174,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~213"></span>
+              <span class="anchor" id="variable-a~53"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -189,7 +189,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~111"></span>
+              <span class="anchor" id="variable-x~103"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -204,7 +204,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~97"></span>
+              <span class="anchor" id="variable-uplo~49"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -219,7 +219,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~65"></span>
+              <span class="anchor" id="variable-trans~29"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -290,7 +290,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~214"></span>
+              <span class="anchor" id="variable-a~54"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -305,7 +305,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~112"></span>
+              <span class="anchor" id="variable-x~104"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -320,7 +320,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~98"></span>
+              <span class="anchor" id="variable-uplo~50"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -335,7 +335,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~66"></span>
+              <span class="anchor" id="variable-trans~30"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -406,7 +406,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~215"></span>
+              <span class="anchor" id="variable-a~55"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -421,7 +421,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~113"></span>
+              <span class="anchor" id="variable-x~105"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -436,7 +436,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~99"></span>
+              <span class="anchor" id="variable-uplo~51"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -451,7 +451,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~67"></span>
+              <span class="anchor" id="variable-trans~31"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -522,7 +522,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~216"></span>
+              <span class="anchor" id="variable-a~56"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -537,7 +537,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~114"></span>
+              <span class="anchor" id="variable-x~106"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -552,7 +552,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~100"></span>
+              <span class="anchor" id="variable-uplo~52"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -567,7 +567,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~68"></span>
+              <span class="anchor" id="variable-trans~32"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/interface/sdsdot.html b/interface/sdsdot.html
index 3e7e01fe..8aac3ce9 100644
--- a/interface/sdsdot.html
+++ b/interface/sdsdot.html
@@ -150,7 +150,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~429"></span>
+              <span class="anchor" id="variable-n~269"></span>
               integer,
             </td>
 <td>intent(in)</td>
diff --git a/module/f77_blas.html b/module/f77_blas.html
index 1e4494f7..6f84e33d 100644
--- a/module/f77_blas.html
+++ b/module/f77_blas.html
@@ -265,7 +265,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~299"></span>
+              <span class="anchor" id="variable-n~139"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -280,7 +280,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~123"></span>
+              <span class="anchor" id="variable-x~115"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -310,7 +310,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~65"></span>
+              <span class="anchor" id="variable-y~61"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -364,7 +364,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~300"></span>
+              <span class="anchor" id="variable-n~140"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -379,7 +379,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~124"></span>
+              <span class="anchor" id="variable-x~116"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -409,7 +409,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~66"></span>
+              <span class="anchor" id="variable-y~62"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -463,7 +463,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~301"></span>
+              <span class="anchor" id="variable-n~141"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -478,7 +478,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~125"></span>
+              <span class="anchor" id="variable-x~117"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -508,7 +508,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~67"></span>
+              <span class="anchor" id="variable-y~63"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -562,7 +562,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~302"></span>
+              <span class="anchor" id="variable-n~142"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -577,7 +577,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~126"></span>
+              <span class="anchor" id="variable-x~118"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -607,7 +607,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~68"></span>
+              <span class="anchor" id="variable-y~64"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -676,7 +676,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~303"></span>
+              <span class="anchor" id="variable-n~143"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -691,7 +691,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~127"></span>
+              <span class="anchor" id="variable-x~119"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -721,7 +721,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~69"></span>
+              <span class="anchor" id="variable-y~65"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -775,7 +775,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~304"></span>
+              <span class="anchor" id="variable-n~144"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -790,7 +790,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~128"></span>
+              <span class="anchor" id="variable-x~120"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -820,7 +820,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~70"></span>
+              <span class="anchor" id="variable-y~66"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -874,7 +874,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~305"></span>
+              <span class="anchor" id="variable-n~145"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -889,7 +889,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~129"></span>
+              <span class="anchor" id="variable-x~121"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -919,7 +919,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~71"></span>
+              <span class="anchor" id="variable-y~67"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -973,7 +973,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~306"></span>
+              <span class="anchor" id="variable-n~146"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -988,7 +988,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~130"></span>
+              <span class="anchor" id="variable-x~122"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -1018,7 +1018,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~72"></span>
+              <span class="anchor" id="variable-y~68"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -1087,7 +1087,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~307"></span>
+              <span class="anchor" id="variable-n~147"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1102,7 +1102,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~241"></span>
+              <span class="anchor" id="variable-a~81"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -1117,7 +1117,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~131"></span>
+              <span class="anchor" id="variable-x~123"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -1147,7 +1147,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~73"></span>
+              <span class="anchor" id="variable-y~69"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -1201,7 +1201,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~308"></span>
+              <span class="anchor" id="variable-n~148"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1216,7 +1216,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~242"></span>
+              <span class="anchor" id="variable-a~82"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -1231,7 +1231,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~132"></span>
+              <span class="anchor" id="variable-x~124"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -1261,7 +1261,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~74"></span>
+              <span class="anchor" id="variable-y~70"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -1315,7 +1315,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~309"></span>
+              <span class="anchor" id="variable-n~149"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1330,7 +1330,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~243"></span>
+              <span class="anchor" id="variable-a~83"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -1345,7 +1345,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~133"></span>
+              <span class="anchor" id="variable-x~125"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -1375,7 +1375,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~75"></span>
+              <span class="anchor" id="variable-y~71"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -1429,7 +1429,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~310"></span>
+              <span class="anchor" id="variable-n~150"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1444,7 +1444,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~244"></span>
+              <span class="anchor" id="variable-a~84"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -1459,7 +1459,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~134"></span>
+              <span class="anchor" id="variable-x~126"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -1489,7 +1489,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~76"></span>
+              <span class="anchor" id="variable-y~72"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -1558,7 +1558,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~311"></span>
+              <span class="anchor" id="variable-n~151"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1573,7 +1573,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~135"></span>
+              <span class="anchor" id="variable-x~127"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -1603,7 +1603,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~77"></span>
+              <span class="anchor" id="variable-y~73"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -1662,7 +1662,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~312"></span>
+              <span class="anchor" id="variable-n~152"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1677,7 +1677,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~136"></span>
+              <span class="anchor" id="variable-x~128"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -1707,7 +1707,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~78"></span>
+              <span class="anchor" id="variable-y~74"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -1781,7 +1781,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~313"></span>
+              <span class="anchor" id="variable-n~153"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1796,7 +1796,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~137"></span>
+              <span class="anchor" id="variable-x~129"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -1826,7 +1826,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~79"></span>
+              <span class="anchor" id="variable-y~75"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -1885,7 +1885,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~314"></span>
+              <span class="anchor" id="variable-n~154"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1900,7 +1900,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~138"></span>
+              <span class="anchor" id="variable-x~130"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -1930,7 +1930,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~80"></span>
+              <span class="anchor" id="variable-y~76"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -2004,7 +2004,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~315"></span>
+              <span class="anchor" id="variable-n~155"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2019,7 +2019,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~139"></span>
+              <span class="anchor" id="variable-x~131"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -2049,7 +2049,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~81"></span>
+              <span class="anchor" id="variable-y~77"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -2108,7 +2108,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~316"></span>
+              <span class="anchor" id="variable-n~156"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2123,7 +2123,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~140"></span>
+              <span class="anchor" id="variable-x~132"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -2153,7 +2153,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~82"></span>
+              <span class="anchor" id="variable-y~78"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -2227,7 +2227,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~317"></span>
+              <span class="anchor" id="variable-n~157"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2242,7 +2242,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~141"></span>
+              <span class="anchor" id="variable-x~133"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -2301,7 +2301,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~319"></span>
+              <span class="anchor" id="variable-n~159"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2316,7 +2316,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~143"></span>
+              <span class="anchor" id="variable-x~135"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -2375,7 +2375,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~318"></span>
+              <span class="anchor" id="variable-n~158"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2390,7 +2390,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~142"></span>
+              <span class="anchor" id="variable-x~134"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -2449,7 +2449,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~320"></span>
+              <span class="anchor" id="variable-n~160"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2464,7 +2464,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~144"></span>
+              <span class="anchor" id="variable-x~136"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -2538,7 +2538,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~321"></span>
+              <span class="anchor" id="variable-n~161"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2553,7 +2553,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~145"></span>
+              <span class="anchor" id="variable-x~137"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -2612,7 +2612,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~323"></span>
+              <span class="anchor" id="variable-n~163"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2627,7 +2627,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~147"></span>
+              <span class="anchor" id="variable-x~139"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -2686,7 +2686,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~322"></span>
+              <span class="anchor" id="variable-n~162"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2701,7 +2701,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~146"></span>
+              <span class="anchor" id="variable-x~138"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -2760,7 +2760,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~324"></span>
+              <span class="anchor" id="variable-n~164"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2775,7 +2775,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~148"></span>
+              <span class="anchor" id="variable-x~140"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -2850,7 +2850,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~325"></span>
+              <span class="anchor" id="variable-n~165"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2865,7 +2865,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~149"></span>
+              <span class="anchor" id="variable-x~141"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -2895,7 +2895,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~83"></span>
+              <span class="anchor" id="variable-y~79"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -2925,7 +2925,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~47"></span>
+              <span class="anchor" id="variable-c~23"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -2940,7 +2940,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~27"></span>
+              <span class="anchor" id="variable-s~7"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -2980,7 +2980,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~326"></span>
+              <span class="anchor" id="variable-n~166"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2995,7 +2995,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~150"></span>
+              <span class="anchor" id="variable-x~142"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -3025,7 +3025,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~84"></span>
+              <span class="anchor" id="variable-y~80"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -3055,7 +3055,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~48"></span>
+              <span class="anchor" id="variable-c~24"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -3070,7 +3070,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~28"></span>
+              <span class="anchor" id="variable-s~8"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -3110,7 +3110,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~327"></span>
+              <span class="anchor" id="variable-n~167"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -3125,7 +3125,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~151"></span>
+              <span class="anchor" id="variable-x~143"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -3155,7 +3155,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~85"></span>
+              <span class="anchor" id="variable-y~81"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -3185,7 +3185,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~49"></span>
+              <span class="anchor" id="variable-c~25"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -3200,7 +3200,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~29"></span>
+              <span class="anchor" id="variable-s~9"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -3240,7 +3240,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~328"></span>
+              <span class="anchor" id="variable-n~168"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -3255,7 +3255,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~152"></span>
+              <span class="anchor" id="variable-x~144"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -3285,7 +3285,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~86"></span>
+              <span class="anchor" id="variable-y~82"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -3315,7 +3315,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~50"></span>
+              <span class="anchor" id="variable-c~26"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -3330,7 +3330,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~30"></span>
+              <span class="anchor" id="variable-s~10"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -3370,7 +3370,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~329"></span>
+              <span class="anchor" id="variable-n~169"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -3385,7 +3385,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~153"></span>
+              <span class="anchor" id="variable-x~145"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -3415,7 +3415,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~87"></span>
+              <span class="anchor" id="variable-y~83"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -3445,7 +3445,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~51"></span>
+              <span class="anchor" id="variable-c~27"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -3460,7 +3460,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~31"></span>
+              <span class="anchor" id="variable-s~11"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -3500,7 +3500,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~330"></span>
+              <span class="anchor" id="variable-n~170"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -3515,7 +3515,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~154"></span>
+              <span class="anchor" id="variable-x~146"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -3545,7 +3545,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~88"></span>
+              <span class="anchor" id="variable-y~84"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -3575,7 +3575,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~52"></span>
+              <span class="anchor" id="variable-c~28"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -3590,7 +3590,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~32"></span>
+              <span class="anchor" id="variable-s~12"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -3650,7 +3650,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~245"></span>
+              <span class="anchor" id="variable-a~85"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -3665,7 +3665,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~73"></span>
+              <span class="anchor" id="variable-b~21"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -3680,7 +3680,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~53"></span>
+              <span class="anchor" id="variable-c~29"></span>
               real(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -3695,7 +3695,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~33"></span>
+              <span class="anchor" id="variable-s~13"></span>
               real(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -3740,7 +3740,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~246"></span>
+              <span class="anchor" id="variable-a~86"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -3755,7 +3755,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~74"></span>
+              <span class="anchor" id="variable-b~22"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -3770,7 +3770,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~54"></span>
+              <span class="anchor" id="variable-c~30"></span>
               real(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -3785,7 +3785,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~34"></span>
+              <span class="anchor" id="variable-s~14"></span>
               real(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -3830,7 +3830,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~247"></span>
+              <span class="anchor" id="variable-a~87"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -3845,7 +3845,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~75"></span>
+              <span class="anchor" id="variable-b~23"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -3860,7 +3860,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~55"></span>
+              <span class="anchor" id="variable-c~31"></span>
               real(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -3875,7 +3875,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~35"></span>
+              <span class="anchor" id="variable-s~15"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -3920,7 +3920,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~248"></span>
+              <span class="anchor" id="variable-a~88"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -3935,7 +3935,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~76"></span>
+              <span class="anchor" id="variable-b~24"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -3950,7 +3950,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~56"></span>
+              <span class="anchor" id="variable-c~32"></span>
               real(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -3965,7 +3965,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~36"></span>
+              <span class="anchor" id="variable-s~16"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -4019,7 +4019,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~331"></span>
+              <span class="anchor" id="variable-n~171"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -4034,7 +4034,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~155"></span>
+              <span class="anchor" id="variable-x~147"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -4064,7 +4064,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~89"></span>
+              <span class="anchor" id="variable-y~85"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -4133,7 +4133,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~332"></span>
+              <span class="anchor" id="variable-n~172"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -4148,7 +4148,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~156"></span>
+              <span class="anchor" id="variable-x~148"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -4178,7 +4178,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~90"></span>
+              <span class="anchor" id="variable-y~86"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -4476,7 +4476,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~333"></span>
+              <span class="anchor" id="variable-n~173"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -4491,7 +4491,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~249"></span>
+              <span class="anchor" id="variable-a~89"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -4506,7 +4506,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~157"></span>
+              <span class="anchor" id="variable-x~149"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -4561,7 +4561,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~334"></span>
+              <span class="anchor" id="variable-n~174"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -4576,7 +4576,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~250"></span>
+              <span class="anchor" id="variable-a~90"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -4591,7 +4591,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~158"></span>
+              <span class="anchor" id="variable-x~150"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -4646,7 +4646,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~335"></span>
+              <span class="anchor" id="variable-n~175"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -4661,7 +4661,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~251"></span>
+              <span class="anchor" id="variable-a~91"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -4676,7 +4676,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~159"></span>
+              <span class="anchor" id="variable-x~151"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -4731,7 +4731,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~336"></span>
+              <span class="anchor" id="variable-n~176"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -4746,7 +4746,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~252"></span>
+              <span class="anchor" id="variable-a~92"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -4761,7 +4761,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~160"></span>
+              <span class="anchor" id="variable-x~152"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -4816,7 +4816,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~337"></span>
+              <span class="anchor" id="variable-n~177"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -4831,7 +4831,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~253"></span>
+              <span class="anchor" id="variable-a~93"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -4846,7 +4846,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~161"></span>
+              <span class="anchor" id="variable-x~153"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -4901,7 +4901,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~338"></span>
+              <span class="anchor" id="variable-n~178"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -4916,7 +4916,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~254"></span>
+              <span class="anchor" id="variable-a~94"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -4931,7 +4931,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~162"></span>
+              <span class="anchor" id="variable-x~154"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -5000,7 +5000,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~77"></span>
+              <span class="anchor" id="variable-trans~41"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -5015,7 +5015,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~131"></span>
+              <span class="anchor" id="variable-m~31"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5030,7 +5030,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~339"></span>
+              <span class="anchor" id="variable-n~179"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5090,7 +5090,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~255"></span>
+              <span class="anchor" id="variable-a~95"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -5105,7 +5105,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~231"></span>
+              <span class="anchor" id="variable-lda~71"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5120,7 +5120,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~163"></span>
+              <span class="anchor" id="variable-x~155"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -5165,7 +5165,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~91"></span>
+              <span class="anchor" id="variable-y~87"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -5219,7 +5219,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~78"></span>
+              <span class="anchor" id="variable-trans~42"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -5234,7 +5234,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~132"></span>
+              <span class="anchor" id="variable-m~32"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5249,7 +5249,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~340"></span>
+              <span class="anchor" id="variable-n~180"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5309,7 +5309,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~256"></span>
+              <span class="anchor" id="variable-a~96"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -5324,7 +5324,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~232"></span>
+              <span class="anchor" id="variable-lda~72"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5339,7 +5339,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~164"></span>
+              <span class="anchor" id="variable-x~156"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -5384,7 +5384,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~92"></span>
+              <span class="anchor" id="variable-y~88"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -5438,7 +5438,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~79"></span>
+              <span class="anchor" id="variable-trans~43"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -5453,7 +5453,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~133"></span>
+              <span class="anchor" id="variable-m~33"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5468,7 +5468,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~341"></span>
+              <span class="anchor" id="variable-n~181"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5528,7 +5528,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~257"></span>
+              <span class="anchor" id="variable-a~97"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -5543,7 +5543,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~233"></span>
+              <span class="anchor" id="variable-lda~73"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5558,7 +5558,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~165"></span>
+              <span class="anchor" id="variable-x~157"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -5603,7 +5603,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~93"></span>
+              <span class="anchor" id="variable-y~89"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -5657,7 +5657,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~80"></span>
+              <span class="anchor" id="variable-trans~44"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -5672,7 +5672,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~134"></span>
+              <span class="anchor" id="variable-m~34"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5687,7 +5687,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~342"></span>
+              <span class="anchor" id="variable-n~182"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5747,7 +5747,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~258"></span>
+              <span class="anchor" id="variable-a~98"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -5762,7 +5762,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~234"></span>
+              <span class="anchor" id="variable-lda~74"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5777,7 +5777,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~166"></span>
+              <span class="anchor" id="variable-x~158"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -5822,7 +5822,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~94"></span>
+              <span class="anchor" id="variable-y~90"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -5891,7 +5891,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~81"></span>
+              <span class="anchor" id="variable-trans~45"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -5906,7 +5906,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~135"></span>
+              <span class="anchor" id="variable-m~35"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5921,7 +5921,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~343"></span>
+              <span class="anchor" id="variable-n~183"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5951,7 +5951,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~259"></span>
+              <span class="anchor" id="variable-a~99"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -5966,7 +5966,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~235"></span>
+              <span class="anchor" id="variable-lda~75"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5981,7 +5981,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~167"></span>
+              <span class="anchor" id="variable-x~159"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -6026,7 +6026,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~95"></span>
+              <span class="anchor" id="variable-y~91"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -6080,7 +6080,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~82"></span>
+              <span class="anchor" id="variable-trans~46"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -6095,7 +6095,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~136"></span>
+              <span class="anchor" id="variable-m~36"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6110,7 +6110,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~344"></span>
+              <span class="anchor" id="variable-n~184"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6140,7 +6140,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~260"></span>
+              <span class="anchor" id="variable-a~100"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -6155,7 +6155,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~236"></span>
+              <span class="anchor" id="variable-lda~76"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6170,7 +6170,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~168"></span>
+              <span class="anchor" id="variable-x~160"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -6215,7 +6215,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~96"></span>
+              <span class="anchor" id="variable-y~92"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -6269,7 +6269,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~83"></span>
+              <span class="anchor" id="variable-trans~47"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -6284,7 +6284,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~137"></span>
+              <span class="anchor" id="variable-m~37"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6299,7 +6299,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~345"></span>
+              <span class="anchor" id="variable-n~185"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6329,7 +6329,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~261"></span>
+              <span class="anchor" id="variable-a~101"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -6344,7 +6344,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~237"></span>
+              <span class="anchor" id="variable-lda~77"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6359,7 +6359,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~169"></span>
+              <span class="anchor" id="variable-x~161"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -6404,7 +6404,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~97"></span>
+              <span class="anchor" id="variable-y~93"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -6458,7 +6458,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~84"></span>
+              <span class="anchor" id="variable-trans~48"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -6473,7 +6473,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~138"></span>
+              <span class="anchor" id="variable-m~38"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6488,7 +6488,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~346"></span>
+              <span class="anchor" id="variable-n~186"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6518,7 +6518,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~262"></span>
+              <span class="anchor" id="variable-a~102"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -6533,7 +6533,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~238"></span>
+              <span class="anchor" id="variable-lda~78"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6548,7 +6548,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~170"></span>
+              <span class="anchor" id="variable-x~162"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -6593,7 +6593,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~98"></span>
+              <span class="anchor" id="variable-y~94"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -6662,7 +6662,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~139"></span>
+              <span class="anchor" id="variable-m~39"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6677,7 +6677,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~347"></span>
+              <span class="anchor" id="variable-n~187"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6707,7 +6707,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~171"></span>
+              <span class="anchor" id="variable-x~163"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -6737,7 +6737,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~99"></span>
+              <span class="anchor" id="variable-y~95"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -6767,7 +6767,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~263"></span>
+              <span class="anchor" id="variable-a~103"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -6782,7 +6782,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~239"></span>
+              <span class="anchor" id="variable-lda~79"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6821,7 +6821,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~140"></span>
+              <span class="anchor" id="variable-m~40"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6836,7 +6836,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~348"></span>
+              <span class="anchor" id="variable-n~188"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6866,7 +6866,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~172"></span>
+              <span class="anchor" id="variable-x~164"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -6896,7 +6896,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~100"></span>
+              <span class="anchor" id="variable-y~96"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -6926,7 +6926,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~264"></span>
+              <span class="anchor" id="variable-a~104"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -6941,7 +6941,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~240"></span>
+              <span class="anchor" id="variable-lda~80"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6995,7 +6995,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~141"></span>
+              <span class="anchor" id="variable-m~41"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -7010,7 +7010,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~349"></span>
+              <span class="anchor" id="variable-n~189"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -7040,7 +7040,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~173"></span>
+              <span class="anchor" id="variable-x~165"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -7070,7 +7070,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~101"></span>
+              <span class="anchor" id="variable-y~97"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -7100,7 +7100,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~265"></span>
+              <span class="anchor" id="variable-a~105"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -7115,7 +7115,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~241"></span>
+              <span class="anchor" id="variable-lda~81"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -7154,7 +7154,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~142"></span>
+              <span class="anchor" id="variable-m~42"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -7169,7 +7169,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~350"></span>
+              <span class="anchor" id="variable-n~190"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -7199,7 +7199,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~174"></span>
+              <span class="anchor" id="variable-x~166"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -7229,7 +7229,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~102"></span>
+              <span class="anchor" id="variable-y~98"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -7259,7 +7259,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~266"></span>
+              <span class="anchor" id="variable-a~106"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -7274,7 +7274,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~242"></span>
+              <span class="anchor" id="variable-lda~82"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -7328,7 +7328,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~143"></span>
+              <span class="anchor" id="variable-m~43"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -7343,7 +7343,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~351"></span>
+              <span class="anchor" id="variable-n~191"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -7373,7 +7373,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~175"></span>
+              <span class="anchor" id="variable-x~167"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -7403,7 +7403,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~103"></span>
+              <span class="anchor" id="variable-y~99"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -7433,7 +7433,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~267"></span>
+              <span class="anchor" id="variable-a~107"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -7448,7 +7448,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~243"></span>
+              <span class="anchor" id="variable-lda~83"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -7487,7 +7487,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~144"></span>
+              <span class="anchor" id="variable-m~44"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -7502,7 +7502,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~352"></span>
+              <span class="anchor" id="variable-n~192"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -7532,7 +7532,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~176"></span>
+              <span class="anchor" id="variable-x~168"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -7562,7 +7562,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~104"></span>
+              <span class="anchor" id="variable-y~100"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -7592,7 +7592,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~268"></span>
+              <span class="anchor" id="variable-a~108"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -7607,7 +7607,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~244"></span>
+              <span class="anchor" id="variable-lda~84"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -7661,7 +7661,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~121"></span>
+              <span class="anchor" id="variable-uplo~73"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -7676,7 +7676,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~353"></span>
+              <span class="anchor" id="variable-n~193"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -7691,7 +7691,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~57"></span>
+              <span class="anchor" id="variable-k~25"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -7721,7 +7721,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~269"></span>
+              <span class="anchor" id="variable-a~109"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -7736,7 +7736,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~245"></span>
+              <span class="anchor" id="variable-lda~85"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -7751,7 +7751,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~177"></span>
+              <span class="anchor" id="variable-x~169"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -7796,7 +7796,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~105"></span>
+              <span class="anchor" id="variable-y~101"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -7850,7 +7850,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~122"></span>
+              <span class="anchor" id="variable-uplo~74"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -7865,7 +7865,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~354"></span>
+              <span class="anchor" id="variable-n~194"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -7880,7 +7880,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~58"></span>
+              <span class="anchor" id="variable-k~26"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -7910,7 +7910,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~270"></span>
+              <span class="anchor" id="variable-a~110"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -7925,7 +7925,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~246"></span>
+              <span class="anchor" id="variable-lda~86"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -7940,7 +7940,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~178"></span>
+              <span class="anchor" id="variable-x~170"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -7985,7 +7985,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~106"></span>
+              <span class="anchor" id="variable-y~102"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -8054,7 +8054,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~123"></span>
+              <span class="anchor" id="variable-uplo~75"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -8069,7 +8069,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~355"></span>
+              <span class="anchor" id="variable-n~195"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -8099,7 +8099,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~271"></span>
+              <span class="anchor" id="variable-a~111"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -8114,7 +8114,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~247"></span>
+              <span class="anchor" id="variable-lda~87"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -8129,7 +8129,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~179"></span>
+              <span class="anchor" id="variable-x~171"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -8174,7 +8174,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~107"></span>
+              <span class="anchor" id="variable-y~103"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -8228,7 +8228,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~124"></span>
+              <span class="anchor" id="variable-uplo~76"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -8243,7 +8243,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~356"></span>
+              <span class="anchor" id="variable-n~196"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -8273,7 +8273,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~272"></span>
+              <span class="anchor" id="variable-a~112"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -8288,7 +8288,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~248"></span>
+              <span class="anchor" id="variable-lda~88"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -8303,7 +8303,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~180"></span>
+              <span class="anchor" id="variable-x~172"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -8348,7 +8348,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~108"></span>
+              <span class="anchor" id="variable-y~104"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -8417,7 +8417,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~125"></span>
+              <span class="anchor" id="variable-uplo~77"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -8432,7 +8432,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~357"></span>
+              <span class="anchor" id="variable-n~197"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -8462,7 +8462,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~181"></span>
+              <span class="anchor" id="variable-x~173"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -8492,7 +8492,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~273"></span>
+              <span class="anchor" id="variable-a~113"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -8507,7 +8507,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~249"></span>
+              <span class="anchor" id="variable-lda~89"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -8546,7 +8546,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~126"></span>
+              <span class="anchor" id="variable-uplo~78"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -8561,7 +8561,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~358"></span>
+              <span class="anchor" id="variable-n~198"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -8591,7 +8591,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~182"></span>
+              <span class="anchor" id="variable-x~174"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -8621,7 +8621,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~274"></span>
+              <span class="anchor" id="variable-a~114"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -8636,7 +8636,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~250"></span>
+              <span class="anchor" id="variable-lda~90"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -8690,7 +8690,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~127"></span>
+              <span class="anchor" id="variable-uplo~79"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -8705,7 +8705,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~359"></span>
+              <span class="anchor" id="variable-n~199"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -8735,7 +8735,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~183"></span>
+              <span class="anchor" id="variable-x~175"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -8765,7 +8765,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~109"></span>
+              <span class="anchor" id="variable-y~105"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -8795,7 +8795,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~275"></span>
+              <span class="anchor" id="variable-a~115"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -8810,7 +8810,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~251"></span>
+              <span class="anchor" id="variable-lda~91"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -8849,7 +8849,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~128"></span>
+              <span class="anchor" id="variable-uplo~80"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -8864,7 +8864,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~360"></span>
+              <span class="anchor" id="variable-n~200"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -8894,7 +8894,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~184"></span>
+              <span class="anchor" id="variable-x~176"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -8924,7 +8924,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~110"></span>
+              <span class="anchor" id="variable-y~106"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -8954,7 +8954,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~276"></span>
+              <span class="anchor" id="variable-a~116"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -8969,7 +8969,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~252"></span>
+              <span class="anchor" id="variable-lda~92"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9023,7 +9023,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~129"></span>
+              <span class="anchor" id="variable-uplo~81"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -9038,7 +9038,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~361"></span>
+              <span class="anchor" id="variable-n~201"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9083,7 +9083,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~185"></span>
+              <span class="anchor" id="variable-x~177"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -9128,7 +9128,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~111"></span>
+              <span class="anchor" id="variable-y~107"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -9182,7 +9182,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~130"></span>
+              <span class="anchor" id="variable-uplo~82"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -9197,7 +9197,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~362"></span>
+              <span class="anchor" id="variable-n~202"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9242,7 +9242,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~186"></span>
+              <span class="anchor" id="variable-x~178"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -9287,7 +9287,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~112"></span>
+              <span class="anchor" id="variable-y~108"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -9356,7 +9356,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~131"></span>
+              <span class="anchor" id="variable-uplo~83"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -9371,7 +9371,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~363"></span>
+              <span class="anchor" id="variable-n~203"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9401,7 +9401,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~187"></span>
+              <span class="anchor" id="variable-x~179"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -9470,7 +9470,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~132"></span>
+              <span class="anchor" id="variable-uplo~84"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -9485,7 +9485,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~364"></span>
+              <span class="anchor" id="variable-n~204"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9515,7 +9515,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~188"></span>
+              <span class="anchor" id="variable-x~180"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -9599,7 +9599,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~133"></span>
+              <span class="anchor" id="variable-uplo~85"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -9614,7 +9614,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~365"></span>
+              <span class="anchor" id="variable-n~205"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9644,7 +9644,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~189"></span>
+              <span class="anchor" id="variable-x~181"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -9674,7 +9674,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~113"></span>
+              <span class="anchor" id="variable-y~109"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -9743,7 +9743,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~134"></span>
+              <span class="anchor" id="variable-uplo~86"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -9758,7 +9758,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~366"></span>
+              <span class="anchor" id="variable-n~206"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9788,7 +9788,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~190"></span>
+              <span class="anchor" id="variable-x~182"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -9818,7 +9818,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~114"></span>
+              <span class="anchor" id="variable-y~110"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -9902,7 +9902,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~135"></span>
+              <span class="anchor" id="variable-uplo~87"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -9917,7 +9917,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~367"></span>
+              <span class="anchor" id="variable-n~207"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9932,7 +9932,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~59"></span>
+              <span class="anchor" id="variable-k~27"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9962,7 +9962,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~277"></span>
+              <span class="anchor" id="variable-a~117"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -9977,7 +9977,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~253"></span>
+              <span class="anchor" id="variable-lda~93"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9992,7 +9992,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~191"></span>
+              <span class="anchor" id="variable-x~183"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -10037,7 +10037,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~115"></span>
+              <span class="anchor" id="variable-y~111"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -10091,7 +10091,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~136"></span>
+              <span class="anchor" id="variable-uplo~88"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -10106,7 +10106,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~368"></span>
+              <span class="anchor" id="variable-n~208"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10121,7 +10121,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~60"></span>
+              <span class="anchor" id="variable-k~28"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10151,7 +10151,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~278"></span>
+              <span class="anchor" id="variable-a~118"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -10166,7 +10166,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~254"></span>
+              <span class="anchor" id="variable-lda~94"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10181,7 +10181,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~192"></span>
+              <span class="anchor" id="variable-x~184"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -10226,7 +10226,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~116"></span>
+              <span class="anchor" id="variable-y~112"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -10295,7 +10295,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~137"></span>
+              <span class="anchor" id="variable-uplo~89"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -10310,7 +10310,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~369"></span>
+              <span class="anchor" id="variable-n~209"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10355,7 +10355,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~193"></span>
+              <span class="anchor" id="variable-x~185"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -10400,7 +10400,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~117"></span>
+              <span class="anchor" id="variable-y~113"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -10454,7 +10454,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~138"></span>
+              <span class="anchor" id="variable-uplo~90"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -10469,7 +10469,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~370"></span>
+              <span class="anchor" id="variable-n~210"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10514,7 +10514,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~194"></span>
+              <span class="anchor" id="variable-x~186"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -10559,7 +10559,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~118"></span>
+              <span class="anchor" id="variable-y~114"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -10628,7 +10628,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~139"></span>
+              <span class="anchor" id="variable-uplo~91"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -10643,7 +10643,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~371"></span>
+              <span class="anchor" id="variable-n~211"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10673,7 +10673,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~195"></span>
+              <span class="anchor" id="variable-x~187"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -10742,7 +10742,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~140"></span>
+              <span class="anchor" id="variable-uplo~92"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -10757,7 +10757,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~372"></span>
+              <span class="anchor" id="variable-n~212"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10787,7 +10787,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~196"></span>
+              <span class="anchor" id="variable-x~188"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -10871,7 +10871,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~141"></span>
+              <span class="anchor" id="variable-uplo~93"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -10886,7 +10886,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~373"></span>
+              <span class="anchor" id="variable-n~213"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10916,7 +10916,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~197"></span>
+              <span class="anchor" id="variable-x~189"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -10946,7 +10946,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~119"></span>
+              <span class="anchor" id="variable-y~115"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -11015,7 +11015,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~142"></span>
+              <span class="anchor" id="variable-uplo~94"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -11030,7 +11030,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~374"></span>
+              <span class="anchor" id="variable-n~214"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11060,7 +11060,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~198"></span>
+              <span class="anchor" id="variable-x~190"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -11090,7 +11090,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~120"></span>
+              <span class="anchor" id="variable-y~116"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -11174,7 +11174,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~143"></span>
+              <span class="anchor" id="variable-uplo~95"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -11189,7 +11189,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~375"></span>
+              <span class="anchor" id="variable-n~215"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11219,7 +11219,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~279"></span>
+              <span class="anchor" id="variable-a~119"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -11234,7 +11234,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~255"></span>
+              <span class="anchor" id="variable-lda~95"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11249,7 +11249,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~199"></span>
+              <span class="anchor" id="variable-x~191"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -11294,7 +11294,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~121"></span>
+              <span class="anchor" id="variable-y~117"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -11348,7 +11348,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~144"></span>
+              <span class="anchor" id="variable-uplo~96"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -11363,7 +11363,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~376"></span>
+              <span class="anchor" id="variable-n~216"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11393,7 +11393,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~280"></span>
+              <span class="anchor" id="variable-a~120"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -11408,7 +11408,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~256"></span>
+              <span class="anchor" id="variable-lda~96"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11423,7 +11423,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~200"></span>
+              <span class="anchor" id="variable-x~192"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -11468,7 +11468,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~122"></span>
+              <span class="anchor" id="variable-y~118"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -11537,7 +11537,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~145"></span>
+              <span class="anchor" id="variable-uplo~97"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -11552,7 +11552,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~377"></span>
+              <span class="anchor" id="variable-n~217"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11582,7 +11582,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~201"></span>
+              <span class="anchor" id="variable-x~193"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -11612,7 +11612,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~281"></span>
+              <span class="anchor" id="variable-a~121"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -11627,7 +11627,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~257"></span>
+              <span class="anchor" id="variable-lda~97"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11666,7 +11666,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~146"></span>
+              <span class="anchor" id="variable-uplo~98"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -11681,7 +11681,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~378"></span>
+              <span class="anchor" id="variable-n~218"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11711,7 +11711,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~202"></span>
+              <span class="anchor" id="variable-x~194"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -11741,7 +11741,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~282"></span>
+              <span class="anchor" id="variable-a~122"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -11756,7 +11756,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~258"></span>
+              <span class="anchor" id="variable-lda~98"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11810,7 +11810,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~147"></span>
+              <span class="anchor" id="variable-uplo~99"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -11825,7 +11825,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~379"></span>
+              <span class="anchor" id="variable-n~219"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11855,7 +11855,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~203"></span>
+              <span class="anchor" id="variable-x~195"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -11885,7 +11885,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~123"></span>
+              <span class="anchor" id="variable-y~119"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -11915,7 +11915,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~283"></span>
+              <span class="anchor" id="variable-a~123"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -11930,7 +11930,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~259"></span>
+              <span class="anchor" id="variable-lda~99"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11969,7 +11969,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~148"></span>
+              <span class="anchor" id="variable-uplo~100"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -11984,7 +11984,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~380"></span>
+              <span class="anchor" id="variable-n~220"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12014,7 +12014,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~204"></span>
+              <span class="anchor" id="variable-x~196"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -12044,7 +12044,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~124"></span>
+              <span class="anchor" id="variable-y~120"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -12074,7 +12074,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~284"></span>
+              <span class="anchor" id="variable-a~124"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -12089,7 +12089,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~260"></span>
+              <span class="anchor" id="variable-lda~100"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12143,7 +12143,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~149"></span>
+              <span class="anchor" id="variable-uplo~101"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -12158,7 +12158,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~85"></span>
+              <span class="anchor" id="variable-trans~49"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -12188,7 +12188,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~381"></span>
+              <span class="anchor" id="variable-n~221"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12203,7 +12203,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~61"></span>
+              <span class="anchor" id="variable-k~29"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12218,7 +12218,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~285"></span>
+              <span class="anchor" id="variable-a~125"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -12233,7 +12233,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~261"></span>
+              <span class="anchor" id="variable-lda~101"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12248,7 +12248,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~205"></span>
+              <span class="anchor" id="variable-x~197"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -12302,7 +12302,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~150"></span>
+              <span class="anchor" id="variable-uplo~102"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -12317,7 +12317,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~86"></span>
+              <span class="anchor" id="variable-trans~50"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -12347,7 +12347,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~382"></span>
+              <span class="anchor" id="variable-n~222"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12362,7 +12362,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~62"></span>
+              <span class="anchor" id="variable-k~30"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12377,7 +12377,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~286"></span>
+              <span class="anchor" id="variable-a~126"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -12392,7 +12392,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~262"></span>
+              <span class="anchor" id="variable-lda~102"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12407,7 +12407,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~206"></span>
+              <span class="anchor" id="variable-x~198"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -12461,7 +12461,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~151"></span>
+              <span class="anchor" id="variable-uplo~103"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -12476,7 +12476,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~87"></span>
+              <span class="anchor" id="variable-trans~51"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -12506,7 +12506,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~383"></span>
+              <span class="anchor" id="variable-n~223"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12521,7 +12521,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~63"></span>
+              <span class="anchor" id="variable-k~31"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12536,7 +12536,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~287"></span>
+              <span class="anchor" id="variable-a~127"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -12551,7 +12551,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~263"></span>
+              <span class="anchor" id="variable-lda~103"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12566,7 +12566,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~207"></span>
+              <span class="anchor" id="variable-x~199"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -12620,7 +12620,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~152"></span>
+              <span class="anchor" id="variable-uplo~104"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -12635,7 +12635,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~88"></span>
+              <span class="anchor" id="variable-trans~52"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -12665,7 +12665,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~384"></span>
+              <span class="anchor" id="variable-n~224"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12680,7 +12680,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~64"></span>
+              <span class="anchor" id="variable-k~32"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12695,7 +12695,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~288"></span>
+              <span class="anchor" id="variable-a~128"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -12710,7 +12710,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~264"></span>
+              <span class="anchor" id="variable-lda~104"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12725,7 +12725,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~208"></span>
+              <span class="anchor" id="variable-x~200"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -12794,7 +12794,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~153"></span>
+              <span class="anchor" id="variable-uplo~105"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -12809,7 +12809,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~89"></span>
+              <span class="anchor" id="variable-trans~53"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -12839,7 +12839,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~385"></span>
+              <span class="anchor" id="variable-n~225"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12854,7 +12854,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~65"></span>
+              <span class="anchor" id="variable-k~33"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12869,7 +12869,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~289"></span>
+              <span class="anchor" id="variable-a~129"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -12884,7 +12884,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~265"></span>
+              <span class="anchor" id="variable-lda~105"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12899,7 +12899,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~209"></span>
+              <span class="anchor" id="variable-x~201"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -12953,7 +12953,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~154"></span>
+              <span class="anchor" id="variable-uplo~106"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -12968,7 +12968,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~90"></span>
+              <span class="anchor" id="variable-trans~54"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -12998,7 +12998,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~386"></span>
+              <span class="anchor" id="variable-n~226"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13013,7 +13013,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~66"></span>
+              <span class="anchor" id="variable-k~34"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13028,7 +13028,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~290"></span>
+              <span class="anchor" id="variable-a~130"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -13043,7 +13043,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~266"></span>
+              <span class="anchor" id="variable-lda~106"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13058,7 +13058,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~210"></span>
+              <span class="anchor" id="variable-x~202"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -13112,7 +13112,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~155"></span>
+              <span class="anchor" id="variable-uplo~107"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -13127,7 +13127,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~91"></span>
+              <span class="anchor" id="variable-trans~55"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -13157,7 +13157,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~387"></span>
+              <span class="anchor" id="variable-n~227"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13172,7 +13172,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~67"></span>
+              <span class="anchor" id="variable-k~35"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13187,7 +13187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~291"></span>
+              <span class="anchor" id="variable-a~131"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -13202,7 +13202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~267"></span>
+              <span class="anchor" id="variable-lda~107"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13217,7 +13217,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~211"></span>
+              <span class="anchor" id="variable-x~203"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -13271,7 +13271,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~156"></span>
+              <span class="anchor" id="variable-uplo~108"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -13286,7 +13286,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~92"></span>
+              <span class="anchor" id="variable-trans~56"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -13316,7 +13316,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~388"></span>
+              <span class="anchor" id="variable-n~228"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13331,7 +13331,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~68"></span>
+              <span class="anchor" id="variable-k~36"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13346,7 +13346,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~292"></span>
+              <span class="anchor" id="variable-a~132"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -13361,7 +13361,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~268"></span>
+              <span class="anchor" id="variable-lda~108"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13376,7 +13376,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~212"></span>
+              <span class="anchor" id="variable-x~204"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -13445,7 +13445,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~157"></span>
+              <span class="anchor" id="variable-uplo~109"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -13460,7 +13460,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~93"></span>
+              <span class="anchor" id="variable-trans~57"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -13490,7 +13490,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~389"></span>
+              <span class="anchor" id="variable-n~229"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13520,7 +13520,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~213"></span>
+              <span class="anchor" id="variable-x~205"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -13574,7 +13574,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~158"></span>
+              <span class="anchor" id="variable-uplo~110"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -13589,7 +13589,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~94"></span>
+              <span class="anchor" id="variable-trans~58"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -13619,7 +13619,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~390"></span>
+              <span class="anchor" id="variable-n~230"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13649,7 +13649,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~214"></span>
+              <span class="anchor" id="variable-x~206"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -13703,7 +13703,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~159"></span>
+              <span class="anchor" id="variable-uplo~111"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -13718,7 +13718,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~95"></span>
+              <span class="anchor" id="variable-trans~59"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -13748,7 +13748,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~391"></span>
+              <span class="anchor" id="variable-n~231"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13778,7 +13778,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~215"></span>
+              <span class="anchor" id="variable-x~207"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -13832,7 +13832,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~160"></span>
+              <span class="anchor" id="variable-uplo~112"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -13847,7 +13847,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~96"></span>
+              <span class="anchor" id="variable-trans~60"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -13877,7 +13877,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~392"></span>
+              <span class="anchor" id="variable-n~232"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13907,7 +13907,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~216"></span>
+              <span class="anchor" id="variable-x~208"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -13976,7 +13976,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~161"></span>
+              <span class="anchor" id="variable-uplo~113"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -13991,7 +13991,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~97"></span>
+              <span class="anchor" id="variable-trans~61"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -14021,7 +14021,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~393"></span>
+              <span class="anchor" id="variable-n~233"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -14051,7 +14051,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~217"></span>
+              <span class="anchor" id="variable-x~209"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -14105,7 +14105,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~162"></span>
+              <span class="anchor" id="variable-uplo~114"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -14120,7 +14120,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~98"></span>
+              <span class="anchor" id="variable-trans~62"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -14150,7 +14150,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~394"></span>
+              <span class="anchor" id="variable-n~234"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -14180,7 +14180,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~218"></span>
+              <span class="anchor" id="variable-x~210"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -14234,7 +14234,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~163"></span>
+              <span class="anchor" id="variable-uplo~115"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -14249,7 +14249,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~99"></span>
+              <span class="anchor" id="variable-trans~63"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -14279,7 +14279,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~395"></span>
+              <span class="anchor" id="variable-n~235"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -14309,7 +14309,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~219"></span>
+              <span class="anchor" id="variable-x~211"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -14363,7 +14363,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~164"></span>
+              <span class="anchor" id="variable-uplo~116"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -14378,7 +14378,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~100"></span>
+              <span class="anchor" id="variable-trans~64"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -14408,7 +14408,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~396"></span>
+              <span class="anchor" id="variable-n~236"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -14438,7 +14438,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~220"></span>
+              <span class="anchor" id="variable-x~212"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -14507,7 +14507,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~165"></span>
+              <span class="anchor" id="variable-uplo~117"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -14522,7 +14522,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~101"></span>
+              <span class="anchor" id="variable-trans~65"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -14552,7 +14552,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~397"></span>
+              <span class="anchor" id="variable-n~237"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -14567,7 +14567,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~293"></span>
+              <span class="anchor" id="variable-a~133"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -14582,7 +14582,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~269"></span>
+              <span class="anchor" id="variable-lda~109"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -14597,7 +14597,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~221"></span>
+              <span class="anchor" id="variable-x~213"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -14651,7 +14651,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~166"></span>
+              <span class="anchor" id="variable-uplo~118"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -14666,7 +14666,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~102"></span>
+              <span class="anchor" id="variable-trans~66"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -14696,7 +14696,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~398"></span>
+              <span class="anchor" id="variable-n~238"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -14711,7 +14711,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~294"></span>
+              <span class="anchor" id="variable-a~134"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -14726,7 +14726,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~270"></span>
+              <span class="anchor" id="variable-lda~110"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -14741,7 +14741,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~222"></span>
+              <span class="anchor" id="variable-x~214"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -14795,7 +14795,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~167"></span>
+              <span class="anchor" id="variable-uplo~119"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -14810,7 +14810,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~103"></span>
+              <span class="anchor" id="variable-trans~67"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -14840,7 +14840,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~399"></span>
+              <span class="anchor" id="variable-n~239"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -14855,7 +14855,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~295"></span>
+              <span class="anchor" id="variable-a~135"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -14870,7 +14870,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~271"></span>
+              <span class="anchor" id="variable-lda~111"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -14885,7 +14885,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~223"></span>
+              <span class="anchor" id="variable-x~215"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -14939,7 +14939,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~168"></span>
+              <span class="anchor" id="variable-uplo~120"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -14954,7 +14954,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~104"></span>
+              <span class="anchor" id="variable-trans~68"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -14984,7 +14984,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~400"></span>
+              <span class="anchor" id="variable-n~240"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -14999,7 +14999,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~296"></span>
+              <span class="anchor" id="variable-a~136"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -15014,7 +15014,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~272"></span>
+              <span class="anchor" id="variable-lda~112"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15029,7 +15029,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~224"></span>
+              <span class="anchor" id="variable-x~216"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -15098,7 +15098,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~169"></span>
+              <span class="anchor" id="variable-uplo~121"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -15113,7 +15113,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~105"></span>
+              <span class="anchor" id="variable-trans~69"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -15143,7 +15143,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~401"></span>
+              <span class="anchor" id="variable-n~241"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15158,7 +15158,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~297"></span>
+              <span class="anchor" id="variable-a~137"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -15173,7 +15173,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~273"></span>
+              <span class="anchor" id="variable-lda~113"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15188,7 +15188,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~225"></span>
+              <span class="anchor" id="variable-x~217"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -15242,7 +15242,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~170"></span>
+              <span class="anchor" id="variable-uplo~122"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -15257,7 +15257,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~106"></span>
+              <span class="anchor" id="variable-trans~70"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -15287,7 +15287,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~402"></span>
+              <span class="anchor" id="variable-n~242"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15302,7 +15302,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~298"></span>
+              <span class="anchor" id="variable-a~138"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -15317,7 +15317,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~274"></span>
+              <span class="anchor" id="variable-lda~114"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15332,7 +15332,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~226"></span>
+              <span class="anchor" id="variable-x~218"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -15386,7 +15386,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~171"></span>
+              <span class="anchor" id="variable-uplo~123"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -15401,7 +15401,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~107"></span>
+              <span class="anchor" id="variable-trans~71"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -15431,7 +15431,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~403"></span>
+              <span class="anchor" id="variable-n~243"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15446,7 +15446,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~299"></span>
+              <span class="anchor" id="variable-a~139"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -15461,7 +15461,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~275"></span>
+              <span class="anchor" id="variable-lda~115"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15476,7 +15476,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~227"></span>
+              <span class="anchor" id="variable-x~219"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -15530,7 +15530,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~172"></span>
+              <span class="anchor" id="variable-uplo~124"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -15545,7 +15545,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~108"></span>
+              <span class="anchor" id="variable-trans~72"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -15575,7 +15575,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~404"></span>
+              <span class="anchor" id="variable-n~244"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15590,7 +15590,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~300"></span>
+              <span class="anchor" id="variable-a~140"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -15605,7 +15605,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~276"></span>
+              <span class="anchor" id="variable-lda~116"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15620,7 +15620,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~228"></span>
+              <span class="anchor" id="variable-x~220"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -15719,7 +15719,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~145"></span>
+              <span class="anchor" id="variable-m~45"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15734,7 +15734,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~405"></span>
+              <span class="anchor" id="variable-n~245"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15749,7 +15749,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~69"></span>
+              <span class="anchor" id="variable-k~37"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15779,7 +15779,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~301"></span>
+              <span class="anchor" id="variable-a~141"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -15794,7 +15794,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~277"></span>
+              <span class="anchor" id="variable-lda~117"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15809,7 +15809,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~77"></span>
+              <span class="anchor" id="variable-b~25"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -15824,7 +15824,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~73"></span>
+              <span class="anchor" id="variable-ldb~21"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15854,7 +15854,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~57"></span>
+              <span class="anchor" id="variable-c~33"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -15869,7 +15869,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~33"></span>
+              <span class="anchor" id="variable-ldc~17"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15938,7 +15938,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~146"></span>
+              <span class="anchor" id="variable-m~46"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15953,7 +15953,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~406"></span>
+              <span class="anchor" id="variable-n~246"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15968,7 +15968,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~70"></span>
+              <span class="anchor" id="variable-k~38"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15998,7 +15998,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~302"></span>
+              <span class="anchor" id="variable-a~142"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -16013,7 +16013,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~278"></span>
+              <span class="anchor" id="variable-lda~118"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16028,7 +16028,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~78"></span>
+              <span class="anchor" id="variable-b~26"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -16043,7 +16043,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~74"></span>
+              <span class="anchor" id="variable-ldb~22"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16073,7 +16073,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~58"></span>
+              <span class="anchor" id="variable-c~34"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -16088,7 +16088,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~34"></span>
+              <span class="anchor" id="variable-ldc~18"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16157,7 +16157,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~147"></span>
+              <span class="anchor" id="variable-m~47"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16172,7 +16172,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~407"></span>
+              <span class="anchor" id="variable-n~247"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16187,7 +16187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~71"></span>
+              <span class="anchor" id="variable-k~39"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16217,7 +16217,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~303"></span>
+              <span class="anchor" id="variable-a~143"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -16232,7 +16232,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~279"></span>
+              <span class="anchor" id="variable-lda~119"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16247,7 +16247,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~79"></span>
+              <span class="anchor" id="variable-b~27"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -16262,7 +16262,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~75"></span>
+              <span class="anchor" id="variable-ldb~23"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16292,7 +16292,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~59"></span>
+              <span class="anchor" id="variable-c~35"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -16307,7 +16307,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~35"></span>
+              <span class="anchor" id="variable-ldc~19"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16376,7 +16376,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~148"></span>
+              <span class="anchor" id="variable-m~48"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16391,7 +16391,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~408"></span>
+              <span class="anchor" id="variable-n~248"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16406,7 +16406,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~72"></span>
+              <span class="anchor" id="variable-k~40"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16436,7 +16436,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~304"></span>
+              <span class="anchor" id="variable-a~144"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -16451,7 +16451,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~280"></span>
+              <span class="anchor" id="variable-lda~120"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16466,7 +16466,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~80"></span>
+              <span class="anchor" id="variable-b~28"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -16481,7 +16481,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~76"></span>
+              <span class="anchor" id="variable-ldb~24"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16511,7 +16511,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~60"></span>
+              <span class="anchor" id="variable-c~36"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -16526,7 +16526,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~36"></span>
+              <span class="anchor" id="variable-ldc~20"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16580,7 +16580,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~29"></span>
+              <span class="anchor" id="variable-side~13"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -16595,7 +16595,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~173"></span>
+              <span class="anchor" id="variable-uplo~125"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -16610,7 +16610,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~149"></span>
+              <span class="anchor" id="variable-m~49"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16625,7 +16625,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~409"></span>
+              <span class="anchor" id="variable-n~249"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16655,7 +16655,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~305"></span>
+              <span class="anchor" id="variable-a~145"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -16670,7 +16670,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~281"></span>
+              <span class="anchor" id="variable-lda~121"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16685,7 +16685,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~81"></span>
+              <span class="anchor" id="variable-b~29"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -16700,7 +16700,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~77"></span>
+              <span class="anchor" id="variable-ldb~25"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16730,7 +16730,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~61"></span>
+              <span class="anchor" id="variable-c~37"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -16745,7 +16745,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~37"></span>
+              <span class="anchor" id="variable-ldc~21"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16784,7 +16784,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~30"></span>
+              <span class="anchor" id="variable-side~14"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -16799,7 +16799,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~174"></span>
+              <span class="anchor" id="variable-uplo~126"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -16814,7 +16814,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~150"></span>
+              <span class="anchor" id="variable-m~50"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16829,7 +16829,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~410"></span>
+              <span class="anchor" id="variable-n~250"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16859,7 +16859,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~306"></span>
+              <span class="anchor" id="variable-a~146"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -16874,7 +16874,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~282"></span>
+              <span class="anchor" id="variable-lda~122"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16889,7 +16889,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~82"></span>
+              <span class="anchor" id="variable-b~30"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -16904,7 +16904,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~78"></span>
+              <span class="anchor" id="variable-ldb~26"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16934,7 +16934,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~62"></span>
+              <span class="anchor" id="variable-c~38"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -16949,7 +16949,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~38"></span>
+              <span class="anchor" id="variable-ldc~22"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17003,7 +17003,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~175"></span>
+              <span class="anchor" id="variable-uplo~127"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -17018,7 +17018,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~109"></span>
+              <span class="anchor" id="variable-trans~73"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -17033,7 +17033,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~411"></span>
+              <span class="anchor" id="variable-n~251"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17048,7 +17048,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~73"></span>
+              <span class="anchor" id="variable-k~41"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17078,7 +17078,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~307"></span>
+              <span class="anchor" id="variable-a~147"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -17093,7 +17093,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~283"></span>
+              <span class="anchor" id="variable-lda~123"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17123,7 +17123,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~63"></span>
+              <span class="anchor" id="variable-c~39"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -17138,7 +17138,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~39"></span>
+              <span class="anchor" id="variable-ldc~23"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17177,7 +17177,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~176"></span>
+              <span class="anchor" id="variable-uplo~128"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -17192,7 +17192,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~110"></span>
+              <span class="anchor" id="variable-trans~74"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -17207,7 +17207,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~412"></span>
+              <span class="anchor" id="variable-n~252"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17222,7 +17222,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~74"></span>
+              <span class="anchor" id="variable-k~42"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17252,7 +17252,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~308"></span>
+              <span class="anchor" id="variable-a~148"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -17267,7 +17267,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~284"></span>
+              <span class="anchor" id="variable-lda~124"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17297,7 +17297,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~64"></span>
+              <span class="anchor" id="variable-c~40"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -17312,7 +17312,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~40"></span>
+              <span class="anchor" id="variable-ldc~24"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17366,7 +17366,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~177"></span>
+              <span class="anchor" id="variable-uplo~129"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -17381,7 +17381,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~111"></span>
+              <span class="anchor" id="variable-trans~75"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -17396,7 +17396,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~413"></span>
+              <span class="anchor" id="variable-n~253"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17411,7 +17411,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~75"></span>
+              <span class="anchor" id="variable-k~43"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17441,7 +17441,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~309"></span>
+              <span class="anchor" id="variable-a~149"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -17456,7 +17456,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~285"></span>
+              <span class="anchor" id="variable-lda~125"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17471,7 +17471,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~83"></span>
+              <span class="anchor" id="variable-b~31"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -17486,7 +17486,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~79"></span>
+              <span class="anchor" id="variable-ldb~27"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17516,7 +17516,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~65"></span>
+              <span class="anchor" id="variable-c~41"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -17531,7 +17531,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~41"></span>
+              <span class="anchor" id="variable-ldc~25"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17570,7 +17570,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~178"></span>
+              <span class="anchor" id="variable-uplo~130"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -17585,7 +17585,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~112"></span>
+              <span class="anchor" id="variable-trans~76"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -17600,7 +17600,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~414"></span>
+              <span class="anchor" id="variable-n~254"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17615,7 +17615,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~76"></span>
+              <span class="anchor" id="variable-k~44"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17645,7 +17645,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~310"></span>
+              <span class="anchor" id="variable-a~150"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -17660,7 +17660,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~286"></span>
+              <span class="anchor" id="variable-lda~126"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17675,7 +17675,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~84"></span>
+              <span class="anchor" id="variable-b~32"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -17690,7 +17690,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~80"></span>
+              <span class="anchor" id="variable-ldb~28"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17720,7 +17720,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~66"></span>
+              <span class="anchor" id="variable-c~42"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -17735,7 +17735,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~42"></span>
+              <span class="anchor" id="variable-ldc~26"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17789,7 +17789,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~31"></span>
+              <span class="anchor" id="variable-side~15"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -17804,7 +17804,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~179"></span>
+              <span class="anchor" id="variable-uplo~131"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -17819,7 +17819,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~151"></span>
+              <span class="anchor" id="variable-m~51"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17834,7 +17834,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~415"></span>
+              <span class="anchor" id="variable-n~255"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17864,7 +17864,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~311"></span>
+              <span class="anchor" id="variable-a~151"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -17879,7 +17879,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~287"></span>
+              <span class="anchor" id="variable-lda~127"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17894,7 +17894,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~85"></span>
+              <span class="anchor" id="variable-b~33"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -17909,7 +17909,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~81"></span>
+              <span class="anchor" id="variable-ldb~29"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17939,7 +17939,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~67"></span>
+              <span class="anchor" id="variable-c~43"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -17954,7 +17954,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~43"></span>
+              <span class="anchor" id="variable-ldc~27"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17993,7 +17993,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~32"></span>
+              <span class="anchor" id="variable-side~16"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -18008,7 +18008,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~180"></span>
+              <span class="anchor" id="variable-uplo~132"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -18023,7 +18023,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~152"></span>
+              <span class="anchor" id="variable-m~52"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18038,7 +18038,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~416"></span>
+              <span class="anchor" id="variable-n~256"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18068,7 +18068,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~312"></span>
+              <span class="anchor" id="variable-a~152"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -18083,7 +18083,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~288"></span>
+              <span class="anchor" id="variable-lda~128"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18098,7 +18098,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~86"></span>
+              <span class="anchor" id="variable-b~34"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -18113,7 +18113,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~82"></span>
+              <span class="anchor" id="variable-ldb~30"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18143,7 +18143,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~68"></span>
+              <span class="anchor" id="variable-c~44"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -18158,7 +18158,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~44"></span>
+              <span class="anchor" id="variable-ldc~28"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18212,7 +18212,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~181"></span>
+              <span class="anchor" id="variable-uplo~133"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -18227,7 +18227,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~113"></span>
+              <span class="anchor" id="variable-trans~77"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -18242,7 +18242,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~417"></span>
+              <span class="anchor" id="variable-n~257"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18257,7 +18257,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~77"></span>
+              <span class="anchor" id="variable-k~45"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18287,7 +18287,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~313"></span>
+              <span class="anchor" id="variable-a~153"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -18302,7 +18302,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~289"></span>
+              <span class="anchor" id="variable-lda~129"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18332,7 +18332,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~69"></span>
+              <span class="anchor" id="variable-c~45"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -18347,7 +18347,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~45"></span>
+              <span class="anchor" id="variable-ldc~29"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18386,7 +18386,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~182"></span>
+              <span class="anchor" id="variable-uplo~134"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -18401,7 +18401,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~114"></span>
+              <span class="anchor" id="variable-trans~78"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -18416,7 +18416,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~418"></span>
+              <span class="anchor" id="variable-n~258"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18431,7 +18431,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~78"></span>
+              <span class="anchor" id="variable-k~46"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18461,7 +18461,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~314"></span>
+              <span class="anchor" id="variable-a~154"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -18476,7 +18476,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~290"></span>
+              <span class="anchor" id="variable-lda~130"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18506,7 +18506,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~70"></span>
+              <span class="anchor" id="variable-c~46"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -18521,7 +18521,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~46"></span>
+              <span class="anchor" id="variable-ldc~30"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18575,7 +18575,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~183"></span>
+              <span class="anchor" id="variable-uplo~135"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -18590,7 +18590,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~115"></span>
+              <span class="anchor" id="variable-trans~79"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -18605,7 +18605,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~419"></span>
+              <span class="anchor" id="variable-n~259"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18620,7 +18620,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~79"></span>
+              <span class="anchor" id="variable-k~47"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18650,7 +18650,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~315"></span>
+              <span class="anchor" id="variable-a~155"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -18665,7 +18665,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~291"></span>
+              <span class="anchor" id="variable-lda~131"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18680,7 +18680,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~87"></span>
+              <span class="anchor" id="variable-b~35"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -18695,7 +18695,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~83"></span>
+              <span class="anchor" id="variable-ldb~31"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18725,7 +18725,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~71"></span>
+              <span class="anchor" id="variable-c~47"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -18740,7 +18740,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~47"></span>
+              <span class="anchor" id="variable-ldc~31"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18779,7 +18779,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~184"></span>
+              <span class="anchor" id="variable-uplo~136"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -18794,7 +18794,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~116"></span>
+              <span class="anchor" id="variable-trans~80"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -18809,7 +18809,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~420"></span>
+              <span class="anchor" id="variable-n~260"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18824,7 +18824,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~80"></span>
+              <span class="anchor" id="variable-k~48"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18854,7 +18854,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~316"></span>
+              <span class="anchor" id="variable-a~156"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -18869,7 +18869,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~292"></span>
+              <span class="anchor" id="variable-lda~132"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18884,7 +18884,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~88"></span>
+              <span class="anchor" id="variable-b~36"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -18899,7 +18899,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~84"></span>
+              <span class="anchor" id="variable-ldb~32"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18929,7 +18929,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~72"></span>
+              <span class="anchor" id="variable-c~48"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -18944,7 +18944,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~48"></span>
+              <span class="anchor" id="variable-ldc~32"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18998,7 +18998,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~33"></span>
+              <span class="anchor" id="variable-side~17"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -19013,7 +19013,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~185"></span>
+              <span class="anchor" id="variable-uplo~137"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -19058,7 +19058,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~153"></span>
+              <span class="anchor" id="variable-m~53"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19073,7 +19073,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~421"></span>
+              <span class="anchor" id="variable-n~261"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19103,7 +19103,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~317"></span>
+              <span class="anchor" id="variable-a~157"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -19118,7 +19118,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~293"></span>
+              <span class="anchor" id="variable-lda~133"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19133,7 +19133,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~89"></span>
+              <span class="anchor" id="variable-b~37"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -19148,7 +19148,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~85"></span>
+              <span class="anchor" id="variable-ldb~33"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19187,7 +19187,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~34"></span>
+              <span class="anchor" id="variable-side~18"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -19202,7 +19202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~186"></span>
+              <span class="anchor" id="variable-uplo~138"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -19247,7 +19247,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~154"></span>
+              <span class="anchor" id="variable-m~54"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19262,7 +19262,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~422"></span>
+              <span class="anchor" id="variable-n~262"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19292,7 +19292,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~318"></span>
+              <span class="anchor" id="variable-a~158"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -19307,7 +19307,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~294"></span>
+              <span class="anchor" id="variable-lda~134"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19322,7 +19322,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~90"></span>
+              <span class="anchor" id="variable-b~38"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -19337,7 +19337,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~86"></span>
+              <span class="anchor" id="variable-ldb~34"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19376,7 +19376,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~35"></span>
+              <span class="anchor" id="variable-side~19"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -19391,7 +19391,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~187"></span>
+              <span class="anchor" id="variable-uplo~139"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -19436,7 +19436,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~155"></span>
+              <span class="anchor" id="variable-m~55"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19451,7 +19451,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~423"></span>
+              <span class="anchor" id="variable-n~263"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19481,7 +19481,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~319"></span>
+              <span class="anchor" id="variable-a~159"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -19496,7 +19496,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~295"></span>
+              <span class="anchor" id="variable-lda~135"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19511,7 +19511,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~91"></span>
+              <span class="anchor" id="variable-b~39"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -19526,7 +19526,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~87"></span>
+              <span class="anchor" id="variable-ldb~35"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19565,7 +19565,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~36"></span>
+              <span class="anchor" id="variable-side~20"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -19580,7 +19580,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~188"></span>
+              <span class="anchor" id="variable-uplo~140"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -19625,7 +19625,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~156"></span>
+              <span class="anchor" id="variable-m~56"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19640,7 +19640,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~424"></span>
+              <span class="anchor" id="variable-n~264"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19670,7 +19670,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~320"></span>
+              <span class="anchor" id="variable-a~160"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -19685,7 +19685,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~296"></span>
+              <span class="anchor" id="variable-lda~136"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19700,7 +19700,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~92"></span>
+              <span class="anchor" id="variable-b~40"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -19715,7 +19715,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~88"></span>
+              <span class="anchor" id="variable-ldb~36"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19769,7 +19769,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~37"></span>
+              <span class="anchor" id="variable-side~21"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -19784,7 +19784,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~189"></span>
+              <span class="anchor" id="variable-uplo~141"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -19829,7 +19829,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~157"></span>
+              <span class="anchor" id="variable-m~57"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19844,7 +19844,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~425"></span>
+              <span class="anchor" id="variable-n~265"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19874,7 +19874,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~321"></span>
+              <span class="anchor" id="variable-a~161"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -19889,7 +19889,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~297"></span>
+              <span class="anchor" id="variable-lda~137"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19904,7 +19904,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~93"></span>
+              <span class="anchor" id="variable-b~41"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -19919,7 +19919,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~89"></span>
+              <span class="anchor" id="variable-ldb~37"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19958,7 +19958,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~38"></span>
+              <span class="anchor" id="variable-side~22"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -19973,7 +19973,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~190"></span>
+              <span class="anchor" id="variable-uplo~142"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -20018,7 +20018,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~158"></span>
+              <span class="anchor" id="variable-m~58"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20033,7 +20033,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~426"></span>
+              <span class="anchor" id="variable-n~266"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20063,7 +20063,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~322"></span>
+              <span class="anchor" id="variable-a~162"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -20078,7 +20078,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~298"></span>
+              <span class="anchor" id="variable-lda~138"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20093,7 +20093,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~94"></span>
+              <span class="anchor" id="variable-b~42"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -20108,7 +20108,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~90"></span>
+              <span class="anchor" id="variable-ldb~38"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20147,7 +20147,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~39"></span>
+              <span class="anchor" id="variable-side~23"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -20162,7 +20162,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~191"></span>
+              <span class="anchor" id="variable-uplo~143"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -20207,7 +20207,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~159"></span>
+              <span class="anchor" id="variable-m~59"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20222,7 +20222,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~427"></span>
+              <span class="anchor" id="variable-n~267"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20252,7 +20252,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~323"></span>
+              <span class="anchor" id="variable-a~163"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -20267,7 +20267,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~299"></span>
+              <span class="anchor" id="variable-lda~139"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20282,7 +20282,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~95"></span>
+              <span class="anchor" id="variable-b~43"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -20297,7 +20297,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~91"></span>
+              <span class="anchor" id="variable-ldb~39"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20336,7 +20336,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~40"></span>
+              <span class="anchor" id="variable-side~24"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -20351,7 +20351,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~192"></span>
+              <span class="anchor" id="variable-uplo~144"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -20396,7 +20396,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~160"></span>
+              <span class="anchor" id="variable-m~60"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20411,7 +20411,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~428"></span>
+              <span class="anchor" id="variable-n~268"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20441,7 +20441,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~324"></span>
+              <span class="anchor" id="variable-a~164"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -20456,7 +20456,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~300"></span>
+              <span class="anchor" id="variable-lda~140"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20471,7 +20471,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~96"></span>
+              <span class="anchor" id="variable-b~44"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -20486,7 +20486,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~92"></span>
+              <span class="anchor" id="variable-ldb~40"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20651,7 +20651,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~429"></span>
+              <span class="anchor" id="variable-n~269"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20784,7 +20784,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~430"></span>
+              <span class="anchor" id="variable-n~270"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20898,7 +20898,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~431"></span>
+              <span class="anchor" id="variable-n~271"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20913,7 +20913,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~229"></span>
+              <span class="anchor" id="variable-x~221"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -20972,7 +20972,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~432"></span>
+              <span class="anchor" id="variable-n~272"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20987,7 +20987,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~230"></span>
+              <span class="anchor" id="variable-x~222"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -21046,7 +21046,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~433"></span>
+              <span class="anchor" id="variable-n~273"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21061,7 +21061,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~231"></span>
+              <span class="anchor" id="variable-x~223"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -21120,7 +21120,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~434"></span>
+              <span class="anchor" id="variable-n~274"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21135,7 +21135,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~232"></span>
+              <span class="anchor" id="variable-x~224"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -21204,7 +21204,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~435"></span>
+              <span class="anchor" id="variable-n~275"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21219,7 +21219,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~233"></span>
+              <span class="anchor" id="variable-x~225"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -21278,7 +21278,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~436"></span>
+              <span class="anchor" id="variable-n~276"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21293,7 +21293,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~234"></span>
+              <span class="anchor" id="variable-x~226"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -21352,7 +21352,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~437"></span>
+              <span class="anchor" id="variable-n~277"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21367,7 +21367,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~235"></span>
+              <span class="anchor" id="variable-x~227"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -21426,7 +21426,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~438"></span>
+              <span class="anchor" id="variable-n~278"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21441,7 +21441,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~236"></span>
+              <span class="anchor" id="variable-x~228"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -21509,7 +21509,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~431"></span>
+              <span class="anchor" id="variable-n~271"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21524,7 +21524,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~229"></span>
+              <span class="anchor" id="variable-x~221"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -21584,7 +21584,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~432"></span>
+              <span class="anchor" id="variable-n~272"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21599,7 +21599,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~230"></span>
+              <span class="anchor" id="variable-x~222"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -21659,7 +21659,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~433"></span>
+              <span class="anchor" id="variable-n~273"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21674,7 +21674,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~231"></span>
+              <span class="anchor" id="variable-x~223"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -21734,7 +21734,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~434"></span>
+              <span class="anchor" id="variable-n~274"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21749,7 +21749,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~232"></span>
+              <span class="anchor" id="variable-x~224"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -21809,7 +21809,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~435"></span>
+              <span class="anchor" id="variable-n~275"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21824,7 +21824,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~233"></span>
+              <span class="anchor" id="variable-x~225"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -21884,7 +21884,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~436"></span>
+              <span class="anchor" id="variable-n~276"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21899,7 +21899,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~234"></span>
+              <span class="anchor" id="variable-x~226"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -21959,7 +21959,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~437"></span>
+              <span class="anchor" id="variable-n~277"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21974,7 +21974,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~235"></span>
+              <span class="anchor" id="variable-x~227"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -22034,7 +22034,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~438"></span>
+              <span class="anchor" id="variable-n~278"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -22049,7 +22049,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~236"></span>
+              <span class="anchor" id="variable-x~228"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/module/f77_lapack.html b/module/f77_lapack.html
index c6569dfb..26734087 100644
--- a/module/f77_lapack.html
+++ b/module/f77_lapack.html
@@ -235,7 +235,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~17"></span>
+              <span class="anchor" id="variable-m~77"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -250,7 +250,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~47"></span>
+              <span class="anchor" id="variable-n~325"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -265,7 +265,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~47"></span>
+              <span class="anchor" id="variable-a~211"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -280,7 +280,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~47"></span>
+              <span class="anchor" id="variable-lda~187"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -379,7 +379,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~18"></span>
+              <span class="anchor" id="variable-m~78"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -394,7 +394,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~48"></span>
+              <span class="anchor" id="variable-n~326"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -409,7 +409,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~48"></span>
+              <span class="anchor" id="variable-a~212"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -424,7 +424,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~48"></span>
+              <span class="anchor" id="variable-lda~188"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -523,7 +523,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~19"></span>
+              <span class="anchor" id="variable-m~79"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -538,7 +538,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~49"></span>
+              <span class="anchor" id="variable-n~327"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -553,7 +553,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~49"></span>
+              <span class="anchor" id="variable-a~213"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -568,7 +568,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~49"></span>
+              <span class="anchor" id="variable-lda~189"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -667,7 +667,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~20"></span>
+              <span class="anchor" id="variable-m~80"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -682,7 +682,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~50"></span>
+              <span class="anchor" id="variable-n~328"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -697,7 +697,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~50"></span>
+              <span class="anchor" id="variable-a~214"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -712,7 +712,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~50"></span>
+              <span class="anchor" id="variable-lda~190"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -826,7 +826,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~21"></span>
+              <span class="anchor" id="variable-m~81"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -841,7 +841,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~51"></span>
+              <span class="anchor" id="variable-n~329"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -856,7 +856,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~51"></span>
+              <span class="anchor" id="variable-a~215"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -871,7 +871,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~51"></span>
+              <span class="anchor" id="variable-lda~191"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -970,7 +970,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~22"></span>
+              <span class="anchor" id="variable-m~82"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -985,7 +985,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~52"></span>
+              <span class="anchor" id="variable-n~330"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1000,7 +1000,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~52"></span>
+              <span class="anchor" id="variable-a~216"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -1015,7 +1015,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~52"></span>
+              <span class="anchor" id="variable-lda~192"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1114,7 +1114,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~23"></span>
+              <span class="anchor" id="variable-m~83"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1129,7 +1129,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~53"></span>
+              <span class="anchor" id="variable-n~331"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1144,7 +1144,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~53"></span>
+              <span class="anchor" id="variable-a~217"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -1159,7 +1159,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~53"></span>
+              <span class="anchor" id="variable-lda~193"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1258,7 +1258,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~24"></span>
+              <span class="anchor" id="variable-m~84"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1273,7 +1273,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~54"></span>
+              <span class="anchor" id="variable-n~332"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1288,7 +1288,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~54"></span>
+              <span class="anchor" id="variable-a~218"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -1303,7 +1303,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~54"></span>
+              <span class="anchor" id="variable-lda~194"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1417,7 +1417,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~25"></span>
+              <span class="anchor" id="variable-m~85"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1432,7 +1432,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~55"></span>
+              <span class="anchor" id="variable-n~333"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1447,7 +1447,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~55"></span>
+              <span class="anchor" id="variable-a~219"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -1462,7 +1462,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~55"></span>
+              <span class="anchor" id="variable-lda~195"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1531,7 +1531,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~26"></span>
+              <span class="anchor" id="variable-m~86"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1546,7 +1546,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~56"></span>
+              <span class="anchor" id="variable-n~334"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1561,7 +1561,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~56"></span>
+              <span class="anchor" id="variable-a~220"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -1576,7 +1576,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~56"></span>
+              <span class="anchor" id="variable-lda~196"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1645,7 +1645,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~27"></span>
+              <span class="anchor" id="variable-m~87"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1660,7 +1660,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~57"></span>
+              <span class="anchor" id="variable-n~335"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1675,7 +1675,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~57"></span>
+              <span class="anchor" id="variable-a~221"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -1690,7 +1690,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~57"></span>
+              <span class="anchor" id="variable-lda~197"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1759,7 +1759,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~28"></span>
+              <span class="anchor" id="variable-m~88"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1774,7 +1774,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~58"></span>
+              <span class="anchor" id="variable-n~336"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1789,7 +1789,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~58"></span>
+              <span class="anchor" id="variable-a~222"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -1804,7 +1804,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~58"></span>
+              <span class="anchor" id="variable-lda~198"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1888,7 +1888,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~59"></span>
+              <span class="anchor" id="variable-n~337"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -1903,7 +1903,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~59"></span>
+              <span class="anchor" id="variable-a~223"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -1918,7 +1918,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~59"></span>
+              <span class="anchor" id="variable-lda~199"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2017,7 +2017,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~60"></span>
+              <span class="anchor" id="variable-n~338"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2032,7 +2032,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~60"></span>
+              <span class="anchor" id="variable-a~224"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -2047,7 +2047,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~60"></span>
+              <span class="anchor" id="variable-lda~200"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2146,7 +2146,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~61"></span>
+              <span class="anchor" id="variable-n~339"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2161,7 +2161,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~61"></span>
+              <span class="anchor" id="variable-a~225"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -2176,7 +2176,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~61"></span>
+              <span class="anchor" id="variable-lda~201"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2275,7 +2275,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~62"></span>
+              <span class="anchor" id="variable-n~340"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2290,7 +2290,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~62"></span>
+              <span class="anchor" id="variable-a~226"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -2305,7 +2305,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~62"></span>
+              <span class="anchor" id="variable-lda~202"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2419,7 +2419,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~5"></span>
+              <span class="anchor" id="variable-trans~85"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -2434,7 +2434,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~63"></span>
+              <span class="anchor" id="variable-n~341"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2464,7 +2464,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~63"></span>
+              <span class="anchor" id="variable-a~227"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -2479,7 +2479,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~63"></span>
+              <span class="anchor" id="variable-lda~203"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2509,7 +2509,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~11"></span>
+              <span class="anchor" id="variable-b~55"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -2524,7 +2524,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~11"></span>
+              <span class="anchor" id="variable-ldb~51"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2578,7 +2578,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~6"></span>
+              <span class="anchor" id="variable-trans~86"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -2593,7 +2593,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~64"></span>
+              <span class="anchor" id="variable-n~342"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2623,7 +2623,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~64"></span>
+              <span class="anchor" id="variable-a~228"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -2638,7 +2638,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~64"></span>
+              <span class="anchor" id="variable-lda~204"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2668,7 +2668,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~12"></span>
+              <span class="anchor" id="variable-b~56"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -2683,7 +2683,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~12"></span>
+              <span class="anchor" id="variable-ldb~52"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2737,7 +2737,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~7"></span>
+              <span class="anchor" id="variable-trans~87"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -2752,7 +2752,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~65"></span>
+              <span class="anchor" id="variable-n~343"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2782,7 +2782,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~65"></span>
+              <span class="anchor" id="variable-a~229"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -2797,7 +2797,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~65"></span>
+              <span class="anchor" id="variable-lda~205"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2827,7 +2827,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~13"></span>
+              <span class="anchor" id="variable-b~57"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -2842,7 +2842,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~13"></span>
+              <span class="anchor" id="variable-ldb~53"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2896,7 +2896,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~8"></span>
+              <span class="anchor" id="variable-trans~88"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -2911,7 +2911,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~66"></span>
+              <span class="anchor" id="variable-n~344"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2941,7 +2941,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~66"></span>
+              <span class="anchor" id="variable-a~230"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -2956,7 +2956,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~66"></span>
+              <span class="anchor" id="variable-lda~206"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -2986,7 +2986,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~14"></span>
+              <span class="anchor" id="variable-b~58"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -3001,7 +3001,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~14"></span>
+              <span class="anchor" id="variable-ldb~54"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -3070,7 +3070,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~23"></span>
+              <span class="anchor" id="variable-uplo~167"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -3085,7 +3085,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~67"></span>
+              <span class="anchor" id="variable-n~345"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -3100,7 +3100,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~67"></span>
+              <span class="anchor" id="variable-a~231"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -3115,7 +3115,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~67"></span>
+              <span class="anchor" id="variable-lda~207"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -3214,7 +3214,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~24"></span>
+              <span class="anchor" id="variable-uplo~168"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -3229,7 +3229,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~68"></span>
+              <span class="anchor" id="variable-n~346"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -3244,7 +3244,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~68"></span>
+              <span class="anchor" id="variable-a~232"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -3259,7 +3259,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~68"></span>
+              <span class="anchor" id="variable-lda~208"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -3403,7 +3403,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~25"></span>
+              <span class="anchor" id="variable-uplo~169"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -3418,7 +3418,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~69"></span>
+              <span class="anchor" id="variable-n~347"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -3433,7 +3433,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~69"></span>
+              <span class="anchor" id="variable-a~233"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -3448,7 +3448,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~69"></span>
+              <span class="anchor" id="variable-lda~209"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -3463,7 +3463,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~15"></span>
+              <span class="anchor" id="variable-b~59"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -3478,7 +3478,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~15"></span>
+              <span class="anchor" id="variable-ldb~55"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -3622,7 +3622,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~26"></span>
+              <span class="anchor" id="variable-uplo~170"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -3637,7 +3637,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~70"></span>
+              <span class="anchor" id="variable-n~348"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -3652,7 +3652,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~70"></span>
+              <span class="anchor" id="variable-a~234"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -3667,7 +3667,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~70"></span>
+              <span class="anchor" id="variable-lda~210"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -3682,7 +3682,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~16"></span>
+              <span class="anchor" id="variable-b~60"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -3697,7 +3697,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~16"></span>
+              <span class="anchor" id="variable-ldb~56"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -3841,7 +3841,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~27"></span>
+              <span class="anchor" id="variable-uplo~171"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -3856,7 +3856,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~71"></span>
+              <span class="anchor" id="variable-n~349"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -3871,7 +3871,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~71"></span>
+              <span class="anchor" id="variable-a~235"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -3886,7 +3886,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~71"></span>
+              <span class="anchor" id="variable-lda~211"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -4060,7 +4060,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~28"></span>
+              <span class="anchor" id="variable-uplo~172"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -4075,7 +4075,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~72"></span>
+              <span class="anchor" id="variable-n~350"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -4090,7 +4090,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~72"></span>
+              <span class="anchor" id="variable-a~236"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -4105,7 +4105,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~72"></span>
+              <span class="anchor" id="variable-lda~212"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -4309,7 +4309,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~29"></span>
+              <span class="anchor" id="variable-m~89"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -4324,7 +4324,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~73"></span>
+              <span class="anchor" id="variable-n~351"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -4339,7 +4339,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~73"></span>
+              <span class="anchor" id="variable-a~237"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -4354,7 +4354,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~73"></span>
+              <span class="anchor" id="variable-lda~213"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -4369,7 +4369,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~5"></span>
+              <span class="anchor" id="variable-s~21"></span>
               real(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -4543,7 +4543,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~30"></span>
+              <span class="anchor" id="variable-m~90"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -4558,7 +4558,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~74"></span>
+              <span class="anchor" id="variable-n~352"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -4573,7 +4573,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~74"></span>
+              <span class="anchor" id="variable-a~238"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -4588,7 +4588,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~74"></span>
+              <span class="anchor" id="variable-lda~214"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -4603,7 +4603,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~6"></span>
+              <span class="anchor" id="variable-s~22"></span>
               real(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -4777,7 +4777,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~31"></span>
+              <span class="anchor" id="variable-m~91"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -4792,7 +4792,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~75"></span>
+              <span class="anchor" id="variable-n~353"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -4807,7 +4807,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~75"></span>
+              <span class="anchor" id="variable-a~239"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -4822,7 +4822,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~75"></span>
+              <span class="anchor" id="variable-lda~215"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -4837,7 +4837,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~7"></span>
+              <span class="anchor" id="variable-s~23"></span>
               real(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -5026,7 +5026,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~32"></span>
+              <span class="anchor" id="variable-m~92"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5041,7 +5041,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~76"></span>
+              <span class="anchor" id="variable-n~354"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5056,7 +5056,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~76"></span>
+              <span class="anchor" id="variable-a~240"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -5071,7 +5071,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~76"></span>
+              <span class="anchor" id="variable-lda~216"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5086,7 +5086,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~8"></span>
+              <span class="anchor" id="variable-s~24"></span>
               real(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -5260,7 +5260,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~29"></span>
+              <span class="anchor" id="variable-uplo~173"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -5275,7 +5275,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~77"></span>
+              <span class="anchor" id="variable-n~355"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5290,7 +5290,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~77"></span>
+              <span class="anchor" id="variable-a~241"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -5305,7 +5305,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~77"></span>
+              <span class="anchor" id="variable-lda~217"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5359,7 +5359,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~30"></span>
+              <span class="anchor" id="variable-uplo~174"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -5374,7 +5374,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~78"></span>
+              <span class="anchor" id="variable-n~356"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5389,7 +5389,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~78"></span>
+              <span class="anchor" id="variable-a~242"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -5404,7 +5404,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~78"></span>
+              <span class="anchor" id="variable-lda~218"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5458,7 +5458,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~31"></span>
+              <span class="anchor" id="variable-uplo~175"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -5473,7 +5473,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~79"></span>
+              <span class="anchor" id="variable-n~357"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5488,7 +5488,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~79"></span>
+              <span class="anchor" id="variable-a~243"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -5503,7 +5503,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~79"></span>
+              <span class="anchor" id="variable-lda~219"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5557,7 +5557,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~32"></span>
+              <span class="anchor" id="variable-uplo~176"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -5572,7 +5572,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~80"></span>
+              <span class="anchor" id="variable-n~358"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5587,7 +5587,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~80"></span>
+              <span class="anchor" id="variable-a~244"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -5602,7 +5602,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~80"></span>
+              <span class="anchor" id="variable-lda~220"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5671,7 +5671,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~33"></span>
+              <span class="anchor" id="variable-uplo~177"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -5686,7 +5686,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~81"></span>
+              <span class="anchor" id="variable-n~359"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5701,7 +5701,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~81"></span>
+              <span class="anchor" id="variable-a~245"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -5716,7 +5716,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~81"></span>
+              <span class="anchor" id="variable-lda~221"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5770,7 +5770,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~34"></span>
+              <span class="anchor" id="variable-uplo~178"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -5785,7 +5785,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~82"></span>
+              <span class="anchor" id="variable-n~360"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5800,7 +5800,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~82"></span>
+              <span class="anchor" id="variable-a~246"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -5815,7 +5815,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~82"></span>
+              <span class="anchor" id="variable-lda~222"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5869,7 +5869,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~35"></span>
+              <span class="anchor" id="variable-uplo~179"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -5884,7 +5884,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~83"></span>
+              <span class="anchor" id="variable-n~361"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5899,7 +5899,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~83"></span>
+              <span class="anchor" id="variable-a~247"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -5914,7 +5914,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~83"></span>
+              <span class="anchor" id="variable-lda~223"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5968,7 +5968,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~36"></span>
+              <span class="anchor" id="variable-uplo~180"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -5983,7 +5983,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~84"></span>
+              <span class="anchor" id="variable-n~362"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -5998,7 +5998,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~84"></span>
+              <span class="anchor" id="variable-a~248"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -6013,7 +6013,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~84"></span>
+              <span class="anchor" id="variable-lda~224"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6082,7 +6082,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~37"></span>
+              <span class="anchor" id="variable-uplo~181"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -6097,7 +6097,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~85"></span>
+              <span class="anchor" id="variable-n~363"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6127,7 +6127,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~85"></span>
+              <span class="anchor" id="variable-a~249"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -6142,7 +6142,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~85"></span>
+              <span class="anchor" id="variable-lda~225"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6157,7 +6157,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~17"></span>
+              <span class="anchor" id="variable-b~61"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -6172,7 +6172,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~17"></span>
+              <span class="anchor" id="variable-ldb~57"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6226,7 +6226,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~38"></span>
+              <span class="anchor" id="variable-uplo~182"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -6241,7 +6241,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~86"></span>
+              <span class="anchor" id="variable-n~364"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6271,7 +6271,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~86"></span>
+              <span class="anchor" id="variable-a~250"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -6286,7 +6286,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~86"></span>
+              <span class="anchor" id="variable-lda~226"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6301,7 +6301,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~18"></span>
+              <span class="anchor" id="variable-b~62"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -6316,7 +6316,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~18"></span>
+              <span class="anchor" id="variable-ldb~58"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6370,7 +6370,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~39"></span>
+              <span class="anchor" id="variable-uplo~183"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -6385,7 +6385,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~87"></span>
+              <span class="anchor" id="variable-n~365"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6415,7 +6415,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~87"></span>
+              <span class="anchor" id="variable-a~251"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -6430,7 +6430,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~87"></span>
+              <span class="anchor" id="variable-lda~227"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6445,7 +6445,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~19"></span>
+              <span class="anchor" id="variable-b~63"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -6460,7 +6460,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~19"></span>
+              <span class="anchor" id="variable-ldb~59"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6514,7 +6514,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~40"></span>
+              <span class="anchor" id="variable-uplo~184"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -6529,7 +6529,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~88"></span>
+              <span class="anchor" id="variable-n~366"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6559,7 +6559,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~88"></span>
+              <span class="anchor" id="variable-a~252"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -6574,7 +6574,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~88"></span>
+              <span class="anchor" id="variable-lda~228"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6589,7 +6589,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~20"></span>
+              <span class="anchor" id="variable-b~64"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -6604,7 +6604,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~20"></span>
+              <span class="anchor" id="variable-ldb~60"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6661,7 +6661,7 @@ <h3>
 See also: <a href="../interface/mfi_pocon.html">mfi_pocon</a>, <a href="../interface/f77_pocon.html">f77_pocon</a>.
 spocon estimates the reciprocal of the condition number (in the
 1-norm) of a real(REAL32) Hermitian positive definite matrix using the
-Cholesky factorization A = U<strong>H<em>U or A = L</em>L</strong>H computed by sPOTRF.
+Cholesky factorization <script type="math/tex"> A = U^\dagger U </script> or ( A = LL^\dagger |) computed by sPOTRF.
 An estimate is obtained for norm(inv(A)), and the reciprocal of the
 condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))).</p>
 
@@ -6678,7 +6678,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~41"></span>
+              <span class="anchor" id="variable-uplo~185"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -6693,7 +6693,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~89"></span>
+              <span class="anchor" id="variable-n~367"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6708,7 +6708,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~89"></span>
+              <span class="anchor" id="variable-a~253"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -6723,7 +6723,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~89"></span>
+              <span class="anchor" id="variable-lda~229"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6825,7 +6825,7 @@ <h3>
 See also: <a href="../interface/mfi_pocon.html">mfi_pocon</a>, <a href="../interface/f77_pocon.html">f77_pocon</a>.
 dpocon estimates the reciprocal of the condition number (in the
 1-norm) of a real(REAL64) Hermitian positive definite matrix using the
-Cholesky factorization A = U<strong>H<em>U or A = L</em>L</strong>H computed by dPOTRF.
+Cholesky factorization <script type="math/tex"> A = U^\dagger U </script> or ( A = LL^\dagger |) computed by dPOTRF.
 An estimate is obtained for norm(inv(A)), and the reciprocal of the
 condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))).</p>
 
@@ -6842,7 +6842,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~42"></span>
+              <span class="anchor" id="variable-uplo~186"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -6857,7 +6857,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~90"></span>
+              <span class="anchor" id="variable-n~368"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6872,7 +6872,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~90"></span>
+              <span class="anchor" id="variable-a~254"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -6887,7 +6887,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~90"></span>
+              <span class="anchor" id="variable-lda~230"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -6989,7 +6989,7 @@ <h3>
 See also: <a href="../interface/mfi_pocon.html">mfi_pocon</a>, <a href="../interface/f77_pocon.html">f77_pocon</a>.
 cpocon estimates the reciprocal of the condition number (in the
 1-norm) of a complex(REAL32) Hermitian positive definite matrix using the
-Cholesky factorization A = U<strong>H<em>U or A = L</em>L</strong>H computed by cPOTRF.
+Cholesky factorization <script type="math/tex"> A = U^\dagger U </script> or ( A = LL^\dagger |) computed by cPOTRF.
 An estimate is obtained for norm(inv(A)), and the reciprocal of the
 condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))).</p>
 
@@ -7006,7 +7006,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~43"></span>
+              <span class="anchor" id="variable-uplo~187"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -7021,7 +7021,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~91"></span>
+              <span class="anchor" id="variable-n~369"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -7036,7 +7036,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~91"></span>
+              <span class="anchor" id="variable-a~255"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -7051,7 +7051,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~91"></span>
+              <span class="anchor" id="variable-lda~231"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -7153,7 +7153,7 @@ <h3>
 See also: <a href="../interface/mfi_pocon.html">mfi_pocon</a>, <a href="../interface/f77_pocon.html">f77_pocon</a>.
 zpocon estimates the reciprocal of the condition number (in the
 1-norm) of a complex(REAL64) Hermitian positive definite matrix using the
-Cholesky factorization A = U<strong>H<em>U or A = L</em>L</strong>H computed by zPOTRF.
+Cholesky factorization <script type="math/tex"> A = U^\dagger U </script> or ( A = LL^\dagger |) computed by zPOTRF.
 An estimate is obtained for norm(inv(A)), and the reciprocal of the
 condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))).</p>
 
@@ -7170,7 +7170,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~44"></span>
+              <span class="anchor" id="variable-uplo~188"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -7185,7 +7185,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~92"></span>
+              <span class="anchor" id="variable-n~370"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -7200,7 +7200,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~92"></span>
+              <span class="anchor" id="variable-a~256"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -7215,7 +7215,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~92"></span>
+              <span class="anchor" id="variable-lda~232"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -7374,7 +7374,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~45"></span>
+              <span class="anchor" id="variable-uplo~189"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -7389,7 +7389,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~93"></span>
+              <span class="anchor" id="variable-n~371"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -7404,7 +7404,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~93"></span>
+              <span class="anchor" id="variable-a~257"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -7419,7 +7419,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~93"></span>
+              <span class="anchor" id="variable-lda~233"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -7509,7 +7509,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~33"></span>
+              <span class="anchor" id="variable-m~93"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -7743,7 +7743,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~46"></span>
+              <span class="anchor" id="variable-uplo~190"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -7758,7 +7758,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~94"></span>
+              <span class="anchor" id="variable-n~372"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -7773,7 +7773,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~94"></span>
+              <span class="anchor" id="variable-a~258"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -7788,7 +7788,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~94"></span>
+              <span class="anchor" id="variable-lda~234"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -7878,7 +7878,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~34"></span>
+              <span class="anchor" id="variable-m~94"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -8127,7 +8127,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~47"></span>
+              <span class="anchor" id="variable-uplo~191"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -8142,7 +8142,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~95"></span>
+              <span class="anchor" id="variable-n~373"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -8157,7 +8157,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~95"></span>
+              <span class="anchor" id="variable-a~259"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -8172,7 +8172,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~95"></span>
+              <span class="anchor" id="variable-lda~235"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -8262,7 +8262,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~35"></span>
+              <span class="anchor" id="variable-m~95"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -8496,7 +8496,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~48"></span>
+              <span class="anchor" id="variable-uplo~192"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -8511,7 +8511,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~96"></span>
+              <span class="anchor" id="variable-n~374"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -8526,7 +8526,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~96"></span>
+              <span class="anchor" id="variable-a~260"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -8541,7 +8541,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~96"></span>
+              <span class="anchor" id="variable-lda~236"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -8631,7 +8631,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~36"></span>
+              <span class="anchor" id="variable-m~96"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -8851,7 +8851,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~9"></span>
+              <span class="anchor" id="variable-trans~89"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -8866,7 +8866,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~37"></span>
+              <span class="anchor" id="variable-m~97"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -8881,7 +8881,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~97"></span>
+              <span class="anchor" id="variable-n~375"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -8911,7 +8911,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~97"></span>
+              <span class="anchor" id="variable-a~261"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -8926,7 +8926,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~97"></span>
+              <span class="anchor" id="variable-lda~237"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -8941,7 +8941,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~21"></span>
+              <span class="anchor" id="variable-b~65"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -8956,7 +8956,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~21"></span>
+              <span class="anchor" id="variable-ldb~61"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9041,7 +9041,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~10"></span>
+              <span class="anchor" id="variable-trans~90"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -9056,7 +9056,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~38"></span>
+              <span class="anchor" id="variable-m~98"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9071,7 +9071,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~98"></span>
+              <span class="anchor" id="variable-n~376"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9101,7 +9101,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~98"></span>
+              <span class="anchor" id="variable-a~262"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -9116,7 +9116,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~98"></span>
+              <span class="anchor" id="variable-lda~238"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9131,7 +9131,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~22"></span>
+              <span class="anchor" id="variable-b~66"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -9146,7 +9146,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~22"></span>
+              <span class="anchor" id="variable-ldb~62"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9231,7 +9231,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~11"></span>
+              <span class="anchor" id="variable-trans~91"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -9246,7 +9246,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~39"></span>
+              <span class="anchor" id="variable-m~99"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9261,7 +9261,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~99"></span>
+              <span class="anchor" id="variable-n~377"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9291,7 +9291,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~99"></span>
+              <span class="anchor" id="variable-a~263"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -9306,7 +9306,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~99"></span>
+              <span class="anchor" id="variable-lda~239"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9321,7 +9321,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~23"></span>
+              <span class="anchor" id="variable-b~67"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -9336,7 +9336,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~23"></span>
+              <span class="anchor" id="variable-ldb~63"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9421,7 +9421,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~12"></span>
+              <span class="anchor" id="variable-trans~92"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -9436,7 +9436,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~40"></span>
+              <span class="anchor" id="variable-m~100"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9451,7 +9451,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~100"></span>
+              <span class="anchor" id="variable-n~378"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9481,7 +9481,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~100"></span>
+              <span class="anchor" id="variable-a~264"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -9496,7 +9496,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~100"></span>
+              <span class="anchor" id="variable-lda~240"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9511,7 +9511,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~24"></span>
+              <span class="anchor" id="variable-b~68"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -9526,7 +9526,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~24"></span>
+              <span class="anchor" id="variable-ldb~64"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9627,7 +9627,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~13"></span>
+              <span class="anchor" id="variable-trans~93"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -9642,7 +9642,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~41"></span>
+              <span class="anchor" id="variable-m~101"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9657,7 +9657,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~101"></span>
+              <span class="anchor" id="variable-n~379"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9687,7 +9687,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~101"></span>
+              <span class="anchor" id="variable-a~265"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -9702,7 +9702,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~101"></span>
+              <span class="anchor" id="variable-lda~241"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9717,7 +9717,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~25"></span>
+              <span class="anchor" id="variable-b~69"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -9732,7 +9732,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~25"></span>
+              <span class="anchor" id="variable-ldb~65"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9818,7 +9818,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~14"></span>
+              <span class="anchor" id="variable-trans~94"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -9833,7 +9833,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~42"></span>
+              <span class="anchor" id="variable-m~102"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9848,7 +9848,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~102"></span>
+              <span class="anchor" id="variable-n~380"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9878,7 +9878,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~102"></span>
+              <span class="anchor" id="variable-a~266"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -9893,7 +9893,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~102"></span>
+              <span class="anchor" id="variable-lda~242"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -9908,7 +9908,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~26"></span>
+              <span class="anchor" id="variable-b~70"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -9923,7 +9923,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~26"></span>
+              <span class="anchor" id="variable-ldb~66"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10009,7 +10009,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~15"></span>
+              <span class="anchor" id="variable-trans~95"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -10024,7 +10024,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~43"></span>
+              <span class="anchor" id="variable-m~103"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10039,7 +10039,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~103"></span>
+              <span class="anchor" id="variable-n~381"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10069,7 +10069,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~103"></span>
+              <span class="anchor" id="variable-a~267"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -10084,7 +10084,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~103"></span>
+              <span class="anchor" id="variable-lda~243"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10099,7 +10099,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~27"></span>
+              <span class="anchor" id="variable-b~71"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -10114,7 +10114,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~27"></span>
+              <span class="anchor" id="variable-ldb~67"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10200,7 +10200,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~16"></span>
+              <span class="anchor" id="variable-trans~96"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -10215,7 +10215,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~44"></span>
+              <span class="anchor" id="variable-m~104"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10230,7 +10230,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~104"></span>
+              <span class="anchor" id="variable-n~382"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10260,7 +10260,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~104"></span>
+              <span class="anchor" id="variable-a~268"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -10275,7 +10275,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~104"></span>
+              <span class="anchor" id="variable-lda~244"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10290,7 +10290,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~28"></span>
+              <span class="anchor" id="variable-b~72"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -10305,7 +10305,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~28"></span>
+              <span class="anchor" id="variable-ldb~68"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10405,7 +10405,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~17"></span>
+              <span class="anchor" id="variable-trans~97"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -10420,7 +10420,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~45"></span>
+              <span class="anchor" id="variable-m~105"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10435,7 +10435,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~105"></span>
+              <span class="anchor" id="variable-n~383"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10465,7 +10465,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~105"></span>
+              <span class="anchor" id="variable-a~269"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -10480,7 +10480,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~105"></span>
+              <span class="anchor" id="variable-lda~245"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10495,7 +10495,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~29"></span>
+              <span class="anchor" id="variable-b~73"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -10510,7 +10510,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~29"></span>
+              <span class="anchor" id="variable-ldb~69"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10595,7 +10595,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~18"></span>
+              <span class="anchor" id="variable-trans~98"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -10610,7 +10610,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~46"></span>
+              <span class="anchor" id="variable-m~106"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10625,7 +10625,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~106"></span>
+              <span class="anchor" id="variable-n~384"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10655,7 +10655,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~106"></span>
+              <span class="anchor" id="variable-a~270"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -10670,7 +10670,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~106"></span>
+              <span class="anchor" id="variable-lda~246"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10685,7 +10685,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~30"></span>
+              <span class="anchor" id="variable-b~74"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -10700,7 +10700,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~30"></span>
+              <span class="anchor" id="variable-ldb~70"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10785,7 +10785,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~19"></span>
+              <span class="anchor" id="variable-trans~99"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -10800,7 +10800,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~47"></span>
+              <span class="anchor" id="variable-m~107"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10815,7 +10815,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~107"></span>
+              <span class="anchor" id="variable-n~385"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10845,7 +10845,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~107"></span>
+              <span class="anchor" id="variable-a~271"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -10860,7 +10860,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~107"></span>
+              <span class="anchor" id="variable-lda~247"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10875,7 +10875,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~31"></span>
+              <span class="anchor" id="variable-b~75"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -10890,7 +10890,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~31"></span>
+              <span class="anchor" id="variable-ldb~71"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -10975,7 +10975,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~20"></span>
+              <span class="anchor" id="variable-trans~100"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -10990,7 +10990,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~48"></span>
+              <span class="anchor" id="variable-m~108"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11005,7 +11005,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~108"></span>
+              <span class="anchor" id="variable-n~386"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11035,7 +11035,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~108"></span>
+              <span class="anchor" id="variable-a~272"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -11050,7 +11050,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~108"></span>
+              <span class="anchor" id="variable-lda~248"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11065,7 +11065,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~32"></span>
+              <span class="anchor" id="variable-b~76"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -11080,7 +11080,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~32"></span>
+              <span class="anchor" id="variable-ldb~72"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11180,7 +11180,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~49"></span>
+              <span class="anchor" id="variable-m~109"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11195,7 +11195,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~109"></span>
+              <span class="anchor" id="variable-n~387"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11225,7 +11225,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~109"></span>
+              <span class="anchor" id="variable-a~273"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -11240,7 +11240,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~109"></span>
+              <span class="anchor" id="variable-lda~249"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11255,7 +11255,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~33"></span>
+              <span class="anchor" id="variable-b~77"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -11270,7 +11270,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~33"></span>
+              <span class="anchor" id="variable-ldb~73"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11285,7 +11285,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~9"></span>
+              <span class="anchor" id="variable-s~25"></span>
               real(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -11415,7 +11415,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~50"></span>
+              <span class="anchor" id="variable-m~110"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11430,7 +11430,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~110"></span>
+              <span class="anchor" id="variable-n~388"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11460,7 +11460,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~110"></span>
+              <span class="anchor" id="variable-a~274"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -11475,7 +11475,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~110"></span>
+              <span class="anchor" id="variable-lda~250"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11490,7 +11490,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~34"></span>
+              <span class="anchor" id="variable-b~78"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -11505,7 +11505,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~34"></span>
+              <span class="anchor" id="variable-ldb~74"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11520,7 +11520,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~10"></span>
+              <span class="anchor" id="variable-s~26"></span>
               real(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -11650,7 +11650,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~51"></span>
+              <span class="anchor" id="variable-m~111"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11665,7 +11665,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~111"></span>
+              <span class="anchor" id="variable-n~389"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11695,7 +11695,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~111"></span>
+              <span class="anchor" id="variable-a~275"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -11710,7 +11710,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~111"></span>
+              <span class="anchor" id="variable-lda~251"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11725,7 +11725,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~35"></span>
+              <span class="anchor" id="variable-b~79"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -11740,7 +11740,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~35"></span>
+              <span class="anchor" id="variable-ldb~75"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11755,7 +11755,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~11"></span>
+              <span class="anchor" id="variable-s~27"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -11885,7 +11885,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~52"></span>
+              <span class="anchor" id="variable-m~112"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11900,7 +11900,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~112"></span>
+              <span class="anchor" id="variable-n~390"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11930,7 +11930,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~112"></span>
+              <span class="anchor" id="variable-a~276"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -11945,7 +11945,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~112"></span>
+              <span class="anchor" id="variable-lda~252"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11960,7 +11960,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~36"></span>
+              <span class="anchor" id="variable-b~80"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -11975,7 +11975,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~36"></span>
+              <span class="anchor" id="variable-ldb~76"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -11990,7 +11990,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~12"></span>
+              <span class="anchor" id="variable-s~28"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -12135,7 +12135,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~53"></span>
+              <span class="anchor" id="variable-m~113"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12150,7 +12150,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~113"></span>
+              <span class="anchor" id="variable-n~391"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12180,7 +12180,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~113"></span>
+              <span class="anchor" id="variable-a~277"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -12195,7 +12195,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~113"></span>
+              <span class="anchor" id="variable-lda~253"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12210,7 +12210,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~37"></span>
+              <span class="anchor" id="variable-b~81"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -12225,7 +12225,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~37"></span>
+              <span class="anchor" id="variable-ldb~77"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12240,7 +12240,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~13"></span>
+              <span class="anchor" id="variable-s~29"></span>
               real(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -12355,7 +12355,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~54"></span>
+              <span class="anchor" id="variable-m~114"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12370,7 +12370,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~114"></span>
+              <span class="anchor" id="variable-n~392"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12400,7 +12400,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~114"></span>
+              <span class="anchor" id="variable-a~278"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -12415,7 +12415,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~114"></span>
+              <span class="anchor" id="variable-lda~254"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12430,7 +12430,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~38"></span>
+              <span class="anchor" id="variable-b~82"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -12445,7 +12445,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~38"></span>
+              <span class="anchor" id="variable-ldb~78"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12460,7 +12460,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~14"></span>
+              <span class="anchor" id="variable-s~30"></span>
               real(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -12575,7 +12575,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~55"></span>
+              <span class="anchor" id="variable-m~115"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12590,7 +12590,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~115"></span>
+              <span class="anchor" id="variable-n~393"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12620,7 +12620,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~115"></span>
+              <span class="anchor" id="variable-a~279"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -12635,7 +12635,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~115"></span>
+              <span class="anchor" id="variable-lda~255"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12650,7 +12650,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~39"></span>
+              <span class="anchor" id="variable-b~83"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -12665,7 +12665,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~39"></span>
+              <span class="anchor" id="variable-ldb~79"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12680,7 +12680,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~15"></span>
+              <span class="anchor" id="variable-s~31"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -12795,7 +12795,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~56"></span>
+              <span class="anchor" id="variable-m~116"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12810,7 +12810,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~116"></span>
+              <span class="anchor" id="variable-n~394"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12840,7 +12840,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~116"></span>
+              <span class="anchor" id="variable-a~280"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -12855,7 +12855,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~116"></span>
+              <span class="anchor" id="variable-lda~256"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12870,7 +12870,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~40"></span>
+              <span class="anchor" id="variable-b~84"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -12885,7 +12885,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~40"></span>
+              <span class="anchor" id="variable-ldb~80"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -12900,7 +12900,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~16"></span>
+              <span class="anchor" id="variable-s~32"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -13030,7 +13030,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~57"></span>
+              <span class="anchor" id="variable-m~117"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13045,7 +13045,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~117"></span>
+              <span class="anchor" id="variable-n~395"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13075,7 +13075,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~117"></span>
+              <span class="anchor" id="variable-a~281"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -13090,7 +13090,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~117"></span>
+              <span class="anchor" id="variable-lda~257"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13105,7 +13105,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~41"></span>
+              <span class="anchor" id="variable-b~85"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -13120,7 +13120,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~41"></span>
+              <span class="anchor" id="variable-ldb~81"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13250,7 +13250,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~58"></span>
+              <span class="anchor" id="variable-m~118"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13265,7 +13265,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~118"></span>
+              <span class="anchor" id="variable-n~396"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13295,7 +13295,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~118"></span>
+              <span class="anchor" id="variable-a~282"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -13310,7 +13310,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~118"></span>
+              <span class="anchor" id="variable-lda~258"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13325,7 +13325,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~42"></span>
+              <span class="anchor" id="variable-b~86"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -13340,7 +13340,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~42"></span>
+              <span class="anchor" id="variable-ldb~82"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13470,7 +13470,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~59"></span>
+              <span class="anchor" id="variable-m~119"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13485,7 +13485,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~119"></span>
+              <span class="anchor" id="variable-n~397"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13515,7 +13515,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~119"></span>
+              <span class="anchor" id="variable-a~283"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -13530,7 +13530,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~119"></span>
+              <span class="anchor" id="variable-lda~259"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13545,7 +13545,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~43"></span>
+              <span class="anchor" id="variable-b~87"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -13560,7 +13560,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~43"></span>
+              <span class="anchor" id="variable-ldb~83"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13690,7 +13690,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~60"></span>
+              <span class="anchor" id="variable-m~120"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13705,7 +13705,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~120"></span>
+              <span class="anchor" id="variable-n~398"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13735,7 +13735,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~120"></span>
+              <span class="anchor" id="variable-a~284"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -13750,7 +13750,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~120"></span>
+              <span class="anchor" id="variable-lda~260"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13765,7 +13765,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~44"></span>
+              <span class="anchor" id="variable-b~88"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -13780,7 +13780,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~44"></span>
+              <span class="anchor" id="variable-ldb~84"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13924,7 +13924,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~61"></span>
+              <span class="anchor" id="variable-m~121"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13939,7 +13939,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~121"></span>
+              <span class="anchor" id="variable-n~399"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13969,7 +13969,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~121"></span>
+              <span class="anchor" id="variable-a~285"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -13984,7 +13984,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~121"></span>
+              <span class="anchor" id="variable-lda~261"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -13999,7 +13999,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~45"></span>
+              <span class="anchor" id="variable-b~89"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -14014,7 +14014,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~45"></span>
+              <span class="anchor" id="variable-ldb~85"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -14029,7 +14029,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c"></span>
+              <span class="anchor" id="variable-c~49"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -14059,7 +14059,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x"></span>
+              <span class="anchor" id="variable-x~229"></span>
               real(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -14143,7 +14143,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~62"></span>
+              <span class="anchor" id="variable-m~122"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -14158,7 +14158,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~122"></span>
+              <span class="anchor" id="variable-n~400"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -14188,7 +14188,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~122"></span>
+              <span class="anchor" id="variable-a~286"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -14203,7 +14203,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~122"></span>
+              <span class="anchor" id="variable-lda~262"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -14218,7 +14218,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~46"></span>
+              <span class="anchor" id="variable-b~90"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -14233,7 +14233,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~46"></span>
+              <span class="anchor" id="variable-ldb~86"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -14248,7 +14248,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~2"></span>
+              <span class="anchor" id="variable-c~50"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -14278,7 +14278,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~2"></span>
+              <span class="anchor" id="variable-x~230"></span>
               real(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -14362,7 +14362,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~63"></span>
+              <span class="anchor" id="variable-m~123"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -14377,7 +14377,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~123"></span>
+              <span class="anchor" id="variable-n~401"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -14407,7 +14407,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~123"></span>
+              <span class="anchor" id="variable-a~287"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -14422,7 +14422,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~123"></span>
+              <span class="anchor" id="variable-lda~263"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -14437,7 +14437,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~47"></span>
+              <span class="anchor" id="variable-b~91"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -14452,7 +14452,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~47"></span>
+              <span class="anchor" id="variable-ldb~87"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -14467,7 +14467,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~3"></span>
+              <span class="anchor" id="variable-c~51"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -14497,7 +14497,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~3"></span>
+              <span class="anchor" id="variable-x~231"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -14581,7 +14581,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~64"></span>
+              <span class="anchor" id="variable-m~124"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -14596,7 +14596,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~124"></span>
+              <span class="anchor" id="variable-n~402"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -14626,7 +14626,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~124"></span>
+              <span class="anchor" id="variable-a~288"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -14641,7 +14641,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~124"></span>
+              <span class="anchor" id="variable-lda~264"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -14656,7 +14656,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~48"></span>
+              <span class="anchor" id="variable-b~92"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -14671,7 +14671,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~48"></span>
+              <span class="anchor" id="variable-ldb~88"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -14686,7 +14686,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~4"></span>
+              <span class="anchor" id="variable-c~52"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -14716,7 +14716,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~4"></span>
+              <span class="anchor" id="variable-x~232"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -14815,7 +14815,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~125"></span>
+              <span class="anchor" id="variable-n~403"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -14830,7 +14830,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~65"></span>
+              <span class="anchor" id="variable-m~125"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -14860,7 +14860,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~125"></span>
+              <span class="anchor" id="variable-a~289"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -14875,7 +14875,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~125"></span>
+              <span class="anchor" id="variable-lda~265"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -14890,7 +14890,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~49"></span>
+              <span class="anchor" id="variable-b~93"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -14905,7 +14905,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~49"></span>
+              <span class="anchor" id="variable-ldb~89"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -14935,7 +14935,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~5"></span>
+              <span class="anchor" id="variable-x~233"></span>
               real(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -14950,7 +14950,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y"></span>
+              <span class="anchor" id="variable-y~121"></span>
               real(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -15034,7 +15034,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~126"></span>
+              <span class="anchor" id="variable-n~404"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15049,7 +15049,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~66"></span>
+              <span class="anchor" id="variable-m~126"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15079,7 +15079,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~126"></span>
+              <span class="anchor" id="variable-a~290"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -15094,7 +15094,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~126"></span>
+              <span class="anchor" id="variable-lda~266"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15109,7 +15109,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~50"></span>
+              <span class="anchor" id="variable-b~94"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -15124,7 +15124,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~50"></span>
+              <span class="anchor" id="variable-ldb~90"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15154,7 +15154,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~6"></span>
+              <span class="anchor" id="variable-x~234"></span>
               real(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -15169,7 +15169,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~2"></span>
+              <span class="anchor" id="variable-y~122"></span>
               real(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -15253,7 +15253,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~127"></span>
+              <span class="anchor" id="variable-n~405"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15268,7 +15268,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~67"></span>
+              <span class="anchor" id="variable-m~127"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15298,7 +15298,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~127"></span>
+              <span class="anchor" id="variable-a~291"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -15313,7 +15313,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~127"></span>
+              <span class="anchor" id="variable-lda~267"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15328,7 +15328,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~51"></span>
+              <span class="anchor" id="variable-b~95"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -15343,7 +15343,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~51"></span>
+              <span class="anchor" id="variable-ldb~91"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15373,7 +15373,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~7"></span>
+              <span class="anchor" id="variable-x~235"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -15388,7 +15388,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~3"></span>
+              <span class="anchor" id="variable-y~123"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -15472,7 +15472,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~128"></span>
+              <span class="anchor" id="variable-n~406"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15487,7 +15487,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~68"></span>
+              <span class="anchor" id="variable-m~128"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15517,7 +15517,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~128"></span>
+              <span class="anchor" id="variable-a~292"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -15532,7 +15532,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~128"></span>
+              <span class="anchor" id="variable-lda~268"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15547,7 +15547,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~52"></span>
+              <span class="anchor" id="variable-b~96"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -15562,7 +15562,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldb~52"></span>
+              <span class="anchor" id="variable-ldb~92"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15592,7 +15592,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~8"></span>
+              <span class="anchor" id="variable-x~236"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -15607,7 +15607,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~4"></span>
+              <span class="anchor" id="variable-y~124"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -15712,7 +15712,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~69"></span>
+              <span class="anchor" id="variable-m~129"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15727,7 +15727,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~129"></span>
+              <span class="anchor" id="variable-n~407"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15742,7 +15742,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k"></span>
+              <span class="anchor" id="variable-k~49"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15757,7 +15757,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~129"></span>
+              <span class="anchor" id="variable-a~293"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -15772,7 +15772,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~129"></span>
+              <span class="anchor" id="variable-lda~269"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15862,7 +15862,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~70"></span>
+              <span class="anchor" id="variable-m~130"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15877,7 +15877,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~130"></span>
+              <span class="anchor" id="variable-n~408"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15892,7 +15892,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~2"></span>
+              <span class="anchor" id="variable-k~50"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -15907,7 +15907,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~130"></span>
+              <span class="anchor" id="variable-a~294"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -15922,7 +15922,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~130"></span>
+              <span class="anchor" id="variable-lda~270"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16027,7 +16027,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~71"></span>
+              <span class="anchor" id="variable-m~131"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16042,7 +16042,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~131"></span>
+              <span class="anchor" id="variable-n~409"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16057,7 +16057,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~3"></span>
+              <span class="anchor" id="variable-k~51"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16072,7 +16072,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~131"></span>
+              <span class="anchor" id="variable-a~295"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -16087,7 +16087,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~131"></span>
+              <span class="anchor" id="variable-lda~271"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16177,7 +16177,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~72"></span>
+              <span class="anchor" id="variable-m~132"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16192,7 +16192,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~132"></span>
+              <span class="anchor" id="variable-n~410"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16207,7 +16207,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~4"></span>
+              <span class="anchor" id="variable-k~52"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16222,7 +16222,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~132"></span>
+              <span class="anchor" id="variable-a~296"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -16237,7 +16237,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~132"></span>
+              <span class="anchor" id="variable-lda~272"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16349,7 +16349,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side"></span>
+              <span class="anchor" id="variable-side~25"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -16364,7 +16364,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~21"></span>
+              <span class="anchor" id="variable-trans~101"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -16379,7 +16379,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~73"></span>
+              <span class="anchor" id="variable-m~133"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16394,7 +16394,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~133"></span>
+              <span class="anchor" id="variable-n~411"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16409,7 +16409,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~5"></span>
+              <span class="anchor" id="variable-k~53"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16424,7 +16424,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~133"></span>
+              <span class="anchor" id="variable-a~297"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -16439,7 +16439,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~133"></span>
+              <span class="anchor" id="variable-lda~273"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16469,7 +16469,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~5"></span>
+              <span class="anchor" id="variable-c~53"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -16484,7 +16484,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc"></span>
+              <span class="anchor" id="variable-ldc~33"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16566,7 +16566,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~2"></span>
+              <span class="anchor" id="variable-side~26"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -16581,7 +16581,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~22"></span>
+              <span class="anchor" id="variable-trans~102"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -16596,7 +16596,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~74"></span>
+              <span class="anchor" id="variable-m~134"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16611,7 +16611,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~134"></span>
+              <span class="anchor" id="variable-n~412"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16626,7 +16626,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~6"></span>
+              <span class="anchor" id="variable-k~54"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16641,7 +16641,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~134"></span>
+              <span class="anchor" id="variable-a~298"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -16656,7 +16656,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~134"></span>
+              <span class="anchor" id="variable-lda~274"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16686,7 +16686,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~6"></span>
+              <span class="anchor" id="variable-c~54"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -16701,7 +16701,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~2"></span>
+              <span class="anchor" id="variable-ldc~34"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16798,7 +16798,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~3"></span>
+              <span class="anchor" id="variable-side~27"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -16813,7 +16813,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~23"></span>
+              <span class="anchor" id="variable-trans~103"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -16828,7 +16828,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~75"></span>
+              <span class="anchor" id="variable-m~135"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16843,7 +16843,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~135"></span>
+              <span class="anchor" id="variable-n~413"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16858,7 +16858,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~7"></span>
+              <span class="anchor" id="variable-k~55"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16873,7 +16873,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~135"></span>
+              <span class="anchor" id="variable-a~299"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -16888,7 +16888,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~135"></span>
+              <span class="anchor" id="variable-lda~275"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -16918,7 +16918,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~7"></span>
+              <span class="anchor" id="variable-c~55"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -16933,7 +16933,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~3"></span>
+              <span class="anchor" id="variable-ldc~35"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17015,7 +17015,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~4"></span>
+              <span class="anchor" id="variable-side~28"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -17030,7 +17030,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~24"></span>
+              <span class="anchor" id="variable-trans~104"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -17045,7 +17045,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~76"></span>
+              <span class="anchor" id="variable-m~136"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17060,7 +17060,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~136"></span>
+              <span class="anchor" id="variable-n~414"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17075,7 +17075,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~8"></span>
+              <span class="anchor" id="variable-k~56"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17090,7 +17090,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~136"></span>
+              <span class="anchor" id="variable-a~300"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -17105,7 +17105,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~136"></span>
+              <span class="anchor" id="variable-lda~276"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17135,7 +17135,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~8"></span>
+              <span class="anchor" id="variable-c~56"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -17150,7 +17150,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~4"></span>
+              <span class="anchor" id="variable-ldc~36"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17247,7 +17247,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~5"></span>
+              <span class="anchor" id="variable-side~29"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -17262,7 +17262,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~25"></span>
+              <span class="anchor" id="variable-trans~105"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -17277,7 +17277,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~77"></span>
+              <span class="anchor" id="variable-m~137"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17292,7 +17292,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~137"></span>
+              <span class="anchor" id="variable-n~415"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17307,7 +17307,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~9"></span>
+              <span class="anchor" id="variable-k~57"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17322,7 +17322,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~137"></span>
+              <span class="anchor" id="variable-a~301"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -17337,7 +17337,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~137"></span>
+              <span class="anchor" id="variable-lda~277"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17367,7 +17367,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~9"></span>
+              <span class="anchor" id="variable-c~57"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -17382,7 +17382,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~5"></span>
+              <span class="anchor" id="variable-ldc~37"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17479,7 +17479,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~6"></span>
+              <span class="anchor" id="variable-side~30"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -17494,7 +17494,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~26"></span>
+              <span class="anchor" id="variable-trans~106"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -17509,7 +17509,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~78"></span>
+              <span class="anchor" id="variable-m~138"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17524,7 +17524,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~138"></span>
+              <span class="anchor" id="variable-n~416"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17539,7 +17539,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~10"></span>
+              <span class="anchor" id="variable-k~58"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17554,7 +17554,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~138"></span>
+              <span class="anchor" id="variable-a~302"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -17569,7 +17569,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~138"></span>
+              <span class="anchor" id="variable-lda~278"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17599,7 +17599,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~10"></span>
+              <span class="anchor" id="variable-c~58"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -17614,7 +17614,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~6"></span>
+              <span class="anchor" id="variable-ldc~38"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17726,7 +17726,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~7"></span>
+              <span class="anchor" id="variable-side~31"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -17741,7 +17741,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~27"></span>
+              <span class="anchor" id="variable-trans~107"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -17756,7 +17756,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~79"></span>
+              <span class="anchor" id="variable-m~139"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17771,7 +17771,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~139"></span>
+              <span class="anchor" id="variable-n~417"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17786,7 +17786,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~11"></span>
+              <span class="anchor" id="variable-k~59"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17801,7 +17801,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~139"></span>
+              <span class="anchor" id="variable-a~303"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -17816,7 +17816,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~139"></span>
+              <span class="anchor" id="variable-lda~279"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17846,7 +17846,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~11"></span>
+              <span class="anchor" id="variable-c~59"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -17861,7 +17861,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~7"></span>
+              <span class="anchor" id="variable-ldc~39"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -17958,7 +17958,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~8"></span>
+              <span class="anchor" id="variable-side~32"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -17973,7 +17973,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~28"></span>
+              <span class="anchor" id="variable-trans~108"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -17988,7 +17988,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~80"></span>
+              <span class="anchor" id="variable-m~140"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18003,7 +18003,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~140"></span>
+              <span class="anchor" id="variable-n~418"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18018,7 +18018,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~12"></span>
+              <span class="anchor" id="variable-k~60"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18033,7 +18033,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~140"></span>
+              <span class="anchor" id="variable-a~304"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -18048,7 +18048,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~140"></span>
+              <span class="anchor" id="variable-lda~280"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18078,7 +18078,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~12"></span>
+              <span class="anchor" id="variable-c~60"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -18093,7 +18093,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~8"></span>
+              <span class="anchor" id="variable-ldc~40"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18198,7 +18198,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~81"></span>
+              <span class="anchor" id="variable-m~141"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18213,7 +18213,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~141"></span>
+              <span class="anchor" id="variable-n~419"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18228,7 +18228,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~13"></span>
+              <span class="anchor" id="variable-k~61"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18243,7 +18243,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~141"></span>
+              <span class="anchor" id="variable-a~305"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -18258,7 +18258,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~141"></span>
+              <span class="anchor" id="variable-lda~281"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18363,7 +18363,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~82"></span>
+              <span class="anchor" id="variable-m~142"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18378,7 +18378,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~142"></span>
+              <span class="anchor" id="variable-n~420"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18393,7 +18393,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~14"></span>
+              <span class="anchor" id="variable-k~62"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18408,7 +18408,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~142"></span>
+              <span class="anchor" id="variable-a~306"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -18423,7 +18423,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~142"></span>
+              <span class="anchor" id="variable-lda~282"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18543,7 +18543,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~83"></span>
+              <span class="anchor" id="variable-m~143"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18558,7 +18558,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~143"></span>
+              <span class="anchor" id="variable-n~421"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18573,7 +18573,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~15"></span>
+              <span class="anchor" id="variable-k~63"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18588,7 +18588,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~143"></span>
+              <span class="anchor" id="variable-a~307"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -18603,7 +18603,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~143"></span>
+              <span class="anchor" id="variable-lda~283"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18708,7 +18708,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~84"></span>
+              <span class="anchor" id="variable-m~144"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18723,7 +18723,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~144"></span>
+              <span class="anchor" id="variable-n~422"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18738,7 +18738,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~16"></span>
+              <span class="anchor" id="variable-k~64"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18753,7 +18753,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~144"></span>
+              <span class="anchor" id="variable-a~308"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -18768,7 +18768,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~144"></span>
+              <span class="anchor" id="variable-lda~284"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18888,7 +18888,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~85"></span>
+              <span class="anchor" id="variable-m~145"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18903,7 +18903,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~145"></span>
+              <span class="anchor" id="variable-n~423"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18918,7 +18918,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~17"></span>
+              <span class="anchor" id="variable-k~65"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -18933,7 +18933,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~145"></span>
+              <span class="anchor" id="variable-a~309"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -18948,7 +18948,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~145"></span>
+              <span class="anchor" id="variable-lda~285"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19038,7 +19038,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~86"></span>
+              <span class="anchor" id="variable-m~146"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19053,7 +19053,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~146"></span>
+              <span class="anchor" id="variable-n~424"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19068,7 +19068,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~18"></span>
+              <span class="anchor" id="variable-k~66"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19083,7 +19083,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~146"></span>
+              <span class="anchor" id="variable-a~310"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -19098,7 +19098,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~146"></span>
+              <span class="anchor" id="variable-lda~286"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19203,7 +19203,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~87"></span>
+              <span class="anchor" id="variable-m~147"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19218,7 +19218,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~147"></span>
+              <span class="anchor" id="variable-n~425"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19233,7 +19233,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~19"></span>
+              <span class="anchor" id="variable-k~67"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19248,7 +19248,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~147"></span>
+              <span class="anchor" id="variable-a~311"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -19263,7 +19263,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~147"></span>
+              <span class="anchor" id="variable-lda~287"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19353,7 +19353,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~88"></span>
+              <span class="anchor" id="variable-m~148"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19368,7 +19368,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~148"></span>
+              <span class="anchor" id="variable-n~426"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19383,7 +19383,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~20"></span>
+              <span class="anchor" id="variable-k~68"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19398,7 +19398,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~148"></span>
+              <span class="anchor" id="variable-a~312"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -19413,7 +19413,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~148"></span>
+              <span class="anchor" id="variable-lda~288"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19525,7 +19525,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~9"></span>
+              <span class="anchor" id="variable-side~33"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -19540,7 +19540,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~29"></span>
+              <span class="anchor" id="variable-trans~109"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -19555,7 +19555,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~89"></span>
+              <span class="anchor" id="variable-m~149"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19570,7 +19570,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~149"></span>
+              <span class="anchor" id="variable-n~427"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19585,7 +19585,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~21"></span>
+              <span class="anchor" id="variable-k~69"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19600,7 +19600,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~149"></span>
+              <span class="anchor" id="variable-a~313"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -19615,7 +19615,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~149"></span>
+              <span class="anchor" id="variable-lda~289"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19645,7 +19645,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~13"></span>
+              <span class="anchor" id="variable-c~61"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -19660,7 +19660,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~9"></span>
+              <span class="anchor" id="variable-ldc~41"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19742,7 +19742,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~10"></span>
+              <span class="anchor" id="variable-side~34"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -19757,7 +19757,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~30"></span>
+              <span class="anchor" id="variable-trans~110"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -19772,7 +19772,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~90"></span>
+              <span class="anchor" id="variable-m~150"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19787,7 +19787,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~150"></span>
+              <span class="anchor" id="variable-n~428"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19802,7 +19802,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~22"></span>
+              <span class="anchor" id="variable-k~70"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19817,7 +19817,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~150"></span>
+              <span class="anchor" id="variable-a~314"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -19832,7 +19832,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~150"></span>
+              <span class="anchor" id="variable-lda~290"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19862,7 +19862,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~14"></span>
+              <span class="anchor" id="variable-c~62"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -19877,7 +19877,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~10"></span>
+              <span class="anchor" id="variable-ldc~42"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -19974,7 +19974,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~11"></span>
+              <span class="anchor" id="variable-side~35"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -19989,7 +19989,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~31"></span>
+              <span class="anchor" id="variable-trans~111"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -20004,7 +20004,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~91"></span>
+              <span class="anchor" id="variable-m~151"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20019,7 +20019,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~151"></span>
+              <span class="anchor" id="variable-n~429"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20034,7 +20034,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~23"></span>
+              <span class="anchor" id="variable-k~71"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20049,7 +20049,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~151"></span>
+              <span class="anchor" id="variable-a~315"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -20064,7 +20064,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~151"></span>
+              <span class="anchor" id="variable-lda~291"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20094,7 +20094,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~15"></span>
+              <span class="anchor" id="variable-c~63"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -20109,7 +20109,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~11"></span>
+              <span class="anchor" id="variable-ldc~43"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20191,7 +20191,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~12"></span>
+              <span class="anchor" id="variable-side~36"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -20206,7 +20206,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~32"></span>
+              <span class="anchor" id="variable-trans~112"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -20221,7 +20221,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~92"></span>
+              <span class="anchor" id="variable-m~152"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20236,7 +20236,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~152"></span>
+              <span class="anchor" id="variable-n~430"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20251,7 +20251,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~24"></span>
+              <span class="anchor" id="variable-k~72"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20266,7 +20266,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~152"></span>
+              <span class="anchor" id="variable-a~316"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -20281,7 +20281,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~152"></span>
+              <span class="anchor" id="variable-lda~292"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20311,7 +20311,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~16"></span>
+              <span class="anchor" id="variable-c~64"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -20326,7 +20326,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~12"></span>
+              <span class="anchor" id="variable-ldc~44"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20423,7 +20423,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~13"></span>
+              <span class="anchor" id="variable-side~37"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -20438,7 +20438,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~33"></span>
+              <span class="anchor" id="variable-trans~113"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -20453,7 +20453,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~93"></span>
+              <span class="anchor" id="variable-m~153"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20468,7 +20468,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~153"></span>
+              <span class="anchor" id="variable-n~431"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20483,7 +20483,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~25"></span>
+              <span class="anchor" id="variable-k~73"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20498,7 +20498,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~153"></span>
+              <span class="anchor" id="variable-a~317"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -20513,7 +20513,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~153"></span>
+              <span class="anchor" id="variable-lda~293"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20543,7 +20543,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~17"></span>
+              <span class="anchor" id="variable-c~65"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -20558,7 +20558,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~13"></span>
+              <span class="anchor" id="variable-ldc~45"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20655,7 +20655,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~14"></span>
+              <span class="anchor" id="variable-side~38"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -20670,7 +20670,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~34"></span>
+              <span class="anchor" id="variable-trans~114"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -20685,7 +20685,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~94"></span>
+              <span class="anchor" id="variable-m~154"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20700,7 +20700,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~154"></span>
+              <span class="anchor" id="variable-n~432"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20715,7 +20715,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~26"></span>
+              <span class="anchor" id="variable-k~74"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20730,7 +20730,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~154"></span>
+              <span class="anchor" id="variable-a~318"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -20745,7 +20745,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~154"></span>
+              <span class="anchor" id="variable-lda~294"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20775,7 +20775,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~18"></span>
+              <span class="anchor" id="variable-c~66"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -20790,7 +20790,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~14"></span>
+              <span class="anchor" id="variable-ldc~46"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20902,7 +20902,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~15"></span>
+              <span class="anchor" id="variable-side~39"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -20917,7 +20917,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~35"></span>
+              <span class="anchor" id="variable-trans~115"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -20932,7 +20932,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~95"></span>
+              <span class="anchor" id="variable-m~155"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20947,7 +20947,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~155"></span>
+              <span class="anchor" id="variable-n~433"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20962,7 +20962,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~27"></span>
+              <span class="anchor" id="variable-k~75"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -20977,7 +20977,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~155"></span>
+              <span class="anchor" id="variable-a~319"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -20992,7 +20992,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~155"></span>
+              <span class="anchor" id="variable-lda~295"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21022,7 +21022,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~19"></span>
+              <span class="anchor" id="variable-c~67"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -21037,7 +21037,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~15"></span>
+              <span class="anchor" id="variable-ldc~47"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21134,7 +21134,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~16"></span>
+              <span class="anchor" id="variable-side~40"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -21149,7 +21149,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~36"></span>
+              <span class="anchor" id="variable-trans~116"></span>
               character(len=1),
             </td>
 <td>intent(in)</td>
@@ -21164,7 +21164,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~96"></span>
+              <span class="anchor" id="variable-m~156"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21179,7 +21179,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~156"></span>
+              <span class="anchor" id="variable-n~434"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21194,7 +21194,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~28"></span>
+              <span class="anchor" id="variable-k~76"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21209,7 +21209,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~156"></span>
+              <span class="anchor" id="variable-a~320"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -21224,7 +21224,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~156"></span>
+              <span class="anchor" id="variable-lda~296"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21254,7 +21254,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~20"></span>
+              <span class="anchor" id="variable-c~68"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -21269,7 +21269,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-ldc~16"></span>
+              <span class="anchor" id="variable-ldc~48"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21374,7 +21374,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~97"></span>
+              <span class="anchor" id="variable-m~157"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21389,7 +21389,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~157"></span>
+              <span class="anchor" id="variable-n~435"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21404,7 +21404,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~29"></span>
+              <span class="anchor" id="variable-k~77"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21419,7 +21419,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~157"></span>
+              <span class="anchor" id="variable-a~321"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -21434,7 +21434,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~157"></span>
+              <span class="anchor" id="variable-lda~297"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21539,7 +21539,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~98"></span>
+              <span class="anchor" id="variable-m~158"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21554,7 +21554,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~158"></span>
+              <span class="anchor" id="variable-n~436"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21569,7 +21569,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~30"></span>
+              <span class="anchor" id="variable-k~78"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21584,7 +21584,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~158"></span>
+              <span class="anchor" id="variable-a~322"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -21599,7 +21599,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~158"></span>
+              <span class="anchor" id="variable-lda~298"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21719,7 +21719,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~99"></span>
+              <span class="anchor" id="variable-m~159"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21734,7 +21734,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~159"></span>
+              <span class="anchor" id="variable-n~437"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21749,7 +21749,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~31"></span>
+              <span class="anchor" id="variable-k~79"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21764,7 +21764,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~159"></span>
+              <span class="anchor" id="variable-a~323"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -21779,7 +21779,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~159"></span>
+              <span class="anchor" id="variable-lda~299"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21884,7 +21884,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~100"></span>
+              <span class="anchor" id="variable-m~160"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21899,7 +21899,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~160"></span>
+              <span class="anchor" id="variable-n~438"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21914,7 +21914,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-k~32"></span>
+              <span class="anchor" id="variable-k~80"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -21929,7 +21929,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~160"></span>
+              <span class="anchor" id="variable-a~324"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -21944,7 +21944,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-lda~160"></span>
+              <span class="anchor" id="variable-lda~300"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -22088,7 +22088,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~21"></span>
+              <span class="anchor" id="variable-c~69"></span>
               real(kind=wp),
             </td>
 <td>intent(inout)</td>
@@ -22103,7 +22103,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~17"></span>
+              <span class="anchor" id="variable-s~33"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -22187,7 +22187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~22"></span>
+              <span class="anchor" id="variable-c~70"></span>
               real(kind=wp),
             </td>
 <td>intent(inout)</td>
@@ -22202,7 +22202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~18"></span>
+              <span class="anchor" id="variable-s~34"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -22286,7 +22286,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~23"></span>
+              <span class="anchor" id="variable-c~71"></span>
               real(kind=wp),
             </td>
 <td>intent(inout)</td>
@@ -22301,7 +22301,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~19"></span>
+              <span class="anchor" id="variable-s~35"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -22385,7 +22385,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~24"></span>
+              <span class="anchor" id="variable-c~72"></span>
               real(kind=wp),
             </td>
 <td>intent(inout)</td>
@@ -22400,7 +22400,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~20"></span>
+              <span class="anchor" id="variable-s~36"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/module/mfi_blas.html b/module/mfi_blas.html
index c7be47fe..720e244e 100644
--- a/module/mfi_blas.html
+++ b/module/mfi_blas.html
@@ -354,8 +354,8 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='f77_blas.html'>f77_blas</a></li>
                   <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
+                  <li class="list-inline-item"><a href='f77_blas.html'>f77_blas</a></li>
               </ul>
             </li>
         </ul>
@@ -405,7 +405,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~9"></span>
+              <span class="anchor" id="variable-x"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -420,7 +420,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~5"></span>
+              <span class="anchor" id="variable-y"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -490,7 +490,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~10"></span>
+              <span class="anchor" id="variable-x~2"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -505,7 +505,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~6"></span>
+              <span class="anchor" id="variable-y~2"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -575,7 +575,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~11"></span>
+              <span class="anchor" id="variable-x~3"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -590,7 +590,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~7"></span>
+              <span class="anchor" id="variable-y~3"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -660,7 +660,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~12"></span>
+              <span class="anchor" id="variable-x~4"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -675,7 +675,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~8"></span>
+              <span class="anchor" id="variable-y~4"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -761,7 +761,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~13"></span>
+              <span class="anchor" id="variable-x~5"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -776,7 +776,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~9"></span>
+              <span class="anchor" id="variable-y~5"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -846,7 +846,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~14"></span>
+              <span class="anchor" id="variable-x~6"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -861,7 +861,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~10"></span>
+              <span class="anchor" id="variable-y~6"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -931,7 +931,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~15"></span>
+              <span class="anchor" id="variable-x~7"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -946,7 +946,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~11"></span>
+              <span class="anchor" id="variable-y~7"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -1016,7 +1016,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~16"></span>
+              <span class="anchor" id="variable-x~8"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -1031,7 +1031,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~12"></span>
+              <span class="anchor" id="variable-y~8"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -1117,7 +1117,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~17"></span>
+              <span class="anchor" id="variable-x~9"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -1132,7 +1132,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~13"></span>
+              <span class="anchor" id="variable-y~9"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -1147,7 +1147,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~161"></span>
+              <span class="anchor" id="variable-a"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in),</td>
@@ -1217,7 +1217,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~18"></span>
+              <span class="anchor" id="variable-x~10"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -1232,7 +1232,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~14"></span>
+              <span class="anchor" id="variable-y~10"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -1247,7 +1247,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~162"></span>
+              <span class="anchor" id="variable-a~2"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in),</td>
@@ -1317,7 +1317,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~19"></span>
+              <span class="anchor" id="variable-x~11"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -1332,7 +1332,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~15"></span>
+              <span class="anchor" id="variable-y~11"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -1347,7 +1347,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~163"></span>
+              <span class="anchor" id="variable-a~3"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in),</td>
@@ -1417,7 +1417,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~20"></span>
+              <span class="anchor" id="variable-x~12"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -1432,7 +1432,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~16"></span>
+              <span class="anchor" id="variable-y~12"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -1447,7 +1447,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~164"></span>
+              <span class="anchor" id="variable-a~4"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in),</td>
@@ -1533,7 +1533,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~21"></span>
+              <span class="anchor" id="variable-x~13"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -1548,7 +1548,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~17"></span>
+              <span class="anchor" id="variable-y~13"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -1623,7 +1623,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~22"></span>
+              <span class="anchor" id="variable-x~14"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -1638,7 +1638,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~18"></span>
+              <span class="anchor" id="variable-y~14"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -1729,7 +1729,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~23"></span>
+              <span class="anchor" id="variable-x~15"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -1744,7 +1744,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~19"></span>
+              <span class="anchor" id="variable-y~15"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -1819,7 +1819,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~24"></span>
+              <span class="anchor" id="variable-x~16"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -1834,7 +1834,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~20"></span>
+              <span class="anchor" id="variable-y~16"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -1925,7 +1925,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~25"></span>
+              <span class="anchor" id="variable-x~17"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -1940,7 +1940,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~21"></span>
+              <span class="anchor" id="variable-y~17"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -2015,7 +2015,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~26"></span>
+              <span class="anchor" id="variable-x~18"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -2030,7 +2030,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~22"></span>
+              <span class="anchor" id="variable-y~18"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -2121,7 +2121,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~27"></span>
+              <span class="anchor" id="variable-x~19"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -2181,7 +2181,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~28"></span>
+              <span class="anchor" id="variable-x~20"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -2241,7 +2241,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~29"></span>
+              <span class="anchor" id="variable-x~21"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -2301,7 +2301,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~30"></span>
+              <span class="anchor" id="variable-x~22"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -2377,7 +2377,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~31"></span>
+              <span class="anchor" id="variable-x~23"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -2437,7 +2437,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~32"></span>
+              <span class="anchor" id="variable-x~24"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -2497,7 +2497,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~33"></span>
+              <span class="anchor" id="variable-x~25"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -2557,7 +2557,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~34"></span>
+              <span class="anchor" id="variable-x~26"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -2638,7 +2638,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~35"></span>
+              <span class="anchor" id="variable-x~27"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -2653,7 +2653,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~23"></span>
+              <span class="anchor" id="variable-y~19"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -2668,7 +2668,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~25"></span>
+              <span class="anchor" id="variable-c"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -2683,7 +2683,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~21"></span>
+              <span class="anchor" id="variable-s"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -2758,7 +2758,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~36"></span>
+              <span class="anchor" id="variable-x~28"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -2773,7 +2773,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~24"></span>
+              <span class="anchor" id="variable-y~20"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -2788,7 +2788,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~26"></span>
+              <span class="anchor" id="variable-c~2"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -2803,7 +2803,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~22"></span>
+              <span class="anchor" id="variable-s~2"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -2878,7 +2878,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~37"></span>
+              <span class="anchor" id="variable-x~29"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -2893,7 +2893,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~25"></span>
+              <span class="anchor" id="variable-y~21"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -2908,7 +2908,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~27"></span>
+              <span class="anchor" id="variable-c~3"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -2923,7 +2923,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~23"></span>
+              <span class="anchor" id="variable-s~3"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -2998,7 +2998,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~38"></span>
+              <span class="anchor" id="variable-x~30"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -3013,7 +3013,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~26"></span>
+              <span class="anchor" id="variable-y~22"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -3028,7 +3028,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~28"></span>
+              <span class="anchor" id="variable-c~4"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -3043,7 +3043,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~24"></span>
+              <span class="anchor" id="variable-s~4"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -3118,7 +3118,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~39"></span>
+              <span class="anchor" id="variable-x~31"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -3133,7 +3133,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~27"></span>
+              <span class="anchor" id="variable-y~23"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -3148,7 +3148,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~29"></span>
+              <span class="anchor" id="variable-c~5"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -3163,7 +3163,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~25"></span>
+              <span class="anchor" id="variable-s~5"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -3238,7 +3238,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~40"></span>
+              <span class="anchor" id="variable-x~32"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -3253,7 +3253,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~28"></span>
+              <span class="anchor" id="variable-y~24"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -3268,7 +3268,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~30"></span>
+              <span class="anchor" id="variable-c~6"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -3283,7 +3283,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~26"></span>
+              <span class="anchor" id="variable-s~6"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -3369,7 +3369,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~41"></span>
+              <span class="anchor" id="variable-x~33"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -3384,7 +3384,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~29"></span>
+              <span class="anchor" id="variable-y~25"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -3469,7 +3469,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~42"></span>
+              <span class="anchor" id="variable-x~34"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -3484,7 +3484,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~30"></span>
+              <span class="anchor" id="variable-y~26"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -3586,7 +3586,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~165"></span>
+              <span class="anchor" id="variable-a~5"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -3601,7 +3601,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~43"></span>
+              <span class="anchor" id="variable-x~35"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -3657,7 +3657,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~166"></span>
+              <span class="anchor" id="variable-a~6"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -3672,7 +3672,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~44"></span>
+              <span class="anchor" id="variable-x~36"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -3728,7 +3728,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~167"></span>
+              <span class="anchor" id="variable-a~7"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -3743,7 +3743,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~45"></span>
+              <span class="anchor" id="variable-x~37"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -3799,7 +3799,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~168"></span>
+              <span class="anchor" id="variable-a~8"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -3814,7 +3814,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~46"></span>
+              <span class="anchor" id="variable-x~38"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -3870,7 +3870,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~169"></span>
+              <span class="anchor" id="variable-a~9"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -3885,7 +3885,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~47"></span>
+              <span class="anchor" id="variable-x~39"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -3941,7 +3941,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~170"></span>
+              <span class="anchor" id="variable-a~10"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -3956,7 +3956,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~48"></span>
+              <span class="anchor" id="variable-x~40"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -4027,7 +4027,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~171"></span>
+              <span class="anchor" id="variable-a~11"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -4042,7 +4042,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~49"></span>
+              <span class="anchor" id="variable-x~41"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -4057,7 +4057,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~31"></span>
+              <span class="anchor" id="variable-y~27"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -4087,7 +4087,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~101"></span>
+              <span class="anchor" id="variable-m"></span>
               integer,
             </td>
 <td>intent(in),</td>
@@ -4132,7 +4132,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~37"></span>
+              <span class="anchor" id="variable-trans"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -4202,7 +4202,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~172"></span>
+              <span class="anchor" id="variable-a~12"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -4217,7 +4217,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~50"></span>
+              <span class="anchor" id="variable-x~42"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -4232,7 +4232,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~32"></span>
+              <span class="anchor" id="variable-y~28"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -4262,7 +4262,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~102"></span>
+              <span class="anchor" id="variable-m~2"></span>
               integer,
             </td>
 <td>intent(in),</td>
@@ -4307,7 +4307,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~38"></span>
+              <span class="anchor" id="variable-trans~2"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -4377,7 +4377,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~173"></span>
+              <span class="anchor" id="variable-a~13"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -4392,7 +4392,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~51"></span>
+              <span class="anchor" id="variable-x~43"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -4407,7 +4407,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~33"></span>
+              <span class="anchor" id="variable-y~29"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -4437,7 +4437,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~103"></span>
+              <span class="anchor" id="variable-m~3"></span>
               integer,
             </td>
 <td>intent(in),</td>
@@ -4482,7 +4482,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~39"></span>
+              <span class="anchor" id="variable-trans~3"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -4552,7 +4552,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~174"></span>
+              <span class="anchor" id="variable-a~14"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -4567,7 +4567,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~52"></span>
+              <span class="anchor" id="variable-x~44"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -4582,7 +4582,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~34"></span>
+              <span class="anchor" id="variable-y~30"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -4612,7 +4612,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~104"></span>
+              <span class="anchor" id="variable-m~4"></span>
               integer,
             </td>
 <td>intent(in),</td>
@@ -4657,7 +4657,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~40"></span>
+              <span class="anchor" id="variable-trans~4"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -4743,7 +4743,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~175"></span>
+              <span class="anchor" id="variable-a~15"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -4758,7 +4758,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~53"></span>
+              <span class="anchor" id="variable-x~45"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -4773,7 +4773,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~35"></span>
+              <span class="anchor" id="variable-y~31"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -4788,7 +4788,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~41"></span>
+              <span class="anchor" id="variable-trans~5"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -4888,7 +4888,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~176"></span>
+              <span class="anchor" id="variable-a~16"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -4903,7 +4903,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~54"></span>
+              <span class="anchor" id="variable-x~46"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -4918,7 +4918,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~36"></span>
+              <span class="anchor" id="variable-y~32"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -4933,7 +4933,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~42"></span>
+              <span class="anchor" id="variable-trans~6"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -5033,7 +5033,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~177"></span>
+              <span class="anchor" id="variable-a~17"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -5048,7 +5048,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~55"></span>
+              <span class="anchor" id="variable-x~47"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -5063,7 +5063,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~37"></span>
+              <span class="anchor" id="variable-y~33"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -5078,7 +5078,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~43"></span>
+              <span class="anchor" id="variable-trans~7"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -5178,7 +5178,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~178"></span>
+              <span class="anchor" id="variable-a~18"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -5193,7 +5193,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~56"></span>
+              <span class="anchor" id="variable-x~48"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -5208,7 +5208,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~38"></span>
+              <span class="anchor" id="variable-y~34"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -5223,7 +5223,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~44"></span>
+              <span class="anchor" id="variable-trans~8"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -5339,7 +5339,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~179"></span>
+              <span class="anchor" id="variable-a~19"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -5354,7 +5354,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~57"></span>
+              <span class="anchor" id="variable-x~49"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -5369,7 +5369,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~39"></span>
+              <span class="anchor" id="variable-y~35"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -5454,7 +5454,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~180"></span>
+              <span class="anchor" id="variable-a~20"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -5469,7 +5469,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~58"></span>
+              <span class="anchor" id="variable-x~50"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -5484,7 +5484,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~40"></span>
+              <span class="anchor" id="variable-y~36"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -5585,7 +5585,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~181"></span>
+              <span class="anchor" id="variable-a~21"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -5600,7 +5600,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~59"></span>
+              <span class="anchor" id="variable-x~51"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -5615,7 +5615,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~41"></span>
+              <span class="anchor" id="variable-y~37"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -5700,7 +5700,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~182"></span>
+              <span class="anchor" id="variable-a~22"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -5715,7 +5715,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~60"></span>
+              <span class="anchor" id="variable-x~52"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -5730,7 +5730,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~42"></span>
+              <span class="anchor" id="variable-y~38"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -5831,7 +5831,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~183"></span>
+              <span class="anchor" id="variable-a~23"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -5846,7 +5846,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~61"></span>
+              <span class="anchor" id="variable-x~53"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -5861,7 +5861,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~43"></span>
+              <span class="anchor" id="variable-y~39"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -5946,7 +5946,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~184"></span>
+              <span class="anchor" id="variable-a~24"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -5961,7 +5961,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~62"></span>
+              <span class="anchor" id="variable-x~54"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -5976,7 +5976,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~44"></span>
+              <span class="anchor" id="variable-y~40"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -6077,7 +6077,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~185"></span>
+              <span class="anchor" id="variable-a~25"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -6092,7 +6092,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~63"></span>
+              <span class="anchor" id="variable-x~55"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -6107,7 +6107,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~45"></span>
+              <span class="anchor" id="variable-y~41"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -6122,7 +6122,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~49"></span>
+              <span class="anchor" id="variable-uplo"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -6222,7 +6222,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~186"></span>
+              <span class="anchor" id="variable-a~26"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -6237,7 +6237,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~64"></span>
+              <span class="anchor" id="variable-x~56"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -6252,7 +6252,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~46"></span>
+              <span class="anchor" id="variable-y~42"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -6267,7 +6267,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~50"></span>
+              <span class="anchor" id="variable-uplo~2"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -6383,7 +6383,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~187"></span>
+              <span class="anchor" id="variable-a~27"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -6398,7 +6398,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~65"></span>
+              <span class="anchor" id="variable-x~57"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -6413,7 +6413,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~47"></span>
+              <span class="anchor" id="variable-y~43"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -6428,7 +6428,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~51"></span>
+              <span class="anchor" id="variable-uplo~3"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -6528,7 +6528,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~188"></span>
+              <span class="anchor" id="variable-a~28"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -6543,7 +6543,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~66"></span>
+              <span class="anchor" id="variable-x~58"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -6558,7 +6558,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~48"></span>
+              <span class="anchor" id="variable-y~44"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -6573,7 +6573,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~52"></span>
+              <span class="anchor" id="variable-uplo~4"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -6689,7 +6689,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~189"></span>
+              <span class="anchor" id="variable-a~29"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -6704,7 +6704,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~67"></span>
+              <span class="anchor" id="variable-x~59"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -6719,7 +6719,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~53"></span>
+              <span class="anchor" id="variable-uplo~5"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -6789,7 +6789,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~190"></span>
+              <span class="anchor" id="variable-a~30"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -6804,7 +6804,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~68"></span>
+              <span class="anchor" id="variable-x~60"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -6819,7 +6819,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~54"></span>
+              <span class="anchor" id="variable-uplo~6"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -6905,7 +6905,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~191"></span>
+              <span class="anchor" id="variable-a~31"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -6920,7 +6920,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~69"></span>
+              <span class="anchor" id="variable-x~61"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -6935,7 +6935,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~49"></span>
+              <span class="anchor" id="variable-y~45"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -6950,7 +6950,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~55"></span>
+              <span class="anchor" id="variable-uplo~7"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -7035,7 +7035,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~192"></span>
+              <span class="anchor" id="variable-a~32"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -7050,7 +7050,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~70"></span>
+              <span class="anchor" id="variable-x~62"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -7065,7 +7065,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~50"></span>
+              <span class="anchor" id="variable-y~46"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -7080,7 +7080,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~56"></span>
+              <span class="anchor" id="variable-uplo~8"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -7196,7 +7196,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~71"></span>
+              <span class="anchor" id="variable-x~63"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -7211,7 +7211,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~51"></span>
+              <span class="anchor" id="variable-y~47"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -7226,7 +7226,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~57"></span>
+              <span class="anchor" id="variable-uplo~9"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -7341,7 +7341,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~72"></span>
+              <span class="anchor" id="variable-x~64"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -7356,7 +7356,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~52"></span>
+              <span class="anchor" id="variable-y~48"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -7371,7 +7371,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~58"></span>
+              <span class="anchor" id="variable-uplo~10"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -7502,7 +7502,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~73"></span>
+              <span class="anchor" id="variable-x~65"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -7517,7 +7517,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~59"></span>
+              <span class="anchor" id="variable-uplo~11"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -7602,7 +7602,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~74"></span>
+              <span class="anchor" id="variable-x~66"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -7617,7 +7617,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~60"></span>
+              <span class="anchor" id="variable-uplo~12"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -7718,7 +7718,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~75"></span>
+              <span class="anchor" id="variable-x~67"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -7733,7 +7733,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~53"></span>
+              <span class="anchor" id="variable-y~49"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -7748,7 +7748,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~61"></span>
+              <span class="anchor" id="variable-uplo~13"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -7848,7 +7848,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~76"></span>
+              <span class="anchor" id="variable-x~68"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -7863,7 +7863,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~54"></span>
+              <span class="anchor" id="variable-y~50"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -7878,7 +7878,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~62"></span>
+              <span class="anchor" id="variable-uplo~14"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -7979,7 +7979,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~193"></span>
+              <span class="anchor" id="variable-a~33"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -7994,7 +7994,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~77"></span>
+              <span class="anchor" id="variable-x~69"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -8009,7 +8009,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~55"></span>
+              <span class="anchor" id="variable-y~51"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -8024,7 +8024,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~63"></span>
+              <span class="anchor" id="variable-uplo~15"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -8124,7 +8124,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~194"></span>
+              <span class="anchor" id="variable-a~34"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -8139,7 +8139,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~78"></span>
+              <span class="anchor" id="variable-x~70"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -8154,7 +8154,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~56"></span>
+              <span class="anchor" id="variable-y~52"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -8169,7 +8169,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~64"></span>
+              <span class="anchor" id="variable-uplo~16"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -8300,7 +8300,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~79"></span>
+              <span class="anchor" id="variable-x~71"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -8315,7 +8315,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~57"></span>
+              <span class="anchor" id="variable-y~53"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -8330,7 +8330,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~65"></span>
+              <span class="anchor" id="variable-uplo~17"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -8445,7 +8445,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~80"></span>
+              <span class="anchor" id="variable-x~72"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -8460,7 +8460,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~58"></span>
+              <span class="anchor" id="variable-y~54"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -8475,7 +8475,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~66"></span>
+              <span class="anchor" id="variable-uplo~18"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -8606,7 +8606,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~81"></span>
+              <span class="anchor" id="variable-x~73"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -8621,7 +8621,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~67"></span>
+              <span class="anchor" id="variable-uplo~19"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -8706,7 +8706,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~82"></span>
+              <span class="anchor" id="variable-x~74"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -8721,7 +8721,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~68"></span>
+              <span class="anchor" id="variable-uplo~20"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -8822,7 +8822,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~83"></span>
+              <span class="anchor" id="variable-x~75"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -8837,7 +8837,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~59"></span>
+              <span class="anchor" id="variable-y~55"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -8852,7 +8852,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~69"></span>
+              <span class="anchor" id="variable-uplo~21"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -8952,7 +8952,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~84"></span>
+              <span class="anchor" id="variable-x~76"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -8967,7 +8967,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~60"></span>
+              <span class="anchor" id="variable-y~56"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -8982,7 +8982,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~70"></span>
+              <span class="anchor" id="variable-uplo~22"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -9083,7 +9083,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~195"></span>
+              <span class="anchor" id="variable-a~35"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -9098,7 +9098,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~85"></span>
+              <span class="anchor" id="variable-x~77"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -9113,7 +9113,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~61"></span>
+              <span class="anchor" id="variable-y~57"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -9128,7 +9128,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~71"></span>
+              <span class="anchor" id="variable-uplo~23"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -9228,7 +9228,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~196"></span>
+              <span class="anchor" id="variable-a~36"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -9243,7 +9243,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~86"></span>
+              <span class="anchor" id="variable-x~78"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -9258,7 +9258,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~62"></span>
+              <span class="anchor" id="variable-y~58"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -9273,7 +9273,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~72"></span>
+              <span class="anchor" id="variable-uplo~24"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -9389,7 +9389,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~197"></span>
+              <span class="anchor" id="variable-a~37"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -9404,7 +9404,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~87"></span>
+              <span class="anchor" id="variable-x~79"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -9419,7 +9419,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~73"></span>
+              <span class="anchor" id="variable-uplo~25"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -9489,7 +9489,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~198"></span>
+              <span class="anchor" id="variable-a~38"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -9504,7 +9504,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~88"></span>
+              <span class="anchor" id="variable-x~80"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -9519,7 +9519,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~74"></span>
+              <span class="anchor" id="variable-uplo~26"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -9605,7 +9605,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~199"></span>
+              <span class="anchor" id="variable-a~39"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -9620,7 +9620,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~89"></span>
+              <span class="anchor" id="variable-x~81"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -9635,7 +9635,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~63"></span>
+              <span class="anchor" id="variable-y~59"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -9650,7 +9650,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~75"></span>
+              <span class="anchor" id="variable-uplo~27"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -9735,7 +9735,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~200"></span>
+              <span class="anchor" id="variable-a~40"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -9750,7 +9750,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~90"></span>
+              <span class="anchor" id="variable-x~82"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -9765,7 +9765,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~64"></span>
+              <span class="anchor" id="variable-y~60"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -9780,7 +9780,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~76"></span>
+              <span class="anchor" id="variable-uplo~28"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -9881,7 +9881,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~201"></span>
+              <span class="anchor" id="variable-a~41"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -9896,7 +9896,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~91"></span>
+              <span class="anchor" id="variable-x~83"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -9911,7 +9911,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~77"></span>
+              <span class="anchor" id="variable-uplo~29"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -9926,7 +9926,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~45"></span>
+              <span class="anchor" id="variable-trans~9"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -9996,7 +9996,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~202"></span>
+              <span class="anchor" id="variable-a~42"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -10011,7 +10011,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~92"></span>
+              <span class="anchor" id="variable-x~84"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -10026,7 +10026,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~78"></span>
+              <span class="anchor" id="variable-uplo~30"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -10041,7 +10041,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~46"></span>
+              <span class="anchor" id="variable-trans~10"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -10111,7 +10111,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~203"></span>
+              <span class="anchor" id="variable-a~43"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -10126,7 +10126,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~93"></span>
+              <span class="anchor" id="variable-x~85"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -10141,7 +10141,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~79"></span>
+              <span class="anchor" id="variable-uplo~31"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -10156,7 +10156,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~47"></span>
+              <span class="anchor" id="variable-trans~11"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -10226,7 +10226,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~204"></span>
+              <span class="anchor" id="variable-a~44"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -10241,7 +10241,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~94"></span>
+              <span class="anchor" id="variable-x~86"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -10256,7 +10256,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~80"></span>
+              <span class="anchor" id="variable-uplo~32"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -10271,7 +10271,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~48"></span>
+              <span class="anchor" id="variable-trans~12"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -10357,7 +10357,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~205"></span>
+              <span class="anchor" id="variable-a~45"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -10372,7 +10372,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~95"></span>
+              <span class="anchor" id="variable-x~87"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -10387,7 +10387,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~81"></span>
+              <span class="anchor" id="variable-uplo~33"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -10402,7 +10402,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~49"></span>
+              <span class="anchor" id="variable-trans~13"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -10472,7 +10472,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~206"></span>
+              <span class="anchor" id="variable-a~46"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -10487,7 +10487,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~96"></span>
+              <span class="anchor" id="variable-x~88"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -10502,7 +10502,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~82"></span>
+              <span class="anchor" id="variable-uplo~34"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -10517,7 +10517,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~50"></span>
+              <span class="anchor" id="variable-trans~14"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -10587,7 +10587,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~207"></span>
+              <span class="anchor" id="variable-a~47"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -10602,7 +10602,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~97"></span>
+              <span class="anchor" id="variable-x~89"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -10617,7 +10617,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~83"></span>
+              <span class="anchor" id="variable-uplo~35"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -10632,7 +10632,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~51"></span>
+              <span class="anchor" id="variable-trans~15"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -10702,7 +10702,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~208"></span>
+              <span class="anchor" id="variable-a~48"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -10717,7 +10717,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~98"></span>
+              <span class="anchor" id="variable-x~90"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -10732,7 +10732,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~84"></span>
+              <span class="anchor" id="variable-uplo~36"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -10747,7 +10747,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~52"></span>
+              <span class="anchor" id="variable-trans~16"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -10848,7 +10848,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~99"></span>
+              <span class="anchor" id="variable-x~91"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -10863,7 +10863,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~85"></span>
+              <span class="anchor" id="variable-uplo~37"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -10878,7 +10878,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~53"></span>
+              <span class="anchor" id="variable-trans~17"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -10963,7 +10963,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~100"></span>
+              <span class="anchor" id="variable-x~92"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -10978,7 +10978,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~86"></span>
+              <span class="anchor" id="variable-uplo~38"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -10993,7 +10993,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~54"></span>
+              <span class="anchor" id="variable-trans~18"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -11078,7 +11078,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~101"></span>
+              <span class="anchor" id="variable-x~93"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -11093,7 +11093,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~87"></span>
+              <span class="anchor" id="variable-uplo~39"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -11108,7 +11108,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~55"></span>
+              <span class="anchor" id="variable-trans~19"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -11193,7 +11193,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~102"></span>
+              <span class="anchor" id="variable-x~94"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -11208,7 +11208,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~88"></span>
+              <span class="anchor" id="variable-uplo~40"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -11223,7 +11223,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~56"></span>
+              <span class="anchor" id="variable-trans~20"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -11324,7 +11324,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~103"></span>
+              <span class="anchor" id="variable-x~95"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -11339,7 +11339,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~89"></span>
+              <span class="anchor" id="variable-uplo~41"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -11354,7 +11354,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~57"></span>
+              <span class="anchor" id="variable-trans~21"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -11439,7 +11439,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~104"></span>
+              <span class="anchor" id="variable-x~96"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -11454,7 +11454,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~90"></span>
+              <span class="anchor" id="variable-uplo~42"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -11469,7 +11469,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~58"></span>
+              <span class="anchor" id="variable-trans~22"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -11554,7 +11554,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~105"></span>
+              <span class="anchor" id="variable-x~97"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -11569,7 +11569,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~91"></span>
+              <span class="anchor" id="variable-uplo~43"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -11584,7 +11584,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~59"></span>
+              <span class="anchor" id="variable-trans~23"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -11669,7 +11669,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~106"></span>
+              <span class="anchor" id="variable-x~98"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -11684,7 +11684,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~92"></span>
+              <span class="anchor" id="variable-uplo~44"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -11699,7 +11699,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~60"></span>
+              <span class="anchor" id="variable-trans~24"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -11785,7 +11785,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~209"></span>
+              <span class="anchor" id="variable-a~49"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -11800,7 +11800,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~107"></span>
+              <span class="anchor" id="variable-x~99"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -11815,7 +11815,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~93"></span>
+              <span class="anchor" id="variable-uplo~45"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -11830,7 +11830,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~61"></span>
+              <span class="anchor" id="variable-trans~25"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -11900,7 +11900,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~210"></span>
+              <span class="anchor" id="variable-a~50"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -11915,7 +11915,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~108"></span>
+              <span class="anchor" id="variable-x~100"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -11930,7 +11930,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~94"></span>
+              <span class="anchor" id="variable-uplo~46"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -11945,7 +11945,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~62"></span>
+              <span class="anchor" id="variable-trans~26"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -12015,7 +12015,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~211"></span>
+              <span class="anchor" id="variable-a~51"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -12030,7 +12030,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~109"></span>
+              <span class="anchor" id="variable-x~101"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -12045,7 +12045,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~95"></span>
+              <span class="anchor" id="variable-uplo~47"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -12060,7 +12060,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~63"></span>
+              <span class="anchor" id="variable-trans~27"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -12130,7 +12130,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~212"></span>
+              <span class="anchor" id="variable-a~52"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -12145,7 +12145,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~110"></span>
+              <span class="anchor" id="variable-x~102"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -12160,7 +12160,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~96"></span>
+              <span class="anchor" id="variable-uplo~48"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -12175,7 +12175,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~64"></span>
+              <span class="anchor" id="variable-trans~28"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -12261,7 +12261,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~213"></span>
+              <span class="anchor" id="variable-a~53"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -12276,7 +12276,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~111"></span>
+              <span class="anchor" id="variable-x~103"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -12291,7 +12291,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~97"></span>
+              <span class="anchor" id="variable-uplo~49"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -12306,7 +12306,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~65"></span>
+              <span class="anchor" id="variable-trans~29"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -12376,7 +12376,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~214"></span>
+              <span class="anchor" id="variable-a~54"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -12391,7 +12391,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~112"></span>
+              <span class="anchor" id="variable-x~104"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -12406,7 +12406,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~98"></span>
+              <span class="anchor" id="variable-uplo~50"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -12421,7 +12421,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~66"></span>
+              <span class="anchor" id="variable-trans~30"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -12491,7 +12491,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~215"></span>
+              <span class="anchor" id="variable-a~55"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -12506,7 +12506,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~113"></span>
+              <span class="anchor" id="variable-x~105"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -12521,7 +12521,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~99"></span>
+              <span class="anchor" id="variable-uplo~51"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -12536,7 +12536,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~67"></span>
+              <span class="anchor" id="variable-trans~31"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -12606,7 +12606,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~216"></span>
+              <span class="anchor" id="variable-a~56"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -12621,7 +12621,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~114"></span>
+              <span class="anchor" id="variable-x~106"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -12636,7 +12636,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~100"></span>
+              <span class="anchor" id="variable-uplo~52"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -12651,7 +12651,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~68"></span>
+              <span class="anchor" id="variable-trans~32"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -12737,7 +12737,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~217"></span>
+              <span class="anchor" id="variable-a~57"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -12752,7 +12752,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~53"></span>
+              <span class="anchor" id="variable-b"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -12767,7 +12767,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~31"></span>
+              <span class="anchor" id="variable-c~7"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -12867,7 +12867,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~218"></span>
+              <span class="anchor" id="variable-a~58"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -12882,7 +12882,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~54"></span>
+              <span class="anchor" id="variable-b~2"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -12897,7 +12897,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~32"></span>
+              <span class="anchor" id="variable-c~8"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -12997,7 +12997,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~219"></span>
+              <span class="anchor" id="variable-a~59"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -13012,7 +13012,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~55"></span>
+              <span class="anchor" id="variable-b~3"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -13027,7 +13027,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~33"></span>
+              <span class="anchor" id="variable-c~9"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -13127,7 +13127,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~220"></span>
+              <span class="anchor" id="variable-a~60"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -13142,7 +13142,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~56"></span>
+              <span class="anchor" id="variable-b~4"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -13157,7 +13157,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~34"></span>
+              <span class="anchor" id="variable-c~10"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -13273,7 +13273,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~221"></span>
+              <span class="anchor" id="variable-a~61"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -13288,7 +13288,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~57"></span>
+              <span class="anchor" id="variable-b~5"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -13303,7 +13303,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~35"></span>
+              <span class="anchor" id="variable-c~11"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -13318,7 +13318,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~17"></span>
+              <span class="anchor" id="variable-side"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -13333,7 +13333,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~101"></span>
+              <span class="anchor" id="variable-uplo~53"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -13403,7 +13403,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~222"></span>
+              <span class="anchor" id="variable-a~62"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -13418,7 +13418,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~58"></span>
+              <span class="anchor" id="variable-b~6"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -13433,7 +13433,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~36"></span>
+              <span class="anchor" id="variable-c~12"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -13448,7 +13448,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~18"></span>
+              <span class="anchor" id="variable-side~2"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -13463,7 +13463,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~102"></span>
+              <span class="anchor" id="variable-uplo~54"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -13549,7 +13549,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~223"></span>
+              <span class="anchor" id="variable-a~63"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -13564,7 +13564,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~37"></span>
+              <span class="anchor" id="variable-c~13"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -13579,7 +13579,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~103"></span>
+              <span class="anchor" id="variable-uplo~55"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -13594,7 +13594,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~69"></span>
+              <span class="anchor" id="variable-trans~33"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -13664,7 +13664,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~224"></span>
+              <span class="anchor" id="variable-a~64"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -13679,7 +13679,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~38"></span>
+              <span class="anchor" id="variable-c~14"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -13694,7 +13694,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~104"></span>
+              <span class="anchor" id="variable-uplo~56"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -13709,7 +13709,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~70"></span>
+              <span class="anchor" id="variable-trans~34"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -13795,7 +13795,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~225"></span>
+              <span class="anchor" id="variable-a~65"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -13810,7 +13810,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~59"></span>
+              <span class="anchor" id="variable-b~7"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -13825,7 +13825,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~39"></span>
+              <span class="anchor" id="variable-c~15"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -13840,7 +13840,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~105"></span>
+              <span class="anchor" id="variable-uplo~57"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -13855,7 +13855,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~71"></span>
+              <span class="anchor" id="variable-trans~35"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -13925,7 +13925,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~226"></span>
+              <span class="anchor" id="variable-a~66"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -13940,7 +13940,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~60"></span>
+              <span class="anchor" id="variable-b~8"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -13955,7 +13955,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~40"></span>
+              <span class="anchor" id="variable-c~16"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -13970,7 +13970,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~106"></span>
+              <span class="anchor" id="variable-uplo~58"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -13985,7 +13985,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~72"></span>
+              <span class="anchor" id="variable-trans~36"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -14071,7 +14071,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~227"></span>
+              <span class="anchor" id="variable-a~67"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -14086,7 +14086,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~61"></span>
+              <span class="anchor" id="variable-b~9"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -14101,7 +14101,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~41"></span>
+              <span class="anchor" id="variable-c~17"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -14116,7 +14116,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~19"></span>
+              <span class="anchor" id="variable-side~3"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -14131,7 +14131,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~107"></span>
+              <span class="anchor" id="variable-uplo~59"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -14201,7 +14201,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~228"></span>
+              <span class="anchor" id="variable-a~68"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -14216,7 +14216,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~62"></span>
+              <span class="anchor" id="variable-b~10"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -14231,7 +14231,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~42"></span>
+              <span class="anchor" id="variable-c~18"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -14246,7 +14246,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~20"></span>
+              <span class="anchor" id="variable-side~4"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -14261,7 +14261,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~108"></span>
+              <span class="anchor" id="variable-uplo~60"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -14347,7 +14347,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~229"></span>
+              <span class="anchor" id="variable-a~69"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -14362,7 +14362,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~43"></span>
+              <span class="anchor" id="variable-c~19"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -14377,7 +14377,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~109"></span>
+              <span class="anchor" id="variable-uplo~61"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -14392,7 +14392,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~73"></span>
+              <span class="anchor" id="variable-trans~37"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -14462,7 +14462,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~230"></span>
+              <span class="anchor" id="variable-a~70"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -14477,7 +14477,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~44"></span>
+              <span class="anchor" id="variable-c~20"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -14492,7 +14492,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~110"></span>
+              <span class="anchor" id="variable-uplo~62"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -14507,7 +14507,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~74"></span>
+              <span class="anchor" id="variable-trans~38"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -14593,7 +14593,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~231"></span>
+              <span class="anchor" id="variable-a~71"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -14608,7 +14608,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~63"></span>
+              <span class="anchor" id="variable-b~11"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -14623,7 +14623,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~45"></span>
+              <span class="anchor" id="variable-c~21"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -14638,7 +14638,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~111"></span>
+              <span class="anchor" id="variable-uplo~63"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -14653,7 +14653,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~75"></span>
+              <span class="anchor" id="variable-trans~39"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -14723,7 +14723,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~232"></span>
+              <span class="anchor" id="variable-a~72"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -14738,7 +14738,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~64"></span>
+              <span class="anchor" id="variable-b~12"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -14753,7 +14753,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~46"></span>
+              <span class="anchor" id="variable-c~22"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -14768,7 +14768,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~112"></span>
+              <span class="anchor" id="variable-uplo~64"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -14783,7 +14783,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~76"></span>
+              <span class="anchor" id="variable-trans~40"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -14869,7 +14869,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~233"></span>
+              <span class="anchor" id="variable-a~73"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -14884,7 +14884,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~65"></span>
+              <span class="anchor" id="variable-b~13"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -14899,7 +14899,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~21"></span>
+              <span class="anchor" id="variable-side~5"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -14914,7 +14914,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~113"></span>
+              <span class="anchor" id="variable-uplo~65"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -14999,7 +14999,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~234"></span>
+              <span class="anchor" id="variable-a~74"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -15014,7 +15014,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~66"></span>
+              <span class="anchor" id="variable-b~14"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -15029,7 +15029,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~22"></span>
+              <span class="anchor" id="variable-side~6"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -15044,7 +15044,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~114"></span>
+              <span class="anchor" id="variable-uplo~66"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -15129,7 +15129,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~235"></span>
+              <span class="anchor" id="variable-a~75"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -15144,7 +15144,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~67"></span>
+              <span class="anchor" id="variable-b~15"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -15159,7 +15159,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~23"></span>
+              <span class="anchor" id="variable-side~7"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -15174,7 +15174,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~115"></span>
+              <span class="anchor" id="variable-uplo~67"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -15259,7 +15259,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~236"></span>
+              <span class="anchor" id="variable-a~76"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -15274,7 +15274,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~68"></span>
+              <span class="anchor" id="variable-b~16"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -15289,7 +15289,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~24"></span>
+              <span class="anchor" id="variable-side~8"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -15304,7 +15304,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~116"></span>
+              <span class="anchor" id="variable-uplo~68"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -15405,7 +15405,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~237"></span>
+              <span class="anchor" id="variable-a~77"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -15420,7 +15420,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~69"></span>
+              <span class="anchor" id="variable-b~17"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -15435,7 +15435,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~25"></span>
+              <span class="anchor" id="variable-side~9"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -15450,7 +15450,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~117"></span>
+              <span class="anchor" id="variable-uplo~69"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -15535,7 +15535,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~238"></span>
+              <span class="anchor" id="variable-a~78"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -15550,7 +15550,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~70"></span>
+              <span class="anchor" id="variable-b~18"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -15565,7 +15565,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~26"></span>
+              <span class="anchor" id="variable-side~10"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -15580,7 +15580,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~118"></span>
+              <span class="anchor" id="variable-uplo~70"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -15665,7 +15665,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~239"></span>
+              <span class="anchor" id="variable-a~79"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -15680,7 +15680,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~71"></span>
+              <span class="anchor" id="variable-b~19"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -15695,7 +15695,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~27"></span>
+              <span class="anchor" id="variable-side~11"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -15710,7 +15710,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~119"></span>
+              <span class="anchor" id="variable-uplo~71"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -15795,7 +15795,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~240"></span>
+              <span class="anchor" id="variable-a~80"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -15810,7 +15810,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~72"></span>
+              <span class="anchor" id="variable-b~20"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -15825,7 +15825,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~28"></span>
+              <span class="anchor" id="variable-side~12"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -15840,7 +15840,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~120"></span>
+              <span class="anchor" id="variable-uplo~72"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -16077,7 +16077,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~115"></span>
+              <span class="anchor" id="variable-x~107"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -16137,7 +16137,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~116"></span>
+              <span class="anchor" id="variable-x~108"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -16197,7 +16197,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~117"></span>
+              <span class="anchor" id="variable-x~109"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -16257,7 +16257,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~118"></span>
+              <span class="anchor" id="variable-x~110"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -16333,7 +16333,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~119"></span>
+              <span class="anchor" id="variable-x~111"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -16393,7 +16393,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~120"></span>
+              <span class="anchor" id="variable-x~112"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -16453,7 +16453,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~121"></span>
+              <span class="anchor" id="variable-x~113"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -16513,7 +16513,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~122"></span>
+              <span class="anchor" id="variable-x~114"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -16582,7 +16582,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~23"></span>
+              <span class="anchor" id="variable-x~15"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -16597,7 +16597,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~19"></span>
+              <span class="anchor" id="variable-y~15"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -16673,7 +16673,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~25"></span>
+              <span class="anchor" id="variable-x~17"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -16688,7 +16688,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~21"></span>
+              <span class="anchor" id="variable-y~17"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -16764,7 +16764,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~24"></span>
+              <span class="anchor" id="variable-x~16"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -16779,7 +16779,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~20"></span>
+              <span class="anchor" id="variable-y~16"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -16855,7 +16855,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~26"></span>
+              <span class="anchor" id="variable-x~18"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -16870,7 +16870,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~22"></span>
+              <span class="anchor" id="variable-y~18"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -16946,7 +16946,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~115"></span>
+              <span class="anchor" id="variable-x~107"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -17007,7 +17007,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~116"></span>
+              <span class="anchor" id="variable-x~108"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -17068,7 +17068,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~117"></span>
+              <span class="anchor" id="variable-x~109"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -17129,7 +17129,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~118"></span>
+              <span class="anchor" id="variable-x~110"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -17190,7 +17190,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~119"></span>
+              <span class="anchor" id="variable-x~111"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -17251,7 +17251,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~120"></span>
+              <span class="anchor" id="variable-x~112"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -17312,7 +17312,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~121"></span>
+              <span class="anchor" id="variable-x~113"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -17373,7 +17373,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~122"></span>
+              <span class="anchor" id="variable-x~114"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -17434,7 +17434,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~21"></span>
+              <span class="anchor" id="variable-x~13"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -17449,7 +17449,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~17"></span>
+              <span class="anchor" id="variable-y~13"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -17525,7 +17525,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~27"></span>
+              <span class="anchor" id="variable-x~19"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -17586,7 +17586,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~29"></span>
+              <span class="anchor" id="variable-x~21"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -17647,7 +17647,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~31"></span>
+              <span class="anchor" id="variable-x~23"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -17708,7 +17708,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~33"></span>
+              <span class="anchor" id="variable-x~25"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -17830,7 +17830,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~22"></span>
+              <span class="anchor" id="variable-x~14"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -17845,7 +17845,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~18"></span>
+              <span class="anchor" id="variable-y~14"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -17921,7 +17921,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~28"></span>
+              <span class="anchor" id="variable-x~20"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -17982,7 +17982,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~30"></span>
+              <span class="anchor" id="variable-x~22"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -18043,7 +18043,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~32"></span>
+              <span class="anchor" id="variable-x~24"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -18104,7 +18104,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~34"></span>
+              <span class="anchor" id="variable-x~26"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -18231,7 +18231,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~9"></span>
+              <span class="anchor" id="variable-x"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -18246,7 +18246,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~5"></span>
+              <span class="anchor" id="variable-y"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -18317,7 +18317,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~10"></span>
+              <span class="anchor" id="variable-x~2"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -18332,7 +18332,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~6"></span>
+              <span class="anchor" id="variable-y~2"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -18403,7 +18403,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~11"></span>
+              <span class="anchor" id="variable-x~3"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -18418,7 +18418,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~7"></span>
+              <span class="anchor" id="variable-y~3"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -18489,7 +18489,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~12"></span>
+              <span class="anchor" id="variable-x~4"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -18504,7 +18504,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~8"></span>
+              <span class="anchor" id="variable-y~4"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -18575,7 +18575,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~13"></span>
+              <span class="anchor" id="variable-x~5"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -18590,7 +18590,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~9"></span>
+              <span class="anchor" id="variable-y~5"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -18661,7 +18661,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~14"></span>
+              <span class="anchor" id="variable-x~6"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -18676,7 +18676,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~10"></span>
+              <span class="anchor" id="variable-y~6"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -18747,7 +18747,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~15"></span>
+              <span class="anchor" id="variable-x~7"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -18762,7 +18762,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~11"></span>
+              <span class="anchor" id="variable-y~7"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -18833,7 +18833,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~16"></span>
+              <span class="anchor" id="variable-x~8"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -18848,7 +18848,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~12"></span>
+              <span class="anchor" id="variable-y~8"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -18919,7 +18919,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~17"></span>
+              <span class="anchor" id="variable-x~9"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -18934,7 +18934,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~13"></span>
+              <span class="anchor" id="variable-y~9"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -18949,7 +18949,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~161"></span>
+              <span class="anchor" id="variable-a"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in),</td>
@@ -19020,7 +19020,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~18"></span>
+              <span class="anchor" id="variable-x~10"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -19035,7 +19035,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~14"></span>
+              <span class="anchor" id="variable-y~10"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -19050,7 +19050,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~162"></span>
+              <span class="anchor" id="variable-a~2"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in),</td>
@@ -19121,7 +19121,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~19"></span>
+              <span class="anchor" id="variable-x~11"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -19136,7 +19136,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~15"></span>
+              <span class="anchor" id="variable-y~11"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -19151,7 +19151,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~163"></span>
+              <span class="anchor" id="variable-a~3"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in),</td>
@@ -19222,7 +19222,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~20"></span>
+              <span class="anchor" id="variable-x~12"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -19237,7 +19237,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~16"></span>
+              <span class="anchor" id="variable-y~12"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -19252,7 +19252,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~164"></span>
+              <span class="anchor" id="variable-a~4"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in),</td>
@@ -19325,7 +19325,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~35"></span>
+              <span class="anchor" id="variable-x~27"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -19340,7 +19340,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~23"></span>
+              <span class="anchor" id="variable-y~19"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -19355,7 +19355,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~25"></span>
+              <span class="anchor" id="variable-c"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -19370,7 +19370,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~21"></span>
+              <span class="anchor" id="variable-s"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -19443,7 +19443,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~36"></span>
+              <span class="anchor" id="variable-x~28"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -19458,7 +19458,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~24"></span>
+              <span class="anchor" id="variable-y~20"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -19473,7 +19473,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~26"></span>
+              <span class="anchor" id="variable-c~2"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -19488,7 +19488,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~22"></span>
+              <span class="anchor" id="variable-s~2"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -19561,7 +19561,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~37"></span>
+              <span class="anchor" id="variable-x~29"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -19576,7 +19576,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~25"></span>
+              <span class="anchor" id="variable-y~21"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -19591,7 +19591,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~27"></span>
+              <span class="anchor" id="variable-c~3"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -19606,7 +19606,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~23"></span>
+              <span class="anchor" id="variable-s~3"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -19679,7 +19679,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~38"></span>
+              <span class="anchor" id="variable-x~30"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -19694,7 +19694,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~26"></span>
+              <span class="anchor" id="variable-y~22"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -19709,7 +19709,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~28"></span>
+              <span class="anchor" id="variable-c~4"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -19724,7 +19724,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~24"></span>
+              <span class="anchor" id="variable-s~4"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -19797,7 +19797,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~39"></span>
+              <span class="anchor" id="variable-x~31"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -19812,7 +19812,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~27"></span>
+              <span class="anchor" id="variable-y~23"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -19827,7 +19827,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~29"></span>
+              <span class="anchor" id="variable-c~5"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -19842,7 +19842,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~25"></span>
+              <span class="anchor" id="variable-s~5"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -19915,7 +19915,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~40"></span>
+              <span class="anchor" id="variable-x~32"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -19930,7 +19930,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~28"></span>
+              <span class="anchor" id="variable-y~24"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -19945,7 +19945,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~30"></span>
+              <span class="anchor" id="variable-c~6"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -19960,7 +19960,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~26"></span>
+              <span class="anchor" id="variable-s~6"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -20031,7 +20031,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~41"></span>
+              <span class="anchor" id="variable-x~33"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -20046,7 +20046,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~29"></span>
+              <span class="anchor" id="variable-y~25"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -20132,7 +20132,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~42"></span>
+              <span class="anchor" id="variable-x~34"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -20147,7 +20147,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~30"></span>
+              <span class="anchor" id="variable-y~26"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -20234,7 +20234,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~165"></span>
+              <span class="anchor" id="variable-a~5"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -20249,7 +20249,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~43"></span>
+              <span class="anchor" id="variable-x~35"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -20306,7 +20306,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~166"></span>
+              <span class="anchor" id="variable-a~6"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -20321,7 +20321,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~44"></span>
+              <span class="anchor" id="variable-x~36"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -20378,7 +20378,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~167"></span>
+              <span class="anchor" id="variable-a~7"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -20393,7 +20393,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~45"></span>
+              <span class="anchor" id="variable-x~37"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -20450,7 +20450,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~168"></span>
+              <span class="anchor" id="variable-a~8"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -20465,7 +20465,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~46"></span>
+              <span class="anchor" id="variable-x~38"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -20522,7 +20522,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~169"></span>
+              <span class="anchor" id="variable-a~9"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -20537,7 +20537,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~47"></span>
+              <span class="anchor" id="variable-x~39"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -20594,7 +20594,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~170"></span>
+              <span class="anchor" id="variable-a~10"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -20609,7 +20609,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~48"></span>
+              <span class="anchor" id="variable-x~40"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -20665,7 +20665,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~171"></span>
+              <span class="anchor" id="variable-a~11"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -20680,7 +20680,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~49"></span>
+              <span class="anchor" id="variable-x~41"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -20695,7 +20695,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~31"></span>
+              <span class="anchor" id="variable-y~27"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -20725,7 +20725,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~101"></span>
+              <span class="anchor" id="variable-m"></span>
               integer,
             </td>
 <td>intent(in),</td>
@@ -20770,7 +20770,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~37"></span>
+              <span class="anchor" id="variable-trans"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -20841,7 +20841,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~172"></span>
+              <span class="anchor" id="variable-a~12"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -20856,7 +20856,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~50"></span>
+              <span class="anchor" id="variable-x~42"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -20871,7 +20871,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~32"></span>
+              <span class="anchor" id="variable-y~28"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -20901,7 +20901,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~102"></span>
+              <span class="anchor" id="variable-m~2"></span>
               integer,
             </td>
 <td>intent(in),</td>
@@ -20946,7 +20946,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~38"></span>
+              <span class="anchor" id="variable-trans~2"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -21017,7 +21017,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~173"></span>
+              <span class="anchor" id="variable-a~13"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -21032,7 +21032,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~51"></span>
+              <span class="anchor" id="variable-x~43"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -21047,7 +21047,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~33"></span>
+              <span class="anchor" id="variable-y~29"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -21077,7 +21077,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~103"></span>
+              <span class="anchor" id="variable-m~3"></span>
               integer,
             </td>
 <td>intent(in),</td>
@@ -21122,7 +21122,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~39"></span>
+              <span class="anchor" id="variable-trans~3"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -21193,7 +21193,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~174"></span>
+              <span class="anchor" id="variable-a~14"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -21208,7 +21208,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~52"></span>
+              <span class="anchor" id="variable-x~44"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -21223,7 +21223,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~34"></span>
+              <span class="anchor" id="variable-y~30"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -21253,7 +21253,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~104"></span>
+              <span class="anchor" id="variable-m~4"></span>
               integer,
             </td>
 <td>intent(in),</td>
@@ -21298,7 +21298,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~40"></span>
+              <span class="anchor" id="variable-trans~4"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -21369,7 +21369,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~175"></span>
+              <span class="anchor" id="variable-a~15"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -21384,7 +21384,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~53"></span>
+              <span class="anchor" id="variable-x~45"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -21399,7 +21399,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~35"></span>
+              <span class="anchor" id="variable-y~31"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -21414,7 +21414,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~41"></span>
+              <span class="anchor" id="variable-trans~5"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -21515,7 +21515,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~176"></span>
+              <span class="anchor" id="variable-a~16"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -21530,7 +21530,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~54"></span>
+              <span class="anchor" id="variable-x~46"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -21545,7 +21545,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~36"></span>
+              <span class="anchor" id="variable-y~32"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -21560,7 +21560,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~42"></span>
+              <span class="anchor" id="variable-trans~6"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -21661,7 +21661,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~177"></span>
+              <span class="anchor" id="variable-a~17"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -21676,7 +21676,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~55"></span>
+              <span class="anchor" id="variable-x~47"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -21691,7 +21691,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~37"></span>
+              <span class="anchor" id="variable-y~33"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -21706,7 +21706,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~43"></span>
+              <span class="anchor" id="variable-trans~7"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -21807,7 +21807,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~178"></span>
+              <span class="anchor" id="variable-a~18"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -21822,7 +21822,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~56"></span>
+              <span class="anchor" id="variable-x~48"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -21837,7 +21837,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~38"></span>
+              <span class="anchor" id="variable-y~34"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -21852,7 +21852,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~44"></span>
+              <span class="anchor" id="variable-trans~8"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -21953,7 +21953,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~179"></span>
+              <span class="anchor" id="variable-a~19"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -21968,7 +21968,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~57"></span>
+              <span class="anchor" id="variable-x~49"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -21983,7 +21983,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~39"></span>
+              <span class="anchor" id="variable-y~35"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -22069,7 +22069,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~180"></span>
+              <span class="anchor" id="variable-a~20"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -22084,7 +22084,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~58"></span>
+              <span class="anchor" id="variable-x~50"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -22099,7 +22099,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~40"></span>
+              <span class="anchor" id="variable-y~36"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -22185,7 +22185,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~181"></span>
+              <span class="anchor" id="variable-a~21"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -22200,7 +22200,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~59"></span>
+              <span class="anchor" id="variable-x~51"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -22215,7 +22215,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~41"></span>
+              <span class="anchor" id="variable-y~37"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -22301,7 +22301,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~182"></span>
+              <span class="anchor" id="variable-a~22"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -22316,7 +22316,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~60"></span>
+              <span class="anchor" id="variable-x~52"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -22331,7 +22331,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~42"></span>
+              <span class="anchor" id="variable-y~38"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -22417,7 +22417,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~183"></span>
+              <span class="anchor" id="variable-a~23"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -22432,7 +22432,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~61"></span>
+              <span class="anchor" id="variable-x~53"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -22447,7 +22447,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~43"></span>
+              <span class="anchor" id="variable-y~39"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -22533,7 +22533,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~184"></span>
+              <span class="anchor" id="variable-a~24"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -22548,7 +22548,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~62"></span>
+              <span class="anchor" id="variable-x~54"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -22563,7 +22563,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~44"></span>
+              <span class="anchor" id="variable-y~40"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -22649,7 +22649,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~185"></span>
+              <span class="anchor" id="variable-a~25"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -22664,7 +22664,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~63"></span>
+              <span class="anchor" id="variable-x~55"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -22679,7 +22679,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~45"></span>
+              <span class="anchor" id="variable-y~41"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -22694,7 +22694,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~49"></span>
+              <span class="anchor" id="variable-uplo"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -22795,7 +22795,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~186"></span>
+              <span class="anchor" id="variable-a~26"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -22810,7 +22810,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~64"></span>
+              <span class="anchor" id="variable-x~56"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -22825,7 +22825,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~46"></span>
+              <span class="anchor" id="variable-y~42"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -22840,7 +22840,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~50"></span>
+              <span class="anchor" id="variable-uplo~2"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -22941,7 +22941,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~187"></span>
+              <span class="anchor" id="variable-a~27"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -22956,7 +22956,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~65"></span>
+              <span class="anchor" id="variable-x~57"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -22971,7 +22971,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~47"></span>
+              <span class="anchor" id="variable-y~43"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -22986,7 +22986,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~51"></span>
+              <span class="anchor" id="variable-uplo~3"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -23087,7 +23087,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~188"></span>
+              <span class="anchor" id="variable-a~28"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -23102,7 +23102,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~66"></span>
+              <span class="anchor" id="variable-x~58"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -23117,7 +23117,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~48"></span>
+              <span class="anchor" id="variable-y~44"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -23132,7 +23132,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~52"></span>
+              <span class="anchor" id="variable-uplo~4"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -23233,7 +23233,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~189"></span>
+              <span class="anchor" id="variable-a~29"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -23248,7 +23248,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~67"></span>
+              <span class="anchor" id="variable-x~59"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -23263,7 +23263,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~53"></span>
+              <span class="anchor" id="variable-uplo~5"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -23334,7 +23334,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~190"></span>
+              <span class="anchor" id="variable-a~30"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -23349,7 +23349,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~68"></span>
+              <span class="anchor" id="variable-x~60"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -23364,7 +23364,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~54"></span>
+              <span class="anchor" id="variable-uplo~6"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -23435,7 +23435,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~191"></span>
+              <span class="anchor" id="variable-a~31"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -23450,7 +23450,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~69"></span>
+              <span class="anchor" id="variable-x~61"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -23465,7 +23465,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~49"></span>
+              <span class="anchor" id="variable-y~45"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -23480,7 +23480,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~55"></span>
+              <span class="anchor" id="variable-uplo~7"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -23566,7 +23566,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~192"></span>
+              <span class="anchor" id="variable-a~32"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -23581,7 +23581,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~70"></span>
+              <span class="anchor" id="variable-x~62"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -23596,7 +23596,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~50"></span>
+              <span class="anchor" id="variable-y~46"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -23611,7 +23611,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~56"></span>
+              <span class="anchor" id="variable-uplo~8"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -23712,7 +23712,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~71"></span>
+              <span class="anchor" id="variable-x~63"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -23727,7 +23727,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~51"></span>
+              <span class="anchor" id="variable-y~47"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -23742,7 +23742,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~57"></span>
+              <span class="anchor" id="variable-uplo~9"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -23858,7 +23858,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~72"></span>
+              <span class="anchor" id="variable-x~64"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -23873,7 +23873,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~52"></span>
+              <span class="anchor" id="variable-y~48"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -23888,7 +23888,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~58"></span>
+              <span class="anchor" id="variable-uplo~10"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -24004,7 +24004,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~73"></span>
+              <span class="anchor" id="variable-x~65"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -24019,7 +24019,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~59"></span>
+              <span class="anchor" id="variable-uplo~11"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -24105,7 +24105,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~74"></span>
+              <span class="anchor" id="variable-x~66"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -24120,7 +24120,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~60"></span>
+              <span class="anchor" id="variable-uplo~12"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -24206,7 +24206,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~75"></span>
+              <span class="anchor" id="variable-x~67"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -24221,7 +24221,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~53"></span>
+              <span class="anchor" id="variable-y~49"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -24236,7 +24236,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~61"></span>
+              <span class="anchor" id="variable-uplo~13"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -24337,7 +24337,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~76"></span>
+              <span class="anchor" id="variable-x~68"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -24352,7 +24352,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~54"></span>
+              <span class="anchor" id="variable-y~50"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -24367,7 +24367,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~62"></span>
+              <span class="anchor" id="variable-uplo~14"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -24453,7 +24453,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~193"></span>
+              <span class="anchor" id="variable-a~33"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -24468,7 +24468,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~77"></span>
+              <span class="anchor" id="variable-x~69"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -24483,7 +24483,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~55"></span>
+              <span class="anchor" id="variable-y~51"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -24498,7 +24498,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~63"></span>
+              <span class="anchor" id="variable-uplo~15"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -24599,7 +24599,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~194"></span>
+              <span class="anchor" id="variable-a~34"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -24614,7 +24614,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~78"></span>
+              <span class="anchor" id="variable-x~70"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -24629,7 +24629,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~56"></span>
+              <span class="anchor" id="variable-y~52"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -24644,7 +24644,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~64"></span>
+              <span class="anchor" id="variable-uplo~16"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -24760,7 +24760,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~79"></span>
+              <span class="anchor" id="variable-x~71"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -24775,7 +24775,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~57"></span>
+              <span class="anchor" id="variable-y~53"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -24790,7 +24790,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~65"></span>
+              <span class="anchor" id="variable-uplo~17"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -24906,7 +24906,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~80"></span>
+              <span class="anchor" id="variable-x~72"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -24921,7 +24921,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~58"></span>
+              <span class="anchor" id="variable-y~54"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -24936,7 +24936,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~66"></span>
+              <span class="anchor" id="variable-uplo~18"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -25052,7 +25052,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~81"></span>
+              <span class="anchor" id="variable-x~73"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -25067,7 +25067,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~67"></span>
+              <span class="anchor" id="variable-uplo~19"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -25153,7 +25153,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~82"></span>
+              <span class="anchor" id="variable-x~74"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -25168,7 +25168,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~68"></span>
+              <span class="anchor" id="variable-uplo~20"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -25254,7 +25254,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~83"></span>
+              <span class="anchor" id="variable-x~75"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -25269,7 +25269,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~59"></span>
+              <span class="anchor" id="variable-y~55"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -25284,7 +25284,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~69"></span>
+              <span class="anchor" id="variable-uplo~21"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -25385,7 +25385,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~84"></span>
+              <span class="anchor" id="variable-x~76"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -25400,7 +25400,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~60"></span>
+              <span class="anchor" id="variable-y~56"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -25415,7 +25415,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~70"></span>
+              <span class="anchor" id="variable-uplo~22"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -25501,7 +25501,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~195"></span>
+              <span class="anchor" id="variable-a~35"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -25516,7 +25516,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~85"></span>
+              <span class="anchor" id="variable-x~77"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -25531,7 +25531,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~61"></span>
+              <span class="anchor" id="variable-y~57"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -25546,7 +25546,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~71"></span>
+              <span class="anchor" id="variable-uplo~23"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -25647,7 +25647,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~196"></span>
+              <span class="anchor" id="variable-a~36"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -25662,7 +25662,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~86"></span>
+              <span class="anchor" id="variable-x~78"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -25677,7 +25677,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~62"></span>
+              <span class="anchor" id="variable-y~58"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -25692,7 +25692,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~72"></span>
+              <span class="anchor" id="variable-uplo~24"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -25793,7 +25793,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~197"></span>
+              <span class="anchor" id="variable-a~37"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -25808,7 +25808,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~87"></span>
+              <span class="anchor" id="variable-x~79"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -25823,7 +25823,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~73"></span>
+              <span class="anchor" id="variable-uplo~25"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -25894,7 +25894,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~198"></span>
+              <span class="anchor" id="variable-a~38"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -25909,7 +25909,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~88"></span>
+              <span class="anchor" id="variable-x~80"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -25924,7 +25924,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~74"></span>
+              <span class="anchor" id="variable-uplo~26"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -25995,7 +25995,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~199"></span>
+              <span class="anchor" id="variable-a~39"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -26010,7 +26010,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~89"></span>
+              <span class="anchor" id="variable-x~81"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -26025,7 +26025,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~63"></span>
+              <span class="anchor" id="variable-y~59"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -26040,7 +26040,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~75"></span>
+              <span class="anchor" id="variable-uplo~27"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -26126,7 +26126,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~200"></span>
+              <span class="anchor" id="variable-a~40"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -26141,7 +26141,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~90"></span>
+              <span class="anchor" id="variable-x~82"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -26156,7 +26156,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~64"></span>
+              <span class="anchor" id="variable-y~60"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -26171,7 +26171,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~76"></span>
+              <span class="anchor" id="variable-uplo~28"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -26257,7 +26257,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~201"></span>
+              <span class="anchor" id="variable-a~41"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -26272,7 +26272,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~91"></span>
+              <span class="anchor" id="variable-x~83"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -26287,7 +26287,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~77"></span>
+              <span class="anchor" id="variable-uplo~29"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -26302,7 +26302,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~45"></span>
+              <span class="anchor" id="variable-trans~9"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -26373,7 +26373,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~202"></span>
+              <span class="anchor" id="variable-a~42"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -26388,7 +26388,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~92"></span>
+              <span class="anchor" id="variable-x~84"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -26403,7 +26403,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~78"></span>
+              <span class="anchor" id="variable-uplo~30"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -26418,7 +26418,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~46"></span>
+              <span class="anchor" id="variable-trans~10"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -26489,7 +26489,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~203"></span>
+              <span class="anchor" id="variable-a~43"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -26504,7 +26504,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~93"></span>
+              <span class="anchor" id="variable-x~85"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -26519,7 +26519,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~79"></span>
+              <span class="anchor" id="variable-uplo~31"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -26534,7 +26534,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~47"></span>
+              <span class="anchor" id="variable-trans~11"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -26605,7 +26605,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~204"></span>
+              <span class="anchor" id="variable-a~44"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -26620,7 +26620,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~94"></span>
+              <span class="anchor" id="variable-x~86"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -26635,7 +26635,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~80"></span>
+              <span class="anchor" id="variable-uplo~32"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -26650,7 +26650,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~48"></span>
+              <span class="anchor" id="variable-trans~12"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -26721,7 +26721,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~205"></span>
+              <span class="anchor" id="variable-a~45"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -26736,7 +26736,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~95"></span>
+              <span class="anchor" id="variable-x~87"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -26751,7 +26751,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~81"></span>
+              <span class="anchor" id="variable-uplo~33"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -26766,7 +26766,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~49"></span>
+              <span class="anchor" id="variable-trans~13"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -26837,7 +26837,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~206"></span>
+              <span class="anchor" id="variable-a~46"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -26852,7 +26852,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~96"></span>
+              <span class="anchor" id="variable-x~88"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -26867,7 +26867,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~82"></span>
+              <span class="anchor" id="variable-uplo~34"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -26882,7 +26882,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~50"></span>
+              <span class="anchor" id="variable-trans~14"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -26953,7 +26953,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~207"></span>
+              <span class="anchor" id="variable-a~47"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -26968,7 +26968,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~97"></span>
+              <span class="anchor" id="variable-x~89"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -26983,7 +26983,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~83"></span>
+              <span class="anchor" id="variable-uplo~35"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -26998,7 +26998,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~51"></span>
+              <span class="anchor" id="variable-trans~15"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -27069,7 +27069,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~208"></span>
+              <span class="anchor" id="variable-a~48"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -27084,7 +27084,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~98"></span>
+              <span class="anchor" id="variable-x~90"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -27099,7 +27099,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~84"></span>
+              <span class="anchor" id="variable-uplo~36"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -27114,7 +27114,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~52"></span>
+              <span class="anchor" id="variable-trans~16"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -27200,7 +27200,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~99"></span>
+              <span class="anchor" id="variable-x~91"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -27215,7 +27215,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~85"></span>
+              <span class="anchor" id="variable-uplo~37"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -27230,7 +27230,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~53"></span>
+              <span class="anchor" id="variable-trans~17"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -27316,7 +27316,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~100"></span>
+              <span class="anchor" id="variable-x~92"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -27331,7 +27331,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~86"></span>
+              <span class="anchor" id="variable-uplo~38"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -27346,7 +27346,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~54"></span>
+              <span class="anchor" id="variable-trans~18"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -27432,7 +27432,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~101"></span>
+              <span class="anchor" id="variable-x~93"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -27447,7 +27447,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~87"></span>
+              <span class="anchor" id="variable-uplo~39"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -27462,7 +27462,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~55"></span>
+              <span class="anchor" id="variable-trans~19"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -27548,7 +27548,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~102"></span>
+              <span class="anchor" id="variable-x~94"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -27563,7 +27563,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~88"></span>
+              <span class="anchor" id="variable-uplo~40"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -27578,7 +27578,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~56"></span>
+              <span class="anchor" id="variable-trans~20"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -27664,7 +27664,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~103"></span>
+              <span class="anchor" id="variable-x~95"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -27679,7 +27679,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~89"></span>
+              <span class="anchor" id="variable-uplo~41"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -27694,7 +27694,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~57"></span>
+              <span class="anchor" id="variable-trans~21"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -27780,7 +27780,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~104"></span>
+              <span class="anchor" id="variable-x~96"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -27795,7 +27795,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~90"></span>
+              <span class="anchor" id="variable-uplo~42"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -27810,7 +27810,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~58"></span>
+              <span class="anchor" id="variable-trans~22"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -27896,7 +27896,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~105"></span>
+              <span class="anchor" id="variable-x~97"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -27911,7 +27911,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~91"></span>
+              <span class="anchor" id="variable-uplo~43"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -27926,7 +27926,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~59"></span>
+              <span class="anchor" id="variable-trans~23"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -28012,7 +28012,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~106"></span>
+              <span class="anchor" id="variable-x~98"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -28027,7 +28027,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~92"></span>
+              <span class="anchor" id="variable-uplo~44"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -28042,7 +28042,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~60"></span>
+              <span class="anchor" id="variable-trans~24"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -28113,7 +28113,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~209"></span>
+              <span class="anchor" id="variable-a~49"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -28128,7 +28128,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~107"></span>
+              <span class="anchor" id="variable-x~99"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -28143,7 +28143,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~93"></span>
+              <span class="anchor" id="variable-uplo~45"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -28158,7 +28158,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~61"></span>
+              <span class="anchor" id="variable-trans~25"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -28229,7 +28229,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~210"></span>
+              <span class="anchor" id="variable-a~50"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -28244,7 +28244,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~108"></span>
+              <span class="anchor" id="variable-x~100"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -28259,7 +28259,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~94"></span>
+              <span class="anchor" id="variable-uplo~46"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -28274,7 +28274,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~62"></span>
+              <span class="anchor" id="variable-trans~26"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -28345,7 +28345,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~211"></span>
+              <span class="anchor" id="variable-a~51"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -28360,7 +28360,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~109"></span>
+              <span class="anchor" id="variable-x~101"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -28375,7 +28375,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~95"></span>
+              <span class="anchor" id="variable-uplo~47"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -28390,7 +28390,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~63"></span>
+              <span class="anchor" id="variable-trans~27"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -28461,7 +28461,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~212"></span>
+              <span class="anchor" id="variable-a~52"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -28476,7 +28476,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~110"></span>
+              <span class="anchor" id="variable-x~102"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -28491,7 +28491,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~96"></span>
+              <span class="anchor" id="variable-uplo~48"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -28506,7 +28506,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~64"></span>
+              <span class="anchor" id="variable-trans~28"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -28577,7 +28577,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~213"></span>
+              <span class="anchor" id="variable-a~53"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -28592,7 +28592,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~111"></span>
+              <span class="anchor" id="variable-x~103"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -28607,7 +28607,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~97"></span>
+              <span class="anchor" id="variable-uplo~49"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -28622,7 +28622,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~65"></span>
+              <span class="anchor" id="variable-trans~29"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -28693,7 +28693,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~214"></span>
+              <span class="anchor" id="variable-a~54"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -28708,7 +28708,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~112"></span>
+              <span class="anchor" id="variable-x~104"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -28723,7 +28723,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~98"></span>
+              <span class="anchor" id="variable-uplo~50"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -28738,7 +28738,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~66"></span>
+              <span class="anchor" id="variable-trans~30"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -28809,7 +28809,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~215"></span>
+              <span class="anchor" id="variable-a~55"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -28824,7 +28824,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~113"></span>
+              <span class="anchor" id="variable-x~105"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -28839,7 +28839,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~99"></span>
+              <span class="anchor" id="variable-uplo~51"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -28854,7 +28854,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~67"></span>
+              <span class="anchor" id="variable-trans~31"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -28925,7 +28925,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~216"></span>
+              <span class="anchor" id="variable-a~56"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -28940,7 +28940,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~114"></span>
+              <span class="anchor" id="variable-x~106"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -28955,7 +28955,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~100"></span>
+              <span class="anchor" id="variable-uplo~52"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -28970,7 +28970,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~68"></span>
+              <span class="anchor" id="variable-trans~32"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -29041,7 +29041,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~217"></span>
+              <span class="anchor" id="variable-a~57"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -29056,7 +29056,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~53"></span>
+              <span class="anchor" id="variable-b"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -29071,7 +29071,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~31"></span>
+              <span class="anchor" id="variable-c~7"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -29172,7 +29172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~218"></span>
+              <span class="anchor" id="variable-a~58"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -29187,7 +29187,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~54"></span>
+              <span class="anchor" id="variable-b~2"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -29202,7 +29202,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~32"></span>
+              <span class="anchor" id="variable-c~8"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -29303,7 +29303,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~219"></span>
+              <span class="anchor" id="variable-a~59"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -29318,7 +29318,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~55"></span>
+              <span class="anchor" id="variable-b~3"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -29333,7 +29333,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~33"></span>
+              <span class="anchor" id="variable-c~9"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -29434,7 +29434,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~220"></span>
+              <span class="anchor" id="variable-a~60"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -29449,7 +29449,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~56"></span>
+              <span class="anchor" id="variable-b~4"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -29464,7 +29464,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~34"></span>
+              <span class="anchor" id="variable-c~10"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -29565,7 +29565,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~221"></span>
+              <span class="anchor" id="variable-a~61"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -29580,7 +29580,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~57"></span>
+              <span class="anchor" id="variable-b~5"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -29595,7 +29595,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~35"></span>
+              <span class="anchor" id="variable-c~11"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -29610,7 +29610,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~17"></span>
+              <span class="anchor" id="variable-side"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -29625,7 +29625,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~101"></span>
+              <span class="anchor" id="variable-uplo~53"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -29696,7 +29696,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~222"></span>
+              <span class="anchor" id="variable-a~62"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -29711,7 +29711,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~58"></span>
+              <span class="anchor" id="variable-b~6"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -29726,7 +29726,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~36"></span>
+              <span class="anchor" id="variable-c~12"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -29741,7 +29741,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~18"></span>
+              <span class="anchor" id="variable-side~2"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -29756,7 +29756,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~102"></span>
+              <span class="anchor" id="variable-uplo~54"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -29827,7 +29827,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~223"></span>
+              <span class="anchor" id="variable-a~63"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -29842,7 +29842,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~37"></span>
+              <span class="anchor" id="variable-c~13"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -29857,7 +29857,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~103"></span>
+              <span class="anchor" id="variable-uplo~55"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -29872,7 +29872,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~69"></span>
+              <span class="anchor" id="variable-trans~33"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -29943,7 +29943,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~224"></span>
+              <span class="anchor" id="variable-a~64"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -29958,7 +29958,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~38"></span>
+              <span class="anchor" id="variable-c~14"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -29973,7 +29973,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~104"></span>
+              <span class="anchor" id="variable-uplo~56"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -29988,7 +29988,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~70"></span>
+              <span class="anchor" id="variable-trans~34"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -30059,7 +30059,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~225"></span>
+              <span class="anchor" id="variable-a~65"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -30074,7 +30074,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~59"></span>
+              <span class="anchor" id="variable-b~7"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -30089,7 +30089,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~39"></span>
+              <span class="anchor" id="variable-c~15"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -30104,7 +30104,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~105"></span>
+              <span class="anchor" id="variable-uplo~57"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -30119,7 +30119,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~71"></span>
+              <span class="anchor" id="variable-trans~35"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -30190,7 +30190,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~226"></span>
+              <span class="anchor" id="variable-a~66"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -30205,7 +30205,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~60"></span>
+              <span class="anchor" id="variable-b~8"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -30220,7 +30220,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~40"></span>
+              <span class="anchor" id="variable-c~16"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -30235,7 +30235,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~106"></span>
+              <span class="anchor" id="variable-uplo~58"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -30250,7 +30250,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~72"></span>
+              <span class="anchor" id="variable-trans~36"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -30321,7 +30321,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~227"></span>
+              <span class="anchor" id="variable-a~67"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -30336,7 +30336,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~61"></span>
+              <span class="anchor" id="variable-b~9"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -30351,7 +30351,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~41"></span>
+              <span class="anchor" id="variable-c~17"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -30366,7 +30366,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~19"></span>
+              <span class="anchor" id="variable-side~3"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -30381,7 +30381,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~107"></span>
+              <span class="anchor" id="variable-uplo~59"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -30452,7 +30452,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~228"></span>
+              <span class="anchor" id="variable-a~68"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -30467,7 +30467,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~62"></span>
+              <span class="anchor" id="variable-b~10"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -30482,7 +30482,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~42"></span>
+              <span class="anchor" id="variable-c~18"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -30497,7 +30497,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~20"></span>
+              <span class="anchor" id="variable-side~4"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -30512,7 +30512,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~108"></span>
+              <span class="anchor" id="variable-uplo~60"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -30583,7 +30583,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~229"></span>
+              <span class="anchor" id="variable-a~69"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -30598,7 +30598,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~43"></span>
+              <span class="anchor" id="variable-c~19"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -30613,7 +30613,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~109"></span>
+              <span class="anchor" id="variable-uplo~61"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -30628,7 +30628,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~73"></span>
+              <span class="anchor" id="variable-trans~37"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -30699,7 +30699,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~230"></span>
+              <span class="anchor" id="variable-a~70"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -30714,7 +30714,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~44"></span>
+              <span class="anchor" id="variable-c~20"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -30729,7 +30729,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~110"></span>
+              <span class="anchor" id="variable-uplo~62"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -30744,7 +30744,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~74"></span>
+              <span class="anchor" id="variable-trans~38"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -30815,7 +30815,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~231"></span>
+              <span class="anchor" id="variable-a~71"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -30830,7 +30830,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~63"></span>
+              <span class="anchor" id="variable-b~11"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -30845,7 +30845,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~45"></span>
+              <span class="anchor" id="variable-c~21"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -30860,7 +30860,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~111"></span>
+              <span class="anchor" id="variable-uplo~63"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -30875,7 +30875,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~75"></span>
+              <span class="anchor" id="variable-trans~39"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -30946,7 +30946,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~232"></span>
+              <span class="anchor" id="variable-a~72"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -30961,7 +30961,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~64"></span>
+              <span class="anchor" id="variable-b~12"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -30976,7 +30976,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~46"></span>
+              <span class="anchor" id="variable-c~22"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -30991,7 +30991,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~112"></span>
+              <span class="anchor" id="variable-uplo~64"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -31006,7 +31006,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~76"></span>
+              <span class="anchor" id="variable-trans~40"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -31077,7 +31077,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~233"></span>
+              <span class="anchor" id="variable-a~73"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -31092,7 +31092,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~65"></span>
+              <span class="anchor" id="variable-b~13"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -31107,7 +31107,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~21"></span>
+              <span class="anchor" id="variable-side~5"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -31122,7 +31122,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~113"></span>
+              <span class="anchor" id="variable-uplo~65"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -31208,7 +31208,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~234"></span>
+              <span class="anchor" id="variable-a~74"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -31223,7 +31223,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~66"></span>
+              <span class="anchor" id="variable-b~14"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -31238,7 +31238,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~22"></span>
+              <span class="anchor" id="variable-side~6"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -31253,7 +31253,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~114"></span>
+              <span class="anchor" id="variable-uplo~66"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -31339,7 +31339,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~235"></span>
+              <span class="anchor" id="variable-a~75"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -31354,7 +31354,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~67"></span>
+              <span class="anchor" id="variable-b~15"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -31369,7 +31369,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~23"></span>
+              <span class="anchor" id="variable-side~7"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -31384,7 +31384,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~115"></span>
+              <span class="anchor" id="variable-uplo~67"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -31470,7 +31470,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~236"></span>
+              <span class="anchor" id="variable-a~76"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -31485,7 +31485,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~68"></span>
+              <span class="anchor" id="variable-b~16"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -31500,7 +31500,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~24"></span>
+              <span class="anchor" id="variable-side~8"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -31515,7 +31515,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~116"></span>
+              <span class="anchor" id="variable-uplo~68"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -31601,7 +31601,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~237"></span>
+              <span class="anchor" id="variable-a~77"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -31616,7 +31616,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~69"></span>
+              <span class="anchor" id="variable-b~17"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -31631,7 +31631,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~25"></span>
+              <span class="anchor" id="variable-side~9"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -31646,7 +31646,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~117"></span>
+              <span class="anchor" id="variable-uplo~69"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -31732,7 +31732,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~238"></span>
+              <span class="anchor" id="variable-a~78"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -31747,7 +31747,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~70"></span>
+              <span class="anchor" id="variable-b~18"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -31762,7 +31762,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~26"></span>
+              <span class="anchor" id="variable-side~10"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -31777,7 +31777,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~118"></span>
+              <span class="anchor" id="variable-uplo~70"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -31863,7 +31863,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~239"></span>
+              <span class="anchor" id="variable-a~79"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -31878,7 +31878,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~71"></span>
+              <span class="anchor" id="variable-b~19"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -31893,7 +31893,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~27"></span>
+              <span class="anchor" id="variable-side~11"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -31908,7 +31908,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~119"></span>
+              <span class="anchor" id="variable-uplo~71"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -31994,7 +31994,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~240"></span>
+              <span class="anchor" id="variable-a~80"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -32009,7 +32009,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~72"></span>
+              <span class="anchor" id="variable-b~20"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -32024,7 +32024,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~28"></span>
+              <span class="anchor" id="variable-side~12"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -32039,7 +32039,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~120"></span>
+              <span class="anchor" id="variable-uplo~72"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/module/mfi_lapack.html b/module/mfi_lapack.html
index cef2ddc5..c76c9f63 100644
--- a/module/mfi_lapack.html
+++ b/module/mfi_lapack.html
@@ -216,8 +216,8 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='f77_lapack.html'>f77_lapack</a></li>
                   <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
+                  <li class="list-inline-item"><a href='f77_lapack.html'>f77_lapack</a></li>
               </ul>
             </li>
         </ul>
@@ -267,7 +267,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a"></span>
+              <span class="anchor" id="variable-a~165"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -337,7 +337,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~2"></span>
+              <span class="anchor" id="variable-a~166"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -407,7 +407,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~3"></span>
+              <span class="anchor" id="variable-a~167"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -477,7 +477,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~4"></span>
+              <span class="anchor" id="variable-a~168"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -563,7 +563,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~5"></span>
+              <span class="anchor" id="variable-a~169"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -633,7 +633,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~6"></span>
+              <span class="anchor" id="variable-a~170"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -703,7 +703,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~7"></span>
+              <span class="anchor" id="variable-a~171"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -773,7 +773,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~8"></span>
+              <span class="anchor" id="variable-a~172"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -859,7 +859,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~9"></span>
+              <span class="anchor" id="variable-a~173"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -929,7 +929,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~10"></span>
+              <span class="anchor" id="variable-a~174"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -999,7 +999,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~11"></span>
+              <span class="anchor" id="variable-a~175"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -1069,7 +1069,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~12"></span>
+              <span class="anchor" id="variable-a~176"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -1155,7 +1155,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~13"></span>
+              <span class="anchor" id="variable-a~177"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -1225,7 +1225,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~14"></span>
+              <span class="anchor" id="variable-a~178"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -1295,7 +1295,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~15"></span>
+              <span class="anchor" id="variable-a~179"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -1365,7 +1365,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~16"></span>
+              <span class="anchor" id="variable-a~180"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -1451,7 +1451,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~17"></span>
+              <span class="anchor" id="variable-a~181"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -1481,7 +1481,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b"></span>
+              <span class="anchor" id="variable-b~45"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -1496,7 +1496,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans"></span>
+              <span class="anchor" id="variable-trans~81"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -1551,7 +1551,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~18"></span>
+              <span class="anchor" id="variable-a~182"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -1581,7 +1581,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~2"></span>
+              <span class="anchor" id="variable-b~46"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -1596,7 +1596,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~2"></span>
+              <span class="anchor" id="variable-trans~82"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -1651,7 +1651,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~19"></span>
+              <span class="anchor" id="variable-a~183"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -1681,7 +1681,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~3"></span>
+              <span class="anchor" id="variable-b~47"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -1696,7 +1696,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~3"></span>
+              <span class="anchor" id="variable-trans~83"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -1751,7 +1751,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~20"></span>
+              <span class="anchor" id="variable-a~184"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -1781,7 +1781,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~4"></span>
+              <span class="anchor" id="variable-b~48"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -1796,7 +1796,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~4"></span>
+              <span class="anchor" id="variable-trans~84"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -1867,7 +1867,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~21"></span>
+              <span class="anchor" id="variable-a~185"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -1882,7 +1882,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo"></span>
+              <span class="anchor" id="variable-uplo~145"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -1952,7 +1952,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~22"></span>
+              <span class="anchor" id="variable-a~186"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -1967,7 +1967,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~2"></span>
+              <span class="anchor" id="variable-uplo~146"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -2053,7 +2053,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~23"></span>
+              <span class="anchor" id="variable-a~187"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -2068,7 +2068,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~5"></span>
+              <span class="anchor" id="variable-b~49"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -2128,7 +2128,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~3"></span>
+              <span class="anchor" id="variable-uplo~147"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -2183,7 +2183,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~24"></span>
+              <span class="anchor" id="variable-a~188"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -2198,7 +2198,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~6"></span>
+              <span class="anchor" id="variable-b~50"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -2258,7 +2258,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~4"></span>
+              <span class="anchor" id="variable-uplo~148"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -2329,7 +2329,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~25"></span>
+              <span class="anchor" id="variable-a~189"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -2374,7 +2374,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~5"></span>
+              <span class="anchor" id="variable-uplo~149"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -2429,7 +2429,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~26"></span>
+              <span class="anchor" id="variable-a~190"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -2474,7 +2474,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~6"></span>
+              <span class="anchor" id="variable-uplo~150"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -2545,7 +2545,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~27"></span>
+              <span class="anchor" id="variable-a~191"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -2560,7 +2560,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s"></span>
+              <span class="anchor" id="variable-s~17"></span>
               real(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -2675,7 +2675,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~28"></span>
+              <span class="anchor" id="variable-a~192"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -2690,7 +2690,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~2"></span>
+              <span class="anchor" id="variable-s~18"></span>
               real(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -2805,7 +2805,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~29"></span>
+              <span class="anchor" id="variable-a~193"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -2820,7 +2820,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~3"></span>
+              <span class="anchor" id="variable-s~19"></span>
               real(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -2935,7 +2935,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~30"></span>
+              <span class="anchor" id="variable-a~194"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -2950,7 +2950,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~4"></span>
+              <span class="anchor" id="variable-s~20"></span>
               real(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -3081,7 +3081,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~31"></span>
+              <span class="anchor" id="variable-a~195"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -3111,7 +3111,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~7"></span>
+              <span class="anchor" id="variable-uplo~151"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -3151,7 +3151,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~32"></span>
+              <span class="anchor" id="variable-a~196"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -3181,7 +3181,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~8"></span>
+              <span class="anchor" id="variable-uplo~152"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -3221,7 +3221,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~33"></span>
+              <span class="anchor" id="variable-a~197"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -3251,7 +3251,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~9"></span>
+              <span class="anchor" id="variable-uplo~153"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -3291,7 +3291,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~34"></span>
+              <span class="anchor" id="variable-a~198"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -3321,7 +3321,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~10"></span>
+              <span class="anchor" id="variable-uplo~154"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -3377,7 +3377,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~35"></span>
+              <span class="anchor" id="variable-a~199"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -3407,7 +3407,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~11"></span>
+              <span class="anchor" id="variable-uplo~155"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -3447,7 +3447,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~36"></span>
+              <span class="anchor" id="variable-a~200"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -3477,7 +3477,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~12"></span>
+              <span class="anchor" id="variable-uplo~156"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -3517,7 +3517,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~37"></span>
+              <span class="anchor" id="variable-a~201"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -3547,7 +3547,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~13"></span>
+              <span class="anchor" id="variable-uplo~157"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -3587,7 +3587,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~38"></span>
+              <span class="anchor" id="variable-a~202"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -3617,7 +3617,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~14"></span>
+              <span class="anchor" id="variable-uplo~158"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -3673,7 +3673,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~39"></span>
+              <span class="anchor" id="variable-a~203"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -3688,7 +3688,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~7"></span>
+              <span class="anchor" id="variable-b~51"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -3703,7 +3703,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~15"></span>
+              <span class="anchor" id="variable-uplo~159"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -3758,7 +3758,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~40"></span>
+              <span class="anchor" id="variable-a~204"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -3773,7 +3773,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~8"></span>
+              <span class="anchor" id="variable-b~52"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -3788,7 +3788,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~16"></span>
+              <span class="anchor" id="variable-uplo~160"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -3843,7 +3843,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~41"></span>
+              <span class="anchor" id="variable-a~205"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -3858,7 +3858,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~9"></span>
+              <span class="anchor" id="variable-b~53"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -3873,7 +3873,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~17"></span>
+              <span class="anchor" id="variable-uplo~161"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -3928,7 +3928,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~42"></span>
+              <span class="anchor" id="variable-a~206"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -3943,7 +3943,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~10"></span>
+              <span class="anchor" id="variable-b~54"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -3958,7 +3958,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~18"></span>
+              <span class="anchor" id="variable-uplo~162"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -4030,7 +4030,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~43"></span>
+              <span class="anchor" id="variable-a~207"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -4075,7 +4075,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~19"></span>
+              <span class="anchor" id="variable-uplo~163"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -4131,7 +4131,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~44"></span>
+              <span class="anchor" id="variable-a~208"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -4176,7 +4176,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~20"></span>
+              <span class="anchor" id="variable-uplo~164"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -4232,7 +4232,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~45"></span>
+              <span class="anchor" id="variable-a~209"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -4277,7 +4277,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~21"></span>
+              <span class="anchor" id="variable-uplo~165"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -4333,7 +4333,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~46"></span>
+              <span class="anchor" id="variable-a~210"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -4378,7 +4378,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~22"></span>
+              <span class="anchor" id="variable-uplo~166"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -4443,7 +4443,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a"></span>
+              <span class="anchor" id="variable-a~165"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -4514,7 +4514,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~2"></span>
+              <span class="anchor" id="variable-a~166"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -4585,7 +4585,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~3"></span>
+              <span class="anchor" id="variable-a~167"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -4656,7 +4656,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~4"></span>
+              <span class="anchor" id="variable-a~168"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -4727,7 +4727,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~5"></span>
+              <span class="anchor" id="variable-a~169"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -4798,7 +4798,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~6"></span>
+              <span class="anchor" id="variable-a~170"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -4869,7 +4869,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~7"></span>
+              <span class="anchor" id="variable-a~171"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -4940,7 +4940,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~8"></span>
+              <span class="anchor" id="variable-a~172"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -5011,7 +5011,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~9"></span>
+              <span class="anchor" id="variable-a~173"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -5082,7 +5082,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~10"></span>
+              <span class="anchor" id="variable-a~174"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -5153,7 +5153,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~11"></span>
+              <span class="anchor" id="variable-a~175"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -5224,7 +5224,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~12"></span>
+              <span class="anchor" id="variable-a~176"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -5295,7 +5295,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~13"></span>
+              <span class="anchor" id="variable-a~177"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -5366,7 +5366,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~14"></span>
+              <span class="anchor" id="variable-a~178"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -5437,7 +5437,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~15"></span>
+              <span class="anchor" id="variable-a~179"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -5508,7 +5508,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~16"></span>
+              <span class="anchor" id="variable-a~180"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -5579,7 +5579,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~17"></span>
+              <span class="anchor" id="variable-a~181"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -5609,7 +5609,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b"></span>
+              <span class="anchor" id="variable-b~45"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -5624,7 +5624,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans"></span>
+              <span class="anchor" id="variable-trans~81"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -5680,7 +5680,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~18"></span>
+              <span class="anchor" id="variable-a~182"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -5710,7 +5710,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~2"></span>
+              <span class="anchor" id="variable-b~46"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -5725,7 +5725,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~2"></span>
+              <span class="anchor" id="variable-trans~82"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -5781,7 +5781,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~19"></span>
+              <span class="anchor" id="variable-a~183"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -5811,7 +5811,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~3"></span>
+              <span class="anchor" id="variable-b~47"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -5826,7 +5826,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~3"></span>
+              <span class="anchor" id="variable-trans~83"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -5882,7 +5882,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~20"></span>
+              <span class="anchor" id="variable-a~184"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -5912,7 +5912,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~4"></span>
+              <span class="anchor" id="variable-b~48"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -5927,7 +5927,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~4"></span>
+              <span class="anchor" id="variable-trans~84"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -5983,7 +5983,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~21"></span>
+              <span class="anchor" id="variable-a~185"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -5998,7 +5998,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo"></span>
+              <span class="anchor" id="variable-uplo~145"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -6069,7 +6069,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~22"></span>
+              <span class="anchor" id="variable-a~186"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -6084,7 +6084,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~2"></span>
+              <span class="anchor" id="variable-uplo~146"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -6155,7 +6155,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~23"></span>
+              <span class="anchor" id="variable-a~187"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -6170,7 +6170,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~5"></span>
+              <span class="anchor" id="variable-b~49"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -6230,7 +6230,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~3"></span>
+              <span class="anchor" id="variable-uplo~147"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -6286,7 +6286,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~24"></span>
+              <span class="anchor" id="variable-a~188"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -6301,7 +6301,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~6"></span>
+              <span class="anchor" id="variable-b~50"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -6361,7 +6361,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~4"></span>
+              <span class="anchor" id="variable-uplo~148"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -6417,7 +6417,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~25"></span>
+              <span class="anchor" id="variable-a~189"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -6462,7 +6462,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~5"></span>
+              <span class="anchor" id="variable-uplo~149"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -6518,7 +6518,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~26"></span>
+              <span class="anchor" id="variable-a~190"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -6563,7 +6563,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~6"></span>
+              <span class="anchor" id="variable-uplo~150"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -6619,7 +6619,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~27"></span>
+              <span class="anchor" id="variable-a~191"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -6634,7 +6634,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s"></span>
+              <span class="anchor" id="variable-s~17"></span>
               real(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -6750,7 +6750,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~28"></span>
+              <span class="anchor" id="variable-a~192"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -6765,7 +6765,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~2"></span>
+              <span class="anchor" id="variable-s~18"></span>
               real(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -6881,7 +6881,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~29"></span>
+              <span class="anchor" id="variable-a~193"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -6896,7 +6896,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~3"></span>
+              <span class="anchor" id="variable-s~19"></span>
               real(kind=REAL32),
             </td>
 <td>intent(out)</td>
@@ -7012,7 +7012,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~30"></span>
+              <span class="anchor" id="variable-a~194"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -7027,7 +7027,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~4"></span>
+              <span class="anchor" id="variable-s~20"></span>
               real(kind=REAL64),
             </td>
 <td>intent(out)</td>
@@ -7143,7 +7143,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~31"></span>
+              <span class="anchor" id="variable-a~195"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -7173,7 +7173,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~7"></span>
+              <span class="anchor" id="variable-uplo~151"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -7214,7 +7214,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~32"></span>
+              <span class="anchor" id="variable-a~196"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -7244,7 +7244,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~8"></span>
+              <span class="anchor" id="variable-uplo~152"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -7285,7 +7285,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~33"></span>
+              <span class="anchor" id="variable-a~197"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -7315,7 +7315,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~9"></span>
+              <span class="anchor" id="variable-uplo~153"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -7356,7 +7356,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~34"></span>
+              <span class="anchor" id="variable-a~198"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -7386,7 +7386,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~10"></span>
+              <span class="anchor" id="variable-uplo~154"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -7427,7 +7427,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~35"></span>
+              <span class="anchor" id="variable-a~199"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -7457,7 +7457,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~11"></span>
+              <span class="anchor" id="variable-uplo~155"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -7498,7 +7498,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~36"></span>
+              <span class="anchor" id="variable-a~200"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -7528,7 +7528,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~12"></span>
+              <span class="anchor" id="variable-uplo~156"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -7569,7 +7569,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~37"></span>
+              <span class="anchor" id="variable-a~201"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -7599,7 +7599,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~13"></span>
+              <span class="anchor" id="variable-uplo~157"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -7640,7 +7640,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~38"></span>
+              <span class="anchor" id="variable-a~202"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -7670,7 +7670,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~14"></span>
+              <span class="anchor" id="variable-uplo~158"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -7711,7 +7711,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~39"></span>
+              <span class="anchor" id="variable-a~203"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -7726,7 +7726,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~7"></span>
+              <span class="anchor" id="variable-b~51"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -7741,7 +7741,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~15"></span>
+              <span class="anchor" id="variable-uplo~159"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -7797,7 +7797,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~40"></span>
+              <span class="anchor" id="variable-a~204"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -7812,7 +7812,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~8"></span>
+              <span class="anchor" id="variable-b~52"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -7827,7 +7827,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~16"></span>
+              <span class="anchor" id="variable-uplo~160"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -7883,7 +7883,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~41"></span>
+              <span class="anchor" id="variable-a~205"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -7898,7 +7898,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~9"></span>
+              <span class="anchor" id="variable-b~53"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -7913,7 +7913,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~17"></span>
+              <span class="anchor" id="variable-uplo~161"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -7969,7 +7969,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~42"></span>
+              <span class="anchor" id="variable-a~206"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -7984,7 +7984,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~10"></span>
+              <span class="anchor" id="variable-b~54"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -7999,7 +7999,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~18"></span>
+              <span class="anchor" id="variable-uplo~162"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -8056,7 +8056,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~43"></span>
+              <span class="anchor" id="variable-a~207"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -8101,7 +8101,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~19"></span>
+              <span class="anchor" id="variable-uplo~163"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -8158,7 +8158,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~44"></span>
+              <span class="anchor" id="variable-a~208"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -8203,7 +8203,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~20"></span>
+              <span class="anchor" id="variable-uplo~164"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -8260,7 +8260,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~45"></span>
+              <span class="anchor" id="variable-a~209"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -8305,7 +8305,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~21"></span>
+              <span class="anchor" id="variable-uplo~165"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -8362,7 +8362,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~46"></span>
+              <span class="anchor" id="variable-a~210"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -8407,7 +8407,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~22"></span>
+              <span class="anchor" id="variable-uplo~166"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/icamax.html b/proc/icamax.html
index a7252876..8dde3eb3 100644
--- a/proc/icamax.html
+++ b/proc/icamax.html
@@ -149,7 +149,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~433"></span>
+              <span class="anchor" id="variable-n~273"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -164,7 +164,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~231"></span>
+              <span class="anchor" id="variable-x~223"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
diff --git a/proc/icamin.html b/proc/icamin.html
index 6c531a38..02eb4015 100644
--- a/proc/icamin.html
+++ b/proc/icamin.html
@@ -149,7 +149,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~437"></span>
+              <span class="anchor" id="variable-n~277"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -164,7 +164,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~235"></span>
+              <span class="anchor" id="variable-x~227"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
diff --git a/proc/idamax.html b/proc/idamax.html
index d059c8fa..a2f0e1ca 100644
--- a/proc/idamax.html
+++ b/proc/idamax.html
@@ -149,7 +149,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~432"></span>
+              <span class="anchor" id="variable-n~272"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -164,7 +164,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~230"></span>
+              <span class="anchor" id="variable-x~222"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/proc/idamin.html b/proc/idamin.html
index a7f4979a..6daf891e 100644
--- a/proc/idamin.html
+++ b/proc/idamin.html
@@ -149,7 +149,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~436"></span>
+              <span class="anchor" id="variable-n~276"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -164,7 +164,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~234"></span>
+              <span class="anchor" id="variable-x~226"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/proc/isamax.html b/proc/isamax.html
index b0786b65..ed1f9851 100644
--- a/proc/isamax.html
+++ b/proc/isamax.html
@@ -149,7 +149,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~431"></span>
+              <span class="anchor" id="variable-n~271"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -164,7 +164,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~229"></span>
+              <span class="anchor" id="variable-x~221"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
diff --git a/proc/isamin.html b/proc/isamin.html
index a8edda91..09a0a684 100644
--- a/proc/isamin.html
+++ b/proc/isamin.html
@@ -149,7 +149,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~435"></span>
+              <span class="anchor" id="variable-n~275"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -164,7 +164,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~233"></span>
+              <span class="anchor" id="variable-x~225"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
diff --git a/proc/izamax.html b/proc/izamax.html
index 575e0029..f506fae3 100644
--- a/proc/izamax.html
+++ b/proc/izamax.html
@@ -149,7 +149,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~434"></span>
+              <span class="anchor" id="variable-n~274"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -164,7 +164,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~232"></span>
+              <span class="anchor" id="variable-x~224"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/proc/izamin.html b/proc/izamin.html
index 790e5139..6346213d 100644
--- a/proc/izamin.html
+++ b/proc/izamin.html
@@ -149,7 +149,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-n~438"></span>
+              <span class="anchor" id="variable-n~278"></span>
               integer,
             </td>
 <td>intent(in)</td>
@@ -164,7 +164,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~236"></span>
+              <span class="anchor" id="variable-x~228"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_caxpy.html b/proc/mfi_caxpy.html
index 40d1ea90..05f4fe8b 100644
--- a/proc/mfi_caxpy.html
+++ b/proc/mfi_caxpy.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~19"></span>
+              <span class="anchor" id="variable-x~11"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~15"></span>
+              <span class="anchor" id="variable-y~11"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~163"></span>
+              <span class="anchor" id="variable-a~3"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_ccopy.html b/proc/mfi_ccopy.html
index ad3ce2eb..40a1b298 100644
--- a/proc/mfi_ccopy.html
+++ b/proc/mfi_ccopy.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~11"></span>
+              <span class="anchor" id="variable-x~3"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~7"></span>
+              <span class="anchor" id="variable-y~3"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_cdotc.html b/proc/mfi_cdotc.html
index 39e77eda..ced545ed 100644
--- a/proc/mfi_cdotc.html
+++ b/proc/mfi_cdotc.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~23"></span>
+              <span class="anchor" id="variable-x~15"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~19"></span>
+              <span class="anchor" id="variable-y~15"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_cdotu.html b/proc/mfi_cdotu.html
index ee138ad7..8977e4cf 100644
--- a/proc/mfi_cdotu.html
+++ b/proc/mfi_cdotu.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~25"></span>
+              <span class="anchor" id="variable-x~17"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~21"></span>
+              <span class="anchor" id="variable-y~17"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_cgbmv.html b/proc/mfi_cgbmv.html
index 006435e4..d7d52ca6 100644
--- a/proc/mfi_cgbmv.html
+++ b/proc/mfi_cgbmv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~173"></span>
+              <span class="anchor" id="variable-a~13"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~51"></span>
+              <span class="anchor" id="variable-x~43"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~33"></span>
+              <span class="anchor" id="variable-y~29"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -211,7 +211,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~103"></span>
+              <span class="anchor" id="variable-m~3"></span>
               integer,
             </td>
 <td>intent(in),</td>
@@ -256,7 +256,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~39"></span>
+              <span class="anchor" id="variable-trans~3"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_cgemm.html b/proc/mfi_cgemm.html
index ab57636d..85704969 100644
--- a/proc/mfi_cgemm.html
+++ b/proc/mfi_cgemm.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~219"></span>
+              <span class="anchor" id="variable-a~59"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~55"></span>
+              <span class="anchor" id="variable-b~3"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~33"></span>
+              <span class="anchor" id="variable-c~9"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_cgemv.html b/proc/mfi_cgemv.html
index c8c5616c..2fe6d5b0 100644
--- a/proc/mfi_cgemv.html
+++ b/proc/mfi_cgemv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~177"></span>
+              <span class="anchor" id="variable-a~17"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~55"></span>
+              <span class="anchor" id="variable-x~47"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~37"></span>
+              <span class="anchor" id="variable-y~33"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~43"></span>
+              <span class="anchor" id="variable-trans~7"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_cgeqrf.html b/proc/mfi_cgeqrf.html
index 42658240..5e892461 100644
--- a/proc/mfi_cgeqrf.html
+++ b/proc/mfi_cgeqrf.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~3"></span>
+              <span class="anchor" id="variable-a~167"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_cgerc.html b/proc/mfi_cgerc.html
index 91cf0903..8b2ffbc5 100644
--- a/proc/mfi_cgerc.html
+++ b/proc/mfi_cgerc.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~181"></span>
+              <span class="anchor" id="variable-a~21"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~59"></span>
+              <span class="anchor" id="variable-x~51"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~41"></span>
+              <span class="anchor" id="variable-y~37"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_cgerqf.html b/proc/mfi_cgerqf.html
index 9b301262..f3108c4e 100644
--- a/proc/mfi_cgerqf.html
+++ b/proc/mfi_cgerqf.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~7"></span>
+              <span class="anchor" id="variable-a~171"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_cgeru.html b/proc/mfi_cgeru.html
index d86b28be..f67b8209 100644
--- a/proc/mfi_cgeru.html
+++ b/proc/mfi_cgeru.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~183"></span>
+              <span class="anchor" id="variable-a~23"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~61"></span>
+              <span class="anchor" id="variable-x~53"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~43"></span>
+              <span class="anchor" id="variable-y~39"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_cgesvd.html b/proc/mfi_cgesvd.html
index 148cfb74..1049121f 100644
--- a/proc/mfi_cgesvd.html
+++ b/proc/mfi_cgesvd.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~29"></span>
+              <span class="anchor" id="variable-a~193"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~3"></span>
+              <span class="anchor" id="variable-s~19"></span>
               real(kind=REAL32),
             </td>
 <td>intent(out)</td>
diff --git a/proc/mfi_cgetrf.html b/proc/mfi_cgetrf.html
index 209c89e1..09bdff1f 100644
--- a/proc/mfi_cgetrf.html
+++ b/proc/mfi_cgetrf.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~11"></span>
+              <span class="anchor" id="variable-a~175"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_cgetri.html b/proc/mfi_cgetri.html
index 68390f8a..2a0b0ba6 100644
--- a/proc/mfi_cgetri.html
+++ b/proc/mfi_cgetri.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~15"></span>
+              <span class="anchor" id="variable-a~179"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_cgetrs.html b/proc/mfi_cgetrs.html
index 012d1b18..67a51e6a 100644
--- a/proc/mfi_cgetrs.html
+++ b/proc/mfi_cgetrs.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~19"></span>
+              <span class="anchor" id="variable-a~183"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~3"></span>
+              <span class="anchor" id="variable-b~47"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~3"></span>
+              <span class="anchor" id="variable-trans~83"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_chbmv.html b/proc/mfi_chbmv.html
index f67c04e3..807238ca 100644
--- a/proc/mfi_chbmv.html
+++ b/proc/mfi_chbmv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~185"></span>
+              <span class="anchor" id="variable-a~25"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~63"></span>
+              <span class="anchor" id="variable-x~55"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~45"></span>
+              <span class="anchor" id="variable-y~41"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~49"></span>
+              <span class="anchor" id="variable-uplo"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_cheevd.html b/proc/mfi_cheevd.html
index 6aba780f..0930c1c1 100644
--- a/proc/mfi_cheevd.html
+++ b/proc/mfi_cheevd.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~25"></span>
+              <span class="anchor" id="variable-a~189"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~5"></span>
+              <span class="anchor" id="variable-uplo~149"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_chegv.html b/proc/mfi_chegv.html
index 9fc446be..68d5d21f 100644
--- a/proc/mfi_chegv.html
+++ b/proc/mfi_chegv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~23"></span>
+              <span class="anchor" id="variable-a~187"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~5"></span>
+              <span class="anchor" id="variable-b~49"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -226,7 +226,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~3"></span>
+              <span class="anchor" id="variable-uplo~147"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_chemm.html b/proc/mfi_chemm.html
index 56eb94cb..75ab7295 100644
--- a/proc/mfi_chemm.html
+++ b/proc/mfi_chemm.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~221"></span>
+              <span class="anchor" id="variable-a~61"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~57"></span>
+              <span class="anchor" id="variable-b~5"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~35"></span>
+              <span class="anchor" id="variable-c~11"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~17"></span>
+              <span class="anchor" id="variable-side"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -211,7 +211,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~101"></span>
+              <span class="anchor" id="variable-uplo~53"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_chemv.html b/proc/mfi_chemv.html
index 0d7ac9a9..e94115a4 100644
--- a/proc/mfi_chemv.html
+++ b/proc/mfi_chemv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~187"></span>
+              <span class="anchor" id="variable-a~27"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~65"></span>
+              <span class="anchor" id="variable-x~57"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~47"></span>
+              <span class="anchor" id="variable-y~43"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~51"></span>
+              <span class="anchor" id="variable-uplo~3"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_cher.html b/proc/mfi_cher.html
index ef6fae8e..db377f14 100644
--- a/proc/mfi_cher.html
+++ b/proc/mfi_cher.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~189"></span>
+              <span class="anchor" id="variable-a~29"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~67"></span>
+              <span class="anchor" id="variable-x~59"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~53"></span>
+              <span class="anchor" id="variable-uplo~5"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_cher2.html b/proc/mfi_cher2.html
index 8e83a40a..557ca0a2 100644
--- a/proc/mfi_cher2.html
+++ b/proc/mfi_cher2.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~191"></span>
+              <span class="anchor" id="variable-a~31"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~69"></span>
+              <span class="anchor" id="variable-x~61"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~49"></span>
+              <span class="anchor" id="variable-y~45"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~55"></span>
+              <span class="anchor" id="variable-uplo~7"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_cher2k.html b/proc/mfi_cher2k.html
index 4ba60b86..91f0a16b 100644
--- a/proc/mfi_cher2k.html
+++ b/proc/mfi_cher2k.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~225"></span>
+              <span class="anchor" id="variable-a~65"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~59"></span>
+              <span class="anchor" id="variable-b~7"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~39"></span>
+              <span class="anchor" id="variable-c~15"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~105"></span>
+              <span class="anchor" id="variable-uplo~57"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -211,7 +211,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~71"></span>
+              <span class="anchor" id="variable-trans~35"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_cherk.html b/proc/mfi_cherk.html
index f8b65085..3e778a7b 100644
--- a/proc/mfi_cherk.html
+++ b/proc/mfi_cherk.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~223"></span>
+              <span class="anchor" id="variable-a~63"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~37"></span>
+              <span class="anchor" id="variable-c~13"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~103"></span>
+              <span class="anchor" id="variable-uplo~55"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~69"></span>
+              <span class="anchor" id="variable-trans~33"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_chetrf.html b/proc/mfi_chetrf.html
index 179de303..fb5ede81 100644
--- a/proc/mfi_chetrf.html
+++ b/proc/mfi_chetrf.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~21"></span>
+              <span class="anchor" id="variable-a~185"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo"></span>
+              <span class="anchor" id="variable-uplo~145"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_chpmv.html b/proc/mfi_chpmv.html
index daeb63b7..4dd135fd 100644
--- a/proc/mfi_chpmv.html
+++ b/proc/mfi_chpmv.html
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~71"></span>
+              <span class="anchor" id="variable-x~63"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~51"></span>
+              <span class="anchor" id="variable-y~47"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~57"></span>
+              <span class="anchor" id="variable-uplo~9"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_chpr.html b/proc/mfi_chpr.html
index c00f2ad0..ba8e6b2f 100644
--- a/proc/mfi_chpr.html
+++ b/proc/mfi_chpr.html
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~73"></span>
+              <span class="anchor" id="variable-x~65"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~59"></span>
+              <span class="anchor" id="variable-uplo~11"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_chpr2.html b/proc/mfi_chpr2.html
index 6f9ca9b7..439dbf89 100644
--- a/proc/mfi_chpr2.html
+++ b/proc/mfi_chpr2.html
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~75"></span>
+              <span class="anchor" id="variable-x~67"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~53"></span>
+              <span class="anchor" id="variable-y~49"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~61"></span>
+              <span class="anchor" id="variable-uplo~13"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_cpocon.html b/proc/mfi_cpocon.html
index 4dc2dd94..9e7e90d0 100644
--- a/proc/mfi_cpocon.html
+++ b/proc/mfi_cpocon.html
@@ -152,7 +152,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~45"></span>
+              <span class="anchor" id="variable-a~209"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -197,7 +197,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~21"></span>
+              <span class="anchor" id="variable-uplo~165"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_cpotrf.html b/proc/mfi_cpotrf.html
index d281a317..d498ace5 100644
--- a/proc/mfi_cpotrf.html
+++ b/proc/mfi_cpotrf.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~33"></span>
+              <span class="anchor" id="variable-a~197"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~9"></span>
+              <span class="anchor" id="variable-uplo~153"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_cpotri.html b/proc/mfi_cpotri.html
index c4cae274..f64bfc28 100644
--- a/proc/mfi_cpotri.html
+++ b/proc/mfi_cpotri.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~37"></span>
+              <span class="anchor" id="variable-a~201"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~13"></span>
+              <span class="anchor" id="variable-uplo~157"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_cpotrs.html b/proc/mfi_cpotrs.html
index a3df01f7..7ad7743d 100644
--- a/proc/mfi_cpotrs.html
+++ b/proc/mfi_cpotrs.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~41"></span>
+              <span class="anchor" id="variable-a~205"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~9"></span>
+              <span class="anchor" id="variable-b~53"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~17"></span>
+              <span class="anchor" id="variable-uplo~161"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_crot.html b/proc/mfi_crot.html
index 8d53aec7..4fe4a963 100644
--- a/proc/mfi_crot.html
+++ b/proc/mfi_crot.html
@@ -156,7 +156,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~37"></span>
+              <span class="anchor" id="variable-x~29"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -171,7 +171,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~25"></span>
+              <span class="anchor" id="variable-y~21"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -186,7 +186,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~27"></span>
+              <span class="anchor" id="variable-c~3"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -201,7 +201,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~23"></span>
+              <span class="anchor" id="variable-s~3"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_cscal.html b/proc/mfi_cscal.html
index 96191d0f..d324049c 100644
--- a/proc/mfi_cscal.html
+++ b/proc/mfi_cscal.html
@@ -152,7 +152,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~167"></span>
+              <span class="anchor" id="variable-a~7"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -167,7 +167,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~45"></span>
+              <span class="anchor" id="variable-x~37"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_csrot.html b/proc/mfi_csrot.html
index 6e8572a4..7c52623e 100644
--- a/proc/mfi_csrot.html
+++ b/proc/mfi_csrot.html
@@ -156,7 +156,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~39"></span>
+              <span class="anchor" id="variable-x~31"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -171,7 +171,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~27"></span>
+              <span class="anchor" id="variable-y~23"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -186,7 +186,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~29"></span>
+              <span class="anchor" id="variable-c~5"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -201,7 +201,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~25"></span>
+              <span class="anchor" id="variable-s~5"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_csscal.html b/proc/mfi_csscal.html
index b467b827..352acb9c 100644
--- a/proc/mfi_csscal.html
+++ b/proc/mfi_csscal.html
@@ -152,7 +152,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~169"></span>
+              <span class="anchor" id="variable-a~9"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -167,7 +167,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~47"></span>
+              <span class="anchor" id="variable-x~39"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_cswap.html b/proc/mfi_cswap.html
index 4b7de7b3..6cd6e962 100644
--- a/proc/mfi_cswap.html
+++ b/proc/mfi_cswap.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~15"></span>
+              <span class="anchor" id="variable-x~7"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~11"></span>
+              <span class="anchor" id="variable-y~7"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_ctbmv.html b/proc/mfi_ctbmv.html
index f7f1c283..fec8f122 100644
--- a/proc/mfi_ctbmv.html
+++ b/proc/mfi_ctbmv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~203"></span>
+              <span class="anchor" id="variable-a~43"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~93"></span>
+              <span class="anchor" id="variable-x~85"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~79"></span>
+              <span class="anchor" id="variable-uplo~31"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~47"></span>
+              <span class="anchor" id="variable-trans~11"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_ctbsv.html b/proc/mfi_ctbsv.html
index 097e7395..b5887f57 100644
--- a/proc/mfi_ctbsv.html
+++ b/proc/mfi_ctbsv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~207"></span>
+              <span class="anchor" id="variable-a~47"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~97"></span>
+              <span class="anchor" id="variable-x~89"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~83"></span>
+              <span class="anchor" id="variable-uplo~35"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~51"></span>
+              <span class="anchor" id="variable-trans~15"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_ctpmv.html b/proc/mfi_ctpmv.html
index 2415def5..57a94a1a 100644
--- a/proc/mfi_ctpmv.html
+++ b/proc/mfi_ctpmv.html
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~101"></span>
+              <span class="anchor" id="variable-x~93"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~87"></span>
+              <span class="anchor" id="variable-uplo~39"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~55"></span>
+              <span class="anchor" id="variable-trans~19"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_ctpsv.html b/proc/mfi_ctpsv.html
index d3b68fac..907b26a0 100644
--- a/proc/mfi_ctpsv.html
+++ b/proc/mfi_ctpsv.html
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~105"></span>
+              <span class="anchor" id="variable-x~97"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~91"></span>
+              <span class="anchor" id="variable-uplo~43"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~59"></span>
+              <span class="anchor" id="variable-trans~23"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_ctrmm.html b/proc/mfi_ctrmm.html
index 2e763e6d..ab542bb2 100644
--- a/proc/mfi_ctrmm.html
+++ b/proc/mfi_ctrmm.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~235"></span>
+              <span class="anchor" id="variable-a~75"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~67"></span>
+              <span class="anchor" id="variable-b~15"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~23"></span>
+              <span class="anchor" id="variable-side~7"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~115"></span>
+              <span class="anchor" id="variable-uplo~67"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_ctrmv.html b/proc/mfi_ctrmv.html
index 53da9715..e1e3c758 100644
--- a/proc/mfi_ctrmv.html
+++ b/proc/mfi_ctrmv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~211"></span>
+              <span class="anchor" id="variable-a~51"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~109"></span>
+              <span class="anchor" id="variable-x~101"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~95"></span>
+              <span class="anchor" id="variable-uplo~47"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~63"></span>
+              <span class="anchor" id="variable-trans~27"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_ctrsm.html b/proc/mfi_ctrsm.html
index a2f73cbc..d768d4dd 100644
--- a/proc/mfi_ctrsm.html
+++ b/proc/mfi_ctrsm.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~239"></span>
+              <span class="anchor" id="variable-a~79"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~71"></span>
+              <span class="anchor" id="variable-b~19"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~27"></span>
+              <span class="anchor" id="variable-side~11"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~119"></span>
+              <span class="anchor" id="variable-uplo~71"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_ctrsv.html b/proc/mfi_ctrsv.html
index 39507768..0eefa420 100644
--- a/proc/mfi_ctrsv.html
+++ b/proc/mfi_ctrsv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~215"></span>
+              <span class="anchor" id="variable-a~55"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~113"></span>
+              <span class="anchor" id="variable-x~105"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~99"></span>
+              <span class="anchor" id="variable-uplo~51"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~67"></span>
+              <span class="anchor" id="variable-trans~31"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_dasum.html b/proc/mfi_dasum.html
index c352e4d9..59420524 100644
--- a/proc/mfi_dasum.html
+++ b/proc/mfi_dasum.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~28"></span>
+              <span class="anchor" id="variable-x~20"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_daxpy.html b/proc/mfi_daxpy.html
index ad5bee60..f39b468e 100644
--- a/proc/mfi_daxpy.html
+++ b/proc/mfi_daxpy.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~18"></span>
+              <span class="anchor" id="variable-x~10"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~14"></span>
+              <span class="anchor" id="variable-y~10"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~162"></span>
+              <span class="anchor" id="variable-a~2"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_dcopy.html b/proc/mfi_dcopy.html
index 63296bd8..cc697004 100644
--- a/proc/mfi_dcopy.html
+++ b/proc/mfi_dcopy.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~10"></span>
+              <span class="anchor" id="variable-x~2"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~6"></span>
+              <span class="anchor" id="variable-y~2"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_ddot.html b/proc/mfi_ddot.html
index 82ada652..7314ff99 100644
--- a/proc/mfi_ddot.html
+++ b/proc/mfi_ddot.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~22"></span>
+              <span class="anchor" id="variable-x~14"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~18"></span>
+              <span class="anchor" id="variable-y~14"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_dgbmv.html b/proc/mfi_dgbmv.html
index a51cf7f9..e7cc1920 100644
--- a/proc/mfi_dgbmv.html
+++ b/proc/mfi_dgbmv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~172"></span>
+              <span class="anchor" id="variable-a~12"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~50"></span>
+              <span class="anchor" id="variable-x~42"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~32"></span>
+              <span class="anchor" id="variable-y~28"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -211,7 +211,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~102"></span>
+              <span class="anchor" id="variable-m~2"></span>
               integer,
             </td>
 <td>intent(in),</td>
@@ -256,7 +256,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~38"></span>
+              <span class="anchor" id="variable-trans~2"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_dgemm.html b/proc/mfi_dgemm.html
index da896985..f7a516e1 100644
--- a/proc/mfi_dgemm.html
+++ b/proc/mfi_dgemm.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~218"></span>
+              <span class="anchor" id="variable-a~58"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~54"></span>
+              <span class="anchor" id="variable-b~2"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~32"></span>
+              <span class="anchor" id="variable-c~8"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_dgemv.html b/proc/mfi_dgemv.html
index 0e591d6c..d75bb2ba 100644
--- a/proc/mfi_dgemv.html
+++ b/proc/mfi_dgemv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~176"></span>
+              <span class="anchor" id="variable-a~16"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~54"></span>
+              <span class="anchor" id="variable-x~46"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~36"></span>
+              <span class="anchor" id="variable-y~32"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~42"></span>
+              <span class="anchor" id="variable-trans~6"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_dgeqrf.html b/proc/mfi_dgeqrf.html
index 0ae2badb..66c5e702 100644
--- a/proc/mfi_dgeqrf.html
+++ b/proc/mfi_dgeqrf.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~2"></span>
+              <span class="anchor" id="variable-a~166"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_dger.html b/proc/mfi_dger.html
index c854d11f..d542a18f 100644
--- a/proc/mfi_dger.html
+++ b/proc/mfi_dger.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~180"></span>
+              <span class="anchor" id="variable-a~20"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~58"></span>
+              <span class="anchor" id="variable-x~50"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~40"></span>
+              <span class="anchor" id="variable-y~36"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_dgerqf.html b/proc/mfi_dgerqf.html
index 082b64a3..495a0121 100644
--- a/proc/mfi_dgerqf.html
+++ b/proc/mfi_dgerqf.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~6"></span>
+              <span class="anchor" id="variable-a~170"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_dgesvd.html b/proc/mfi_dgesvd.html
index 259052bb..8faa8a4d 100644
--- a/proc/mfi_dgesvd.html
+++ b/proc/mfi_dgesvd.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~28"></span>
+              <span class="anchor" id="variable-a~192"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~2"></span>
+              <span class="anchor" id="variable-s~18"></span>
               real(kind=REAL64),
             </td>
 <td>intent(out)</td>
diff --git a/proc/mfi_dgetrf.html b/proc/mfi_dgetrf.html
index 96a7220c..796942f1 100644
--- a/proc/mfi_dgetrf.html
+++ b/proc/mfi_dgetrf.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~10"></span>
+              <span class="anchor" id="variable-a~174"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_dgetri.html b/proc/mfi_dgetri.html
index 9cd89e63..0e2712f4 100644
--- a/proc/mfi_dgetri.html
+++ b/proc/mfi_dgetri.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~14"></span>
+              <span class="anchor" id="variable-a~178"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_dgetrs.html b/proc/mfi_dgetrs.html
index c039292c..19cdff08 100644
--- a/proc/mfi_dgetrs.html
+++ b/proc/mfi_dgetrs.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~18"></span>
+              <span class="anchor" id="variable-a~182"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~2"></span>
+              <span class="anchor" id="variable-b~46"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~2"></span>
+              <span class="anchor" id="variable-trans~82"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_dnrm2.html b/proc/mfi_dnrm2.html
index 082430d5..6894e61e 100644
--- a/proc/mfi_dnrm2.html
+++ b/proc/mfi_dnrm2.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~32"></span>
+              <span class="anchor" id="variable-x~24"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_dpocon.html b/proc/mfi_dpocon.html
index 18b0d785..a73c63f1 100644
--- a/proc/mfi_dpocon.html
+++ b/proc/mfi_dpocon.html
@@ -152,7 +152,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~44"></span>
+              <span class="anchor" id="variable-a~208"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -197,7 +197,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~20"></span>
+              <span class="anchor" id="variable-uplo~164"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_dpotrf.html b/proc/mfi_dpotrf.html
index c5caae4c..59e6200d 100644
--- a/proc/mfi_dpotrf.html
+++ b/proc/mfi_dpotrf.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~32"></span>
+              <span class="anchor" id="variable-a~196"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~8"></span>
+              <span class="anchor" id="variable-uplo~152"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_dpotri.html b/proc/mfi_dpotri.html
index f8fa961f..d86fb744 100644
--- a/proc/mfi_dpotri.html
+++ b/proc/mfi_dpotri.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~36"></span>
+              <span class="anchor" id="variable-a~200"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~12"></span>
+              <span class="anchor" id="variable-uplo~156"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_dpotrs.html b/proc/mfi_dpotrs.html
index 208d384a..a2f72b39 100644
--- a/proc/mfi_dpotrs.html
+++ b/proc/mfi_dpotrs.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~40"></span>
+              <span class="anchor" id="variable-a~204"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~8"></span>
+              <span class="anchor" id="variable-b~52"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~16"></span>
+              <span class="anchor" id="variable-uplo~160"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_drot.html b/proc/mfi_drot.html
index 80419dc0..8fb6b96c 100644
--- a/proc/mfi_drot.html
+++ b/proc/mfi_drot.html
@@ -156,7 +156,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~36"></span>
+              <span class="anchor" id="variable-x~28"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -171,7 +171,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~24"></span>
+              <span class="anchor" id="variable-y~20"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -186,7 +186,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~26"></span>
+              <span class="anchor" id="variable-c~2"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -201,7 +201,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~22"></span>
+              <span class="anchor" id="variable-s~2"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_drotm.html b/proc/mfi_drotm.html
index 20d8959c..5b915696 100644
--- a/proc/mfi_drotm.html
+++ b/proc/mfi_drotm.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~42"></span>
+              <span class="anchor" id="variable-x~34"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~30"></span>
+              <span class="anchor" id="variable-y~26"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_dsbmv.html b/proc/mfi_dsbmv.html
index c87fa7c8..15ea94a6 100644
--- a/proc/mfi_dsbmv.html
+++ b/proc/mfi_dsbmv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~194"></span>
+              <span class="anchor" id="variable-a~34"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~78"></span>
+              <span class="anchor" id="variable-x~70"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~56"></span>
+              <span class="anchor" id="variable-y~52"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~64"></span>
+              <span class="anchor" id="variable-uplo~16"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_dscal.html b/proc/mfi_dscal.html
index 661736a1..22cf8eec 100644
--- a/proc/mfi_dscal.html
+++ b/proc/mfi_dscal.html
@@ -152,7 +152,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~166"></span>
+              <span class="anchor" id="variable-a~6"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -167,7 +167,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~44"></span>
+              <span class="anchor" id="variable-x~36"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_dspmv.html b/proc/mfi_dspmv.html
index 6391bd7a..ea630a02 100644
--- a/proc/mfi_dspmv.html
+++ b/proc/mfi_dspmv.html
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~80"></span>
+              <span class="anchor" id="variable-x~72"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~58"></span>
+              <span class="anchor" id="variable-y~54"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~66"></span>
+              <span class="anchor" id="variable-uplo~18"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_dspr.html b/proc/mfi_dspr.html
index fd38cf68..f7474fc6 100644
--- a/proc/mfi_dspr.html
+++ b/proc/mfi_dspr.html
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~82"></span>
+              <span class="anchor" id="variable-x~74"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~68"></span>
+              <span class="anchor" id="variable-uplo~20"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_dspr2.html b/proc/mfi_dspr2.html
index 6324c86a..cb4c125d 100644
--- a/proc/mfi_dspr2.html
+++ b/proc/mfi_dspr2.html
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~84"></span>
+              <span class="anchor" id="variable-x~76"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~60"></span>
+              <span class="anchor" id="variable-y~56"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~70"></span>
+              <span class="anchor" id="variable-uplo~22"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_dswap.html b/proc/mfi_dswap.html
index bc9181dd..f0f3c266 100644
--- a/proc/mfi_dswap.html
+++ b/proc/mfi_dswap.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~14"></span>
+              <span class="anchor" id="variable-x~6"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~10"></span>
+              <span class="anchor" id="variable-y~6"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_dsymm.html b/proc/mfi_dsymm.html
index 601e698e..a44f8437 100644
--- a/proc/mfi_dsymm.html
+++ b/proc/mfi_dsymm.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~228"></span>
+              <span class="anchor" id="variable-a~68"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~62"></span>
+              <span class="anchor" id="variable-b~10"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~42"></span>
+              <span class="anchor" id="variable-c~18"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~20"></span>
+              <span class="anchor" id="variable-side~4"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -211,7 +211,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~108"></span>
+              <span class="anchor" id="variable-uplo~60"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_dsymv.html b/proc/mfi_dsymv.html
index 83dfc58b..10df797e 100644
--- a/proc/mfi_dsymv.html
+++ b/proc/mfi_dsymv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~196"></span>
+              <span class="anchor" id="variable-a~36"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~86"></span>
+              <span class="anchor" id="variable-x~78"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~62"></span>
+              <span class="anchor" id="variable-y~58"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~72"></span>
+              <span class="anchor" id="variable-uplo~24"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_dsyr.html b/proc/mfi_dsyr.html
index 7aad2182..3388d39f 100644
--- a/proc/mfi_dsyr.html
+++ b/proc/mfi_dsyr.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~198"></span>
+              <span class="anchor" id="variable-a~38"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~88"></span>
+              <span class="anchor" id="variable-x~80"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~74"></span>
+              <span class="anchor" id="variable-uplo~26"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_dsyr2.html b/proc/mfi_dsyr2.html
index ed7780cc..955aff6e 100644
--- a/proc/mfi_dsyr2.html
+++ b/proc/mfi_dsyr2.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~200"></span>
+              <span class="anchor" id="variable-a~40"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~90"></span>
+              <span class="anchor" id="variable-x~82"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~64"></span>
+              <span class="anchor" id="variable-y~60"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~76"></span>
+              <span class="anchor" id="variable-uplo~28"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_dsyr2k.html b/proc/mfi_dsyr2k.html
index f7ab3505..97c197db 100644
--- a/proc/mfi_dsyr2k.html
+++ b/proc/mfi_dsyr2k.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~232"></span>
+              <span class="anchor" id="variable-a~72"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~64"></span>
+              <span class="anchor" id="variable-b~12"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~46"></span>
+              <span class="anchor" id="variable-c~22"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~112"></span>
+              <span class="anchor" id="variable-uplo~64"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -211,7 +211,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~76"></span>
+              <span class="anchor" id="variable-trans~40"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_dsyrk.html b/proc/mfi_dsyrk.html
index 84742209..7ff01c75 100644
--- a/proc/mfi_dsyrk.html
+++ b/proc/mfi_dsyrk.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~230"></span>
+              <span class="anchor" id="variable-a~70"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~44"></span>
+              <span class="anchor" id="variable-c~20"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~110"></span>
+              <span class="anchor" id="variable-uplo~62"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~74"></span>
+              <span class="anchor" id="variable-trans~38"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_dtbmv.html b/proc/mfi_dtbmv.html
index c3186f3f..34b1be24 100644
--- a/proc/mfi_dtbmv.html
+++ b/proc/mfi_dtbmv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~202"></span>
+              <span class="anchor" id="variable-a~42"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~92"></span>
+              <span class="anchor" id="variable-x~84"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~78"></span>
+              <span class="anchor" id="variable-uplo~30"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~46"></span>
+              <span class="anchor" id="variable-trans~10"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_dtbsv.html b/proc/mfi_dtbsv.html
index 9904bf07..6b90a90a 100644
--- a/proc/mfi_dtbsv.html
+++ b/proc/mfi_dtbsv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~206"></span>
+              <span class="anchor" id="variable-a~46"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~96"></span>
+              <span class="anchor" id="variable-x~88"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~82"></span>
+              <span class="anchor" id="variable-uplo~34"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~50"></span>
+              <span class="anchor" id="variable-trans~14"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_dtpmv.html b/proc/mfi_dtpmv.html
index 474b9a85..0283cf80 100644
--- a/proc/mfi_dtpmv.html
+++ b/proc/mfi_dtpmv.html
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~100"></span>
+              <span class="anchor" id="variable-x~92"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~86"></span>
+              <span class="anchor" id="variable-uplo~38"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~54"></span>
+              <span class="anchor" id="variable-trans~18"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_dtpsv.html b/proc/mfi_dtpsv.html
index 49989392..ca7fba3b 100644
--- a/proc/mfi_dtpsv.html
+++ b/proc/mfi_dtpsv.html
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~104"></span>
+              <span class="anchor" id="variable-x~96"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~90"></span>
+              <span class="anchor" id="variable-uplo~42"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~58"></span>
+              <span class="anchor" id="variable-trans~22"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_dtrmm.html b/proc/mfi_dtrmm.html
index dbacd8c0..e8a440a1 100644
--- a/proc/mfi_dtrmm.html
+++ b/proc/mfi_dtrmm.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~234"></span>
+              <span class="anchor" id="variable-a~74"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~66"></span>
+              <span class="anchor" id="variable-b~14"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~22"></span>
+              <span class="anchor" id="variable-side~6"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~114"></span>
+              <span class="anchor" id="variable-uplo~66"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_dtrmv.html b/proc/mfi_dtrmv.html
index 562023be..00134e2a 100644
--- a/proc/mfi_dtrmv.html
+++ b/proc/mfi_dtrmv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~210"></span>
+              <span class="anchor" id="variable-a~50"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~108"></span>
+              <span class="anchor" id="variable-x~100"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~94"></span>
+              <span class="anchor" id="variable-uplo~46"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~62"></span>
+              <span class="anchor" id="variable-trans~26"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_dtrsm.html b/proc/mfi_dtrsm.html
index df12dd3a..2de51340 100644
--- a/proc/mfi_dtrsm.html
+++ b/proc/mfi_dtrsm.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~238"></span>
+              <span class="anchor" id="variable-a~78"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~70"></span>
+              <span class="anchor" id="variable-b~18"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~26"></span>
+              <span class="anchor" id="variable-side~10"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~118"></span>
+              <span class="anchor" id="variable-uplo~70"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_dtrsv.html b/proc/mfi_dtrsv.html
index da9597d4..103ae7e8 100644
--- a/proc/mfi_dtrsv.html
+++ b/proc/mfi_dtrsv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~214"></span>
+              <span class="anchor" id="variable-a~54"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~112"></span>
+              <span class="anchor" id="variable-x~104"></span>
               real(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~98"></span>
+              <span class="anchor" id="variable-uplo~50"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~66"></span>
+              <span class="anchor" id="variable-trans~30"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_dzasum.html b/proc/mfi_dzasum.html
index cf343e1f..97f773c2 100644
--- a/proc/mfi_dzasum.html
+++ b/proc/mfi_dzasum.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~30"></span>
+              <span class="anchor" id="variable-x~22"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_dznrm2.html b/proc/mfi_dznrm2.html
index 1ad2d150..28fd8bcd 100644
--- a/proc/mfi_dznrm2.html
+++ b/proc/mfi_dznrm2.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~34"></span>
+              <span class="anchor" id="variable-x~26"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_icamax.html b/proc/mfi_icamax.html
index 09faa787..c9ba7510 100644
--- a/proc/mfi_icamax.html
+++ b/proc/mfi_icamax.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~117"></span>
+              <span class="anchor" id="variable-x~109"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_icamin.html b/proc/mfi_icamin.html
index 3fbc0ac5..c60f07a6 100644
--- a/proc/mfi_icamin.html
+++ b/proc/mfi_icamin.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~121"></span>
+              <span class="anchor" id="variable-x~113"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_idamax.html b/proc/mfi_idamax.html
index 52b625e5..09be2da3 100644
--- a/proc/mfi_idamax.html
+++ b/proc/mfi_idamax.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~116"></span>
+              <span class="anchor" id="variable-x~108"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_idamin.html b/proc/mfi_idamin.html
index 907409b0..85552b4c 100644
--- a/proc/mfi_idamin.html
+++ b/proc/mfi_idamin.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~120"></span>
+              <span class="anchor" id="variable-x~112"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_isamax.html b/proc/mfi_isamax.html
index 0e120e66..5ab019c9 100644
--- a/proc/mfi_isamax.html
+++ b/proc/mfi_isamax.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~115"></span>
+              <span class="anchor" id="variable-x~107"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_isamin.html b/proc/mfi_isamin.html
index e8a27748..8aea57bb 100644
--- a/proc/mfi_isamin.html
+++ b/proc/mfi_isamin.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~119"></span>
+              <span class="anchor" id="variable-x~111"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_izamax.html b/proc/mfi_izamax.html
index a82aba05..f03c3dea 100644
--- a/proc/mfi_izamax.html
+++ b/proc/mfi_izamax.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~118"></span>
+              <span class="anchor" id="variable-x~110"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_izamin.html b/proc/mfi_izamin.html
index dffbbc3e..e6e27899 100644
--- a/proc/mfi_izamin.html
+++ b/proc/mfi_izamin.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~122"></span>
+              <span class="anchor" id="variable-x~114"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_sasum.html b/proc/mfi_sasum.html
index 24aa4a18..4127475e 100644
--- a/proc/mfi_sasum.html
+++ b/proc/mfi_sasum.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~27"></span>
+              <span class="anchor" id="variable-x~19"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_saxpy.html b/proc/mfi_saxpy.html
index f74b88d6..875baa6a 100644
--- a/proc/mfi_saxpy.html
+++ b/proc/mfi_saxpy.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~17"></span>
+              <span class="anchor" id="variable-x~9"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~13"></span>
+              <span class="anchor" id="variable-y~9"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~161"></span>
+              <span class="anchor" id="variable-a"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_scasum.html b/proc/mfi_scasum.html
index b159ee6c..0a2aca71 100644
--- a/proc/mfi_scasum.html
+++ b/proc/mfi_scasum.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~29"></span>
+              <span class="anchor" id="variable-x~21"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_scnrm2.html b/proc/mfi_scnrm2.html
index e08a0b59..61f97ae1 100644
--- a/proc/mfi_scnrm2.html
+++ b/proc/mfi_scnrm2.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~33"></span>
+              <span class="anchor" id="variable-x~25"></span>
               complex(kind=REAL32),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_scopy.html b/proc/mfi_scopy.html
index 2dd6809a..93218d9f 100644
--- a/proc/mfi_scopy.html
+++ b/proc/mfi_scopy.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~9"></span>
+              <span class="anchor" id="variable-x"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~5"></span>
+              <span class="anchor" id="variable-y"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_sdot.html b/proc/mfi_sdot.html
index 95f34e1c..52395258 100644
--- a/proc/mfi_sdot.html
+++ b/proc/mfi_sdot.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~21"></span>
+              <span class="anchor" id="variable-x~13"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~17"></span>
+              <span class="anchor" id="variable-y~13"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_sgbmv.html b/proc/mfi_sgbmv.html
index 8ee34966..7262c235 100644
--- a/proc/mfi_sgbmv.html
+++ b/proc/mfi_sgbmv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~171"></span>
+              <span class="anchor" id="variable-a~11"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~49"></span>
+              <span class="anchor" id="variable-x~41"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~31"></span>
+              <span class="anchor" id="variable-y~27"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -211,7 +211,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~101"></span>
+              <span class="anchor" id="variable-m"></span>
               integer,
             </td>
 <td>intent(in),</td>
@@ -256,7 +256,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~37"></span>
+              <span class="anchor" id="variable-trans"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_sgemm.html b/proc/mfi_sgemm.html
index f8b6f02e..e8ea468b 100644
--- a/proc/mfi_sgemm.html
+++ b/proc/mfi_sgemm.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~217"></span>
+              <span class="anchor" id="variable-a~57"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~53"></span>
+              <span class="anchor" id="variable-b"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~31"></span>
+              <span class="anchor" id="variable-c~7"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_sgemv.html b/proc/mfi_sgemv.html
index f4b47da1..28047af5 100644
--- a/proc/mfi_sgemv.html
+++ b/proc/mfi_sgemv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~175"></span>
+              <span class="anchor" id="variable-a~15"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~53"></span>
+              <span class="anchor" id="variable-x~45"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~35"></span>
+              <span class="anchor" id="variable-y~31"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~41"></span>
+              <span class="anchor" id="variable-trans~5"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_sgeqrf.html b/proc/mfi_sgeqrf.html
index 6b1d8ed6..635e927d 100644
--- a/proc/mfi_sgeqrf.html
+++ b/proc/mfi_sgeqrf.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a"></span>
+              <span class="anchor" id="variable-a~165"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_sger.html b/proc/mfi_sger.html
index df88b8c7..864b127a 100644
--- a/proc/mfi_sger.html
+++ b/proc/mfi_sger.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~179"></span>
+              <span class="anchor" id="variable-a~19"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~57"></span>
+              <span class="anchor" id="variable-x~49"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~39"></span>
+              <span class="anchor" id="variable-y~35"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_sgerqf.html b/proc/mfi_sgerqf.html
index a0e6747b..8a2deca3 100644
--- a/proc/mfi_sgerqf.html
+++ b/proc/mfi_sgerqf.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~5"></span>
+              <span class="anchor" id="variable-a~169"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_sgesvd.html b/proc/mfi_sgesvd.html
index 84fce991..a1821269 100644
--- a/proc/mfi_sgesvd.html
+++ b/proc/mfi_sgesvd.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~27"></span>
+              <span class="anchor" id="variable-a~191"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s"></span>
+              <span class="anchor" id="variable-s~17"></span>
               real(kind=REAL32),
             </td>
 <td>intent(out)</td>
diff --git a/proc/mfi_sgetrf.html b/proc/mfi_sgetrf.html
index bc6034ad..ae5aacc7 100644
--- a/proc/mfi_sgetrf.html
+++ b/proc/mfi_sgetrf.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~9"></span>
+              <span class="anchor" id="variable-a~173"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_sgetri.html b/proc/mfi_sgetri.html
index 47f988ad..83803dd8 100644
--- a/proc/mfi_sgetri.html
+++ b/proc/mfi_sgetri.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~13"></span>
+              <span class="anchor" id="variable-a~177"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_sgetrs.html b/proc/mfi_sgetrs.html
index 8673a26d..2b166e90 100644
--- a/proc/mfi_sgetrs.html
+++ b/proc/mfi_sgetrs.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~17"></span>
+              <span class="anchor" id="variable-a~181"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b"></span>
+              <span class="anchor" id="variable-b~45"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans"></span>
+              <span class="anchor" id="variable-trans~81"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_snrm2.html b/proc/mfi_snrm2.html
index 1c760f9b..7d72b05f 100644
--- a/proc/mfi_snrm2.html
+++ b/proc/mfi_snrm2.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~31"></span>
+              <span class="anchor" id="variable-x~23"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_spocon.html b/proc/mfi_spocon.html
index 4115ee53..f8fb65ce 100644
--- a/proc/mfi_spocon.html
+++ b/proc/mfi_spocon.html
@@ -152,7 +152,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~43"></span>
+              <span class="anchor" id="variable-a~207"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -197,7 +197,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~19"></span>
+              <span class="anchor" id="variable-uplo~163"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_spotrf.html b/proc/mfi_spotrf.html
index 34e4b5d1..6b8c3bd7 100644
--- a/proc/mfi_spotrf.html
+++ b/proc/mfi_spotrf.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~31"></span>
+              <span class="anchor" id="variable-a~195"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~7"></span>
+              <span class="anchor" id="variable-uplo~151"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_spotri.html b/proc/mfi_spotri.html
index b3092023..a8636d6c 100644
--- a/proc/mfi_spotri.html
+++ b/proc/mfi_spotri.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~35"></span>
+              <span class="anchor" id="variable-a~199"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~11"></span>
+              <span class="anchor" id="variable-uplo~155"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_spotrs.html b/proc/mfi_spotrs.html
index a8af46a0..5f5285b4 100644
--- a/proc/mfi_spotrs.html
+++ b/proc/mfi_spotrs.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~39"></span>
+              <span class="anchor" id="variable-a~203"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~7"></span>
+              <span class="anchor" id="variable-b~51"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~15"></span>
+              <span class="anchor" id="variable-uplo~159"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_srot.html b/proc/mfi_srot.html
index 8e9abbbf..8a0650df 100644
--- a/proc/mfi_srot.html
+++ b/proc/mfi_srot.html
@@ -156,7 +156,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~35"></span>
+              <span class="anchor" id="variable-x~27"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -171,7 +171,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~23"></span>
+              <span class="anchor" id="variable-y~19"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -186,7 +186,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~25"></span>
+              <span class="anchor" id="variable-c"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -201,7 +201,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~21"></span>
+              <span class="anchor" id="variable-s"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_srotm.html b/proc/mfi_srotm.html
index c7ffb292..6d2e7ebf 100644
--- a/proc/mfi_srotm.html
+++ b/proc/mfi_srotm.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~41"></span>
+              <span class="anchor" id="variable-x~33"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~29"></span>
+              <span class="anchor" id="variable-y~25"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_ssbmv.html b/proc/mfi_ssbmv.html
index afe8ace7..de5f5b49 100644
--- a/proc/mfi_ssbmv.html
+++ b/proc/mfi_ssbmv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~193"></span>
+              <span class="anchor" id="variable-a~33"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~77"></span>
+              <span class="anchor" id="variable-x~69"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~55"></span>
+              <span class="anchor" id="variable-y~51"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~63"></span>
+              <span class="anchor" id="variable-uplo~15"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_sscal.html b/proc/mfi_sscal.html
index daab9d33..53b1f62e 100644
--- a/proc/mfi_sscal.html
+++ b/proc/mfi_sscal.html
@@ -152,7 +152,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~165"></span>
+              <span class="anchor" id="variable-a~5"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -167,7 +167,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~43"></span>
+              <span class="anchor" id="variable-x~35"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_sspmv.html b/proc/mfi_sspmv.html
index ea2eaef1..5118e9dd 100644
--- a/proc/mfi_sspmv.html
+++ b/proc/mfi_sspmv.html
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~79"></span>
+              <span class="anchor" id="variable-x~71"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~57"></span>
+              <span class="anchor" id="variable-y~53"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~65"></span>
+              <span class="anchor" id="variable-uplo~17"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_sspr.html b/proc/mfi_sspr.html
index 769849fe..47f306fc 100644
--- a/proc/mfi_sspr.html
+++ b/proc/mfi_sspr.html
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~81"></span>
+              <span class="anchor" id="variable-x~73"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~67"></span>
+              <span class="anchor" id="variable-uplo~19"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_sspr2.html b/proc/mfi_sspr2.html
index ec8fa107..a70b2df6 100644
--- a/proc/mfi_sspr2.html
+++ b/proc/mfi_sspr2.html
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~83"></span>
+              <span class="anchor" id="variable-x~75"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~59"></span>
+              <span class="anchor" id="variable-y~55"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~69"></span>
+              <span class="anchor" id="variable-uplo~21"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_sswap.html b/proc/mfi_sswap.html
index 48b6322b..e7a5a154 100644
--- a/proc/mfi_sswap.html
+++ b/proc/mfi_sswap.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~13"></span>
+              <span class="anchor" id="variable-x~5"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~9"></span>
+              <span class="anchor" id="variable-y~5"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_ssymm.html b/proc/mfi_ssymm.html
index 778e36f2..2aa70c11 100644
--- a/proc/mfi_ssymm.html
+++ b/proc/mfi_ssymm.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~227"></span>
+              <span class="anchor" id="variable-a~67"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~61"></span>
+              <span class="anchor" id="variable-b~9"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~41"></span>
+              <span class="anchor" id="variable-c~17"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~19"></span>
+              <span class="anchor" id="variable-side~3"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -211,7 +211,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~107"></span>
+              <span class="anchor" id="variable-uplo~59"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_ssymv.html b/proc/mfi_ssymv.html
index dad5673d..093a5461 100644
--- a/proc/mfi_ssymv.html
+++ b/proc/mfi_ssymv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~195"></span>
+              <span class="anchor" id="variable-a~35"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~85"></span>
+              <span class="anchor" id="variable-x~77"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~61"></span>
+              <span class="anchor" id="variable-y~57"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~71"></span>
+              <span class="anchor" id="variable-uplo~23"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_ssyr.html b/proc/mfi_ssyr.html
index 51d7853d..71640dd2 100644
--- a/proc/mfi_ssyr.html
+++ b/proc/mfi_ssyr.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~197"></span>
+              <span class="anchor" id="variable-a~37"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~87"></span>
+              <span class="anchor" id="variable-x~79"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~73"></span>
+              <span class="anchor" id="variable-uplo~25"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_ssyr2.html b/proc/mfi_ssyr2.html
index 217e983c..0d86748f 100644
--- a/proc/mfi_ssyr2.html
+++ b/proc/mfi_ssyr2.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~199"></span>
+              <span class="anchor" id="variable-a~39"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~89"></span>
+              <span class="anchor" id="variable-x~81"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~63"></span>
+              <span class="anchor" id="variable-y~59"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~75"></span>
+              <span class="anchor" id="variable-uplo~27"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_ssyr2k.html b/proc/mfi_ssyr2k.html
index a5d82e53..db45e4f4 100644
--- a/proc/mfi_ssyr2k.html
+++ b/proc/mfi_ssyr2k.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~231"></span>
+              <span class="anchor" id="variable-a~71"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~63"></span>
+              <span class="anchor" id="variable-b~11"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~45"></span>
+              <span class="anchor" id="variable-c~21"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~111"></span>
+              <span class="anchor" id="variable-uplo~63"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -211,7 +211,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~75"></span>
+              <span class="anchor" id="variable-trans~39"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_ssyrk.html b/proc/mfi_ssyrk.html
index 8dff919a..248f29b6 100644
--- a/proc/mfi_ssyrk.html
+++ b/proc/mfi_ssyrk.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~229"></span>
+              <span class="anchor" id="variable-a~69"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~43"></span>
+              <span class="anchor" id="variable-c~19"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~109"></span>
+              <span class="anchor" id="variable-uplo~61"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~73"></span>
+              <span class="anchor" id="variable-trans~37"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_stbmv.html b/proc/mfi_stbmv.html
index 82aefa89..4a7b439e 100644
--- a/proc/mfi_stbmv.html
+++ b/proc/mfi_stbmv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~201"></span>
+              <span class="anchor" id="variable-a~41"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~91"></span>
+              <span class="anchor" id="variable-x~83"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~77"></span>
+              <span class="anchor" id="variable-uplo~29"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~45"></span>
+              <span class="anchor" id="variable-trans~9"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_stbsv.html b/proc/mfi_stbsv.html
index 18a21caa..c5b1a667 100644
--- a/proc/mfi_stbsv.html
+++ b/proc/mfi_stbsv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~205"></span>
+              <span class="anchor" id="variable-a~45"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~95"></span>
+              <span class="anchor" id="variable-x~87"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~81"></span>
+              <span class="anchor" id="variable-uplo~33"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~49"></span>
+              <span class="anchor" id="variable-trans~13"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_stpmv.html b/proc/mfi_stpmv.html
index d3644573..be20a8e2 100644
--- a/proc/mfi_stpmv.html
+++ b/proc/mfi_stpmv.html
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~99"></span>
+              <span class="anchor" id="variable-x~91"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~85"></span>
+              <span class="anchor" id="variable-uplo~37"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~53"></span>
+              <span class="anchor" id="variable-trans~17"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_stpsv.html b/proc/mfi_stpsv.html
index b2c153b5..49887c01 100644
--- a/proc/mfi_stpsv.html
+++ b/proc/mfi_stpsv.html
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~103"></span>
+              <span class="anchor" id="variable-x~95"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~89"></span>
+              <span class="anchor" id="variable-uplo~41"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~57"></span>
+              <span class="anchor" id="variable-trans~21"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_strmm.html b/proc/mfi_strmm.html
index 9000bca7..d968987a 100644
--- a/proc/mfi_strmm.html
+++ b/proc/mfi_strmm.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~233"></span>
+              <span class="anchor" id="variable-a~73"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~65"></span>
+              <span class="anchor" id="variable-b~13"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~21"></span>
+              <span class="anchor" id="variable-side~5"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~113"></span>
+              <span class="anchor" id="variable-uplo~65"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_strmv.html b/proc/mfi_strmv.html
index 90b9ebde..7d7ff555 100644
--- a/proc/mfi_strmv.html
+++ b/proc/mfi_strmv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~209"></span>
+              <span class="anchor" id="variable-a~49"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~107"></span>
+              <span class="anchor" id="variable-x~99"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~93"></span>
+              <span class="anchor" id="variable-uplo~45"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~61"></span>
+              <span class="anchor" id="variable-trans~25"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_strsm.html b/proc/mfi_strsm.html
index aa1288fd..508b6fa6 100644
--- a/proc/mfi_strsm.html
+++ b/proc/mfi_strsm.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~237"></span>
+              <span class="anchor" id="variable-a~77"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~69"></span>
+              <span class="anchor" id="variable-b~17"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~25"></span>
+              <span class="anchor" id="variable-side~9"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~117"></span>
+              <span class="anchor" id="variable-uplo~69"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_strsv.html b/proc/mfi_strsv.html
index d770552a..b4606fa8 100644
--- a/proc/mfi_strsv.html
+++ b/proc/mfi_strsv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~213"></span>
+              <span class="anchor" id="variable-a~53"></span>
               real(kind=REAL32),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~111"></span>
+              <span class="anchor" id="variable-x~103"></span>
               real(kind=REAL32),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~97"></span>
+              <span class="anchor" id="variable-uplo~49"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~65"></span>
+              <span class="anchor" id="variable-trans~29"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_zaxpy.html b/proc/mfi_zaxpy.html
index 6e90892e..33212753 100644
--- a/proc/mfi_zaxpy.html
+++ b/proc/mfi_zaxpy.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~20"></span>
+              <span class="anchor" id="variable-x~12"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~16"></span>
+              <span class="anchor" id="variable-y~12"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~164"></span>
+              <span class="anchor" id="variable-a~4"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_zcopy.html b/proc/mfi_zcopy.html
index a5548089..3752cf73 100644
--- a/proc/mfi_zcopy.html
+++ b/proc/mfi_zcopy.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~12"></span>
+              <span class="anchor" id="variable-x~4"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~8"></span>
+              <span class="anchor" id="variable-y~4"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_zdotc.html b/proc/mfi_zdotc.html
index a3bfd6e1..c8bec956 100644
--- a/proc/mfi_zdotc.html
+++ b/proc/mfi_zdotc.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~24"></span>
+              <span class="anchor" id="variable-x~16"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~20"></span>
+              <span class="anchor" id="variable-y~16"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_zdotu.html b/proc/mfi_zdotu.html
index 06a6afe0..3c89688a 100644
--- a/proc/mfi_zdotu.html
+++ b/proc/mfi_zdotu.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~26"></span>
+              <span class="anchor" id="variable-x~18"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~22"></span>
+              <span class="anchor" id="variable-y~18"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_zdrot.html b/proc/mfi_zdrot.html
index 693768b0..4c8ad59f 100644
--- a/proc/mfi_zdrot.html
+++ b/proc/mfi_zdrot.html
@@ -156,7 +156,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~40"></span>
+              <span class="anchor" id="variable-x~32"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -171,7 +171,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~28"></span>
+              <span class="anchor" id="variable-y~24"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -186,7 +186,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~30"></span>
+              <span class="anchor" id="variable-c~6"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -201,7 +201,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~26"></span>
+              <span class="anchor" id="variable-s~6"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_zdscal.html b/proc/mfi_zdscal.html
index 611b8247..2fbfa6c9 100644
--- a/proc/mfi_zdscal.html
+++ b/proc/mfi_zdscal.html
@@ -152,7 +152,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~170"></span>
+              <span class="anchor" id="variable-a~10"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -167,7 +167,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~48"></span>
+              <span class="anchor" id="variable-x~40"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_zgbmv.html b/proc/mfi_zgbmv.html
index 93d2fa83..820fb634 100644
--- a/proc/mfi_zgbmv.html
+++ b/proc/mfi_zgbmv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~174"></span>
+              <span class="anchor" id="variable-a~14"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~52"></span>
+              <span class="anchor" id="variable-x~44"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~34"></span>
+              <span class="anchor" id="variable-y~30"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -211,7 +211,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-m~104"></span>
+              <span class="anchor" id="variable-m~4"></span>
               integer,
             </td>
 <td>intent(in),</td>
@@ -256,7 +256,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~40"></span>
+              <span class="anchor" id="variable-trans~4"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_zgemm.html b/proc/mfi_zgemm.html
index 8efe1fbd..4908c005 100644
--- a/proc/mfi_zgemm.html
+++ b/proc/mfi_zgemm.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~220"></span>
+              <span class="anchor" id="variable-a~60"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~56"></span>
+              <span class="anchor" id="variable-b~4"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~34"></span>
+              <span class="anchor" id="variable-c~10"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_zgemv.html b/proc/mfi_zgemv.html
index 1cf572a3..a6801da3 100644
--- a/proc/mfi_zgemv.html
+++ b/proc/mfi_zgemv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~178"></span>
+              <span class="anchor" id="variable-a~18"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~56"></span>
+              <span class="anchor" id="variable-x~48"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~38"></span>
+              <span class="anchor" id="variable-y~34"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~44"></span>
+              <span class="anchor" id="variable-trans~8"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_zgeqrf.html b/proc/mfi_zgeqrf.html
index 3a0287a5..20654c5b 100644
--- a/proc/mfi_zgeqrf.html
+++ b/proc/mfi_zgeqrf.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~4"></span>
+              <span class="anchor" id="variable-a~168"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_zgerc.html b/proc/mfi_zgerc.html
index ebe87ba6..f8cab11f 100644
--- a/proc/mfi_zgerc.html
+++ b/proc/mfi_zgerc.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~182"></span>
+              <span class="anchor" id="variable-a~22"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~60"></span>
+              <span class="anchor" id="variable-x~52"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~42"></span>
+              <span class="anchor" id="variable-y~38"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_zgerqf.html b/proc/mfi_zgerqf.html
index 7a1a10fb..7ea312d4 100644
--- a/proc/mfi_zgerqf.html
+++ b/proc/mfi_zgerqf.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~8"></span>
+              <span class="anchor" id="variable-a~172"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_zgeru.html b/proc/mfi_zgeru.html
index 6af5b45a..1e6c7acf 100644
--- a/proc/mfi_zgeru.html
+++ b/proc/mfi_zgeru.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~184"></span>
+              <span class="anchor" id="variable-a~24"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~62"></span>
+              <span class="anchor" id="variable-x~54"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~44"></span>
+              <span class="anchor" id="variable-y~40"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_zgesvd.html b/proc/mfi_zgesvd.html
index 91ceb587..757f2284 100644
--- a/proc/mfi_zgesvd.html
+++ b/proc/mfi_zgesvd.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~30"></span>
+              <span class="anchor" id="variable-a~194"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~4"></span>
+              <span class="anchor" id="variable-s~20"></span>
               real(kind=REAL64),
             </td>
 <td>intent(out)</td>
diff --git a/proc/mfi_zgetrf.html b/proc/mfi_zgetrf.html
index d677c885..c6d23a7d 100644
--- a/proc/mfi_zgetrf.html
+++ b/proc/mfi_zgetrf.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~12"></span>
+              <span class="anchor" id="variable-a~176"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_zgetri.html b/proc/mfi_zgetri.html
index 9a38a97c..f5c7eb5c 100644
--- a/proc/mfi_zgetri.html
+++ b/proc/mfi_zgetri.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~16"></span>
+              <span class="anchor" id="variable-a~180"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_zgetrs.html b/proc/mfi_zgetrs.html
index cadbcf03..7d76f273 100644
--- a/proc/mfi_zgetrs.html
+++ b/proc/mfi_zgetrs.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~20"></span>
+              <span class="anchor" id="variable-a~184"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~4"></span>
+              <span class="anchor" id="variable-b~48"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~4"></span>
+              <span class="anchor" id="variable-trans~84"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_zhbmv.html b/proc/mfi_zhbmv.html
index 7134c84b..b37c8063 100644
--- a/proc/mfi_zhbmv.html
+++ b/proc/mfi_zhbmv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~186"></span>
+              <span class="anchor" id="variable-a~26"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~64"></span>
+              <span class="anchor" id="variable-x~56"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~46"></span>
+              <span class="anchor" id="variable-y~42"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~50"></span>
+              <span class="anchor" id="variable-uplo~2"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_zheevd.html b/proc/mfi_zheevd.html
index c4f4ce0a..3769540e 100644
--- a/proc/mfi_zheevd.html
+++ b/proc/mfi_zheevd.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~26"></span>
+              <span class="anchor" id="variable-a~190"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~6"></span>
+              <span class="anchor" id="variable-uplo~150"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_zhegv.html b/proc/mfi_zhegv.html
index 83f4c3e9..af3c5942 100644
--- a/proc/mfi_zhegv.html
+++ b/proc/mfi_zhegv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~24"></span>
+              <span class="anchor" id="variable-a~188"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~6"></span>
+              <span class="anchor" id="variable-b~50"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -226,7 +226,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~4"></span>
+              <span class="anchor" id="variable-uplo~148"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_zhemm.html b/proc/mfi_zhemm.html
index e48d5f63..73c82b92 100644
--- a/proc/mfi_zhemm.html
+++ b/proc/mfi_zhemm.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~222"></span>
+              <span class="anchor" id="variable-a~62"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~58"></span>
+              <span class="anchor" id="variable-b~6"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~36"></span>
+              <span class="anchor" id="variable-c~12"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~18"></span>
+              <span class="anchor" id="variable-side~2"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -211,7 +211,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~102"></span>
+              <span class="anchor" id="variable-uplo~54"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_zhemv.html b/proc/mfi_zhemv.html
index fc0232a4..9841720d 100644
--- a/proc/mfi_zhemv.html
+++ b/proc/mfi_zhemv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~188"></span>
+              <span class="anchor" id="variable-a~28"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~66"></span>
+              <span class="anchor" id="variable-x~58"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~48"></span>
+              <span class="anchor" id="variable-y~44"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~52"></span>
+              <span class="anchor" id="variable-uplo~4"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_zher.html b/proc/mfi_zher.html
index 0cdb2d97..e6e1ebeb 100644
--- a/proc/mfi_zher.html
+++ b/proc/mfi_zher.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~190"></span>
+              <span class="anchor" id="variable-a~30"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~68"></span>
+              <span class="anchor" id="variable-x~60"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~54"></span>
+              <span class="anchor" id="variable-uplo~6"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_zher2.html b/proc/mfi_zher2.html
index b55664f3..6ff78c1d 100644
--- a/proc/mfi_zher2.html
+++ b/proc/mfi_zher2.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~192"></span>
+              <span class="anchor" id="variable-a~32"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~70"></span>
+              <span class="anchor" id="variable-x~62"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~50"></span>
+              <span class="anchor" id="variable-y~46"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~56"></span>
+              <span class="anchor" id="variable-uplo~8"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_zher2k.html b/proc/mfi_zher2k.html
index 485dc09e..a39d59f8 100644
--- a/proc/mfi_zher2k.html
+++ b/proc/mfi_zher2k.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~226"></span>
+              <span class="anchor" id="variable-a~66"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~60"></span>
+              <span class="anchor" id="variable-b~8"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~40"></span>
+              <span class="anchor" id="variable-c~16"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~106"></span>
+              <span class="anchor" id="variable-uplo~58"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -211,7 +211,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~72"></span>
+              <span class="anchor" id="variable-trans~36"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_zherk.html b/proc/mfi_zherk.html
index ed143604..bc0e73e3 100644
--- a/proc/mfi_zherk.html
+++ b/proc/mfi_zherk.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~224"></span>
+              <span class="anchor" id="variable-a~64"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~38"></span>
+              <span class="anchor" id="variable-c~14"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~104"></span>
+              <span class="anchor" id="variable-uplo~56"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~70"></span>
+              <span class="anchor" id="variable-trans~34"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_zhetrf.html b/proc/mfi_zhetrf.html
index 5998ed7b..346dcca3 100644
--- a/proc/mfi_zhetrf.html
+++ b/proc/mfi_zhetrf.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~22"></span>
+              <span class="anchor" id="variable-a~186"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~2"></span>
+              <span class="anchor" id="variable-uplo~146"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_zhpmv.html b/proc/mfi_zhpmv.html
index b35fcbd1..0e077757 100644
--- a/proc/mfi_zhpmv.html
+++ b/proc/mfi_zhpmv.html
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~72"></span>
+              <span class="anchor" id="variable-x~64"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~52"></span>
+              <span class="anchor" id="variable-y~48"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~58"></span>
+              <span class="anchor" id="variable-uplo~10"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_zhpr.html b/proc/mfi_zhpr.html
index a75d1c20..5a42c46f 100644
--- a/proc/mfi_zhpr.html
+++ b/proc/mfi_zhpr.html
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~74"></span>
+              <span class="anchor" id="variable-x~66"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~60"></span>
+              <span class="anchor" id="variable-uplo~12"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_zhpr2.html b/proc/mfi_zhpr2.html
index 0c02c724..3cc3aa08 100644
--- a/proc/mfi_zhpr2.html
+++ b/proc/mfi_zhpr2.html
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~76"></span>
+              <span class="anchor" id="variable-x~68"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~54"></span>
+              <span class="anchor" id="variable-y~50"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~62"></span>
+              <span class="anchor" id="variable-uplo~14"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_zpocon.html b/proc/mfi_zpocon.html
index a8a1aac2..a0f59409 100644
--- a/proc/mfi_zpocon.html
+++ b/proc/mfi_zpocon.html
@@ -152,7 +152,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~46"></span>
+              <span class="anchor" id="variable-a~210"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -197,7 +197,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~22"></span>
+              <span class="anchor" id="variable-uplo~166"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_zpotrf.html b/proc/mfi_zpotrf.html
index 7bdd2d1e..c1580528 100644
--- a/proc/mfi_zpotrf.html
+++ b/proc/mfi_zpotrf.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~34"></span>
+              <span class="anchor" id="variable-a~198"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~10"></span>
+              <span class="anchor" id="variable-uplo~154"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_zpotri.html b/proc/mfi_zpotri.html
index 4d6f61d0..e45ec24b 100644
--- a/proc/mfi_zpotri.html
+++ b/proc/mfi_zpotri.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~38"></span>
+              <span class="anchor" id="variable-a~202"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~14"></span>
+              <span class="anchor" id="variable-uplo~158"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_zpotrs.html b/proc/mfi_zpotrs.html
index 03911986..08f84b04 100644
--- a/proc/mfi_zpotrs.html
+++ b/proc/mfi_zpotrs.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~42"></span>
+              <span class="anchor" id="variable-a~206"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~10"></span>
+              <span class="anchor" id="variable-b~54"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~18"></span>
+              <span class="anchor" id="variable-uplo~162"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_zrot.html b/proc/mfi_zrot.html
index 41d7278d..0da432f9 100644
--- a/proc/mfi_zrot.html
+++ b/proc/mfi_zrot.html
@@ -156,7 +156,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~38"></span>
+              <span class="anchor" id="variable-x~30"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -171,7 +171,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~26"></span>
+              <span class="anchor" id="variable-y~22"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -186,7 +186,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-c~28"></span>
+              <span class="anchor" id="variable-c~4"></span>
               real(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -201,7 +201,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-s~24"></span>
+              <span class="anchor" id="variable-s~4"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
diff --git a/proc/mfi_zscal.html b/proc/mfi_zscal.html
index 314259b5..48fee69a 100644
--- a/proc/mfi_zscal.html
+++ b/proc/mfi_zscal.html
@@ -152,7 +152,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~168"></span>
+              <span class="anchor" id="variable-a~8"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -167,7 +167,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~46"></span>
+              <span class="anchor" id="variable-x~38"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_zswap.html b/proc/mfi_zswap.html
index 099dd724..907c12fd 100644
--- a/proc/mfi_zswap.html
+++ b/proc/mfi_zswap.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~16"></span>
+              <span class="anchor" id="variable-x~8"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~12"></span>
+              <span class="anchor" id="variable-y~8"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
diff --git a/proc/mfi_ztbmv.html b/proc/mfi_ztbmv.html
index 4065060f..36383b90 100644
--- a/proc/mfi_ztbmv.html
+++ b/proc/mfi_ztbmv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~204"></span>
+              <span class="anchor" id="variable-a~44"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~94"></span>
+              <span class="anchor" id="variable-x~86"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~80"></span>
+              <span class="anchor" id="variable-uplo~32"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~48"></span>
+              <span class="anchor" id="variable-trans~12"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_ztbsv.html b/proc/mfi_ztbsv.html
index d9745875..0df0c741 100644
--- a/proc/mfi_ztbsv.html
+++ b/proc/mfi_ztbsv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~208"></span>
+              <span class="anchor" id="variable-a~48"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~98"></span>
+              <span class="anchor" id="variable-x~90"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~84"></span>
+              <span class="anchor" id="variable-uplo~36"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~52"></span>
+              <span class="anchor" id="variable-trans~16"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_ztpmv.html b/proc/mfi_ztpmv.html
index 9b0e520c..c4fa537f 100644
--- a/proc/mfi_ztpmv.html
+++ b/proc/mfi_ztpmv.html
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~102"></span>
+              <span class="anchor" id="variable-x~94"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~88"></span>
+              <span class="anchor" id="variable-uplo~40"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~56"></span>
+              <span class="anchor" id="variable-trans~20"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_ztpsv.html b/proc/mfi_ztpsv.html
index 888b5f43..594f343b 100644
--- a/proc/mfi_ztpsv.html
+++ b/proc/mfi_ztpsv.html
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~106"></span>
+              <span class="anchor" id="variable-x~98"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~92"></span>
+              <span class="anchor" id="variable-uplo~44"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~60"></span>
+              <span class="anchor" id="variable-trans~24"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_ztrmm.html b/proc/mfi_ztrmm.html
index bc6869a8..fcc5b528 100644
--- a/proc/mfi_ztrmm.html
+++ b/proc/mfi_ztrmm.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~236"></span>
+              <span class="anchor" id="variable-a~76"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~68"></span>
+              <span class="anchor" id="variable-b~16"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~24"></span>
+              <span class="anchor" id="variable-side~8"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~116"></span>
+              <span class="anchor" id="variable-uplo~68"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_ztrmv.html b/proc/mfi_ztrmv.html
index 1dbd1525..28e9c394 100644
--- a/proc/mfi_ztrmv.html
+++ b/proc/mfi_ztrmv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~212"></span>
+              <span class="anchor" id="variable-a~52"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~110"></span>
+              <span class="anchor" id="variable-x~102"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~96"></span>
+              <span class="anchor" id="variable-uplo~48"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~64"></span>
+              <span class="anchor" id="variable-trans~28"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_ztrsm.html b/proc/mfi_ztrsm.html
index 78daa1cd..7160123f 100644
--- a/proc/mfi_ztrsm.html
+++ b/proc/mfi_ztrsm.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~240"></span>
+              <span class="anchor" id="variable-a~80"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-b~72"></span>
+              <span class="anchor" id="variable-b~20"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-side~28"></span>
+              <span class="anchor" id="variable-side~12"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~120"></span>
+              <span class="anchor" id="variable-uplo~72"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/proc/mfi_ztrsv.html b/proc/mfi_ztrsv.html
index d3c62309..f3f96ed4 100644
--- a/proc/mfi_ztrsv.html
+++ b/proc/mfi_ztrsv.html
@@ -151,7 +151,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-a~216"></span>
+              <span class="anchor" id="variable-a~56"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(in)</td>
@@ -166,7 +166,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~114"></span>
+              <span class="anchor" id="variable-x~106"></span>
               complex(kind=REAL64),
             </td>
 <td>intent(inout)</td>
@@ -181,7 +181,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-uplo~100"></span>
+              <span class="anchor" id="variable-uplo~52"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
@@ -196,7 +196,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-trans~68"></span>
+              <span class="anchor" id="variable-trans~32"></span>
               character(len=1),
             </td>
 <td>intent(in),</td>
diff --git a/sourcefile/lapack.f90~2.html b/sourcefile/lapack.f90~2.html
index c6ad69bb..2cf194b7 100644
--- a/sourcefile/lapack.f90~2.html
+++ b/sourcefile/lapack.f90~2.html
@@ -823,7 +823,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a id="ln-673" name="ln-673" href="#ln-673"></a><span class="c">!&gt; See also: [[mfi_pocon]], [[f77_pocon]].</span>
 <a id="ln-674" name="ln-674" href="#ln-674"></a><span class="c">!&gt; spocon estimates the reciprocal of the condition number (in the</span>
 <a id="ln-675" name="ln-675" href="#ln-675"></a><span class="c">!&gt; 1-norm) of a real(REAL32) Hermitian positive definite matrix using the</span>
-<a id="ln-676" name="ln-676" href="#ln-676"></a><span class="c">!&gt; Cholesky factorization A = U**H*U or A = L*L**H computed by sPOTRF.</span>
+<a id="ln-676" name="ln-676" href="#ln-676"></a><span class="c">!&gt; Cholesky factorization \( A = U^\dagger U \) or \( A = LL^\dagger |) computed by sPOTRF.</span>
 <a id="ln-677" name="ln-677" href="#ln-677"></a><span class="c">!&gt; An estimate is obtained for norm(inv(A)), and the reciprocal of the</span>
 <a id="ln-678" name="ln-678" href="#ln-678"></a><span class="c">!&gt; condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))).</span>
 <a id="ln-679" name="ln-679" href="#ln-679"></a><span class="k">pure subroutine </span><span class="n">spocon</span><span class="p">(</span><span class="n">uplo</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">a</span><span class="p">,</span><span class="w"> </span><span class="n">lda</span><span class="p">,</span><span class="w"> </span><span class="n">anorm</span><span class="p">,</span><span class="w"> </span><span class="n">rcond</span><span class="p">,</span><span class="w"> </span><span class="n">work</span><span class="p">,</span><span class="w"> </span><span class="n">iwork</span><span class="p">,</span><span class="w"> </span><span class="n">info</span><span class="p">)</span>
@@ -843,7 +843,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a id="ln-693" name="ln-693" href="#ln-693"></a><span class="c">!&gt; See also: [[mfi_pocon]], [[f77_pocon]].</span>
 <a id="ln-694" name="ln-694" href="#ln-694"></a><span class="c">!&gt; dpocon estimates the reciprocal of the condition number (in the</span>
 <a id="ln-695" name="ln-695" href="#ln-695"></a><span class="c">!&gt; 1-norm) of a real(REAL64) Hermitian positive definite matrix using the</span>
-<a id="ln-696" name="ln-696" href="#ln-696"></a><span class="c">!&gt; Cholesky factorization A = U**H*U or A = L*L**H computed by dPOTRF.</span>
+<a id="ln-696" name="ln-696" href="#ln-696"></a><span class="c">!&gt; Cholesky factorization \( A = U^\dagger U \) or \( A = LL^\dagger |) computed by dPOTRF.</span>
 <a id="ln-697" name="ln-697" href="#ln-697"></a><span class="c">!&gt; An estimate is obtained for norm(inv(A)), and the reciprocal of the</span>
 <a id="ln-698" name="ln-698" href="#ln-698"></a><span class="c">!&gt; condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))).</span>
 <a id="ln-699" name="ln-699" href="#ln-699"></a><span class="k">pure subroutine </span><span class="n">dpocon</span><span class="p">(</span><span class="n">uplo</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">a</span><span class="p">,</span><span class="w"> </span><span class="n">lda</span><span class="p">,</span><span class="w"> </span><span class="n">anorm</span><span class="p">,</span><span class="w"> </span><span class="n">rcond</span><span class="p">,</span><span class="w"> </span><span class="n">work</span><span class="p">,</span><span class="w"> </span><span class="n">iwork</span><span class="p">,</span><span class="w"> </span><span class="n">info</span><span class="p">)</span>
@@ -863,7 +863,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a id="ln-713" name="ln-713" href="#ln-713"></a><span class="c">!&gt; See also: [[mfi_pocon]], [[f77_pocon]].</span>
 <a id="ln-714" name="ln-714" href="#ln-714"></a><span class="c">!&gt; cpocon estimates the reciprocal of the condition number (in the</span>
 <a id="ln-715" name="ln-715" href="#ln-715"></a><span class="c">!&gt; 1-norm) of a complex(REAL32) Hermitian positive definite matrix using the</span>
-<a id="ln-716" name="ln-716" href="#ln-716"></a><span class="c">!&gt; Cholesky factorization A = U**H*U or A = L*L**H computed by cPOTRF.</span>
+<a id="ln-716" name="ln-716" href="#ln-716"></a><span class="c">!&gt; Cholesky factorization \( A = U^\dagger U \) or \( A = LL^\dagger |) computed by cPOTRF.</span>
 <a id="ln-717" name="ln-717" href="#ln-717"></a><span class="c">!&gt; An estimate is obtained for norm(inv(A)), and the reciprocal of the</span>
 <a id="ln-718" name="ln-718" href="#ln-718"></a><span class="c">!&gt; condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))).</span>
 <a id="ln-719" name="ln-719" href="#ln-719"></a><span class="k">pure subroutine </span><span class="n">cpocon</span><span class="p">(</span><span class="n">uplo</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">a</span><span class="p">,</span><span class="w"> </span><span class="n">lda</span><span class="p">,</span><span class="w"> </span><span class="n">anorm</span><span class="p">,</span><span class="w"> </span><span class="n">rcond</span><span class="p">,</span><span class="w"> </span><span class="n">work</span><span class="p">,</span><span class="w"> </span><span class="n">rwork</span><span class="p">,</span><span class="w"> </span><span class="n">info</span><span class="p">)</span>
@@ -883,7 +883,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a id="ln-733" name="ln-733" href="#ln-733"></a><span class="c">!&gt; See also: [[mfi_pocon]], [[f77_pocon]].</span>
 <a id="ln-734" name="ln-734" href="#ln-734"></a><span class="c">!&gt; zpocon estimates the reciprocal of the condition number (in the</span>
 <a id="ln-735" name="ln-735" href="#ln-735"></a><span class="c">!&gt; 1-norm) of a complex(REAL64) Hermitian positive definite matrix using the</span>
-<a id="ln-736" name="ln-736" href="#ln-736"></a><span class="c">!&gt; Cholesky factorization A = U**H*U or A = L*L**H computed by zPOTRF.</span>
+<a id="ln-736" name="ln-736" href="#ln-736"></a><span class="c">!&gt; Cholesky factorization \( A = U^\dagger U \) or \( A = LL^\dagger |) computed by zPOTRF.</span>
 <a id="ln-737" name="ln-737" href="#ln-737"></a><span class="c">!&gt; An estimate is obtained for norm(inv(A)), and the reciprocal of the</span>
 <a id="ln-738" name="ln-738" href="#ln-738"></a><span class="c">!&gt; condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))).</span>
 <a id="ln-739" name="ln-739" href="#ln-739"></a><span class="k">pure subroutine </span><span class="n">zpocon</span><span class="p">(</span><span class="n">uplo</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">a</span><span class="p">,</span><span class="w"> </span><span class="n">lda</span><span class="p">,</span><span class="w"> </span><span class="n">anorm</span><span class="p">,</span><span class="w"> </span><span class="n">rcond</span><span class="p">,</span><span class="w"> </span><span class="n">work</span><span class="p">,</span><span class="w"> </span><span class="n">rwork</span><span class="p">,</span><span class="w"> </span><span class="n">info</span><span class="p">)</span>
diff --git a/src/lapack.f90 b/src/lapack.f90
index fb16e705..fc2448df 100644
--- a/src/lapack.f90
+++ b/src/lapack.f90
@@ -673,7 +673,7 @@ pure subroutine zpotrs(uplo, n, nrhs, a, lda, b, ldb, info)
 !> See also: [[mfi_pocon]], [[f77_pocon]].
 !> spocon estimates the reciprocal of the condition number (in the
 !> 1-norm) of a real(REAL32) Hermitian positive definite matrix using the
-!> Cholesky factorization A = U**H*U or A = L*L**H computed by sPOTRF.
+!> Cholesky factorization \( A = U^\dagger U \) or \( A = LL^\dagger |) computed by sPOTRF.
 !> An estimate is obtained for norm(inv(A)), and the reciprocal of the
 !> condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))).
 pure subroutine spocon(uplo, n, a, lda, anorm, rcond, work, iwork, info)
@@ -693,7 +693,7 @@ pure subroutine spocon(uplo, n, a, lda, anorm, rcond, work, iwork, info)
 !> See also: [[mfi_pocon]], [[f77_pocon]].
 !> dpocon estimates the reciprocal of the condition number (in the
 !> 1-norm) of a real(REAL64) Hermitian positive definite matrix using the
-!> Cholesky factorization A = U**H*U or A = L*L**H computed by dPOTRF.
+!> Cholesky factorization \( A = U^\dagger U \) or \( A = LL^\dagger |) computed by dPOTRF.
 !> An estimate is obtained for norm(inv(A)), and the reciprocal of the
 !> condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))).
 pure subroutine dpocon(uplo, n, a, lda, anorm, rcond, work, iwork, info)
@@ -713,7 +713,7 @@ pure subroutine dpocon(uplo, n, a, lda, anorm, rcond, work, iwork, info)
 !> See also: [[mfi_pocon]], [[f77_pocon]].
 !> cpocon estimates the reciprocal of the condition number (in the
 !> 1-norm) of a complex(REAL32) Hermitian positive definite matrix using the
-!> Cholesky factorization A = U**H*U or A = L*L**H computed by cPOTRF.
+!> Cholesky factorization \( A = U^\dagger U \) or \( A = LL^\dagger |) computed by cPOTRF.
 !> An estimate is obtained for norm(inv(A)), and the reciprocal of the
 !> condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))).
 pure subroutine cpocon(uplo, n, a, lda, anorm, rcond, work, rwork, info)
@@ -733,7 +733,7 @@ pure subroutine cpocon(uplo, n, a, lda, anorm, rcond, work, rwork, info)
 !> See also: [[mfi_pocon]], [[f77_pocon]].
 !> zpocon estimates the reciprocal of the condition number (in the
 !> 1-norm) of a complex(REAL64) Hermitian positive definite matrix using the
-!> Cholesky factorization A = U**H*U or A = L*L**H computed by zPOTRF.
+!> Cholesky factorization \( A = U^\dagger U \) or \( A = LL^\dagger |) computed by zPOTRF.
 !> An estimate is obtained for norm(inv(A)), and the reciprocal of the
 !> condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))).
 pure subroutine zpocon(uplo, n, a, lda, anorm, rcond, work, rwork, info)
diff --git a/tipuesearch/tipuesearch_content.js b/tipuesearch/tipuesearch_content.js
index 2ef23e98..4524f284 100644
--- a/tipuesearch/tipuesearch_content.js
+++ b/tipuesearch/tipuesearch_content.js
@@ -1 +1 @@
-var tipuesearch = {"pages":[{"title":" MFI - Modern Fortran Interfaces ","text":"MFI - Modern Fortran Interfaces Developer Info I. G. Pauli","tags":"home","loc":"index.html"},{"title":"mfi_sgeqrf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sgeqrf(a, tau, info) Modern interface for sgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_sgeqrf.html"},{"title":"mfi_dgeqrf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dgeqrf(a, tau, info) Modern interface for dgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_dgeqrf.html"},{"title":"mfi_cgeqrf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cgeqrf(a, tau, info) Modern interface for cgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_cgeqrf.html"},{"title":"mfi_zgeqrf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zgeqrf(a, tau, info) Modern interface for zgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_zgeqrf.html"},{"title":"mfi_sgerqf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sgerqf(a, tau, info) Modern interface for sgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_sgerqf.html"},{"title":"mfi_dgerqf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dgerqf(a, tau, info) Modern interface for dgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_dgerqf.html"},{"title":"mfi_cgerqf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cgerqf(a, tau, info) Modern interface for cgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_cgerqf.html"},{"title":"mfi_zgerqf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zgerqf(a, tau, info) Modern interface for zgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_zgerqf.html"},{"title":"mfi_sgetrf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sgetrf(a, ipiv, info) Modern interface for sgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_sgetrf.html"},{"title":"mfi_dgetrf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dgetrf(a, ipiv, info) Modern interface for dgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_dgetrf.html"},{"title":"mfi_cgetrf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cgetrf(a, ipiv, info) Modern interface for cgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_cgetrf.html"},{"title":"mfi_zgetrf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zgetrf(a, ipiv, info) Modern interface for zgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_zgetrf.html"},{"title":"mfi_sgetri – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sgetri(a, ipiv, info) Modern interface for sgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_sgetri.html"},{"title":"mfi_dgetri – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dgetri(a, ipiv, info) Modern interface for dgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_dgetri.html"},{"title":"mfi_cgetri – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cgetri(a, ipiv, info) Modern interface for cgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_cgetri.html"},{"title":"mfi_zgetri – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zgetri(a, ipiv, info) Modern interface for zgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_zgetri.html"},{"title":"mfi_sgetrs – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sgetrs(a, ipiv, b, trans, info) Modern interface for sgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_sgetrs.html"},{"title":"mfi_dgetrs – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dgetrs(a, ipiv, b, trans, info) Modern interface for dgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_dgetrs.html"},{"title":"mfi_cgetrs – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cgetrs(a, ipiv, b, trans, info) Modern interface for cgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_cgetrs.html"},{"title":"mfi_zgetrs – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zgetrs(a, ipiv, b, trans, info) Modern interface for zgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_zgetrs.html"},{"title":"mfi_chetrf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_chetrf(a, uplo, ipiv, info) Modern interface for chetrf .\nSee also: mfi_hetrf , f77_hetrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_chetrf.html"},{"title":"mfi_zhetrf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zhetrf(a, uplo, ipiv, info) Modern interface for zhetrf .\nSee also: mfi_hetrf , f77_hetrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_zhetrf.html"},{"title":"mfi_chegv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_chegv(a, b, w, itype, jobz, uplo, info) Modern interface for chegv .\nSee also: mfi_hegv , f77_hegv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) real(kind=REAL32), intent(out) :: w (:) integer, intent(in), optional :: itype character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_chegv.html"},{"title":"mfi_zhegv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zhegv(a, b, w, itype, jobz, uplo, info) Modern interface for zhegv .\nSee also: mfi_hegv , f77_hegv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) real(kind=REAL64), intent(out) :: w (:) integer, intent(in), optional :: itype character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_zhegv.html"},{"title":"mfi_cheevd – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cheevd(a, w, jobz, uplo, info) Modern interface for cheevd .\nSee also: mfi_heevd , f77_heevd . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out) :: w (:) character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_cheevd.html"},{"title":"mfi_zheevd – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zheevd(a, w, jobz, uplo, info) Modern interface for zheevd .\nSee also: mfi_heevd , f77_heevd . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out) :: w (:) character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_zheevd.html"},{"title":"mfi_sgesvd – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sgesvd(a, s, u, vt, ww, job, info) Modern interface for sgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out) :: s (:) real(kind=REAL32), intent(out), optional, target :: u (:,:) real(kind=REAL32), intent(out), optional, target :: vt (:,:) real(kind=REAL32), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_sgesvd.html"},{"title":"mfi_dgesvd – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dgesvd(a, s, u, vt, ww, job, info) Modern interface for dgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out) :: s (:) real(kind=REAL64), intent(out), optional, target :: u (:,:) real(kind=REAL64), intent(out), optional, target :: vt (:,:) real(kind=REAL64), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_dgesvd.html"},{"title":"mfi_cgesvd – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cgesvd(a, s, u, vt, ww, job, info) Modern interface for cgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out) :: s (:) complex(kind=REAL32), intent(out), optional, target :: u (:,:) complex(kind=REAL32), intent(out), optional, target :: vt (:,:) real(kind=REAL32), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_cgesvd.html"},{"title":"mfi_zgesvd – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zgesvd(a, s, u, vt, ww, job, info) Modern interface for zgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out) :: s (:) complex(kind=REAL64), intent(out), optional, target :: u (:,:) complex(kind=REAL64), intent(out), optional, target :: vt (:,:) real(kind=REAL64), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_zgesvd.html"},{"title":"mfi_spotrf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_spotrf(a, info, uplo) Modern interface for spotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo","tags":"","loc":"proc/mfi_spotrf.html"},{"title":"mfi_dpotrf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dpotrf(a, info, uplo) Modern interface for dpotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo","tags":"","loc":"proc/mfi_dpotrf.html"},{"title":"mfi_cpotrf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cpotrf(a, info, uplo) Modern interface for cpotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo","tags":"","loc":"proc/mfi_cpotrf.html"},{"title":"mfi_zpotrf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zpotrf(a, info, uplo) Modern interface for zpotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo","tags":"","loc":"proc/mfi_zpotrf.html"},{"title":"mfi_spotri – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_spotri(a, info, uplo) Modern interface for spotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo","tags":"","loc":"proc/mfi_spotri.html"},{"title":"mfi_dpotri – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dpotri(a, info, uplo) Modern interface for dpotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo","tags":"","loc":"proc/mfi_dpotri.html"},{"title":"mfi_cpotri – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cpotri(a, info, uplo) Modern interface for cpotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo","tags":"","loc":"proc/mfi_cpotri.html"},{"title":"mfi_zpotri – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zpotri(a, info, uplo) Modern interface for zpotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo","tags":"","loc":"proc/mfi_zpotri.html"},{"title":"mfi_spotrs – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_spotrs(a, b, uplo, info) Modern interface for spotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_spotrs.html"},{"title":"mfi_dpotrs – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dpotrs(a, b, uplo, info) Modern interface for dpotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_dpotrs.html"},{"title":"mfi_cpotrs – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cpotrs(a, b, uplo, info) Modern interface for cpotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_cpotrs.html"},{"title":"mfi_zpotrs – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zpotrs(a, b, uplo, info) Modern interface for zpotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_zpotrs.html"},{"title":"mfi_spocon – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_spocon(a, anorm, rcond, uplo, info) Modern interface for spocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: anorm real(kind=REAL32), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_spocon.html"},{"title":"mfi_dpocon – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dpocon(a, anorm, rcond, uplo, info) Modern interface for dpocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: anorm real(kind=REAL64), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_dpocon.html"},{"title":"mfi_cpocon – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cpocon(a, anorm, rcond, uplo, info) Modern interface for cpocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: anorm real(kind=REAL32), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_cpocon.html"},{"title":"mfi_zpocon – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zpocon(a, anorm, rcond, uplo, info) Modern interface for zpocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: anorm real(kind=REAL64), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_zpocon.html"},{"title":"mfi_error – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_error(name, info) Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: name integer, intent(in) :: info","tags":"","loc":"proc/mfi_error.html"},{"title":"mfi_geqrf – MFI - Modern Fortran Interfaces","text":"public interface mfi_geqrf Generic modern interface for GEQRF.\nSupports s, d, c, z.\nSee also: sgeqrf , dgeqrf , cgeqrf , zgeqrf . Module Procedures public pure subroutine mfi_sgeqrf (a, tau, info) Modern interface for sgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_dgeqrf (a, tau, info) Modern interface for dgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_cgeqrf (a, tau, info) Modern interface for cgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_zgeqrf (a, tau, info) Modern interface for zgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info","tags":"","loc":"interface/mfi_geqrf.html"},{"title":"mfi_gerqf – MFI - Modern Fortran Interfaces","text":"public interface mfi_gerqf Generic modern interface for GERQF.\nSupports s, d, c, z.\nSee also: sgerqf , dgerqf , cgerqf , zgerqf . Module Procedures public pure subroutine mfi_sgerqf (a, tau, info) Modern interface for sgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_dgerqf (a, tau, info) Modern interface for dgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_cgerqf (a, tau, info) Modern interface for cgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_zgerqf (a, tau, info) Modern interface for zgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info","tags":"","loc":"interface/mfi_gerqf.html"},{"title":"mfi_getrf – MFI - Modern Fortran Interfaces","text":"public interface mfi_getrf Generic modern interface for GETRF.\nSupports s, d, c, z.\nSee also: sgetrf , dgetrf , cgetrf , zgetrf . Module Procedures public pure subroutine mfi_sgetrf (a, ipiv, info) Modern interface for sgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_dgetrf (a, ipiv, info) Modern interface for dgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_cgetrf (a, ipiv, info) Modern interface for cgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_zgetrf (a, ipiv, info) Modern interface for zgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info","tags":"","loc":"interface/mfi_getrf.html"},{"title":"mfi_getri – MFI - Modern Fortran Interfaces","text":"public interface mfi_getri Generic modern interface for GETRI.\nSupports s, d, c, z.\nSee also: sgetri , dgetri , cgetri , zgetri . Module Procedures public pure subroutine mfi_sgetri (a, ipiv, info) Modern interface for sgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_dgetri (a, ipiv, info) Modern interface for dgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_cgetri (a, ipiv, info) Modern interface for cgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_zgetri (a, ipiv, info) Modern interface for zgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info","tags":"","loc":"interface/mfi_getri.html"},{"title":"mfi_getrs – MFI - Modern Fortran Interfaces","text":"public interface mfi_getrs Generic modern interface for GETRS.\nSupports s, d, c, z.\nSee also: sgetrs , dgetrs , cgetrs , zgetrs . Module Procedures public pure subroutine mfi_sgetrs (a, ipiv, b, trans, info) Modern interface for sgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info public pure subroutine mfi_dgetrs (a, ipiv, b, trans, info) Modern interface for dgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info public pure subroutine mfi_cgetrs (a, ipiv, b, trans, info) Modern interface for cgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info public pure subroutine mfi_zgetrs (a, ipiv, b, trans, info) Modern interface for zgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info","tags":"","loc":"interface/mfi_getrs.html"},{"title":"mfi_hetrf – MFI - Modern Fortran Interfaces","text":"public interface mfi_hetrf Generic modern interface for HETRF.\nSupports c, z.\nSee also: chetrf , zhetrf . Module Procedures public pure subroutine mfi_chetrf (a, uplo, ipiv, info) Modern interface for chetrf .\nSee also: mfi_hetrf , f77_hetrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_zhetrf (a, uplo, ipiv, info) Modern interface for zhetrf .\nSee also: mfi_hetrf , f77_hetrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info","tags":"","loc":"interface/mfi_hetrf.html"},{"title":"mfi_hegv – MFI - Modern Fortran Interfaces","text":"public interface mfi_hegv Generic modern interface for HEGV.\nSupports c, z.\nSee also: chegv , zhegv . Module Procedures public pure subroutine mfi_chegv (a, b, w, itype, jobz, uplo, info) Modern interface for chegv .\nSee also: mfi_hegv , f77_hegv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) real(kind=REAL32), intent(out) :: w (:) integer, intent(in), optional :: itype character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_zhegv (a, b, w, itype, jobz, uplo, info) Modern interface for zhegv .\nSee also: mfi_hegv , f77_hegv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) real(kind=REAL64), intent(out) :: w (:) integer, intent(in), optional :: itype character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"interface/mfi_hegv.html"},{"title":"mfi_heevd – MFI - Modern Fortran Interfaces","text":"public interface mfi_heevd Generic modern interface for HEEVD.\nSupports c, z.\nSee also: cheevd , zheevd . Module Procedures public pure subroutine mfi_cheevd (a, w, jobz, uplo, info) Modern interface for cheevd .\nSee also: mfi_heevd , f77_heevd . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out) :: w (:) character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_zheevd (a, w, jobz, uplo, info) Modern interface for zheevd .\nSee also: mfi_heevd , f77_heevd . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out) :: w (:) character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"interface/mfi_heevd.html"},{"title":"mfi_gesvd – MFI - Modern Fortran Interfaces","text":"public interface mfi_gesvd Generic modern interface for GESVD.\nSupports s, d, c, z.\nSee also: sgesvd , dgesvd , cgesvd , zgesvd . Module Procedures public pure subroutine mfi_sgesvd (a, s, u, vt, ww, job, info) Modern interface for sgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out) :: s (:) real(kind=REAL32), intent(out), optional, target :: u (:,:) real(kind=REAL32), intent(out), optional, target :: vt (:,:) real(kind=REAL32), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info public pure subroutine mfi_dgesvd (a, s, u, vt, ww, job, info) Modern interface for dgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out) :: s (:) real(kind=REAL64), intent(out), optional, target :: u (:,:) real(kind=REAL64), intent(out), optional, target :: vt (:,:) real(kind=REAL64), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info public pure subroutine mfi_cgesvd (a, s, u, vt, ww, job, info) Modern interface for cgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out) :: s (:) complex(kind=REAL32), intent(out), optional, target :: u (:,:) complex(kind=REAL32), intent(out), optional, target :: vt (:,:) real(kind=REAL32), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info public pure subroutine mfi_zgesvd (a, s, u, vt, ww, job, info) Modern interface for zgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out) :: s (:) complex(kind=REAL64), intent(out), optional, target :: u (:,:) complex(kind=REAL64), intent(out), optional, target :: vt (:,:) real(kind=REAL64), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info","tags":"","loc":"interface/mfi_gesvd.html"},{"title":"mfi_potrf – MFI - Modern Fortran Interfaces","text":"public interface mfi_potrf Generic modern interface for POTRF.\nSupports s, d, c, z.\nSee also: spotrf , dpotrf , cpotrf , zpotrf . Module Procedures public pure subroutine mfi_spotrf (a, info, uplo) Modern interface for spotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_dpotrf (a, info, uplo) Modern interface for dpotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_cpotrf (a, info, uplo) Modern interface for cpotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_zpotrf (a, info, uplo) Modern interface for zpotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo","tags":"","loc":"interface/mfi_potrf.html"},{"title":"mfi_potri – MFI - Modern Fortran Interfaces","text":"public interface mfi_potri Generic modern interface for POTRI.\nSupports s, d, c, z.\nSee also: spotri , dpotri , cpotri , zpotri . Module Procedures public pure subroutine mfi_spotri (a, info, uplo) Modern interface for spotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_dpotri (a, info, uplo) Modern interface for dpotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_cpotri (a, info, uplo) Modern interface for cpotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_zpotri (a, info, uplo) Modern interface for zpotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo","tags":"","loc":"interface/mfi_potri.html"},{"title":"mfi_potrs – MFI - Modern Fortran Interfaces","text":"public interface mfi_potrs Generic modern interface for POTRS.\nSupports s, d, c, z.\nSee also: spotrs , dpotrs , cpotrs , zpotrs . Module Procedures public pure subroutine mfi_spotrs (a, b, uplo, info) Modern interface for spotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_dpotrs (a, b, uplo, info) Modern interface for dpotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_cpotrs (a, b, uplo, info) Modern interface for cpotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_zpotrs (a, b, uplo, info) Modern interface for zpotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"interface/mfi_potrs.html"},{"title":"mfi_pocon – MFI - Modern Fortran Interfaces","text":"public interface mfi_pocon Generic modern interface for POCON.\nSupports s, d, c, z.\nSee also: spocon , dpocon , cpocon , zpocon . Module Procedures public pure subroutine mfi_spocon (a, anorm, rcond, uplo, info) Modern interface for spocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: anorm real(kind=REAL32), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_dpocon (a, anorm, rcond, uplo, info) Modern interface for dpocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: anorm real(kind=REAL64), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_cpocon (a, anorm, rcond, uplo, info) Modern interface for cpocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: anorm real(kind=REAL32), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_zpocon (a, anorm, rcond, uplo, info) Modern interface for zpocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: anorm real(kind=REAL64), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"interface/mfi_pocon.html"},{"title":"f77_geqrf – MFI - Modern Fortran Interfaces","text":"public interface f77_geqrf Generic old style interface for GEQRF.\nSupports s, d, c, z.\nSee also: mfi_geqrf , sgeqrf , dgeqrf , cgeqrf , zgeqrf . Subroutines public pure subroutine sgeqrf(m, n, a, lda, tau, work, lwork, info) Original interface for SGEQRF\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(out) :: tau (*) real(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgeqrf(m, n, a, lda, tau, work, lwork, info) Original interface for DGEQRF\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(out) :: tau (*) real(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgeqrf(m, n, a, lda, tau, work, lwork, info) Original interface for CGEQRF\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(out) :: tau (*) complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgeqrf(m, n, a, lda, tau, work, lwork, info) Original interface for ZGEQRF\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(out) :: tau (*) complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_geqrf.html"},{"title":"f77_gerqf – MFI - Modern Fortran Interfaces","text":"public interface f77_gerqf Generic old style interface for GERQF.\nSupports s, d, c, z.\nSee also: mfi_gerqf , sgerqf , dgerqf , cgerqf , zgerqf . Subroutines public pure subroutine sgerqf(m, n, a, lda, tau, work, lwork, info) Original interface for SGERQF\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(out) :: tau (*) real(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgerqf(m, n, a, lda, tau, work, lwork, info) Original interface for DGERQF\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(out) :: tau (*) real(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgerqf(m, n, a, lda, tau, work, lwork, info) Original interface for CGERQF\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(out) :: tau (*) complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgerqf(m, n, a, lda, tau, work, lwork, info) Original interface for ZGERQF\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(out) :: tau (*) complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_gerqf.html"},{"title":"f77_getrf – MFI - Modern Fortran Interfaces","text":"public interface f77_getrf Generic old style interface for GETRF.\nSupports s, d, c, z.\nSee also: mfi_getrf , sgetrf , dgetrf , cgetrf , zgetrf . Subroutines public pure subroutine sgetrf(m, n, a, lda, ipiv, info) Original interface for SGETRF\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: ipiv (*) integer, intent(out) :: info public pure subroutine dgetrf(m, n, a, lda, ipiv, info) Original interface for DGETRF\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: ipiv (*) integer, intent(out) :: info public pure subroutine cgetrf(m, n, a, lda, ipiv, info) Original interface for CGETRF\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: ipiv (*) integer, intent(out) :: info public pure subroutine zgetrf(m, n, a, lda, ipiv, info) Original interface for ZGETRF\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: ipiv (*) integer, intent(out) :: info","tags":"","loc":"interface/f77_getrf.html"},{"title":"f77_getri – MFI - Modern Fortran Interfaces","text":"public interface f77_getri Generic old style interface for GETRI.\nSupports s, d, c, z.\nSee also: mfi_getri , sgetri , dgetri , cgetri , zgetri . Subroutines public pure subroutine sgetri(n, a, lda, ipiv, work, lwork, info) Original interface for SGETRI\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) real(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgetri(n, a, lda, ipiv, work, lwork, info) Original interface for DGETRI\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) real(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgetri(n, a, lda, ipiv, work, lwork, info) Original interface for CGETRI\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgetri(n, a, lda, ipiv, work, lwork, info) Original interface for ZGETRI\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_getri.html"},{"title":"f77_getrs – MFI - Modern Fortran Interfaces","text":"public interface f77_getrs Generic old style interface for GETRS.\nSupports s, d, c, z.\nSee also: mfi_getrs , sgetrs , dgetrs , cgetrs , zgetrs . Subroutines public pure subroutine sgetrs(trans, n, nrhs, a, lda, ipiv, b, ldb, info) Original interface for SGETRS\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info public pure subroutine dgetrs(trans, n, nrhs, a, lda, ipiv, b, ldb, info) Original interface for DGETRS\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info public pure subroutine cgetrs(trans, n, nrhs, a, lda, ipiv, b, ldb, info) Original interface for CGETRS\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info public pure subroutine zgetrs(trans, n, nrhs, a, lda, ipiv, b, ldb, info) Original interface for ZGETRS\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info","tags":"","loc":"interface/f77_getrs.html"},{"title":"f77_hetrf – MFI - Modern Fortran Interfaces","text":"public interface f77_hetrf Generic old style interface for HETRF.\nSupports c, z.\nSee also: mfi_hetrf , chetrf , zhetrf . Subroutines public pure subroutine chetrf(uplo, n, a, lda, ipiv, work, lwork, info) Original interface for CHETRF\nSee also: mfi_hetrf , f77_hetrf . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zhetrf(uplo, n, a, lda, ipiv, work, lwork, info) Original interface for ZHETRF\nSee also: mfi_hetrf , f77_hetrf . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_hetrf.html"},{"title":"f77_hegv – MFI - Modern Fortran Interfaces","text":"public interface f77_hegv Generic old style interface for HEGV.\nSupports c, z.\nSee also: mfi_hegv , chegv , zhegv . Subroutines public pure subroutine chegv(itype, jobz, uplo, n, a, lda, b, ldb, w, work, lwork, rwork, info) Original interface for CHEGV\nSee also: mfi_hegv , f77_hegv . Arguments Type Intent Optional Attributes Name integer, intent(in) :: itype character(len=1), intent(in) :: jobz character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(out) :: w (*) complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL32), intent(in) :: rwork (*) integer, intent(out) :: info public pure subroutine zhegv(itype, jobz, uplo, n, a, lda, b, ldb, w, work, lwork, rwork, info) Original interface for ZHEGV\nSee also: mfi_hegv , f77_hegv . Arguments Type Intent Optional Attributes Name integer, intent(in) :: itype character(len=1), intent(in) :: jobz character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(out) :: w (*) complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL64), intent(in) :: rwork (*) integer, intent(out) :: info","tags":"","loc":"interface/f77_hegv.html"},{"title":"f77_heevd – MFI - Modern Fortran Interfaces","text":"public interface f77_heevd Generic old style interface for HEEVD.\nSupports c, z.\nSee also: mfi_heevd , cheevd , zheevd . Subroutines public pure subroutine cheevd(jobz, uplo, n, a, lda, w, work, lwork, rwork, lrwork, iwork, liwork, info) Original interface for CHEEVD\nSee also: mfi_heevd , f77_heevd . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobz character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(out) :: w (*) complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL32), intent(inout) :: rwork (*) integer, intent(in) :: lrwork integer, intent(inout) :: iwork (*) integer, intent(in) :: liwork integer, intent(out) :: info public pure subroutine zheevd(jobz, uplo, n, a, lda, w, work, lwork, rwork, lrwork, iwork, liwork, info) Original interface for ZHEEVD\nSee also: mfi_heevd , f77_heevd . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobz character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(out) :: w (*) complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL64), intent(inout) :: rwork (*) integer, intent(in) :: lrwork integer, intent(inout) :: iwork (*) integer, intent(in) :: liwork integer, intent(out) :: info","tags":"","loc":"interface/f77_heevd.html"},{"title":"f77_gesvd – MFI - Modern Fortran Interfaces","text":"public interface f77_gesvd Generic old style interface for GESVD.\nSupports s, d, c, z.\nSee also: mfi_gesvd , sgesvd , dgesvd , cgesvd , zgesvd . Subroutines public pure subroutine sgesvd(jobu, jobvt, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, info) Original interface for SGESVD\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobu character(len=1), intent(in) :: jobvt integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(out) :: s (*) real(kind=REAL32), intent(out) :: u (ldu,*) integer, intent(in) :: ldu real(kind=REAL32), intent(out) :: vt (ldvt,*) integer, intent(in) :: ldvt real(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgesvd(jobu, jobvt, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, info) Original interface for DGESVD\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobu character(len=1), intent(in) :: jobvt integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(out) :: s (*) real(kind=REAL64), intent(out) :: u (ldu,*) integer, intent(in) :: ldu real(kind=REAL64), intent(out) :: vt (ldvt,*) integer, intent(in) :: ldvt real(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgesvd(jobu, jobvt, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, rwork, info) Original interface for CGESVD\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobu character(len=1), intent(in) :: jobvt integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(out) :: s (*) complex(kind=REAL32), intent(out) :: u (ldu,*) integer, intent(in) :: ldu complex(kind=REAL32), intent(out) :: vt (ldvt,*) integer, intent(in) :: ldvt complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL32), intent(in) :: rwork (*) integer, intent(out) :: info public pure subroutine zgesvd(jobu, jobvt, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, rwork, info) Original interface for ZGESVD\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobu character(len=1), intent(in) :: jobvt integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(out) :: s (*) complex(kind=REAL64), intent(out) :: u (ldu,*) integer, intent(in) :: ldu complex(kind=REAL64), intent(out) :: vt (ldvt,*) integer, intent(in) :: ldvt complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL64), intent(in) :: rwork (*) integer, intent(out) :: info","tags":"","loc":"interface/f77_gesvd.html"},{"title":"f77_potrf – MFI - Modern Fortran Interfaces","text":"public interface f77_potrf Generic old style interface for POTRF.\nSupports s, d, c, z.\nSee also: mfi_potrf , spotrf , dpotrf , cpotrf , zpotrf . Subroutines public pure subroutine spotrf(uplo, n, a, lda, info) Original interface for SPOTRF\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info public pure subroutine dpotrf(uplo, n, a, lda, info) Original interface for DPOTRF\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info public pure subroutine cpotrf(uplo, n, a, lda, info) Original interface for CPOTRF\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info public pure subroutine zpotrf(uplo, n, a, lda, info) Original interface for ZPOTRF\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info","tags":"","loc":"interface/f77_potrf.html"},{"title":"f77_potri – MFI - Modern Fortran Interfaces","text":"public interface f77_potri Generic old style interface for POTRI.\nSupports s, d, c, z.\nSee also: mfi_potri , spotri , dpotri , cpotri , zpotri . Subroutines public pure subroutine spotri(uplo, n, a, lda, info) Original interface for SPOTRI\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info public pure subroutine dpotri(uplo, n, a, lda, info) Original interface for DPOTRI\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info public pure subroutine cpotri(uplo, n, a, lda, info) Original interface for CPOTRI\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info public pure subroutine zpotri(uplo, n, a, lda, info) Original interface for ZPOTRI\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info","tags":"","loc":"interface/f77_potri.html"},{"title":"f77_potrs – MFI - Modern Fortran Interfaces","text":"public interface f77_potrs Generic old style interface for POTRS.\nSupports s, d, c, z.\nSee also: mfi_potrs , spotrs , dpotrs , cpotrs , zpotrs . Subroutines public pure subroutine spotrs(uplo, n, nrhs, a, lda, b, ldb, info) Original interface for SPOTRS\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info public pure subroutine dpotrs(uplo, n, nrhs, a, lda, b, ldb, info) Original interface for DPOTRS\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info public pure subroutine cpotrs(uplo, n, nrhs, a, lda, b, ldb, info) Original interface for CPOTRS\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info public pure subroutine zpotrs(uplo, n, nrhs, a, lda, b, ldb, info) Original interface for ZPOTRS\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info","tags":"","loc":"interface/f77_potrs.html"},{"title":"f77_pocon – MFI - Modern Fortran Interfaces","text":"public interface f77_pocon Generic old style interface for POCON.\nSupports s, d, c, z.\nSee also: mfi_pocon , spocon , dpocon , cpocon , zpocon . Subroutines public pure subroutine spocon(uplo, n, a, lda, anorm, rcond, work, iwork, info) Original interface for SPOCON\nSee also: mfi_pocon , f77_pocon .\nspocon estimates the reciprocal of the condition number (in the\n1-norm) of a real(REAL32) Hermitian positive definite matrix using the\nCholesky factorization A = U H U or A = L L H computed by sPOTRF.\nAn estimate is obtained for norm(inv(A)), and the reciprocal of the\ncondition number is computed as RCOND = 1 / (ANORM * norm(inv(A))). Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: anorm real(kind=REAL32), intent(out) :: rcond real(kind=REAL32), intent(inout) :: work (*) integer, intent(inout) :: iwork (*) integer, intent(out) :: info public pure subroutine dpocon(uplo, n, a, lda, anorm, rcond, work, iwork, info) Original interface for DPOCON\nSee also: mfi_pocon , f77_pocon .\ndpocon estimates the reciprocal of the condition number (in the\n1-norm) of a real(REAL64) Hermitian positive definite matrix using the\nCholesky factorization A = U H U or A = L L H computed by dPOTRF.\nAn estimate is obtained for norm(inv(A)), and the reciprocal of the\ncondition number is computed as RCOND = 1 / (ANORM * norm(inv(A))). Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: anorm real(kind=REAL64), intent(out) :: rcond real(kind=REAL64), intent(inout) :: work (*) integer, intent(inout) :: iwork (*) integer, intent(out) :: info public pure subroutine cpocon(uplo, n, a, lda, anorm, rcond, work, rwork, info) Original interface for CPOCON\nSee also: mfi_pocon , f77_pocon .\ncpocon estimates the reciprocal of the condition number (in the\n1-norm) of a complex(REAL32) Hermitian positive definite matrix using the\nCholesky factorization A = U H U or A = L L H computed by cPOTRF.\nAn estimate is obtained for norm(inv(A)), and the reciprocal of the\ncondition number is computed as RCOND = 1 / (ANORM * norm(inv(A))). Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: anorm real(kind=REAL32), intent(out) :: rcond complex(kind=REAL32), intent(inout) :: work (*) real(kind=REAL32), intent(inout) :: rwork (*) integer, intent(out) :: info public pure subroutine zpocon(uplo, n, a, lda, anorm, rcond, work, rwork, info) Original interface for ZPOCON\nSee also: mfi_pocon , f77_pocon .\nzpocon estimates the reciprocal of the condition number (in the\n1-norm) of a complex(REAL64) Hermitian positive definite matrix using the\nCholesky factorization A = U H U or A = L L H computed by zPOTRF.\nAn estimate is obtained for norm(inv(A)), and the reciprocal of the\ncondition number is computed as RCOND = 1 / (ANORM * norm(inv(A))). Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: anorm real(kind=REAL64), intent(out) :: rcond complex(kind=REAL64), intent(inout) :: work (*) real(kind=REAL64), intent(inout) :: rwork (*) integer, intent(out) :: info","tags":"","loc":"interface/f77_pocon.html"},{"title":"f77_heevx – MFI - Modern Fortran Interfaces","text":"public interface f77_heevx Generic old style interface for HEEVX.\nSupports c, z.\nSee also: mfi_heevx , cheevx , zheevx . Subroutines public pure subroutine cheevx(jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, work, lwork, rwork, lrwork, iwork, liwork, ifail, info) Original interface for CHEEVX\nSee also: mfi_heevx , f77_heevx . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobz character(len=1), intent(in) :: range character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: vl real(kind=REAL32), intent(in) :: vu integer, intent(in) :: il integer, intent(in) :: iu real(kind=REAL32), intent(in) :: abstol integer, intent(in) :: m real(kind=REAL32), intent(out) :: w (*) complex(kind=REAL32), intent(inout) :: z (ldz,*) integer, intent(in) :: ldz complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL32), intent(inout) :: rwork (*) integer, intent(in) :: lrwork integer, intent(inout) :: iwork (*) integer, intent(in) :: liwork integer, intent(in) :: ifail integer, intent(out) :: info public pure subroutine zheevx(jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, work, lwork, rwork, lrwork, iwork, liwork, ifail, info) Original interface for ZHEEVX\nSee also: mfi_heevx , f77_heevx . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobz character(len=1), intent(in) :: range character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: vl real(kind=REAL64), intent(in) :: vu integer, intent(in) :: il integer, intent(in) :: iu real(kind=REAL64), intent(in) :: abstol integer, intent(in) :: m real(kind=REAL64), intent(out) :: w (*) complex(kind=REAL64), intent(inout) :: z (ldz,*) integer, intent(in) :: ldz complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL64), intent(inout) :: rwork (*) integer, intent(in) :: lrwork integer, intent(inout) :: iwork (*) integer, intent(in) :: liwork integer, intent(in) :: ifail integer, intent(out) :: info","tags":"","loc":"interface/f77_heevx.html"},{"title":"f77_heevr – MFI - Modern Fortran Interfaces","text":"public interface f77_heevr Generic old style interface for HEEVR.\nSupports c, z.\nSee also: mfi_heevr , cheevr , zheevr . Subroutines public pure subroutine cheevr(jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, isuppz, work, lwork, rwork, lrwork, iwork, liwork, info) Original interface for CHEEVR\nSee also: mfi_heevr , f77_heevr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobz character(len=1), intent(in) :: range character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: vl real(kind=REAL32), intent(in) :: vu integer, intent(in) :: il integer, intent(in) :: iu real(kind=REAL32), intent(in) :: abstol integer, intent(in) :: m real(kind=REAL32), intent(out) :: w (*) complex(kind=REAL32), intent(inout) :: z (ldz,*) integer, intent(in) :: ldz integer, intent(in) :: isuppz (*) complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL32), intent(inout) :: rwork (*) integer, intent(in) :: lrwork integer, intent(inout) :: iwork (*) integer, intent(in) :: liwork integer, intent(out) :: info public pure subroutine zheevr(jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, isuppz, work, lwork, rwork, lrwork, iwork, liwork, info) Original interface for ZHEEVR\nSee also: mfi_heevr , f77_heevr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobz character(len=1), intent(in) :: range character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: vl real(kind=REAL64), intent(in) :: vu integer, intent(in) :: il integer, intent(in) :: iu real(kind=REAL64), intent(in) :: abstol integer, intent(in) :: m real(kind=REAL64), intent(out) :: w (*) complex(kind=REAL64), intent(inout) :: z (ldz,*) integer, intent(in) :: ldz integer, intent(in) :: isuppz (*) complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL64), intent(inout) :: rwork (*) integer, intent(in) :: lrwork integer, intent(inout) :: iwork (*) integer, intent(in) :: liwork integer, intent(out) :: info","tags":"","loc":"interface/f77_heevr.html"},{"title":"f77_gels – MFI - Modern Fortran Interfaces","text":"public interface f77_gels Generic old style interface for GELS.\nSupports s, d, c, z.\nSee also: mfi_gels , sgels , dgels , cgels , zgels . Subroutines public pure subroutine sgels(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for SGELS\nSee also: mfi_gels , f77_gels .\nSGELS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgels(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for DGELS\nSee also: mfi_gels , f77_gels .\nDGELS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgels(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for CGELS\nSee also: mfi_gels , f77_gels .\nCGELS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgels(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for ZGELS\nSee also: mfi_gels , f77_gels .\nZGELS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_gels.html"},{"title":"f77_gelst – MFI - Modern Fortran Interfaces","text":"public interface f77_gelst Generic old style interface for GELST.\nSupports s, d, c, z.\nSee also: mfi_gelst , sgelst , dgelst , cgelst , zgelst . Subroutines public pure subroutine sgelst(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for SGELST\nSee also: mfi_gelst , f77_gelst .\nSGELST solves overdetermined or underdetermined systems for GE matrices\nusing QR or LQ factorization with compact WY representation of Q. Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgelst(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for DGELST\nSee also: mfi_gelst , f77_gelst .\nDGELST solves overdetermined or underdetermined systems for GE matrices\nusing QR or LQ factorization with compact WY representation of Q. Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgelst(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for CGELST\nSee also: mfi_gelst , f77_gelst .\nCGELST solves overdetermined or underdetermined systems for GE matrices\nusing QR or LQ factorization with compact WY representation of Q. Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgelst(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for ZGELST\nSee also: mfi_gelst , f77_gelst .\nZGELST solves overdetermined or underdetermined systems for GE matrices\nusing QR or LQ factorization with compact WY representation of Q. Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_gelst.html"},{"title":"f77_getsls – MFI - Modern Fortran Interfaces","text":"public interface f77_getsls Generic old style interface for GETSLS.\nSupports s, d, c, z.\nSee also: mfi_getsls , sgetsls , dgetsls , cgetsls , zgetsls . Subroutines public pure subroutine sgetsls(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for SGETSLS\nSee also: mfi_getsls , f77_getsls .\nSGETSLS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgetsls(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for DGETSLS\nSee also: mfi_getsls , f77_getsls .\nDGETSLS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgetsls(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for CGETSLS\nSee also: mfi_getsls , f77_getsls .\nCGETSLS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgetsls(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for ZGETSLS\nSee also: mfi_getsls , f77_getsls .\nZGETSLS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_getsls.html"},{"title":"f77_gelsd – MFI - Modern Fortran Interfaces","text":"public interface f77_gelsd Generic old style interface for GELSD.\nSupports s, d, c, z.\nSee also: mfi_gelsd , sgelsd , dgelsd , cgelsd , zgelsd . Subroutines public pure subroutine sgelsd(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, iwork, info) Original interface for SGELSD\nSee also: mfi_gelsd , f77_gelsd .\nSGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(out) :: s (*) real(kind=REAL32), intent(in) :: rcond integer, intent(out) :: rank real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: iwork (*) integer, intent(out) :: info public pure subroutine dgelsd(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, iwork, info) Original interface for DGELSD\nSee also: mfi_gelsd , f77_gelsd .\nDGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(out) :: s (*) real(kind=REAL64), intent(in) :: rcond integer, intent(out) :: rank real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: iwork (*) integer, intent(out) :: info public pure subroutine cgelsd(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, iwork, info) Original interface for CGELSD\nSee also: mfi_gelsd , f77_gelsd .\nCGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(out) :: s (*) complex(kind=REAL32), intent(in) :: rcond integer, intent(out) :: rank complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: iwork (*) integer, intent(out) :: info public pure subroutine zgelsd(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, iwork, info) Original interface for ZGELSD\nSee also: mfi_gelsd , f77_gelsd .\nZGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(out) :: s (*) complex(kind=REAL64), intent(in) :: rcond integer, intent(out) :: rank complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: iwork (*) integer, intent(out) :: info","tags":"","loc":"interface/f77_gelsd.html"},{"title":"f77_gelss – MFI - Modern Fortran Interfaces","text":"public interface f77_gelss Generic old style interface for GELSS.\nSupports s, d, c, z.\nSee also: mfi_gelss , sgelss , dgelss , cgelss , zgelss . Subroutines public pure subroutine sgelss(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, info) Original interface for SGELSS\nSee also: mfi_gelss , f77_gelss .\nSGELSS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(out) :: s (*) real(kind=REAL32), intent(in) :: rcond integer, intent(out) :: rank real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgelss(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, info) Original interface for DGELSS\nSee also: mfi_gelss , f77_gelss .\nDGELSS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(out) :: s (*) real(kind=REAL64), intent(in) :: rcond integer, intent(out) :: rank real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgelss(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, info) Original interface for CGELSS\nSee also: mfi_gelss , f77_gelss .\nCGELSS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(out) :: s (*) complex(kind=REAL32), intent(in) :: rcond integer, intent(out) :: rank complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgelss(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, info) Original interface for ZGELSS\nSee also: mfi_gelss , f77_gelss .\nZGELSS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(out) :: s (*) complex(kind=REAL64), intent(in) :: rcond integer, intent(out) :: rank complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_gelss.html"},{"title":"f77_gelsy – MFI - Modern Fortran Interfaces","text":"public interface f77_gelsy Generic old style interface for GELSY.\nSupports s, d, c, z.\nSee also: mfi_gelsy , sgelsy , dgelsy , cgelsy , zgelsy . Subroutines public pure subroutine sgelsy(m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, work, lwork, info) Original interface for SGELSY\nSee also: mfi_gelsy , f77_gelsy .\nSGELSY solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(inout) :: jpvt (*) real(kind=REAL32), intent(in) :: rcond integer, intent(out) :: rank real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgelsy(m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, work, lwork, info) Original interface for DGELSY\nSee also: mfi_gelsy , f77_gelsy .\nDGELSY solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(inout) :: jpvt (*) real(kind=REAL64), intent(in) :: rcond integer, intent(out) :: rank real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgelsy(m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, work, lwork, info) Original interface for CGELSY\nSee also: mfi_gelsy , f77_gelsy .\nCGELSY solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(inout) :: jpvt (*) complex(kind=REAL32), intent(in) :: rcond integer, intent(out) :: rank complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgelsy(m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, work, lwork, info) Original interface for ZGELSY\nSee also: mfi_gelsy , f77_gelsy .\nZGELSY solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(inout) :: jpvt (*) complex(kind=REAL64), intent(in) :: rcond integer, intent(out) :: rank complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_gelsy.html"},{"title":"f77_gglse – MFI - Modern Fortran Interfaces","text":"public interface f77_gglse Generic old style interface for GGLSE.\nSupports s, d, c, z.\nSee also: mfi_gglse , sgglse , dgglse , cgglse , zgglse . Subroutines public pure subroutine sgglse(m, n, p, a, lda, b, ldb, c, d, x, work, lwork, info) Original interface for SGGLSE\nSee also: mfi_gglse , f77_gglse . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: p real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(inout) :: c (*) real(kind=REAL32), intent(inout) :: d (*) real(kind=REAL32), intent(out) :: x (*) real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgglse(m, n, p, a, lda, b, ldb, c, d, x, work, lwork, info) Original interface for DGGLSE\nSee also: mfi_gglse , f77_gglse . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: p real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(inout) :: c (*) real(kind=REAL64), intent(inout) :: d (*) real(kind=REAL64), intent(out) :: x (*) real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgglse(m, n, p, a, lda, b, ldb, c, d, x, work, lwork, info) Original interface for CGGLSE\nSee also: mfi_gglse , f77_gglse . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: p complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(inout) :: c (*) complex(kind=REAL32), intent(inout) :: d (*) complex(kind=REAL32), intent(out) :: x (*) complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgglse(m, n, p, a, lda, b, ldb, c, d, x, work, lwork, info) Original interface for ZGGLSE\nSee also: mfi_gglse , f77_gglse . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: p complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(inout) :: c (*) complex(kind=REAL64), intent(inout) :: d (*) complex(kind=REAL64), intent(out) :: x (*) complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_gglse.html"},{"title":"f77_gglsm – MFI - Modern Fortran Interfaces","text":"public interface f77_gglsm Generic old style interface for GGLSM.\nSupports s, d, c, z.\nSee also: mfi_gglsm , sgglsm , dgglsm , cgglsm , zgglsm . Subroutines public pure subroutine sgglsm(n, m, p, a, lda, b, ldb, d, x, y, work, lwork, info) Original interface for SGGLSM\nSee also: mfi_gglsm , f77_gglsm . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n integer, intent(in) :: m integer, intent(in) :: p real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(inout) :: d (*) real(kind=REAL32), intent(out) :: x (*) real(kind=REAL32), intent(out) :: y (*) real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgglsm(n, m, p, a, lda, b, ldb, d, x, y, work, lwork, info) Original interface for DGGLSM\nSee also: mfi_gglsm , f77_gglsm . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n integer, intent(in) :: m integer, intent(in) :: p real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(inout) :: d (*) real(kind=REAL64), intent(out) :: x (*) real(kind=REAL64), intent(out) :: y (*) real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgglsm(n, m, p, a, lda, b, ldb, d, x, y, work, lwork, info) Original interface for CGGLSM\nSee also: mfi_gglsm , f77_gglsm . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n integer, intent(in) :: m integer, intent(in) :: p complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(inout) :: d (*) complex(kind=REAL32), intent(out) :: x (*) complex(kind=REAL32), intent(out) :: y (*) complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgglsm(n, m, p, a, lda, b, ldb, d, x, y, work, lwork, info) Original interface for ZGGLSM\nSee also: mfi_gglsm , f77_gglsm . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n integer, intent(in) :: m integer, intent(in) :: p complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(inout) :: d (*) complex(kind=REAL64), intent(out) :: x (*) complex(kind=REAL64), intent(out) :: y (*) complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_gglsm.html"},{"title":"f77_org2r – MFI - Modern Fortran Interfaces","text":"public interface f77_org2r Generic old style interface for ORG2R.\nSupports s, d.\nSee also: mfi_org2r , sorg2r , dorg2r . Subroutines public pure subroutine sorg2r(m, n, k, a, lda, tau, work, info) Original interface for SORG2R\nSee also: mfi_org2r , f77_org2r .\nThis routine generates an real(REAL32)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by sgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine dorg2r(m, n, k, a, lda, tau, work, info) Original interface for DORG2R\nSee also: mfi_org2r , f77_org2r .\nThis routine generates an real(REAL64)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by dgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info","tags":"","loc":"interface/f77_org2r.html"},{"title":"f77_orgr2 – MFI - Modern Fortran Interfaces","text":"public interface f77_orgr2 Generic old style interface for ORGR2.\nSupports s, d.\nSee also: mfi_orgr2 , sorgr2 , dorgr2 . Subroutines public pure subroutine sorgr2(m, n, k, a, lda, tau, work, info) Original interface for SORGR2\nSee also: mfi_orgr2 , f77_orgr2 .\nThis routine generates an real(REAL32)\nmatrix with orthonormal rows,\nwhich is defined as the last rows of a product of elementary\nreflectors of order . as returned by sgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine dorgr2(m, n, k, a, lda, tau, work, info) Original interface for DORGR2\nSee also: mfi_orgr2 , f77_orgr2 .\nThis routine generates an real(REAL64)\nmatrix with orthonormal rows,\nwhich is defined as the last rows of a product of elementary\nreflectors of order . as returned by dgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info","tags":"","loc":"interface/f77_orgr2.html"},{"title":"f77_orm2r – MFI - Modern Fortran Interfaces","text":"public interface f77_orm2r Generic old style interface for ORM2R.\nSupports s, d.\nSee also: mfi_orm2r , sorm2r , dorm2r . Subroutines public pure subroutine sorm2r(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for SORM2R\n See also: mfi_orm2r , f77_orm2r .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by sgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine dorm2r(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for DORM2R\n See also: mfi_orm2r , f77_orm2r .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by dgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info","tags":"","loc":"interface/f77_orm2r.html"},{"title":"f77_ormr2 – MFI - Modern Fortran Interfaces","text":"public interface f77_ormr2 Generic old style interface for ORMR2.\nSupports s, d.\nSee also: mfi_ormr2 , sormr2 , dormr2 . Subroutines public pure subroutine sormr2(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for SORMR2\n See also: mfi_ormr2 , f77_ormr2 .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by sgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine dormr2(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for DORMR2\n See also: mfi_ormr2 , f77_ormr2 .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by dgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info","tags":"","loc":"interface/f77_ormr2.html"},{"title":"f77_ormqr – MFI - Modern Fortran Interfaces","text":"public interface f77_ormqr Generic old style interface for ORMQR.\nSupports s, d.\nSee also: mfi_ormqr , sormqr , dormqr . Subroutines public pure subroutine sormqr(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for SORMQR\n See also: mfi_ormqr , f77_ormqr .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by sgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dormqr(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for DORMQR\n See also: mfi_ormqr , f77_ormqr .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by dgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_ormqr.html"},{"title":"f77_ormrq – MFI - Modern Fortran Interfaces","text":"public interface f77_ormrq Generic old style interface for ORMRQ.\nSupports s, d.\nSee also: mfi_ormrq , sormrq , dormrq . Subroutines public pure subroutine sormrq(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for SORMRQ\n See also: mfi_ormrq , f77_ormrq .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by sgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dormrq(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for DORMRQ\n See also: mfi_ormrq , f77_ormrq .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by dgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_ormrq.html"},{"title":"f77_orgqr – MFI - Modern Fortran Interfaces","text":"public interface f77_orgqr Generic old style interface for ORGQR.\nSupports s, d.\nSee also: mfi_orgqr , sorgqr , dorgqr . Subroutines public pure subroutine sorgqr(m, n, k, a, lda, tau, work, lwork, info) Original interface for SORGQR\nSee also: mfi_orgqr , f77_orgqr .\nThis routine generates an real(REAL32)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by sgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dorgqr(m, n, k, a, lda, tau, work, lwork, info) Original interface for DORGQR\nSee also: mfi_orgqr , f77_orgqr .\nThis routine generates an real(REAL64)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by dgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_orgqr.html"},{"title":"f77_orgrq – MFI - Modern Fortran Interfaces","text":"public interface f77_orgrq Generic old style interface for ORGRQ.\nSupports s, d.\nSee also: mfi_orgrq , sorgrq , dorgrq . Subroutines public pure subroutine sorgrq(m, n, k, a, lda, tau, work, lwork, info) Original interface for SORGRQ\nSee also: mfi_orgrq , f77_orgrq .\nThis routine generates an real(REAL32)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by sgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dorgrq(m, n, k, a, lda, tau, work, lwork, info) Original interface for DORGRQ\nSee also: mfi_orgrq , f77_orgrq .\nThis routine generates an real(REAL64)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by dgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_orgrq.html"},{"title":"f77_ung2r – MFI - Modern Fortran Interfaces","text":"public interface f77_ung2r Generic old style interface for UNG2R.\nSupports c, z.\nSee also: mfi_ung2r , cung2r , zung2r . Subroutines public pure subroutine cung2r(m, n, k, a, lda, tau, work, info) Original interface for CUNG2R\nSee also: mfi_ung2r , f77_ung2r .\nThis routine generates an complex(REAL32)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by cgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine zung2r(m, n, k, a, lda, tau, work, info) Original interface for ZUNG2R\nSee also: mfi_ung2r , f77_ung2r .\nThis routine generates an complex(REAL64)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by zgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info","tags":"","loc":"interface/f77_ung2r.html"},{"title":"f77_ungr2 – MFI - Modern Fortran Interfaces","text":"public interface f77_ungr2 Generic old style interface for UNGR2.\nSupports c, z.\nSee also: mfi_ungr2 , cungr2 , zungr2 . Subroutines public pure subroutine cungr2(m, n, k, a, lda, tau, work, info) Original interface for CUNGR2\nSee also: mfi_ungr2 , f77_ungr2 .\nThis routine generates an complex(REAL32)\nmatrix with orthonormal rows,\nwhich is defined as the last rows of a product of elementary\nreflectors of order . as returned by cgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine zungr2(m, n, k, a, lda, tau, work, info) Original interface for ZUNGR2\nSee also: mfi_ungr2 , f77_ungr2 .\nThis routine generates an complex(REAL64)\nmatrix with orthonormal rows,\nwhich is defined as the last rows of a product of elementary\nreflectors of order . as returned by zgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info","tags":"","loc":"interface/f77_ungr2.html"},{"title":"f77_unm2r – MFI - Modern Fortran Interfaces","text":"public interface f77_unm2r Generic old style interface for UNM2R.\nSupports c, z.\nSee also: mfi_unm2r , cunm2r , zunm2r . Subroutines public pure subroutine cunm2r(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for CUNM2R\n See also: mfi_unm2r , f77_unm2r .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by cgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine zunm2r(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for ZUNM2R\n See also: mfi_unm2r , f77_unm2r .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by zgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info","tags":"","loc":"interface/f77_unm2r.html"},{"title":"f77_unmr2 – MFI - Modern Fortran Interfaces","text":"public interface f77_unmr2 Generic old style interface for UNMR2.\nSupports c, z.\nSee also: mfi_unmr2 , cunmr2 , zunmr2 . Subroutines public pure subroutine cunmr2(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for CUNMR2\n See also: mfi_unmr2 , f77_unmr2 .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by cgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine zunmr2(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for ZUNMR2\n See also: mfi_unmr2 , f77_unmr2 .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by zgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info","tags":"","loc":"interface/f77_unmr2.html"},{"title":"f77_unmqr – MFI - Modern Fortran Interfaces","text":"public interface f77_unmqr Generic old style interface for UNMQR.\nSupports c, z.\nSee also: mfi_unmqr , cunmqr , zunmqr . Subroutines public pure subroutine cunmqr(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for CUNMQR\n See also: mfi_unmqr , f77_unmqr .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by cgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zunmqr(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for ZUNMQR\n See also: mfi_unmqr , f77_unmqr .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by zgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_unmqr.html"},{"title":"f77_unmrq – MFI - Modern Fortran Interfaces","text":"public interface f77_unmrq Generic old style interface for UNMRQ.\nSupports c, z.\nSee also: mfi_unmrq , cunmrq , zunmrq . Subroutines public pure subroutine cunmrq(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for CUNMRQ\n See also: mfi_unmrq , f77_unmrq .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by cgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zunmrq(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for ZUNMRQ\n See also: mfi_unmrq , f77_unmrq .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by zgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_unmrq.html"},{"title":"f77_ungqr – MFI - Modern Fortran Interfaces","text":"public interface f77_ungqr Generic old style interface for UNGQR.\nSupports c, z.\nSee also: mfi_ungqr , cungqr , zungqr . Subroutines public pure subroutine cungqr(m, n, k, a, lda, tau, work, lwork, info) Original interface for CUNGQR\nSee also: mfi_ungqr , f77_ungqr .\nThis routine generates an complex(REAL32)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by cgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zungqr(m, n, k, a, lda, tau, work, lwork, info) Original interface for ZUNGQR\nSee also: mfi_ungqr , f77_ungqr .\nThis routine generates an complex(REAL64)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by zgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_ungqr.html"},{"title":"f77_ungrq – MFI - Modern Fortran Interfaces","text":"public interface f77_ungrq Generic old style interface for UNGRQ.\nSupports c, z.\nSee also: mfi_ungrq , cungrq , zungrq . Subroutines public pure subroutine cungrq(m, n, k, a, lda, tau, work, lwork, info) Original interface for CUNGRQ\nSee also: mfi_ungrq , f77_ungrq .\nThis routine generates an complex(REAL32)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by cgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zungrq(m, n, k, a, lda, tau, work, lwork, info) Original interface for ZUNGRQ\nSee also: mfi_ungrq , f77_ungrq .\nThis routine generates an complex(REAL64)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by zgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_ungrq.html"},{"title":"f77_lartg – MFI - Modern Fortran Interfaces","text":"public interface f77_lartg Generic old style interface for LARTG.\nSupports s, d, c, z.\nSee also: mfi_lartg , slartg , dlartg , clartg , zlartg . Subroutines public pure subroutine slartg(f, g, c, s, r) Original interface for SLARTG\nSee also: mfi_lartg , f77_lartg . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: f real(kind=REAL32), intent(inout) :: g real(kind=wp), intent(inout) :: c real(kind=REAL32), intent(inout) :: s real(kind=REAL32), intent(inout) :: r public pure subroutine dlartg(f, g, c, s, r) Original interface for DLARTG\nSee also: mfi_lartg , f77_lartg . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: f real(kind=REAL64), intent(inout) :: g real(kind=wp), intent(inout) :: c real(kind=REAL64), intent(inout) :: s real(kind=REAL64), intent(inout) :: r public pure subroutine clartg(f, g, c, s, r) Original interface for CLARTG\nSee also: mfi_lartg , f77_lartg . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: f complex(kind=REAL32), intent(inout) :: g real(kind=wp), intent(inout) :: c complex(kind=REAL32), intent(inout) :: s complex(kind=REAL32), intent(inout) :: r public pure subroutine zlartg(f, g, c, s, r) Original interface for ZLARTG\nSee also: mfi_lartg , f77_lartg . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: f complex(kind=REAL64), intent(inout) :: g real(kind=wp), intent(inout) :: c complex(kind=REAL64), intent(inout) :: s complex(kind=REAL64), intent(inout) :: r","tags":"","loc":"interface/f77_lartg.html"},{"title":"f77_xerbla – MFI - Modern Fortran Interfaces","text":"public interface f77_xerbla Subroutines public pure subroutine xerbla(name, info) Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: name integer, intent(in) :: info","tags":"","loc":"interface/f77_xerbla.html"},{"title":"mfi_cdotc – MFI - Modern Fortran Interfaces","text":"public pure function mfi_cdotc(x, y, incx, incy) Modern interface for cdotc .\nSee also: mfi_dotc , f77_dotc . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL32)","tags":"","loc":"proc/mfi_cdotc.html"},{"title":"mfi_cdotu – MFI - Modern Fortran Interfaces","text":"public pure function mfi_cdotu(x, y, incx, incy) Modern interface for cdotu .\nSee also: mfi_dotu , f77_dotu . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL32)","tags":"","loc":"proc/mfi_cdotu.html"},{"title":"mfi_zdotc – MFI - Modern Fortran Interfaces","text":"public pure function mfi_zdotc(x, y, incx, incy) Modern interface for zdotc .\nSee also: mfi_dotc , f77_dotc . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL64)","tags":"","loc":"proc/mfi_zdotc.html"},{"title":"mfi_zdotu – MFI - Modern Fortran Interfaces","text":"public pure function mfi_zdotu(x, y, incx, incy) Modern interface for zdotu .\nSee also: mfi_dotu , f77_dotu . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL64)","tags":"","loc":"proc/mfi_zdotu.html"},{"title":"mfi_isamax – MFI - Modern Fortran Interfaces","text":"public pure function mfi_isamax(x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer","tags":"","loc":"proc/mfi_isamax.html"},{"title":"mfi_idamax – MFI - Modern Fortran Interfaces","text":"public pure function mfi_idamax(x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer","tags":"","loc":"proc/mfi_idamax.html"},{"title":"mfi_icamax – MFI - Modern Fortran Interfaces","text":"public pure function mfi_icamax(x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer","tags":"","loc":"proc/mfi_icamax.html"},{"title":"mfi_izamax – MFI - Modern Fortran Interfaces","text":"public pure function mfi_izamax(x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer","tags":"","loc":"proc/mfi_izamax.html"},{"title":"mfi_isamin – MFI - Modern Fortran Interfaces","text":"public pure function mfi_isamin(x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer","tags":"","loc":"proc/mfi_isamin.html"},{"title":"mfi_idamin – MFI - Modern Fortran Interfaces","text":"public pure function mfi_idamin(x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer","tags":"","loc":"proc/mfi_idamin.html"},{"title":"mfi_icamin – MFI - Modern Fortran Interfaces","text":"public pure function mfi_icamin(x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer","tags":"","loc":"proc/mfi_icamin.html"},{"title":"mfi_izamin – MFI - Modern Fortran Interfaces","text":"public pure function mfi_izamin(x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer","tags":"","loc":"proc/mfi_izamin.html"},{"title":"mfi_sdot – MFI - Modern Fortran Interfaces","text":"public pure function mfi_sdot(x, y, incx, incy) Modern interface for sdot .\nSee also: mfi_dot , f77_dot . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value real(kind=REAL32)","tags":"","loc":"proc/mfi_sdot.html"},{"title":"mfi_sasum – MFI - Modern Fortran Interfaces","text":"public pure function mfi_sasum(x, incx) Modern interface for sasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32)","tags":"","loc":"proc/mfi_sasum.html"},{"title":"mfi_scasum – MFI - Modern Fortran Interfaces","text":"public pure function mfi_scasum(x, incx) Modern interface for scasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32)","tags":"","loc":"proc/mfi_scasum.html"},{"title":"mfi_snrm2 – MFI - Modern Fortran Interfaces","text":"public pure function mfi_snrm2(x, incx) Modern interface for snrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32)","tags":"","loc":"proc/mfi_snrm2.html"},{"title":"mfi_scnrm2 – MFI - Modern Fortran Interfaces","text":"public pure function mfi_scnrm2(x, incx) Modern interface for scnrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32)","tags":"","loc":"proc/mfi_scnrm2.html"},{"title":"mfi_slamch – MFI - Modern Fortran Interfaces","text":"public pure function mfi_slamch(cmach, kind) result(res) Modern interface for f77_lamch .\nSee also: mfi_lamch , f77_lamch . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: cmach real(kind=REAL32), intent(in) :: kind Just a kind placeholder Return Value real(kind=REAL32)","tags":"","loc":"proc/mfi_slamch.html"},{"title":"mfi_ddot – MFI - Modern Fortran Interfaces","text":"public pure function mfi_ddot(x, y, incx, incy) Modern interface for ddot .\nSee also: mfi_dot , f77_dot . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value real(kind=REAL64)","tags":"","loc":"proc/mfi_ddot.html"},{"title":"mfi_dasum – MFI - Modern Fortran Interfaces","text":"public pure function mfi_dasum(x, incx) Modern interface for dasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64)","tags":"","loc":"proc/mfi_dasum.html"},{"title":"mfi_dzasum – MFI - Modern Fortran Interfaces","text":"public pure function mfi_dzasum(x, incx) Modern interface for dzasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64)","tags":"","loc":"proc/mfi_dzasum.html"},{"title":"mfi_dnrm2 – MFI - Modern Fortran Interfaces","text":"public pure function mfi_dnrm2(x, incx) Modern interface for dnrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64)","tags":"","loc":"proc/mfi_dnrm2.html"},{"title":"mfi_dznrm2 – MFI - Modern Fortran Interfaces","text":"public pure function mfi_dznrm2(x, incx) Modern interface for dznrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64)","tags":"","loc":"proc/mfi_dznrm2.html"},{"title":"mfi_dlamch – MFI - Modern Fortran Interfaces","text":"public pure function mfi_dlamch(cmach, kind) result(res) Modern interface for f77_lamch .\nSee also: mfi_lamch , f77_lamch . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: cmach real(kind=REAL64), intent(in) :: kind Just a kind placeholder Return Value real(kind=REAL64)","tags":"","loc":"proc/mfi_dlamch.html"},{"title":"mfi_scopy – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_scopy(x, y, incx, incy) Modern interface for scopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_scopy.html"},{"title":"mfi_dcopy – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dcopy(x, y, incx, incy) Modern interface for dcopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_dcopy.html"},{"title":"mfi_ccopy – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ccopy(x, y, incx, incy) Modern interface for ccopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_ccopy.html"},{"title":"mfi_zcopy – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zcopy(x, y, incx, incy) Modern interface for zcopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_zcopy.html"},{"title":"mfi_sswap – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sswap(x, y, incx, incy) Modern interface for sswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_sswap.html"},{"title":"mfi_dswap – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dswap(x, y, incx, incy) Modern interface for dswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_dswap.html"},{"title":"mfi_cswap – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cswap(x, y, incx, incy) Modern interface for cswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_cswap.html"},{"title":"mfi_zswap – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zswap(x, y, incx, incy) Modern interface for zswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_zswap.html"},{"title":"mfi_saxpy – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_saxpy(x, y, a, incx, incy) Modern interface for saxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_saxpy.html"},{"title":"mfi_daxpy – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_daxpy(x, y, a, incx, incy) Modern interface for daxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_daxpy.html"},{"title":"mfi_caxpy – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_caxpy(x, y, a, incx, incy) Modern interface for caxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) complex(kind=REAL32), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_caxpy.html"},{"title":"mfi_zaxpy – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zaxpy(x, y, a, incx, incy) Modern interface for zaxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) complex(kind=REAL64), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_zaxpy.html"},{"title":"mfi_srot – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_srot(x, y, c, s, incx, incy) Modern interface for srot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: xi = c * xi + s * yi yi = c * yi - s * xi Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: x (:) real(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: c real(kind=REAL32), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_srot.html"},{"title":"mfi_drot – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_drot(x, y, c, s, incx, incy) Modern interface for drot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: xi = c * xi + s * yi yi = c * yi - s * xi Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: x (:) real(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: c real(kind=REAL64), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_drot.html"},{"title":"mfi_crot – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_crot(x, y, c, s, incx, incy) Modern interface for crot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: xi = c * xi + s * yi yi = c * yi - conj ( s ) * xi Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: c complex(kind=REAL32), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_crot.html"},{"title":"mfi_zrot – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zrot(x, y, c, s, incx, incy) Modern interface for zrot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: xi = c * xi + s * yi yi = c * yi - conj ( s ) * xi Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: c complex(kind=REAL64), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_zrot.html"},{"title":"mfi_csrot – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_csrot(x, y, c, s, incx, incy) Modern interface for csrot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: xi = c * xi + s * yi yi = c * yi - conj ( s ) * xi Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: c real(kind=REAL32), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_csrot.html"},{"title":"mfi_zdrot – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zdrot(x, y, c, s, incx, incy) Modern interface for zdrot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: xi = c * xi + s * yi yi = c * yi - conj ( s ) * xi Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: c real(kind=REAL64), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_zdrot.html"},{"title":"mfi_srotm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_srotm(x, y, param, incx, incy) Modern interface for srotm .\nSee also: mfi_rotm , f77_rotm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: x (:) real(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: param (5) integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_srotm.html"},{"title":"mfi_drotm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_drotm(x, y, param, incx, incy) Modern interface for drotm .\nSee also: mfi_rotm , f77_rotm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: x (:) real(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: param (5) integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_drotm.html"},{"title":"mfi_sscal – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sscal(a, x, incx) Modern interface for sscal .\nSee also: mfi_scal , f77_scal .\nMFI_SSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a real(kind=REAL32), intent(inout) :: x (:) integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_sscal.html"},{"title":"mfi_dscal – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dscal(a, x, incx) Modern interface for dscal .\nSee also: mfi_scal , f77_scal .\nMFI_DSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a real(kind=REAL64), intent(inout) :: x (:) integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_dscal.html"},{"title":"mfi_cscal – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cscal(a, x, incx) Modern interface for cscal .\nSee also: mfi_scal , f77_scal .\nMFI_CSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(inout) :: x (:) integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_cscal.html"},{"title":"mfi_zscal – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zscal(a, x, incx) Modern interface for zscal .\nSee also: mfi_scal , f77_scal .\nMFI_ZSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(inout) :: x (:) integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_zscal.html"},{"title":"mfi_csscal – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_csscal(a, x, incx) Modern interface for csscal .\nSee also: mfi_scal , f77_scal .\nMFI_CSSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(inout) :: x (:) integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_csscal.html"},{"title":"mfi_zdscal – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zdscal(a, x, incx) Modern interface for zdscal .\nSee also: mfi_scal , f77_scal .\nMFI_ZDSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(inout) :: x (:) integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_zdscal.html"},{"title":"mfi_sgbmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sgbmv(a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for sgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_sgbmv.html"},{"title":"mfi_dgbmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dgbmv(a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for dgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_dgbmv.html"},{"title":"mfi_cgbmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cgbmv(a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for cgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_cgbmv.html"},{"title":"mfi_zgbmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zgbmv(a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for zgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_zgbmv.html"},{"title":"mfi_sgemv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sgemv(a, x, y, trans, alpha, beta, incx, incy) Modern interface for sgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_sgemv.html"},{"title":"mfi_dgemv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dgemv(a, x, y, trans, alpha, beta, incx, incy) Modern interface for dgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_dgemv.html"},{"title":"mfi_cgemv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cgemv(a, x, y, trans, alpha, beta, incx, incy) Modern interface for cgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_cgemv.html"},{"title":"mfi_zgemv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zgemv(a, x, y, trans, alpha, beta, incx, incy) Modern interface for zgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_zgemv.html"},{"title":"mfi_sger – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sger(a, x, y, alpha, incx, incy) Modern interface for sger .\nSee also: mfi_ger , f77_ger . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_sger.html"},{"title":"mfi_dger – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dger(a, x, y, alpha, incx, incy) Modern interface for dger .\nSee also: mfi_ger , f77_ger . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_dger.html"},{"title":"mfi_cgerc – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cgerc(a, x, y, alpha, incx, incy) Modern interface for cgerc .\nSee also: mfi_gerc , f77_gerc . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_cgerc.html"},{"title":"mfi_zgerc – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zgerc(a, x, y, alpha, incx, incy) Modern interface for zgerc .\nSee also: mfi_gerc , f77_gerc . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_zgerc.html"},{"title":"mfi_cgeru – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cgeru(a, x, y, alpha, incx, incy) Modern interface for cgeru .\nSee also: mfi_geru , f77_geru . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_cgeru.html"},{"title":"mfi_zgeru – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zgeru(a, x, y, alpha, incx, incy) Modern interface for zgeru .\nSee also: mfi_geru , f77_geru . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_zgeru.html"},{"title":"mfi_chbmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_chbmv(a, x, y, uplo, alpha, beta, incx, incy) Modern interface for chbmv .\nSee also: mfi_hbmv , f77_hbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_chbmv.html"},{"title":"mfi_zhbmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zhbmv(a, x, y, uplo, alpha, beta, incx, incy) Modern interface for zhbmv .\nSee also: mfi_hbmv , f77_hbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_zhbmv.html"},{"title":"mfi_chemv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_chemv(a, x, y, uplo, alpha, beta, incx, incy) Modern interface for chemv .\nSee also: mfi_hemv , f77_hemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_chemv.html"},{"title":"mfi_zhemv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zhemv(a, x, y, uplo, alpha, beta, incx, incy) Modern interface for zhemv .\nSee also: mfi_hemv , f77_hemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_zhemv.html"},{"title":"mfi_cher – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cher(a, x, uplo, alpha, incx) Modern interface for cher .\nSee also: mfi_her , f77_her . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_cher.html"},{"title":"mfi_zher – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zher(a, x, uplo, alpha, incx) Modern interface for zher .\nSee also: mfi_her , f77_her . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_zher.html"},{"title":"mfi_cher2 – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cher2(a, x, y, uplo, alpha, incx, incy) Modern interface for cher2 .\nSee also: mfi_her2 , f77_her2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_cher2.html"},{"title":"mfi_zher2 – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zher2(a, x, y, uplo, alpha, incx, incy) Modern interface for zher2 .\nSee also: mfi_her2 , f77_her2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_zher2.html"},{"title":"mfi_chpmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_chpmv(ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for chpmv .\nSee also: mfi_hpmv , f77_hpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: ap (:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_chpmv.html"},{"title":"mfi_zhpmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zhpmv(ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for zhpmv .\nSee also: mfi_hpmv , f77_hpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: ap (:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_zhpmv.html"},{"title":"mfi_chpr – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_chpr(ap, x, uplo, alpha, incx) Modern interface for chpr .\nSee also: mfi_hpr , f77_hpr . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: ap (:) complex(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_chpr.html"},{"title":"mfi_zhpr – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zhpr(ap, x, uplo, alpha, incx) Modern interface for zhpr .\nSee also: mfi_hpr , f77_hpr . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: ap (:) complex(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_zhpr.html"},{"title":"mfi_chpr2 – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_chpr2(ap, x, y, uplo, alpha, incx, incy) Modern interface for chpr2 .\nSee also: mfi_hpr2 , f77_hpr2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: ap (:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_chpr2.html"},{"title":"mfi_zhpr2 – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zhpr2(ap, x, y, uplo, alpha, incx, incy) Modern interface for zhpr2 .\nSee also: mfi_hpr2 , f77_hpr2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: ap (:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_zhpr2.html"},{"title":"mfi_ssbmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ssbmv(a, x, y, uplo, alpha, beta, incx, incy) Modern interface for ssbmv .\nSee also: mfi_sbmv , f77_sbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_ssbmv.html"},{"title":"mfi_dsbmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dsbmv(a, x, y, uplo, alpha, beta, incx, incy) Modern interface for dsbmv .\nSee also: mfi_sbmv , f77_sbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_dsbmv.html"},{"title":"mfi_sspmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sspmv(ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for sspmv .\nSee also: mfi_spmv , f77_spmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: ap (:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_sspmv.html"},{"title":"mfi_dspmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dspmv(ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for dspmv .\nSee also: mfi_spmv , f77_spmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: ap (:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_dspmv.html"},{"title":"mfi_sspr – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sspr(ap, x, uplo, alpha, incx) Modern interface for sspr .\nSee also: mfi_spr , f77_spr . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: ap (:) real(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_sspr.html"},{"title":"mfi_dspr – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dspr(ap, x, uplo, alpha, incx) Modern interface for dspr .\nSee also: mfi_spr , f77_spr . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: ap (:) real(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_dspr.html"},{"title":"mfi_sspr2 – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sspr2(ap, x, y, uplo, alpha, incx, incy) Modern interface for sspr2 .\nSee also: mfi_spr2 , f77_spr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: ap (:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_sspr2.html"},{"title":"mfi_dspr2 – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dspr2(ap, x, y, uplo, alpha, incx, incy) Modern interface for dspr2 .\nSee also: mfi_spr2 , f77_spr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: ap (:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_dspr2.html"},{"title":"mfi_ssymv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ssymv(a, x, y, uplo, alpha, beta, incx, incy) Modern interface for ssymv .\nSee also: mfi_symv , f77_symv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_ssymv.html"},{"title":"mfi_dsymv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dsymv(a, x, y, uplo, alpha, beta, incx, incy) Modern interface for dsymv .\nSee also: mfi_symv , f77_symv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_dsymv.html"},{"title":"mfi_ssyr – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ssyr(a, x, uplo, alpha, incx) Modern interface for ssyr .\nSee also: mfi_syr , f77_syr . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_ssyr.html"},{"title":"mfi_dsyr – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dsyr(a, x, uplo, alpha, incx) Modern interface for dsyr .\nSee also: mfi_syr , f77_syr . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_dsyr.html"},{"title":"mfi_ssyr2 – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ssyr2(a, x, y, uplo, alpha, incx, incy) Modern interface for ssyr2 .\nSee also: mfi_syr2 , f77_syr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_ssyr2.html"},{"title":"mfi_dsyr2 – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dsyr2(a, x, y, uplo, alpha, incx, incy) Modern interface for dsyr2 .\nSee also: mfi_syr2 , f77_syr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_dsyr2.html"},{"title":"mfi_stbmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_stbmv(a, x, uplo, trans, diag, incx) Modern interface for stbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_stbmv.html"},{"title":"mfi_dtbmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dtbmv(a, x, uplo, trans, diag, incx) Modern interface for dtbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_dtbmv.html"},{"title":"mfi_ctbmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ctbmv(a, x, uplo, trans, diag, incx) Modern interface for ctbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_ctbmv.html"},{"title":"mfi_ztbmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ztbmv(a, x, uplo, trans, diag, incx) Modern interface for ztbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_ztbmv.html"},{"title":"mfi_stbsv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_stbsv(a, x, uplo, trans, diag, incx) Modern interface for stbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_stbsv.html"},{"title":"mfi_dtbsv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dtbsv(a, x, uplo, trans, diag, incx) Modern interface for dtbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_dtbsv.html"},{"title":"mfi_ctbsv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ctbsv(a, x, uplo, trans, diag, incx) Modern interface for ctbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_ctbsv.html"},{"title":"mfi_ztbsv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ztbsv(a, x, uplo, trans, diag, incx) Modern interface for ztbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_ztbsv.html"},{"title":"mfi_stpmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_stpmv(ap, x, uplo, trans, diag, incx) Modern interface for stpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: ap (:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_stpmv.html"},{"title":"mfi_dtpmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dtpmv(ap, x, uplo, trans, diag, incx) Modern interface for dtpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: ap (:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_dtpmv.html"},{"title":"mfi_ctpmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ctpmv(ap, x, uplo, trans, diag, incx) Modern interface for ctpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: ap (:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_ctpmv.html"},{"title":"mfi_ztpmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ztpmv(ap, x, uplo, trans, diag, incx) Modern interface for ztpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: ap (:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_ztpmv.html"},{"title":"mfi_stpsv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_stpsv(ap, x, uplo, trans, diag, incx) Modern interface for stpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: ap (:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_stpsv.html"},{"title":"mfi_dtpsv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dtpsv(ap, x, uplo, trans, diag, incx) Modern interface for dtpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: ap (:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_dtpsv.html"},{"title":"mfi_ctpsv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ctpsv(ap, x, uplo, trans, diag, incx) Modern interface for ctpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: ap (:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_ctpsv.html"},{"title":"mfi_ztpsv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ztpsv(ap, x, uplo, trans, diag, incx) Modern interface for ztpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: ap (:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_ztpsv.html"},{"title":"mfi_strmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_strmv(a, x, uplo, trans, diag, incx) Modern interface for strmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_strmv.html"},{"title":"mfi_dtrmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dtrmv(a, x, uplo, trans, diag, incx) Modern interface for dtrmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_dtrmv.html"},{"title":"mfi_ctrmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ctrmv(a, x, uplo, trans, diag, incx) Modern interface for ctrmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_ctrmv.html"},{"title":"mfi_ztrmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ztrmv(a, x, uplo, trans, diag, incx) Modern interface for ztrmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_ztrmv.html"},{"title":"mfi_strsv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_strsv(a, x, uplo, trans, diag, incx) Modern interface for strsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_strsv.html"},{"title":"mfi_dtrsv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dtrsv(a, x, uplo, trans, diag, incx) Modern interface for dtrsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_dtrsv.html"},{"title":"mfi_ctrsv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ctrsv(a, x, uplo, trans, diag, incx) Modern interface for ctrsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_ctrsv.html"},{"title":"mfi_ztrsv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ztrsv(a, x, uplo, trans, diag, incx) Modern interface for ztrsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_ztrsv.html"},{"title":"mfi_sgemm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sgemm(a, b, c, transa, transb, alpha, beta) Modern interface for sgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: b (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta","tags":"","loc":"proc/mfi_sgemm.html"},{"title":"mfi_dgemm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dgemm(a, b, c, transa, transb, alpha, beta) Modern interface for dgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: b (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta","tags":"","loc":"proc/mfi_dgemm.html"},{"title":"mfi_cgemm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cgemm(a, b, c, transa, transb, alpha, beta) Modern interface for cgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: b (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta","tags":"","loc":"proc/mfi_cgemm.html"},{"title":"mfi_zgemm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zgemm(a, b, c, transa, transb, alpha, beta) Modern interface for zgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: b (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta","tags":"","loc":"proc/mfi_zgemm.html"},{"title":"mfi_chemm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_chemm(a, b, c, side, uplo, alpha, beta) Modern interface for chemm .\nSee also: mfi_hemm , f77_hemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: b (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta","tags":"","loc":"proc/mfi_chemm.html"},{"title":"mfi_zhemm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zhemm(a, b, c, side, uplo, alpha, beta) Modern interface for zhemm .\nSee also: mfi_hemm , f77_hemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: b (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta","tags":"","loc":"proc/mfi_zhemm.html"},{"title":"mfi_cherk – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cherk(a, c, uplo, trans, alpha, beta) Modern interface for cherk .\nSee also: mfi_herk , f77_herk . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=wp), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta","tags":"","loc":"proc/mfi_cherk.html"},{"title":"mfi_zherk – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zherk(a, c, uplo, trans, alpha, beta) Modern interface for zherk .\nSee also: mfi_herk , f77_herk . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=wp), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta","tags":"","loc":"proc/mfi_zherk.html"},{"title":"mfi_cher2k – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cher2k(a, b, c, uplo, trans, alpha, beta) Modern interface for cher2k .\nSee also: mfi_her2k , f77_her2k . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: b (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans complex(kind=REAL32), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta","tags":"","loc":"proc/mfi_cher2k.html"},{"title":"mfi_zher2k – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zher2k(a, b, c, uplo, trans, alpha, beta) Modern interface for zher2k .\nSee also: mfi_her2k , f77_her2k . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: b (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans complex(kind=REAL64), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta","tags":"","loc":"proc/mfi_zher2k.html"},{"title":"mfi_ssymm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ssymm(a, b, c, side, uplo, alpha, beta) Modern interface for ssymm .\nSee also: mfi_symm , f77_symm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: b (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta","tags":"","loc":"proc/mfi_ssymm.html"},{"title":"mfi_dsymm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dsymm(a, b, c, side, uplo, alpha, beta) Modern interface for dsymm .\nSee also: mfi_symm , f77_symm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: b (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta","tags":"","loc":"proc/mfi_dsymm.html"},{"title":"mfi_ssyrk – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ssyrk(a, c, uplo, trans, alpha, beta) Modern interface for ssyrk .\nSee also: mfi_syrk , f77_syrk . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta","tags":"","loc":"proc/mfi_ssyrk.html"},{"title":"mfi_dsyrk – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dsyrk(a, c, uplo, trans, alpha, beta) Modern interface for dsyrk .\nSee also: mfi_syrk , f77_syrk . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta","tags":"","loc":"proc/mfi_dsyrk.html"},{"title":"mfi_ssyr2k – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ssyr2k(a, b, c, uplo, trans, alpha, beta) Modern interface for ssyr2k .\nSee also: mfi_syr2k , f77_syr2k . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: b (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta","tags":"","loc":"proc/mfi_ssyr2k.html"},{"title":"mfi_dsyr2k – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dsyr2k(a, b, c, uplo, trans, alpha, beta) Modern interface for dsyr2k .\nSee also: mfi_syr2k , f77_syr2k . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: b (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta","tags":"","loc":"proc/mfi_dsyr2k.html"},{"title":"mfi_strmm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_strmm(a, b, side, uplo, transa, diag, alpha) Modern interface for strmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL32), intent(in), optional :: alpha","tags":"","loc":"proc/mfi_strmm.html"},{"title":"mfi_dtrmm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dtrmm(a, b, side, uplo, transa, diag, alpha) Modern interface for dtrmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL64), intent(in), optional :: alpha","tags":"","loc":"proc/mfi_dtrmm.html"},{"title":"mfi_ctrmm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ctrmm(a, b, side, uplo, transa, diag, alpha) Modern interface for ctrmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL32), intent(in), optional :: alpha","tags":"","loc":"proc/mfi_ctrmm.html"},{"title":"mfi_ztrmm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ztrmm(a, b, side, uplo, transa, diag, alpha) Modern interface for ztrmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL64), intent(in), optional :: alpha","tags":"","loc":"proc/mfi_ztrmm.html"},{"title":"mfi_strsm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_strsm(a, b, side, uplo, transa, diag, alpha) Modern interface for strsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL32), intent(in), optional :: alpha","tags":"","loc":"proc/mfi_strsm.html"},{"title":"mfi_dtrsm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dtrsm(a, b, side, uplo, transa, diag, alpha) Modern interface for dtrsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL64), intent(in), optional :: alpha","tags":"","loc":"proc/mfi_dtrsm.html"},{"title":"mfi_ctrsm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ctrsm(a, b, side, uplo, transa, diag, alpha) Modern interface for ctrsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL32), intent(in), optional :: alpha","tags":"","loc":"proc/mfi_ctrsm.html"},{"title":"mfi_ztrsm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ztrsm(a, b, side, uplo, transa, diag, alpha) Modern interface for ztrsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL64), intent(in), optional :: alpha","tags":"","loc":"proc/mfi_ztrsm.html"},{"title":"mfi_copy – MFI - Modern Fortran Interfaces","text":"public interface mfi_copy Generic modern interface for COPY.\nSupports s, d, c, z.\nSee also: scopy , dcopy , ccopy , zcopy . Module Procedures public pure subroutine mfi_scopy (x, y, incx, incy) Modern interface for scopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dcopy (x, y, incx, incy) Modern interface for dcopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_ccopy (x, y, incx, incy) Modern interface for ccopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zcopy (x, y, incx, incy) Modern interface for zcopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_copy.html"},{"title":"mfi_swap – MFI - Modern Fortran Interfaces","text":"public interface mfi_swap Generic modern interface for SWAP.\nSupports s, d, c, z.\nSee also: sswap , dswap , cswap , zswap . Module Procedures public pure subroutine mfi_sswap (x, y, incx, incy) Modern interface for sswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dswap (x, y, incx, incy) Modern interface for dswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_cswap (x, y, incx, incy) Modern interface for cswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zswap (x, y, incx, incy) Modern interface for zswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_swap.html"},{"title":"mfi_axpy – MFI - Modern Fortran Interfaces","text":"public interface mfi_axpy Generic modern interface for AXPY.\nSupports s, d, c, z.\nSee also: saxpy , daxpy , caxpy , zaxpy . Module Procedures public pure subroutine mfi_saxpy (x, y, a, incx, incy) Modern interface for saxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_daxpy (x, y, a, incx, incy) Modern interface for daxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_caxpy (x, y, a, incx, incy) Modern interface for caxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) complex(kind=REAL32), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zaxpy (x, y, a, incx, incy) Modern interface for zaxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) complex(kind=REAL64), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_axpy.html"},{"title":"mfi_dot – MFI - Modern Fortran Interfaces","text":"public interface mfi_dot Generic modern interface for DOT.\nSupports s, d.\nSee also: sdot , ddot . Module Procedures public pure function mfi_sdot (x, y, incx, incy) Modern interface for sdot .\nSee also: mfi_dot , f77_dot . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value real(kind=REAL32) public pure function mfi_ddot (x, y, incx, incy) Modern interface for ddot .\nSee also: mfi_dot , f77_dot . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value real(kind=REAL64)","tags":"","loc":"interface/mfi_dot.html"},{"title":"mfi_dotc – MFI - Modern Fortran Interfaces","text":"public interface mfi_dotc Generic modern interface for DOTC.\nSupports c, z.\nSee also: cdotc , zdotc . Module Procedures public pure function mfi_cdotc (x, y, incx, incy) Modern interface for cdotc .\nSee also: mfi_dotc , f77_dotc . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL32) public pure function mfi_zdotc (x, y, incx, incy) Modern interface for zdotc .\nSee also: mfi_dotc , f77_dotc . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL64)","tags":"","loc":"interface/mfi_dotc.html"},{"title":"mfi_dotu – MFI - Modern Fortran Interfaces","text":"public interface mfi_dotu Generic modern interface for DOTU.\nSupports c, z.\nSee also: cdotu , zdotu . Module Procedures public pure function mfi_cdotu (x, y, incx, incy) Modern interface for cdotu .\nSee also: mfi_dotu , f77_dotu . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL32) public pure function mfi_zdotu (x, y, incx, incy) Modern interface for zdotu .\nSee also: mfi_dotu , f77_dotu . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL64)","tags":"","loc":"interface/mfi_dotu.html"},{"title":"mfi_asum – MFI - Modern Fortran Interfaces","text":"public interface mfi_asum Generic modern interface for ASUM.\nSupports s, d, sc, dz.\nSee also: sasum , dasum , scasum , dzasum . Module Procedures public pure function mfi_sasum (x, incx) Modern interface for sasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32) public pure function mfi_dasum (x, incx) Modern interface for dasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64) public pure function mfi_scasum (x, incx) Modern interface for scasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32) public pure function mfi_dzasum (x, incx) Modern interface for dzasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64)","tags":"","loc":"interface/mfi_asum.html"},{"title":"mfi_nrm2 – MFI - Modern Fortran Interfaces","text":"public interface mfi_nrm2 Generic modern interface for NRM2.\nSupports s, d, sc, dz.\nSee also: snrm2 , dnrm2 , scnrm2 , dznrm2 . Module Procedures public pure function mfi_snrm2 (x, incx) Modern interface for snrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32) public pure function mfi_dnrm2 (x, incx) Modern interface for dnrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64) public pure function mfi_scnrm2 (x, incx) Modern interface for scnrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32) public pure function mfi_dznrm2 (x, incx) Modern interface for dznrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64)","tags":"","loc":"interface/mfi_nrm2.html"},{"title":"mfi_rot – MFI - Modern Fortran Interfaces","text":"public interface mfi_rot Generic modern interface for ROT.\nSupports s, d, c, z, cs, zd.\nSee also: srot , drot , crot , zrot , csrot , zdrot . Module Procedures public pure subroutine mfi_srot (x, y, c, s, incx, incy) Modern interface for srot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: Read more… Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: x (:) real(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: c real(kind=REAL32), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_drot (x, y, c, s, incx, incy) Modern interface for drot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: Read more… Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: x (:) real(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: c real(kind=REAL64), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_crot (x, y, c, s, incx, incy) Modern interface for crot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: Read more… Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: c complex(kind=REAL32), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zrot (x, y, c, s, incx, incy) Modern interface for zrot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: Read more… Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: c complex(kind=REAL64), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_csrot (x, y, c, s, incx, incy) Modern interface for csrot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: Read more… Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: c real(kind=REAL32), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zdrot (x, y, c, s, incx, incy) Modern interface for zdrot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: Read more… Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: c real(kind=REAL64), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_rot.html"},{"title":"mfi_rotm – MFI - Modern Fortran Interfaces","text":"public interface mfi_rotm Generic modern interface for ROTM.\nSupports s, d.\nSee also: srotm , drotm . Module Procedures public pure subroutine mfi_srotm (x, y, param, incx, incy) Modern interface for srotm .\nSee also: mfi_rotm , f77_rotm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: x (:) real(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: param (5) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_drotm (x, y, param, incx, incy) Modern interface for drotm .\nSee also: mfi_rotm , f77_rotm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: x (:) real(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: param (5) integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_rotm.html"},{"title":"mfi_scal – MFI - Modern Fortran Interfaces","text":"public interface mfi_scal Generic modern interface for SCAL.\nSupports s, d, c, z, cs, zd.\nSee also: sscal , dscal , cscal , zscal , csscal , zdscal . Module Procedures public pure subroutine mfi_sscal (a, x, incx) Modern interface for sscal .\nSee also: mfi_scal , f77_scal .\nMFI_SSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a real(kind=REAL32), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_dscal (a, x, incx) Modern interface for dscal .\nSee also: mfi_scal , f77_scal .\nMFI_DSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a real(kind=REAL64), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_cscal (a, x, incx) Modern interface for cscal .\nSee also: mfi_scal , f77_scal .\nMFI_CSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_zscal (a, x, incx) Modern interface for zscal .\nSee also: mfi_scal , f77_scal .\nMFI_ZSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_csscal (a, x, incx) Modern interface for csscal .\nSee also: mfi_scal , f77_scal .\nMFI_CSSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_zdscal (a, x, incx) Modern interface for zdscal .\nSee also: mfi_scal , f77_scal .\nMFI_ZDSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(inout) :: x (:) integer, intent(in), optional :: incx","tags":"","loc":"interface/mfi_scal.html"},{"title":"mfi_gbmv – MFI - Modern Fortran Interfaces","text":"public interface mfi_gbmv Generic modern interface for GBMV.\nSupports s, d, c, z.\nSee also: sgbmv , dgbmv , cgbmv , zgbmv . Module Procedures public pure subroutine mfi_sgbmv (a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for sgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dgbmv (a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for dgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_cgbmv (a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for cgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zgbmv (a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for zgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_gbmv.html"},{"title":"mfi_gemv – MFI - Modern Fortran Interfaces","text":"public interface mfi_gemv Generic modern interface for GEMV.\nSupports s, d, c, z.\nSee also: sgemv , dgemv , cgemv , zgemv . Module Procedures public pure subroutine mfi_sgemv (a, x, y, trans, alpha, beta, incx, incy) Modern interface for sgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dgemv (a, x, y, trans, alpha, beta, incx, incy) Modern interface for dgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_cgemv (a, x, y, trans, alpha, beta, incx, incy) Modern interface for cgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zgemv (a, x, y, trans, alpha, beta, incx, incy) Modern interface for zgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_gemv.html"},{"title":"mfi_ger – MFI - Modern Fortran Interfaces","text":"public interface mfi_ger Generic modern interface for GER.\nSupports s, d.\nSee also: sger , dger . Module Procedures public pure subroutine mfi_sger (a, x, y, alpha, incx, incy) Modern interface for sger .\nSee also: mfi_ger , f77_ger . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dger (a, x, y, alpha, incx, incy) Modern interface for dger .\nSee also: mfi_ger , f77_ger . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_ger.html"},{"title":"mfi_gerc – MFI - Modern Fortran Interfaces","text":"public interface mfi_gerc Generic modern interface for GERC.\nSupports c, z.\nSee also: cgerc , zgerc . Module Procedures public pure subroutine mfi_cgerc (a, x, y, alpha, incx, incy) Modern interface for cgerc .\nSee also: mfi_gerc , f77_gerc . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zgerc (a, x, y, alpha, incx, incy) Modern interface for zgerc .\nSee also: mfi_gerc , f77_gerc . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_gerc.html"},{"title":"mfi_geru – MFI - Modern Fortran Interfaces","text":"public interface mfi_geru Generic modern interface for GERU.\nSupports c, z.\nSee also: cgeru , zgeru . Module Procedures public pure subroutine mfi_cgeru (a, x, y, alpha, incx, incy) Modern interface for cgeru .\nSee also: mfi_geru , f77_geru . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zgeru (a, x, y, alpha, incx, incy) Modern interface for zgeru .\nSee also: mfi_geru , f77_geru . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_geru.html"},{"title":"mfi_hbmv – MFI - Modern Fortran Interfaces","text":"public interface mfi_hbmv Generic modern interface for HBMV.\nSupports c, z.\nSee also: chbmv , zhbmv . Module Procedures public pure subroutine mfi_chbmv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for chbmv .\nSee also: mfi_hbmv , f77_hbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zhbmv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for zhbmv .\nSee also: mfi_hbmv , f77_hbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_hbmv.html"},{"title":"mfi_hemv – MFI - Modern Fortran Interfaces","text":"public interface mfi_hemv Generic modern interface for HEMV.\nSupports c, z.\nSee also: chemv , zhemv . Module Procedures public pure subroutine mfi_chemv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for chemv .\nSee also: mfi_hemv , f77_hemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zhemv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for zhemv .\nSee also: mfi_hemv , f77_hemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_hemv.html"},{"title":"mfi_her – MFI - Modern Fortran Interfaces","text":"public interface mfi_her Generic modern interface for HER.\nSupports c, z.\nSee also: cher , zher . Module Procedures public pure subroutine mfi_cher (a, x, uplo, alpha, incx) Modern interface for cher .\nSee also: mfi_her , f77_her . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_zher (a, x, uplo, alpha, incx) Modern interface for zher .\nSee also: mfi_her , f77_her . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx","tags":"","loc":"interface/mfi_her.html"},{"title":"mfi_her2 – MFI - Modern Fortran Interfaces","text":"public interface mfi_her2 Generic modern interface for HER2.\nSupports c, z.\nSee also: cher2 , zher2 . Module Procedures public pure subroutine mfi_cher2 (a, x, y, uplo, alpha, incx, incy) Modern interface for cher2 .\nSee also: mfi_her2 , f77_her2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zher2 (a, x, y, uplo, alpha, incx, incy) Modern interface for zher2 .\nSee also: mfi_her2 , f77_her2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_her2.html"},{"title":"mfi_hpmv – MFI - Modern Fortran Interfaces","text":"public interface mfi_hpmv Generic modern interface for HPMV.\nSupports c, z.\nSee also: chpmv , zhpmv . Module Procedures public pure subroutine mfi_chpmv (ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for chpmv .\nSee also: mfi_hpmv , f77_hpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: ap (:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zhpmv (ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for zhpmv .\nSee also: mfi_hpmv , f77_hpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: ap (:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_hpmv.html"},{"title":"mfi_hpr – MFI - Modern Fortran Interfaces","text":"public interface mfi_hpr Generic modern interface for HPR.\nSupports c, z.\nSee also: chpr , zhpr . Module Procedures public pure subroutine mfi_chpr (ap, x, uplo, alpha, incx) Modern interface for chpr .\nSee also: mfi_hpr , f77_hpr . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: ap (:) complex(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_zhpr (ap, x, uplo, alpha, incx) Modern interface for zhpr .\nSee also: mfi_hpr , f77_hpr . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: ap (:) complex(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx","tags":"","loc":"interface/mfi_hpr.html"},{"title":"mfi_hpr2 – MFI - Modern Fortran Interfaces","text":"public interface mfi_hpr2 Generic modern interface for HPR2.\nSupports c, z.\nSee also: chpr2 , zhpr2 . Module Procedures public pure subroutine mfi_chpr2 (ap, x, y, uplo, alpha, incx, incy) Modern interface for chpr2 .\nSee also: mfi_hpr2 , f77_hpr2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: ap (:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zhpr2 (ap, x, y, uplo, alpha, incx, incy) Modern interface for zhpr2 .\nSee also: mfi_hpr2 , f77_hpr2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: ap (:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_hpr2.html"},{"title":"mfi_sbmv – MFI - Modern Fortran Interfaces","text":"public interface mfi_sbmv Generic modern interface for SBMV.\nSupports s, d.\nSee also: ssbmv , dsbmv . Module Procedures public pure subroutine mfi_ssbmv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for ssbmv .\nSee also: mfi_sbmv , f77_sbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dsbmv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for dsbmv .\nSee also: mfi_sbmv , f77_sbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_sbmv.html"},{"title":"mfi_spmv – MFI - Modern Fortran Interfaces","text":"public interface mfi_spmv Generic modern interface for SPMV.\nSupports s, d.\nSee also: sspmv , dspmv . Module Procedures public pure subroutine mfi_sspmv (ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for sspmv .\nSee also: mfi_spmv , f77_spmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: ap (:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dspmv (ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for dspmv .\nSee also: mfi_spmv , f77_spmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: ap (:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_spmv.html"},{"title":"mfi_spr – MFI - Modern Fortran Interfaces","text":"public interface mfi_spr Generic modern interface for SPR.\nSupports s, d.\nSee also: sspr , dspr . Module Procedures public pure subroutine mfi_sspr (ap, x, uplo, alpha, incx) Modern interface for sspr .\nSee also: mfi_spr , f77_spr . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: ap (:) real(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_dspr (ap, x, uplo, alpha, incx) Modern interface for dspr .\nSee also: mfi_spr , f77_spr . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: ap (:) real(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx","tags":"","loc":"interface/mfi_spr.html"},{"title":"mfi_spr2 – MFI - Modern Fortran Interfaces","text":"public interface mfi_spr2 Generic modern interface for SPR2.\nSupports s, d.\nSee also: sspr2 , dspr2 . Module Procedures public pure subroutine mfi_sspr2 (ap, x, y, uplo, alpha, incx, incy) Modern interface for sspr2 .\nSee also: mfi_spr2 , f77_spr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: ap (:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dspr2 (ap, x, y, uplo, alpha, incx, incy) Modern interface for dspr2 .\nSee also: mfi_spr2 , f77_spr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: ap (:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_spr2.html"},{"title":"mfi_symv – MFI - Modern Fortran Interfaces","text":"public interface mfi_symv Generic modern interface for SYMV.\nSupports s, d.\nSee also: ssymv , dsymv . Module Procedures public pure subroutine mfi_ssymv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for ssymv .\nSee also: mfi_symv , f77_symv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dsymv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for dsymv .\nSee also: mfi_symv , f77_symv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_symv.html"},{"title":"mfi_syr – MFI - Modern Fortran Interfaces","text":"public interface mfi_syr Generic modern interface for SYR.\nSupports s, d.\nSee also: ssyr , dsyr . Module Procedures public pure subroutine mfi_ssyr (a, x, uplo, alpha, incx) Modern interface for ssyr .\nSee also: mfi_syr , f77_syr . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_dsyr (a, x, uplo, alpha, incx) Modern interface for dsyr .\nSee also: mfi_syr , f77_syr . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx","tags":"","loc":"interface/mfi_syr.html"},{"title":"mfi_syr2 – MFI - Modern Fortran Interfaces","text":"public interface mfi_syr2 Generic modern interface for SYR2.\nSupports s, d.\nSee also: ssyr2 , dsyr2 . Module Procedures public pure subroutine mfi_ssyr2 (a, x, y, uplo, alpha, incx, incy) Modern interface for ssyr2 .\nSee also: mfi_syr2 , f77_syr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dsyr2 (a, x, y, uplo, alpha, incx, incy) Modern interface for dsyr2 .\nSee also: mfi_syr2 , f77_syr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_syr2.html"},{"title":"mfi_tbmv – MFI - Modern Fortran Interfaces","text":"public interface mfi_tbmv Generic modern interface for TBMV.\nSupports s, d, c, z.\nSee also: stbmv , dtbmv , ctbmv , ztbmv . Module Procedures public pure subroutine mfi_stbmv (a, x, uplo, trans, diag, incx) Modern interface for stbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtbmv (a, x, uplo, trans, diag, incx) Modern interface for dtbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctbmv (a, x, uplo, trans, diag, incx) Modern interface for ctbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztbmv (a, x, uplo, trans, diag, incx) Modern interface for ztbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"interface/mfi_tbmv.html"},{"title":"mfi_tbsv – MFI - Modern Fortran Interfaces","text":"public interface mfi_tbsv Generic modern interface for TBSV.\nSupports s, d, c, z.\nSee also: stbsv , dtbsv , ctbsv , ztbsv . Module Procedures public pure subroutine mfi_stbsv (a, x, uplo, trans, diag, incx) Modern interface for stbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtbsv (a, x, uplo, trans, diag, incx) Modern interface for dtbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctbsv (a, x, uplo, trans, diag, incx) Modern interface for ctbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztbsv (a, x, uplo, trans, diag, incx) Modern interface for ztbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"interface/mfi_tbsv.html"},{"title":"mfi_tpmv – MFI - Modern Fortran Interfaces","text":"public interface mfi_tpmv Generic modern interface for TPMV.\nSupports s, d, c, z.\nSee also: stpmv , dtpmv , ctpmv , ztpmv . Module Procedures public pure subroutine mfi_stpmv (ap, x, uplo, trans, diag, incx) Modern interface for stpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: ap (:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtpmv (ap, x, uplo, trans, diag, incx) Modern interface for dtpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: ap (:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctpmv (ap, x, uplo, trans, diag, incx) Modern interface for ctpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: ap (:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztpmv (ap, x, uplo, trans, diag, incx) Modern interface for ztpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: ap (:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"interface/mfi_tpmv.html"},{"title":"mfi_tpsv – MFI - Modern Fortran Interfaces","text":"public interface mfi_tpsv Generic modern interface for TPSV.\nSupports s, d, c, z.\nSee also: stpsv , dtpsv , ctpsv , ztpsv . Module Procedures public pure subroutine mfi_stpsv (ap, x, uplo, trans, diag, incx) Modern interface for stpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: ap (:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtpsv (ap, x, uplo, trans, diag, incx) Modern interface for dtpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: ap (:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctpsv (ap, x, uplo, trans, diag, incx) Modern interface for ctpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: ap (:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztpsv (ap, x, uplo, trans, diag, incx) Modern interface for ztpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: ap (:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"interface/mfi_tpsv.html"},{"title":"mfi_trmv – MFI - Modern Fortran Interfaces","text":"public interface mfi_trmv Generic modern interface for TRMV.\nSupports s, d, c, z.\nSee also: strmv , dtrmv , ctrmv , ztrmv . Module Procedures public pure subroutine mfi_strmv (a, x, uplo, trans, diag, incx) Modern interface for strmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtrmv (a, x, uplo, trans, diag, incx) Modern interface for dtrmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctrmv (a, x, uplo, trans, diag, incx) Modern interface for ctrmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztrmv (a, x, uplo, trans, diag, incx) Modern interface for ztrmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"interface/mfi_trmv.html"},{"title":"mfi_trsv – MFI - Modern Fortran Interfaces","text":"public interface mfi_trsv Generic modern interface for TRSV.\nSupports s, d, c, z.\nSee also: strsv , dtrsv , ctrsv , ztrsv . Module Procedures public pure subroutine mfi_strsv (a, x, uplo, trans, diag, incx) Modern interface for strsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtrsv (a, x, uplo, trans, diag, incx) Modern interface for dtrsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctrsv (a, x, uplo, trans, diag, incx) Modern interface for ctrsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztrsv (a, x, uplo, trans, diag, incx) Modern interface for ztrsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"interface/mfi_trsv.html"},{"title":"mfi_gemm – MFI - Modern Fortran Interfaces","text":"public interface mfi_gemm Generic modern interface for GEMM.\nSupports s, d, c, z.\nSee also: sgemm , dgemm , cgemm , zgemm . Module Procedures public pure subroutine mfi_sgemm (a, b, c, transa, transb, alpha, beta) Modern interface for sgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: b (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_dgemm (a, b, c, transa, transb, alpha, beta) Modern interface for dgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: b (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta public pure subroutine mfi_cgemm (a, b, c, transa, transb, alpha, beta) Modern interface for cgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: b (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_zgemm (a, b, c, transa, transb, alpha, beta) Modern interface for zgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: b (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta","tags":"","loc":"interface/mfi_gemm.html"},{"title":"mfi_hemm – MFI - Modern Fortran Interfaces","text":"public interface mfi_hemm Generic modern interface for HEMM.\nSupports c, z.\nSee also: chemm , zhemm . Module Procedures public pure subroutine mfi_chemm (a, b, c, side, uplo, alpha, beta) Modern interface for chemm .\nSee also: mfi_hemm , f77_hemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: b (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_zhemm (a, b, c, side, uplo, alpha, beta) Modern interface for zhemm .\nSee also: mfi_hemm , f77_hemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: b (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta","tags":"","loc":"interface/mfi_hemm.html"},{"title":"mfi_herk – MFI - Modern Fortran Interfaces","text":"public interface mfi_herk Generic modern interface for HERK.\nSupports c, z.\nSee also: cherk , zherk . Module Procedures public pure subroutine mfi_cherk (a, c, uplo, trans, alpha, beta) Modern interface for cherk .\nSee also: mfi_herk , f77_herk . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=wp), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta public pure subroutine mfi_zherk (a, c, uplo, trans, alpha, beta) Modern interface for zherk .\nSee also: mfi_herk , f77_herk . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=wp), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta","tags":"","loc":"interface/mfi_herk.html"},{"title":"mfi_her2k – MFI - Modern Fortran Interfaces","text":"public interface mfi_her2k Generic modern interface for HER2K.\nSupports c, z.\nSee also: cher2k , zher2k . Module Procedures public pure subroutine mfi_cher2k (a, b, c, uplo, trans, alpha, beta) Modern interface for cher2k .\nSee also: mfi_her2k , f77_her2k . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: b (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans complex(kind=REAL32), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta public pure subroutine mfi_zher2k (a, b, c, uplo, trans, alpha, beta) Modern interface for zher2k .\nSee also: mfi_her2k , f77_her2k . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: b (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans complex(kind=REAL64), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta","tags":"","loc":"interface/mfi_her2k.html"},{"title":"mfi_symm – MFI - Modern Fortran Interfaces","text":"public interface mfi_symm Generic modern interface for SYMM.\nSupports s, d.\nSee also: ssymm , dsymm . Module Procedures public pure subroutine mfi_ssymm (a, b, c, side, uplo, alpha, beta) Modern interface for ssymm .\nSee also: mfi_symm , f77_symm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: b (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_dsymm (a, b, c, side, uplo, alpha, beta) Modern interface for dsymm .\nSee also: mfi_symm , f77_symm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: b (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta","tags":"","loc":"interface/mfi_symm.html"},{"title":"mfi_syrk – MFI - Modern Fortran Interfaces","text":"public interface mfi_syrk Generic modern interface for SYRK.\nSupports s, d.\nSee also: ssyrk , dsyrk . Module Procedures public pure subroutine mfi_ssyrk (a, c, uplo, trans, alpha, beta) Modern interface for ssyrk .\nSee also: mfi_syrk , f77_syrk . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_dsyrk (a, c, uplo, trans, alpha, beta) Modern interface for dsyrk .\nSee also: mfi_syrk , f77_syrk . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta","tags":"","loc":"interface/mfi_syrk.html"},{"title":"mfi_syr2k – MFI - Modern Fortran Interfaces","text":"public interface mfi_syr2k Generic modern interface for SYR2K.\nSupports s, d.\nSee also: ssyr2k , dsyr2k . Module Procedures public pure subroutine mfi_ssyr2k (a, b, c, uplo, trans, alpha, beta) Modern interface for ssyr2k .\nSee also: mfi_syr2k , f77_syr2k . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: b (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_dsyr2k (a, b, c, uplo, trans, alpha, beta) Modern interface for dsyr2k .\nSee also: mfi_syr2k , f77_syr2k . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: b (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta","tags":"","loc":"interface/mfi_syr2k.html"},{"title":"mfi_trmm – MFI - Modern Fortran Interfaces","text":"public interface mfi_trmm Generic modern interface for TRMM.\nSupports s, d, c, z.\nSee also: strmm , dtrmm , ctrmm , ztrmm . Module Procedures public pure subroutine mfi_strmm (a, b, side, uplo, transa, diag, alpha) Modern interface for strmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL32), intent(in), optional :: alpha public pure subroutine mfi_dtrmm (a, b, side, uplo, transa, diag, alpha) Modern interface for dtrmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL64), intent(in), optional :: alpha public pure subroutine mfi_ctrmm (a, b, side, uplo, transa, diag, alpha) Modern interface for ctrmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL32), intent(in), optional :: alpha public pure subroutine mfi_ztrmm (a, b, side, uplo, transa, diag, alpha) Modern interface for ztrmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL64), intent(in), optional :: alpha","tags":"","loc":"interface/mfi_trmm.html"},{"title":"mfi_trsm – MFI - Modern Fortran Interfaces","text":"public interface mfi_trsm Generic modern interface for TRSM.\nSupports s, d, c, z.\nSee also: strsm , dtrsm , ctrsm , ztrsm . Module Procedures public pure subroutine mfi_strsm (a, b, side, uplo, transa, diag, alpha) Modern interface for strsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL32), intent(in), optional :: alpha public pure subroutine mfi_dtrsm (a, b, side, uplo, transa, diag, alpha) Modern interface for dtrsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL64), intent(in), optional :: alpha public pure subroutine mfi_ctrsm (a, b, side, uplo, transa, diag, alpha) Modern interface for ctrsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL32), intent(in), optional :: alpha public pure subroutine mfi_ztrsm (a, b, side, uplo, transa, diag, alpha) Modern interface for ztrsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL64), intent(in), optional :: alpha","tags":"","loc":"interface/mfi_trsm.html"},{"title":"mfi_lamch – MFI - Modern Fortran Interfaces","text":"public interface mfi_lamch Generic modern interface for LAMCH.\nSupports s, d.\nSee also: f77_lamch , f77_lamch . Module Procedures public pure function mfi_slamch (cmach, kind) result(res) Modern interface for f77_lamch .\nSee also: mfi_lamch , f77_lamch . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: cmach real(kind=REAL32), intent(in) :: kind Just a kind placeholder Return Value real(kind=REAL32) public pure function mfi_dlamch (cmach, kind) result(res) Modern interface for f77_lamch .\nSee also: mfi_lamch , f77_lamch . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: cmach real(kind=REAL64), intent(in) :: kind Just a kind placeholder Return Value real(kind=REAL64)","tags":"","loc":"interface/mfi_lamch.html"},{"title":"mfi_iamax – MFI - Modern Fortran Interfaces","text":"public interface mfi_iamax Generic modern interface for IAMAX.\nSupports s, d, c, z.\nSee also: f77_iamax , f77_iamax , f77_iamax , f77_iamax . Module Procedures public pure function mfi_isamax (x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_idamax (x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_icamax (x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_izamax (x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer","tags":"","loc":"interface/mfi_iamax.html"},{"title":"mfi_iamin – MFI - Modern Fortran Interfaces","text":"public interface mfi_iamin Generic modern interface for IAMIN.\nSupports s, d, c, z.\nSee also: f77_iamin , f77_iamin , f77_iamin , f77_iamin . Module Procedures public pure function mfi_isamin (x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_idamin (x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_icamin (x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_izamin (x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer","tags":"","loc":"interface/mfi_iamin.html"},{"title":"isamax – MFI - Modern Fortran Interfaces","text":"public pure function isamax(n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer","tags":"","loc":"proc/isamax.html"},{"title":"idamax – MFI - Modern Fortran Interfaces","text":"public pure function idamax(n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer","tags":"","loc":"proc/idamax.html"},{"title":"icamax – MFI - Modern Fortran Interfaces","text":"public pure function icamax(n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer","tags":"","loc":"proc/icamax.html"},{"title":"izamax – MFI - Modern Fortran Interfaces","text":"public pure function izamax(n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer","tags":"","loc":"proc/izamax.html"},{"title":"isamin – MFI - Modern Fortran Interfaces","text":"public pure function isamin(n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer","tags":"","loc":"proc/isamin.html"},{"title":"idamin – MFI - Modern Fortran Interfaces","text":"public pure function idamin(n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer","tags":"","loc":"proc/idamin.html"},{"title":"icamin – MFI - Modern Fortran Interfaces","text":"public pure function icamin(n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer","tags":"","loc":"proc/icamin.html"},{"title":"izamin – MFI - Modern Fortran Interfaces","text":"public pure function izamin(n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer","tags":"","loc":"proc/izamin.html"},{"title":"f77_copy – MFI - Modern Fortran Interfaces","text":"public interface f77_copy Generic old style interface for COPY.\nSupports s, d, c, z.\nSee also: mfi_copy , scopy , dcopy , ccopy , zcopy . Subroutines public pure subroutine scopy(n, x, incx, y, incy) Original interface for SCOPY\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine dcopy(n, x, incx, y, incy) Original interface for DCOPY\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine ccopy(n, x, incx, y, incy) Original interface for CCOPY\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zcopy(n, x, incx, y, incy) Original interface for ZCOPY\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy","tags":"","loc":"interface/f77_copy.html"},{"title":"f77_swap – MFI - Modern Fortran Interfaces","text":"public interface f77_swap Generic old style interface for SWAP.\nSupports s, d, c, z.\nSee also: mfi_swap , sswap , dswap , cswap , zswap . Subroutines public pure subroutine sswap(n, x, incx, y, incy) Original interface for SSWAP\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine dswap(n, x, incx, y, incy) Original interface for DSWAP\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine cswap(n, x, incx, y, incy) Original interface for CSWAP\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zswap(n, x, incx, y, incy) Original interface for ZSWAP\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy","tags":"","loc":"interface/f77_swap.html"},{"title":"f77_axpy – MFI - Modern Fortran Interfaces","text":"public interface f77_axpy Generic old style interface for AXPY.\nSupports s, d, c, z.\nSee also: mfi_axpy , saxpy , daxpy , caxpy , zaxpy . Subroutines public pure subroutine saxpy(n, a, x, incx, y, incy) Original interface for SAXPY\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: a real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine daxpy(n, a, x, incx, y, incy) Original interface for DAXPY\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: a real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine caxpy(n, a, x, incx, y, incy) Original interface for CAXPY\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zaxpy(n, a, x, incx, y, incy) Original interface for ZAXPY\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy","tags":"","loc":"interface/f77_axpy.html"},{"title":"f77_dot – MFI - Modern Fortran Interfaces","text":"public interface f77_dot Generic old style interface for DOT.\nSupports s, d.\nSee also: mfi_dot , sdot , ddot . Functions public pure function sdot(n, x, incx, y, incy) Original interface for SDOT\nSee also: mfi_dot , f77_dot . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy Return Value real(kind=REAL32) public pure function ddot(n, x, incx, y, incy) Original interface for DDOT\nSee also: mfi_dot , f77_dot . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy Return Value real(kind=REAL64)","tags":"","loc":"interface/f77_dot.html"},{"title":"f77_dotc – MFI - Modern Fortran Interfaces","text":"public interface f77_dotc Generic old style interface for DOTC.\nSupports c, z.\nSee also: mfi_dotc , cdotc , zdotc . Functions public pure function cdotc(n, x, incx, y, incy) Original interface for CDOTC\nSee also: mfi_dotc , f77_dotc . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy Return Value complex(kind=REAL32) public pure function zdotc(n, x, incx, y, incy) Original interface for ZDOTC\nSee also: mfi_dotc , f77_dotc . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy Return Value complex(kind=REAL64)","tags":"","loc":"interface/f77_dotc.html"},{"title":"f77_dotu – MFI - Modern Fortran Interfaces","text":"public interface f77_dotu Generic old style interface for DOTU.\nSupports c, z.\nSee also: mfi_dotu , cdotu , zdotu . Functions public pure function cdotu(n, x, incx, y, incy) Original interface for CDOTU\nSee also: mfi_dotu , f77_dotu . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy Return Value complex(kind=REAL32) public pure function zdotu(n, x, incx, y, incy) Original interface for ZDOTU\nSee also: mfi_dotu , f77_dotu . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy Return Value complex(kind=REAL64)","tags":"","loc":"interface/f77_dotu.html"},{"title":"f77_asum – MFI - Modern Fortran Interfaces","text":"public interface f77_asum Generic old style interface for ASUM.\nSupports s, d, sc, dz.\nSee also: mfi_asum , sasum , dasum , scasum , dzasum . Functions public pure function sasum(n, x, incx) Original interface for SASUM\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL32) public pure function scasum(n, x, incx) Original interface for SCASUM\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL32) public pure function dasum(n, x, incx) Original interface for DASUM\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL64) public pure function dzasum(n, x, incx) Original interface for DZASUM\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL64)","tags":"","loc":"interface/f77_asum.html"},{"title":"f77_nrm2 – MFI - Modern Fortran Interfaces","text":"public interface f77_nrm2 Generic old style interface for NRM2.\nSupports s, d, sc, dz.\nSee also: mfi_nrm2 , snrm2 , dnrm2 , scnrm2 , dznrm2 . Functions public pure function snrm2(n, x, incx) Original interface for SNRM2\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL32) public pure function scnrm2(n, x, incx) Original interface for SCNRM2\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL32) public pure function dnrm2(n, x, incx) Original interface for DNRM2\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL64) public pure function dznrm2(n, x, incx) Original interface for DZNRM2\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL64)","tags":"","loc":"interface/f77_nrm2.html"},{"title":"f77_rot – MFI - Modern Fortran Interfaces","text":"public interface f77_rot Generic old style interface for ROT.\nSupports s, d, c, z, cs, zd.\nSee also: mfi_rot , srot , drot , crot , zrot , csrot , zdrot . Subroutines public pure subroutine srot(n, x, incx, y, incy, c, s) Original interface for SROT\nSee also: mfi_rot , f77_rot .\nSROT applies a plane rotation. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL32), intent(in) :: c real(kind=REAL32), intent(in) :: s public pure subroutine drot(n, x, incx, y, incy, c, s) Original interface for DROT\nSee also: mfi_rot , f77_rot .\nDROT applies a plane rotation. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL64), intent(in) :: c real(kind=REAL64), intent(in) :: s public pure subroutine crot(n, x, incx, y, incy, c, s) Original interface for CROT\nSee also: mfi_rot , f77_rot .\nCROT applies a plane rotation. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL32), intent(in) :: c complex(kind=REAL32), intent(in) :: s public pure subroutine zrot(n, x, incx, y, incy, c, s) Original interface for ZROT\nSee also: mfi_rot , f77_rot .\nZROT applies a plane rotation. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL64), intent(in) :: c complex(kind=REAL64), intent(in) :: s public pure subroutine csrot(n, x, incx, y, incy, c, s) Original interface for CSROT\nSee also: mfi_rot , f77_rot .\nCSROT applies a plane rotation. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL32), intent(in) :: c real(kind=REAL32), intent(in) :: s public pure subroutine zdrot(n, x, incx, y, incy, c, s) Original interface for ZDROT\nSee also: mfi_rot , f77_rot .\nZDROT applies a plane rotation. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL64), intent(in) :: c real(kind=REAL64), intent(in) :: s","tags":"","loc":"interface/f77_rot.html"},{"title":"f77_rotg – MFI - Modern Fortran Interfaces","text":"public interface f77_rotg Generic old style interface for ROTG.\nSupports s, d, c, z.\nSee also: mfi_rotg , srotg , drotg , crotg , zrotg . Subroutines public pure subroutine srotg(a, b, c, s) Original interface for SROTG\n See also: mfi_rotg , f77_rotg .\nsrotg generates a Givens rotation with real cosine and complex sine: [ c s ] [ a ] = [ r ] [ - s c ] [ b ] [ 0 ] satisfying c**2 + s**2 = 1 . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a real(kind=REAL32), intent(inout) :: b real(kind=REAL32), intent(out) :: c real(kind=REAL32), intent(out) :: s public pure subroutine drotg(a, b, c, s) Original interface for DROTG\n See also: mfi_rotg , f77_rotg .\ndrotg generates a Givens rotation with real cosine and complex sine: [ c s ] [ a ] = [ r ] [ - s c ] [ b ] [ 0 ] satisfying c**2 + s**2 = 1 . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a real(kind=REAL64), intent(inout) :: b real(kind=REAL64), intent(out) :: c real(kind=REAL64), intent(out) :: s public pure subroutine crotg(a, b, c, s) Original interface for CROTG\n See also: mfi_rotg , f77_rotg .\ncrotg generates a Givens rotation with real cosine and complex sine: [ c s ] [ a ] = [ r ] [ - conjg ( s ) c ] [ b ] [ 0 ] where c is real, s is complex, and c**2 + conjg(s)*s = 1 . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a complex(kind=REAL32), intent(inout) :: b real(kind=REAL32), intent(out) :: c complex(kind=REAL32), intent(out) :: s public pure subroutine zrotg(a, b, c, s) Original interface for ZROTG\n See also: mfi_rotg , f77_rotg .\nzrotg generates a Givens rotation with real cosine and complex sine: [ c s ] [ a ] = [ r ] [ - conjg ( s ) c ] [ b ] [ 0 ] where c is real, s is complex, and c**2 + conjg(s)*s = 1 . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a complex(kind=REAL64), intent(inout) :: b real(kind=REAL64), intent(out) :: c complex(kind=REAL64), intent(out) :: s","tags":"","loc":"interface/f77_rotg.html"},{"title":"f77_rotm – MFI - Modern Fortran Interfaces","text":"public interface f77_rotm Generic old style interface for ROTM.\nSupports s, d.\nSee also: mfi_rotm , srotm , drotm . Subroutines public pure subroutine srotm(n, x, incx, y, incy, param) Original interface for SROTM\nSee also: mfi_rotm , f77_rotm . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy real(kind=REAL32), intent(in) :: param (5) public pure subroutine drotm(n, x, incx, y, incy, param) Original interface for DROTM\nSee also: mfi_rotm , f77_rotm . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy real(kind=REAL64), intent(in) :: param (5)","tags":"","loc":"interface/f77_rotm.html"},{"title":"f77_rotmg – MFI - Modern Fortran Interfaces","text":"public interface f77_rotmg Generic old style interface for ROTMG.\nSupports s, d.\nSee also: mfi_rotmg , srotmg , drotmg . Subroutines public pure subroutine srotmg(d1, d2, x1, y1, param) Original interface for SROTMG\nSee also: mfi_rotmg , f77_rotmg . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: d1 real(kind=REAL32), intent(inout) :: d2 real(kind=REAL32), intent(inout) :: x1 real(kind=REAL32), intent(in) :: y1 real(kind=REAL32), intent(out) :: param (5) public pure subroutine drotmg(d1, d2, x1, y1, param) Original interface for DROTMG\nSee also: mfi_rotmg , f77_rotmg . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: d1 real(kind=REAL64), intent(inout) :: d2 real(kind=REAL64), intent(inout) :: x1 real(kind=REAL64), intent(in) :: y1 real(kind=REAL64), intent(out) :: param (5)","tags":"","loc":"interface/f77_rotmg.html"},{"title":"f77_scal – MFI - Modern Fortran Interfaces","text":"public interface f77_scal Generic old style interface for SCAL.\nSupports s, d, c, z, cs, zd.\nSee also: mfi_scal , sscal , dscal , cscal , zscal , csscal , zdscal . Subroutines public pure subroutine sscal(n, a, x, incx) Original interface for SSCAL\nSee also: mfi_scal , f77_scal .\nSSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: a real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine dscal(n, a, x, incx) Original interface for DSCAL\nSee also: mfi_scal , f77_scal .\nDSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: a real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine cscal(n, a, x, incx) Original interface for CSCAL\nSee also: mfi_scal , f77_scal .\nCSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine zscal(n, a, x, incx) Original interface for ZSCAL\nSee also: mfi_scal , f77_scal .\nZSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine csscal(n, a, x, incx) Original interface for CSSCAL\nSee also: mfi_scal , f77_scal .\nCSSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine zdscal(n, a, x, incx) Original interface for ZDSCAL\nSee also: mfi_scal , f77_scal .\nZDSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx","tags":"","loc":"interface/f77_scal.html"},{"title":"f77_gbmv – MFI - Modern Fortran Interfaces","text":"public interface f77_gbmv Generic old style interface for GBMV.\nSupports s, d, c, z.\nSee also: mfi_gbmv , sgbmv , dgbmv , cgbmv , zgbmv . Subroutines public pure subroutine sgbmv(trans, m, n, kl, ku, alpha, a, lda, x, incx, beta, y, incy) Original interface for SGBMV\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: kl integer, intent(in) :: ku real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine dgbmv(trans, m, n, kl, ku, alpha, a, lda, x, incx, beta, y, incy) Original interface for DGBMV\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: kl integer, intent(in) :: ku real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine cgbmv(trans, m, n, kl, ku, alpha, a, lda, x, incx, beta, y, incy) Original interface for CGBMV\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: kl integer, intent(in) :: ku complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zgbmv(trans, m, n, kl, ku, alpha, a, lda, x, incx, beta, y, incy) Original interface for ZGBMV\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: kl integer, intent(in) :: ku complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy","tags":"","loc":"interface/f77_gbmv.html"},{"title":"f77_gemv – MFI - Modern Fortran Interfaces","text":"public interface f77_gemv Generic old style interface for GEMV.\nSupports s, d, c, z.\nSee also: mfi_gemv , sgemv , dgemv , cgemv , zgemv . Subroutines public pure subroutine sgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for SGEMV\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine dgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for DGEMV\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine cgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for CGEMV\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for ZGEMV\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy","tags":"","loc":"interface/f77_gemv.html"},{"title":"f77_ger – MFI - Modern Fortran Interfaces","text":"public interface f77_ger Generic old style interface for GER.\nSupports s, d.\nSee also: mfi_ger , sger , dger . Subroutines public pure subroutine sger(m, n, alpha, x, incx, y, incy, a, lda) Original interface for SGER\nSee also: mfi_ger , f77_ger . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda public pure subroutine dger(m, n, alpha, x, incx, y, incy, a, lda) Original interface for DGER\nSee also: mfi_ger , f77_ger . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda","tags":"","loc":"interface/f77_ger.html"},{"title":"f77_gerc – MFI - Modern Fortran Interfaces","text":"public interface f77_gerc Generic old style interface for GERC.\nSupports c, z.\nSee also: mfi_gerc , cgerc , zgerc . Subroutines public pure subroutine cgerc(m, n, alpha, x, incx, y, incy, a, lda) Original interface for CGERC\nSee also: mfi_gerc , f77_gerc . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda public pure subroutine zgerc(m, n, alpha, x, incx, y, incy, a, lda) Original interface for ZGERC\nSee also: mfi_gerc , f77_gerc . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda","tags":"","loc":"interface/f77_gerc.html"},{"title":"f77_geru – MFI - Modern Fortran Interfaces","text":"public interface f77_geru Generic old style interface for GERU.\nSupports c, z.\nSee also: mfi_geru , cgeru , zgeru . Subroutines public pure subroutine cgeru(m, n, alpha, x, incx, y, incy, a, lda) Original interface for CGERU\nSee also: mfi_geru , f77_geru . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda public pure subroutine zgeru(m, n, alpha, x, incx, y, incy, a, lda) Original interface for ZGERU\nSee also: mfi_geru , f77_geru . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda","tags":"","loc":"interface/f77_geru.html"},{"title":"f77_hbmv – MFI - Modern Fortran Interfaces","text":"public interface f77_hbmv Generic old style interface for HBMV.\nSupports c, z.\nSee also: mfi_hbmv , chbmv , zhbmv . Subroutines public pure subroutine chbmv(uplo, n, k, alpha, a, lda, x, incx, beta, y, incy) Original interface for CHBMV\nSee also: mfi_hbmv , f77_hbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zhbmv(uplo, n, k, alpha, a, lda, x, incx, beta, y, incy) Original interface for ZHBMV\nSee also: mfi_hbmv , f77_hbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy","tags":"","loc":"interface/f77_hbmv.html"},{"title":"f77_hemv – MFI - Modern Fortran Interfaces","text":"public interface f77_hemv Generic old style interface for HEMV.\nSupports c, z.\nSee also: mfi_hemv , chemv , zhemv . Subroutines public pure subroutine chemv(uplo, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for CHEMV\nSee also: mfi_hemv , f77_hemv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zhemv(uplo, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for ZHEMV\nSee also: mfi_hemv , f77_hemv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy","tags":"","loc":"interface/f77_hemv.html"},{"title":"f77_her – MFI - Modern Fortran Interfaces","text":"public interface f77_her Generic old style interface for HER.\nSupports c, z.\nSee also: mfi_her , cher , zher . Subroutines public pure subroutine cher(uplo, n, alpha, x, incx, a, lda) Original interface for CHER\nSee also: mfi_her , f77_her . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=wp), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda public pure subroutine zher(uplo, n, alpha, x, incx, a, lda) Original interface for ZHER\nSee also: mfi_her , f77_her . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=wp), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda","tags":"","loc":"interface/f77_her.html"},{"title":"f77_her2 – MFI - Modern Fortran Interfaces","text":"public interface f77_her2 Generic old style interface for HER2.\nSupports c, z.\nSee also: mfi_her2 , cher2 , zher2 . Subroutines public pure subroutine cher2(uplo, n, alpha, x, incx, y, incy, a, lda) Original interface for CHER2\nSee also: mfi_her2 , f77_her2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda public pure subroutine zher2(uplo, n, alpha, x, incx, y, incy, a, lda) Original interface for ZHER2\nSee also: mfi_her2 , f77_her2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda","tags":"","loc":"interface/f77_her2.html"},{"title":"f77_hpmv – MFI - Modern Fortran Interfaces","text":"public interface f77_hpmv Generic old style interface for HPMV.\nSupports c, z.\nSee also: mfi_hpmv , chpmv , zhpmv . Subroutines public pure subroutine chpmv(uplo, n, alpha, ap, x, incx, beta, y, incy) Original interface for CHPMV\nSee also: mfi_hpmv , f77_hpmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: ap (*) complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zhpmv(uplo, n, alpha, ap, x, incx, beta, y, incy) Original interface for ZHPMV\nSee also: mfi_hpmv , f77_hpmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: ap (*) complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy","tags":"","loc":"interface/f77_hpmv.html"},{"title":"f77_hpr – MFI - Modern Fortran Interfaces","text":"public interface f77_hpr Generic old style interface for HPR.\nSupports c, z.\nSee also: mfi_hpr , chpr , zhpr . Subroutines public pure subroutine chpr(uplo, n, alpha, x, incx, ap) Original interface for CHPR\nSee also: mfi_hpr , f77_hpr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=wp), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(inout) :: ap (*) public pure subroutine zhpr(uplo, n, alpha, x, incx, ap) Original interface for ZHPR\nSee also: mfi_hpr , f77_hpr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=wp), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(inout) :: ap (*)","tags":"","loc":"interface/f77_hpr.html"},{"title":"f77_hpr2 – MFI - Modern Fortran Interfaces","text":"public interface f77_hpr2 Generic old style interface for HPR2.\nSupports c, z.\nSee also: mfi_hpr2 , chpr2 , zhpr2 . Subroutines public pure subroutine chpr2(uplo, n, alpha, x, incx, y, incy, ap) Original interface for CHPR2\nSee also: mfi_hpr2 , f77_hpr2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL32), intent(inout) :: ap (*) public pure subroutine zhpr2(uplo, n, alpha, x, incx, y, incy, ap) Original interface for ZHPR2\nSee also: mfi_hpr2 , f77_hpr2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL64), intent(inout) :: ap (*)","tags":"","loc":"interface/f77_hpr2.html"},{"title":"f77_sbmv – MFI - Modern Fortran Interfaces","text":"public interface f77_sbmv Generic old style interface for SBMV.\nSupports s, d.\nSee also: mfi_sbmv , ssbmv , dsbmv . Subroutines public pure subroutine ssbmv(uplo, n, k, alpha, a, lda, x, incx, beta, y, incy) Original interface for SSBMV\nSee also: mfi_sbmv , f77_sbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine dsbmv(uplo, n, k, alpha, a, lda, x, incx, beta, y, incy) Original interface for DSBMV\nSee also: mfi_sbmv , f77_sbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy","tags":"","loc":"interface/f77_sbmv.html"},{"title":"f77_spmv – MFI - Modern Fortran Interfaces","text":"public interface f77_spmv Generic old style interface for SPMV.\nSupports s, d.\nSee also: mfi_spmv , sspmv , dspmv . Subroutines public pure subroutine sspmv(uplo, n, alpha, ap, x, incx, beta, y, incy) Original interface for SSPMV\nSee also: mfi_spmv , f77_spmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: ap (*) real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine dspmv(uplo, n, alpha, ap, x, incx, beta, y, incy) Original interface for DSPMV\nSee also: mfi_spmv , f77_spmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: ap (*) real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy","tags":"","loc":"interface/f77_spmv.html"},{"title":"f77_spr – MFI - Modern Fortran Interfaces","text":"public interface f77_spr Generic old style interface for SPR.\nSupports s, d.\nSee also: mfi_spr , sspr , dspr . Subroutines public pure subroutine sspr(uplo, n, alpha, x, incx, ap) Original interface for SSPR\nSee also: mfi_spr , f77_spr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: ap (*) public pure subroutine dspr(uplo, n, alpha, x, incx, ap) Original interface for DSPR\nSee also: mfi_spr , f77_spr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: ap (*)","tags":"","loc":"interface/f77_spr.html"},{"title":"f77_spr2 – MFI - Modern Fortran Interfaces","text":"public interface f77_spr2 Generic old style interface for SPR2.\nSupports s, d.\nSee also: mfi_spr2 , sspr2 , dspr2 . Subroutines public pure subroutine sspr2(uplo, n, alpha, x, incx, y, incy, ap) Original interface for SSPR2\nSee also: mfi_spr2 , f77_spr2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL32), intent(inout) :: ap (*) public pure subroutine dspr2(uplo, n, alpha, x, incx, y, incy, ap) Original interface for DSPR2\nSee also: mfi_spr2 , f77_spr2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL64), intent(inout) :: ap (*)","tags":"","loc":"interface/f77_spr2.html"},{"title":"f77_symv – MFI - Modern Fortran Interfaces","text":"public interface f77_symv Generic old style interface for SYMV.\nSupports s, d.\nSee also: mfi_symv , ssymv , dsymv . Subroutines public pure subroutine ssymv(uplo, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for SSYMV\nSee also: mfi_symv , f77_symv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine dsymv(uplo, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for DSYMV\nSee also: mfi_symv , f77_symv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy","tags":"","loc":"interface/f77_symv.html"},{"title":"f77_syr – MFI - Modern Fortran Interfaces","text":"public interface f77_syr Generic old style interface for SYR.\nSupports s, d.\nSee also: mfi_syr , ssyr , dsyr . Subroutines public pure subroutine ssyr(uplo, n, alpha, x, incx, a, lda) Original interface for SSYR\nSee also: mfi_syr , f77_syr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda public pure subroutine dsyr(uplo, n, alpha, x, incx, a, lda) Original interface for DSYR\nSee also: mfi_syr , f77_syr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda","tags":"","loc":"interface/f77_syr.html"},{"title":"f77_syr2 – MFI - Modern Fortran Interfaces","text":"public interface f77_syr2 Generic old style interface for SYR2.\nSupports s, d.\nSee also: mfi_syr2 , ssyr2 , dsyr2 . Subroutines public pure subroutine ssyr2(uplo, n, alpha, x, incx, y, incy, a, lda) Original interface for SSYR2\nSee also: mfi_syr2 , f77_syr2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda public pure subroutine dsyr2(uplo, n, alpha, x, incx, y, incy, a, lda) Original interface for DSYR2\nSee also: mfi_syr2 , f77_syr2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda","tags":"","loc":"interface/f77_syr2.html"},{"title":"f77_tbmv – MFI - Modern Fortran Interfaces","text":"public interface f77_tbmv Generic old style interface for TBMV.\nSupports s, d, c, z.\nSee also: mfi_tbmv , stbmv , dtbmv , ctbmv , ztbmv . Subroutines public pure subroutine stbmv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for STBMV\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine dtbmv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for DTBMV\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ctbmv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for CTBMV\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ztbmv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for ZTBMV\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx","tags":"","loc":"interface/f77_tbmv.html"},{"title":"f77_tbsv – MFI - Modern Fortran Interfaces","text":"public interface f77_tbsv Generic old style interface for TBSV.\nSupports s, d, c, z.\nSee also: mfi_tbsv , stbsv , dtbsv , ctbsv , ztbsv . Subroutines public pure subroutine stbsv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for STBSV\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine dtbsv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for DTBSV\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ctbsv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for CTBSV\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ztbsv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for ZTBSV\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx","tags":"","loc":"interface/f77_tbsv.html"},{"title":"f77_tpmv – MFI - Modern Fortran Interfaces","text":"public interface f77_tpmv Generic old style interface for TPMV.\nSupports s, d, c, z.\nSee also: mfi_tpmv , stpmv , dtpmv , ctpmv , ztpmv . Subroutines public pure subroutine stpmv(uplo, trans, diag, n, ap, x, incx) Original interface for STPMV\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL32), intent(in) :: ap (*) real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine dtpmv(uplo, trans, diag, n, ap, x, incx) Original interface for DTPMV\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL64), intent(in) :: ap (*) real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ctpmv(uplo, trans, diag, n, ap, x, incx) Original interface for CTPMV\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL32), intent(in) :: ap (*) complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ztpmv(uplo, trans, diag, n, ap, x, incx) Original interface for ZTPMV\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL64), intent(in) :: ap (*) complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx","tags":"","loc":"interface/f77_tpmv.html"},{"title":"f77_tpsv – MFI - Modern Fortran Interfaces","text":"public interface f77_tpsv Generic old style interface for TPSV.\nSupports s, d, c, z.\nSee also: mfi_tpsv , stpsv , dtpsv , ctpsv , ztpsv . Subroutines public pure subroutine stpsv(uplo, trans, diag, n, ap, x, incx) Original interface for STPSV\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL32), intent(in) :: ap (*) real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine dtpsv(uplo, trans, diag, n, ap, x, incx) Original interface for DTPSV\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL64), intent(in) :: ap (*) real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ctpsv(uplo, trans, diag, n, ap, x, incx) Original interface for CTPSV\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL32), intent(in) :: ap (*) complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ztpsv(uplo, trans, diag, n, ap, x, incx) Original interface for ZTPSV\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL64), intent(in) :: ap (*) complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx","tags":"","loc":"interface/f77_tpsv.html"},{"title":"f77_trmv – MFI - Modern Fortran Interfaces","text":"public interface f77_trmv Generic old style interface for TRMV.\nSupports s, d, c, z.\nSee also: mfi_trmv , strmv , dtrmv , ctrmv , ztrmv . Subroutines public pure subroutine strmv(uplo, trans, diag, n, a, lda, x, incx) Original interface for STRMV\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine dtrmv(uplo, trans, diag, n, a, lda, x, incx) Original interface for DTRMV\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ctrmv(uplo, trans, diag, n, a, lda, x, incx) Original interface for CTRMV\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ztrmv(uplo, trans, diag, n, a, lda, x, incx) Original interface for ZTRMV\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx","tags":"","loc":"interface/f77_trmv.html"},{"title":"f77_trsv – MFI - Modern Fortran Interfaces","text":"public interface f77_trsv Generic old style interface for TRSV.\nSupports s, d, c, z.\nSee also: mfi_trsv , strsv , dtrsv , ctrsv , ztrsv . Subroutines public pure subroutine strsv(uplo, trans, diag, n, a, lda, x, incx) Original interface for STRSV\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine dtrsv(uplo, trans, diag, n, a, lda, x, incx) Original interface for DTRSV\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ctrsv(uplo, trans, diag, n, a, lda, x, incx) Original interface for CTRSV\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ztrsv(uplo, trans, diag, n, a, lda, x, incx) Original interface for ZTRSV\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx","tags":"","loc":"interface/f77_trsv.html"},{"title":"f77_gemm – MFI - Modern Fortran Interfaces","text":"public interface f77_gemm Generic old style interface for GEMM.\nSupports s, d, c, z.\nSee also: mfi_gemm , sgemm , dgemm , cgemm , zgemm . Subroutines public pure subroutine sgemm(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for SGEMM\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: transa character(len=1), intent(in) :: transb integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine dgemm(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for DGEMM\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: transa character(len=1), intent(in) :: transb integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine cgemm(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for CGEMM\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: transa character(len=1), intent(in) :: transb integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine zgemm(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for ZGEMM\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: transa character(len=1), intent(in) :: transb integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc","tags":"","loc":"interface/f77_gemm.html"},{"title":"f77_hemm – MFI - Modern Fortran Interfaces","text":"public interface f77_hemm Generic old style interface for HEMM.\nSupports c, z.\nSee also: mfi_hemm , chemm , zhemm . Subroutines public pure subroutine chemm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for CHEMM\nSee also: mfi_hemm , f77_hemm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine zhemm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for ZHEMM\nSee also: mfi_hemm , f77_hemm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc","tags":"","loc":"interface/f77_hemm.html"},{"title":"f77_herk – MFI - Modern Fortran Interfaces","text":"public interface f77_herk Generic old style interface for HERK.\nSupports c, z.\nSee also: mfi_herk , cherk , zherk . Subroutines public pure subroutine cherk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc) Original interface for CHERK\nSee also: mfi_herk , f77_herk . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=wp), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=wp), intent(in) :: beta complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine zherk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc) Original interface for ZHERK\nSee also: mfi_herk , f77_herk . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=wp), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=wp), intent(in) :: beta complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc","tags":"","loc":"interface/f77_herk.html"},{"title":"f77_her2k – MFI - Modern Fortran Interfaces","text":"public interface f77_her2k Generic old style interface for HER2K.\nSupports c, z.\nSee also: mfi_her2k , cher2k , zher2k . Subroutines public pure subroutine cher2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for CHER2K\nSee also: mfi_her2k , f77_her2k . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=wp), intent(in) :: beta complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine zher2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for ZHER2K\nSee also: mfi_her2k , f77_her2k . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=wp), intent(in) :: beta complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc","tags":"","loc":"interface/f77_her2k.html"},{"title":"f77_symm – MFI - Modern Fortran Interfaces","text":"public interface f77_symm Generic old style interface for SYMM.\nSupports s, d.\nSee also: mfi_symm , ssymm , dsymm . Subroutines public pure subroutine ssymm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for SSYMM\nSee also: mfi_symm , f77_symm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine dsymm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for DSYMM\nSee also: mfi_symm , f77_symm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc","tags":"","loc":"interface/f77_symm.html"},{"title":"f77_syrk – MFI - Modern Fortran Interfaces","text":"public interface f77_syrk Generic old style interface for SYRK.\nSupports s, d.\nSee also: mfi_syrk , ssyrk , dsyrk . Subroutines public pure subroutine ssyrk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc) Original interface for SSYRK\nSee also: mfi_syrk , f77_syrk . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine dsyrk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc) Original interface for DSYRK\nSee also: mfi_syrk , f77_syrk . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc","tags":"","loc":"interface/f77_syrk.html"},{"title":"f77_syr2k – MFI - Modern Fortran Interfaces","text":"public interface f77_syr2k Generic old style interface for SYR2K.\nSupports s, d.\nSee also: mfi_syr2k , ssyr2k , dsyr2k . Subroutines public pure subroutine ssyr2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for SSYR2K\nSee also: mfi_syr2k , f77_syr2k . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine dsyr2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for DSYR2K\nSee also: mfi_syr2k , f77_syr2k . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc","tags":"","loc":"interface/f77_syr2k.html"},{"title":"f77_trmm – MFI - Modern Fortran Interfaces","text":"public interface f77_trmm Generic old style interface for TRMM.\nSupports s, d, c, z.\nSee also: mfi_trmm , strmm , dtrmm , ctrmm , ztrmm . Subroutines public pure subroutine strmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for STRMM\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb public pure subroutine dtrmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for DTRMM\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb public pure subroutine ctrmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for CTRMM\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb public pure subroutine ztrmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for ZTRMM\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb","tags":"","loc":"interface/f77_trmm.html"},{"title":"f77_trsm – MFI - Modern Fortran Interfaces","text":"public interface f77_trsm Generic old style interface for TRSM.\nSupports s, d, c, z.\nSee also: mfi_trsm , strsm , dtrsm , ctrsm , ztrsm . Subroutines public pure subroutine strsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for STRSM\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb public pure subroutine dtrsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for DTRSM\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb public pure subroutine ctrsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for CTRSM\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb public pure subroutine ztrsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for ZTRSM\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb","tags":"","loc":"interface/f77_trsm.html"},{"title":"slamch – MFI - Modern Fortran Interfaces","text":"interface ?lamch supports s, d. See mfi_lamch for the modern version. public pure function slamch(cmach) Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: cmach Return Value real(kind=real32) Description SLAMCH determines single precision machine parameters.","tags":"","loc":"interface/slamch.html"},{"title":"dlamch – MFI - Modern Fortran Interfaces","text":"interface ?lamch supports s, d. See mfi_lamch for the modern version. public pure function dlamch(cmach) Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: cmach Return Value real(kind=real64) Description DLAMCH determines double precision machine parameters.","tags":"","loc":"interface/dlamch.html"},{"title":"sdsdot – MFI - Modern Fortran Interfaces","text":"interface public pure function sdsdot(n, sb, sx, incx, sy, incy) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=wp), intent(in) :: sb real(kind=wp), intent(in) :: sx (*) integer, intent(in) :: incx real(kind=wp), intent(in) :: sy (*) integer, intent(in) :: incy Return Value real(kind=wp) Description Compute the inner product of two vectors with extended\nprecision accumulation. Returns S.P. result with dot product accumulated in D.P.\nSDSDOT = SB + sum for I = 0 to N-1 of SX(LX+I INCX) SY(LY+I INCY),\nwhere LX = 1 if INCX .GE. 0, else LX = 1+(1-N) INCX, and LY is\ndefined in a similar way using INCY.","tags":"","loc":"interface/sdsdot.html"},{"title":"dsdot – MFI - Modern Fortran Interfaces","text":"interface public pure function dsdot(n, sx, incx, sy, incy) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=sp), intent(in) :: sx (*) integer, intent(in) :: incx real(kind=sp), intent(in) :: sy (*) integer, intent(in) :: incy Return Value real(kind=dp) Description Compute the inner product of two vectors with extended\nprecision accumulation and result. Returns D.P. dot product accumulated in D.P., for S.P. SX and SY\nDSDOT = sum for I = 0 to N-1 of  SX(LX+I INCX) * SY(LY+I INCY),\nwhere LX = 1 if INCX .GE. 0, else LX = 1+(1-N)*INCX, and LY is\ndefined in a similar way using INCY.","tags":"","loc":"interface/dsdot.html"},{"title":"f77_iamax – MFI - Modern Fortran Interfaces","text":"public interface f77_iamax Module Procedures public pure function isamax (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function idamax (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function icamax (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function izamax (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer","tags":"","loc":"interface/f77_iamax.html"},{"title":"f77_iamin – MFI - Modern Fortran Interfaces","text":"public interface f77_iamin Module Procedures public pure function isamin (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function idamin (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function icamin (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function izamin (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer","tags":"","loc":"interface/f77_iamin.html"},{"title":"mfi_lapack – MFI - Modern Fortran Interfaces","text":"Modern fortran interfaces for LAPACK Uses f77_lapack iso_fortran_env Interfaces public        interface mfi_geqrf Generic modern interface for GEQRF.\nSupports s, d, c, z.\nSee also: sgeqrf , dgeqrf , cgeqrf , zgeqrf . public pure subroutine mfi_sgeqrf (a, tau, info) Modern interface for sgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_dgeqrf (a, tau, info) Modern interface for dgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_cgeqrf (a, tau, info) Modern interface for cgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_zgeqrf (a, tau, info) Modern interface for zgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public        interface mfi_gerqf Generic modern interface for GERQF.\nSupports s, d, c, z.\nSee also: sgerqf , dgerqf , cgerqf , zgerqf . public pure subroutine mfi_sgerqf (a, tau, info) Modern interface for sgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_dgerqf (a, tau, info) Modern interface for dgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_cgerqf (a, tau, info) Modern interface for cgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_zgerqf (a, tau, info) Modern interface for zgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public        interface mfi_getrf Generic modern interface for GETRF.\nSupports s, d, c, z.\nSee also: sgetrf , dgetrf , cgetrf , zgetrf . public pure subroutine mfi_sgetrf (a, ipiv, info) Modern interface for sgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_dgetrf (a, ipiv, info) Modern interface for dgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_cgetrf (a, ipiv, info) Modern interface for cgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_zgetrf (a, ipiv, info) Modern interface for zgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public        interface mfi_getri Generic modern interface for GETRI.\nSupports s, d, c, z.\nSee also: sgetri , dgetri , cgetri , zgetri . public pure subroutine mfi_sgetri (a, ipiv, info) Modern interface for sgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_dgetri (a, ipiv, info) Modern interface for dgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_cgetri (a, ipiv, info) Modern interface for cgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_zgetri (a, ipiv, info) Modern interface for zgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info public        interface mfi_getrs Generic modern interface for GETRS.\nSupports s, d, c, z.\nSee also: sgetrs , dgetrs , cgetrs , zgetrs . public pure subroutine mfi_sgetrs (a, ipiv, b, trans, info) Modern interface for sgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info public pure subroutine mfi_dgetrs (a, ipiv, b, trans, info) Modern interface for dgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info public pure subroutine mfi_cgetrs (a, ipiv, b, trans, info) Modern interface for cgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info public pure subroutine mfi_zgetrs (a, ipiv, b, trans, info) Modern interface for zgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info public        interface mfi_hetrf Generic modern interface for HETRF.\nSupports c, z.\nSee also: chetrf , zhetrf . public pure subroutine mfi_chetrf (a, uplo, ipiv, info) Modern interface for chetrf .\nSee also: mfi_hetrf , f77_hetrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_zhetrf (a, uplo, ipiv, info) Modern interface for zhetrf .\nSee also: mfi_hetrf , f77_hetrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public        interface mfi_hegv Generic modern interface for HEGV.\nSupports c, z.\nSee also: chegv , zhegv . public pure subroutine mfi_chegv (a, b, w, itype, jobz, uplo, info) Modern interface for chegv .\nSee also: mfi_hegv , f77_hegv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) real(kind=REAL32), intent(out) :: w (:) integer, intent(in), optional :: itype character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_zhegv (a, b, w, itype, jobz, uplo, info) Modern interface for zhegv .\nSee also: mfi_hegv , f77_hegv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) real(kind=REAL64), intent(out) :: w (:) integer, intent(in), optional :: itype character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public        interface mfi_heevd Generic modern interface for HEEVD.\nSupports c, z.\nSee also: cheevd , zheevd . public pure subroutine mfi_cheevd (a, w, jobz, uplo, info) Modern interface for cheevd .\nSee also: mfi_heevd , f77_heevd . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out) :: w (:) character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_zheevd (a, w, jobz, uplo, info) Modern interface for zheevd .\nSee also: mfi_heevd , f77_heevd . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out) :: w (:) character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public        interface mfi_gesvd Generic modern interface for GESVD.\nSupports s, d, c, z.\nSee also: sgesvd , dgesvd , cgesvd , zgesvd . public pure subroutine mfi_sgesvd (a, s, u, vt, ww, job, info) Modern interface for sgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out) :: s (:) real(kind=REAL32), intent(out), optional, target :: u (:,:) real(kind=REAL32), intent(out), optional, target :: vt (:,:) real(kind=REAL32), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info public pure subroutine mfi_dgesvd (a, s, u, vt, ww, job, info) Modern interface for dgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out) :: s (:) real(kind=REAL64), intent(out), optional, target :: u (:,:) real(kind=REAL64), intent(out), optional, target :: vt (:,:) real(kind=REAL64), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info public pure subroutine mfi_cgesvd (a, s, u, vt, ww, job, info) Modern interface for cgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out) :: s (:) complex(kind=REAL32), intent(out), optional, target :: u (:,:) complex(kind=REAL32), intent(out), optional, target :: vt (:,:) real(kind=REAL32), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info public pure subroutine mfi_zgesvd (a, s, u, vt, ww, job, info) Modern interface for zgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out) :: s (:) complex(kind=REAL64), intent(out), optional, target :: u (:,:) complex(kind=REAL64), intent(out), optional, target :: vt (:,:) real(kind=REAL64), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info public        interface mfi_potrf Generic modern interface for POTRF.\nSupports s, d, c, z.\nSee also: spotrf , dpotrf , cpotrf , zpotrf . public pure subroutine mfi_spotrf (a, info, uplo) Modern interface for spotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_dpotrf (a, info, uplo) Modern interface for dpotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_cpotrf (a, info, uplo) Modern interface for cpotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_zpotrf (a, info, uplo) Modern interface for zpotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public        interface mfi_potri Generic modern interface for POTRI.\nSupports s, d, c, z.\nSee also: spotri , dpotri , cpotri , zpotri . public pure subroutine mfi_spotri (a, info, uplo) Modern interface for spotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_dpotri (a, info, uplo) Modern interface for dpotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_cpotri (a, info, uplo) Modern interface for cpotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_zpotri (a, info, uplo) Modern interface for zpotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public        interface mfi_potrs Generic modern interface for POTRS.\nSupports s, d, c, z.\nSee also: spotrs , dpotrs , cpotrs , zpotrs . public pure subroutine mfi_spotrs (a, b, uplo, info) Modern interface for spotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_dpotrs (a, b, uplo, info) Modern interface for dpotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_cpotrs (a, b, uplo, info) Modern interface for cpotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_zpotrs (a, b, uplo, info) Modern interface for zpotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public        interface mfi_pocon Generic modern interface for POCON.\nSupports s, d, c, z.\nSee also: spocon , dpocon , cpocon , zpocon . public pure subroutine mfi_spocon (a, anorm, rcond, uplo, info) Modern interface for spocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: anorm real(kind=REAL32), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_dpocon (a, anorm, rcond, uplo, info) Modern interface for dpocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: anorm real(kind=REAL64), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_cpocon (a, anorm, rcond, uplo, info) Modern interface for cpocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: anorm real(kind=REAL32), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_zpocon (a, anorm, rcond, uplo, info) Modern interface for zpocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: anorm real(kind=REAL64), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info Subroutines public pure subroutine mfi_sgeqrf (a, tau, info) Modern interface for sgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_dgeqrf (a, tau, info) Modern interface for dgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_cgeqrf (a, tau, info) Modern interface for cgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_zgeqrf (a, tau, info) Modern interface for zgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_sgerqf (a, tau, info) Modern interface for sgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_dgerqf (a, tau, info) Modern interface for dgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_cgerqf (a, tau, info) Modern interface for cgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_zgerqf (a, tau, info) Modern interface for zgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_sgetrf (a, ipiv, info) Modern interface for sgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_dgetrf (a, ipiv, info) Modern interface for dgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_cgetrf (a, ipiv, info) Modern interface for cgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_zgetrf (a, ipiv, info) Modern interface for zgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_sgetri (a, ipiv, info) Modern interface for sgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_dgetri (a, ipiv, info) Modern interface for dgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_cgetri (a, ipiv, info) Modern interface for cgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_zgetri (a, ipiv, info) Modern interface for zgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_sgetrs (a, ipiv, b, trans, info) Modern interface for sgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info public pure subroutine mfi_dgetrs (a, ipiv, b, trans, info) Modern interface for dgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info public pure subroutine mfi_cgetrs (a, ipiv, b, trans, info) Modern interface for cgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info public pure subroutine mfi_zgetrs (a, ipiv, b, trans, info) Modern interface for zgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info public pure subroutine mfi_chetrf (a, uplo, ipiv, info) Modern interface for chetrf .\nSee also: mfi_hetrf , f77_hetrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_zhetrf (a, uplo, ipiv, info) Modern interface for zhetrf .\nSee also: mfi_hetrf , f77_hetrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_chegv (a, b, w, itype, jobz, uplo, info) Modern interface for chegv .\nSee also: mfi_hegv , f77_hegv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) real(kind=REAL32), intent(out) :: w (:) integer, intent(in), optional :: itype character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_zhegv (a, b, w, itype, jobz, uplo, info) Modern interface for zhegv .\nSee also: mfi_hegv , f77_hegv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) real(kind=REAL64), intent(out) :: w (:) integer, intent(in), optional :: itype character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_cheevd (a, w, jobz, uplo, info) Modern interface for cheevd .\nSee also: mfi_heevd , f77_heevd . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out) :: w (:) character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_zheevd (a, w, jobz, uplo, info) Modern interface for zheevd .\nSee also: mfi_heevd , f77_heevd . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out) :: w (:) character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_sgesvd (a, s, u, vt, ww, job, info) Modern interface for sgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out) :: s (:) real(kind=REAL32), intent(out), optional, target :: u (:,:) real(kind=REAL32), intent(out), optional, target :: vt (:,:) real(kind=REAL32), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info public pure subroutine mfi_dgesvd (a, s, u, vt, ww, job, info) Modern interface for dgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out) :: s (:) real(kind=REAL64), intent(out), optional, target :: u (:,:) real(kind=REAL64), intent(out), optional, target :: vt (:,:) real(kind=REAL64), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info public pure subroutine mfi_cgesvd (a, s, u, vt, ww, job, info) Modern interface for cgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out) :: s (:) complex(kind=REAL32), intent(out), optional, target :: u (:,:) complex(kind=REAL32), intent(out), optional, target :: vt (:,:) real(kind=REAL32), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info public pure subroutine mfi_zgesvd (a, s, u, vt, ww, job, info) Modern interface for zgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out) :: s (:) complex(kind=REAL64), intent(out), optional, target :: u (:,:) complex(kind=REAL64), intent(out), optional, target :: vt (:,:) real(kind=REAL64), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info public pure subroutine mfi_spotrf (a, info, uplo) Modern interface for spotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_dpotrf (a, info, uplo) Modern interface for dpotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_cpotrf (a, info, uplo) Modern interface for cpotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_zpotrf (a, info, uplo) Modern interface for zpotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_spotri (a, info, uplo) Modern interface for spotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_dpotri (a, info, uplo) Modern interface for dpotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_cpotri (a, info, uplo) Modern interface for cpotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_zpotri (a, info, uplo) Modern interface for zpotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_spotrs (a, b, uplo, info) Modern interface for spotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_dpotrs (a, b, uplo, info) Modern interface for dpotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_cpotrs (a, b, uplo, info) Modern interface for cpotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_zpotrs (a, b, uplo, info) Modern interface for zpotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_spocon (a, anorm, rcond, uplo, info) Modern interface for spocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: anorm real(kind=REAL32), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_dpocon (a, anorm, rcond, uplo, info) Modern interface for dpocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: anorm real(kind=REAL64), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_cpocon (a, anorm, rcond, uplo, info) Modern interface for cpocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: anorm real(kind=REAL32), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_zpocon (a, anorm, rcond, uplo, info) Modern interface for zpocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: anorm real(kind=REAL64), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_error (name, info) Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: name integer, intent(in) :: info","tags":"","loc":"module/mfi_lapack.html"},{"title":"f77_lapack – MFI - Modern Fortran Interfaces","text":"Improved and original F77 interfaces for LAPACK Uses iso_fortran_env Interfaces public        interface f77_geqrf Generic old style interface for GEQRF.\nSupports s, d, c, z.\nSee also: mfi_geqrf , sgeqrf , dgeqrf , cgeqrf , zgeqrf . public pure subroutine sgeqrf(m, n, a, lda, tau, work, lwork, info) Original interface for SGEQRF\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(out) :: tau (*) real(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgeqrf(m, n, a, lda, tau, work, lwork, info) Original interface for DGEQRF\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(out) :: tau (*) real(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgeqrf(m, n, a, lda, tau, work, lwork, info) Original interface for CGEQRF\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(out) :: tau (*) complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgeqrf(m, n, a, lda, tau, work, lwork, info) Original interface for ZGEQRF\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(out) :: tau (*) complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_gerqf Generic old style interface for GERQF.\nSupports s, d, c, z.\nSee also: mfi_gerqf , sgerqf , dgerqf , cgerqf , zgerqf . public pure subroutine sgerqf(m, n, a, lda, tau, work, lwork, info) Original interface for SGERQF\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(out) :: tau (*) real(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgerqf(m, n, a, lda, tau, work, lwork, info) Original interface for DGERQF\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(out) :: tau (*) real(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgerqf(m, n, a, lda, tau, work, lwork, info) Original interface for CGERQF\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(out) :: tau (*) complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgerqf(m, n, a, lda, tau, work, lwork, info) Original interface for ZGERQF\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(out) :: tau (*) complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_getrf Generic old style interface for GETRF.\nSupports s, d, c, z.\nSee also: mfi_getrf , sgetrf , dgetrf , cgetrf , zgetrf . public pure subroutine sgetrf(m, n, a, lda, ipiv, info) Original interface for SGETRF\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: ipiv (*) integer, intent(out) :: info public pure subroutine dgetrf(m, n, a, lda, ipiv, info) Original interface for DGETRF\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: ipiv (*) integer, intent(out) :: info public pure subroutine cgetrf(m, n, a, lda, ipiv, info) Original interface for CGETRF\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: ipiv (*) integer, intent(out) :: info public pure subroutine zgetrf(m, n, a, lda, ipiv, info) Original interface for ZGETRF\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: ipiv (*) integer, intent(out) :: info public        interface f77_getri Generic old style interface for GETRI.\nSupports s, d, c, z.\nSee also: mfi_getri , sgetri , dgetri , cgetri , zgetri . public pure subroutine sgetri(n, a, lda, ipiv, work, lwork, info) Original interface for SGETRI\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) real(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgetri(n, a, lda, ipiv, work, lwork, info) Original interface for DGETRI\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) real(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgetri(n, a, lda, ipiv, work, lwork, info) Original interface for CGETRI\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgetri(n, a, lda, ipiv, work, lwork, info) Original interface for ZGETRI\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_getrs Generic old style interface for GETRS.\nSupports s, d, c, z.\nSee also: mfi_getrs , sgetrs , dgetrs , cgetrs , zgetrs . public pure subroutine sgetrs(trans, n, nrhs, a, lda, ipiv, b, ldb, info) Original interface for SGETRS\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info public pure subroutine dgetrs(trans, n, nrhs, a, lda, ipiv, b, ldb, info) Original interface for DGETRS\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info public pure subroutine cgetrs(trans, n, nrhs, a, lda, ipiv, b, ldb, info) Original interface for CGETRS\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info public pure subroutine zgetrs(trans, n, nrhs, a, lda, ipiv, b, ldb, info) Original interface for ZGETRS\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info public        interface f77_hetrf Generic old style interface for HETRF.\nSupports c, z.\nSee also: mfi_hetrf , chetrf , zhetrf . public pure subroutine chetrf(uplo, n, a, lda, ipiv, work, lwork, info) Original interface for CHETRF\nSee also: mfi_hetrf , f77_hetrf . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zhetrf(uplo, n, a, lda, ipiv, work, lwork, info) Original interface for ZHETRF\nSee also: mfi_hetrf , f77_hetrf . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_hegv Generic old style interface for HEGV.\nSupports c, z.\nSee also: mfi_hegv , chegv , zhegv . public pure subroutine chegv(itype, jobz, uplo, n, a, lda, b, ldb, w, work, lwork, rwork, info) Original interface for CHEGV\nSee also: mfi_hegv , f77_hegv . Arguments Type Intent Optional Attributes Name integer, intent(in) :: itype character(len=1), intent(in) :: jobz character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(out) :: w (*) complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL32), intent(in) :: rwork (*) integer, intent(out) :: info public pure subroutine zhegv(itype, jobz, uplo, n, a, lda, b, ldb, w, work, lwork, rwork, info) Original interface for ZHEGV\nSee also: mfi_hegv , f77_hegv . Arguments Type Intent Optional Attributes Name integer, intent(in) :: itype character(len=1), intent(in) :: jobz character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(out) :: w (*) complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL64), intent(in) :: rwork (*) integer, intent(out) :: info public        interface f77_heevd Generic old style interface for HEEVD.\nSupports c, z.\nSee also: mfi_heevd , cheevd , zheevd . public pure subroutine cheevd(jobz, uplo, n, a, lda, w, work, lwork, rwork, lrwork, iwork, liwork, info) Original interface for CHEEVD\nSee also: mfi_heevd , f77_heevd . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobz character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(out) :: w (*) complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL32), intent(inout) :: rwork (*) integer, intent(in) :: lrwork integer, intent(inout) :: iwork (*) integer, intent(in) :: liwork integer, intent(out) :: info public pure subroutine zheevd(jobz, uplo, n, a, lda, w, work, lwork, rwork, lrwork, iwork, liwork, info) Original interface for ZHEEVD\nSee also: mfi_heevd , f77_heevd . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobz character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(out) :: w (*) complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL64), intent(inout) :: rwork (*) integer, intent(in) :: lrwork integer, intent(inout) :: iwork (*) integer, intent(in) :: liwork integer, intent(out) :: info public        interface f77_gesvd Generic old style interface for GESVD.\nSupports s, d, c, z.\nSee also: mfi_gesvd , sgesvd , dgesvd , cgesvd , zgesvd . public pure subroutine sgesvd(jobu, jobvt, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, info) Original interface for SGESVD\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobu character(len=1), intent(in) :: jobvt integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(out) :: s (*) real(kind=REAL32), intent(out) :: u (ldu,*) integer, intent(in) :: ldu real(kind=REAL32), intent(out) :: vt (ldvt,*) integer, intent(in) :: ldvt real(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgesvd(jobu, jobvt, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, info) Original interface for DGESVD\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobu character(len=1), intent(in) :: jobvt integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(out) :: s (*) real(kind=REAL64), intent(out) :: u (ldu,*) integer, intent(in) :: ldu real(kind=REAL64), intent(out) :: vt (ldvt,*) integer, intent(in) :: ldvt real(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgesvd(jobu, jobvt, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, rwork, info) Original interface for CGESVD\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobu character(len=1), intent(in) :: jobvt integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(out) :: s (*) complex(kind=REAL32), intent(out) :: u (ldu,*) integer, intent(in) :: ldu complex(kind=REAL32), intent(out) :: vt (ldvt,*) integer, intent(in) :: ldvt complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL32), intent(in) :: rwork (*) integer, intent(out) :: info public pure subroutine zgesvd(jobu, jobvt, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, rwork, info) Original interface for ZGESVD\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobu character(len=1), intent(in) :: jobvt integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(out) :: s (*) complex(kind=REAL64), intent(out) :: u (ldu,*) integer, intent(in) :: ldu complex(kind=REAL64), intent(out) :: vt (ldvt,*) integer, intent(in) :: ldvt complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL64), intent(in) :: rwork (*) integer, intent(out) :: info public        interface f77_potrf Generic old style interface for POTRF.\nSupports s, d, c, z.\nSee also: mfi_potrf , spotrf , dpotrf , cpotrf , zpotrf . public pure subroutine spotrf(uplo, n, a, lda, info) Original interface for SPOTRF\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info public pure subroutine dpotrf(uplo, n, a, lda, info) Original interface for DPOTRF\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info public pure subroutine cpotrf(uplo, n, a, lda, info) Original interface for CPOTRF\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info public pure subroutine zpotrf(uplo, n, a, lda, info) Original interface for ZPOTRF\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info public        interface f77_potri Generic old style interface for POTRI.\nSupports s, d, c, z.\nSee also: mfi_potri , spotri , dpotri , cpotri , zpotri . public pure subroutine spotri(uplo, n, a, lda, info) Original interface for SPOTRI\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info public pure subroutine dpotri(uplo, n, a, lda, info) Original interface for DPOTRI\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info public pure subroutine cpotri(uplo, n, a, lda, info) Original interface for CPOTRI\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info public pure subroutine zpotri(uplo, n, a, lda, info) Original interface for ZPOTRI\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info public        interface f77_potrs Generic old style interface for POTRS.\nSupports s, d, c, z.\nSee also: mfi_potrs , spotrs , dpotrs , cpotrs , zpotrs . public pure subroutine spotrs(uplo, n, nrhs, a, lda, b, ldb, info) Original interface for SPOTRS\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info public pure subroutine dpotrs(uplo, n, nrhs, a, lda, b, ldb, info) Original interface for DPOTRS\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info public pure subroutine cpotrs(uplo, n, nrhs, a, lda, b, ldb, info) Original interface for CPOTRS\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info public pure subroutine zpotrs(uplo, n, nrhs, a, lda, b, ldb, info) Original interface for ZPOTRS\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info public        interface f77_pocon Generic old style interface for POCON.\nSupports s, d, c, z.\nSee also: mfi_pocon , spocon , dpocon , cpocon , zpocon . public pure subroutine spocon(uplo, n, a, lda, anorm, rcond, work, iwork, info) Original interface for SPOCON\nSee also: mfi_pocon , f77_pocon .\nspocon estimates the reciprocal of the condition number (in the\n1-norm) of a real(REAL32) Hermitian positive definite matrix using the\nCholesky factorization A = U H U or A = L L H computed by sPOTRF.\nAn estimate is obtained for norm(inv(A)), and the reciprocal of the\ncondition number is computed as RCOND = 1 / (ANORM * norm(inv(A))). Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: anorm real(kind=REAL32), intent(out) :: rcond real(kind=REAL32), intent(inout) :: work (*) integer, intent(inout) :: iwork (*) integer, intent(out) :: info public pure subroutine dpocon(uplo, n, a, lda, anorm, rcond, work, iwork, info) Original interface for DPOCON\nSee also: mfi_pocon , f77_pocon .\ndpocon estimates the reciprocal of the condition number (in the\n1-norm) of a real(REAL64) Hermitian positive definite matrix using the\nCholesky factorization A = U H U or A = L L H computed by dPOTRF.\nAn estimate is obtained for norm(inv(A)), and the reciprocal of the\ncondition number is computed as RCOND = 1 / (ANORM * norm(inv(A))). Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: anorm real(kind=REAL64), intent(out) :: rcond real(kind=REAL64), intent(inout) :: work (*) integer, intent(inout) :: iwork (*) integer, intent(out) :: info public pure subroutine cpocon(uplo, n, a, lda, anorm, rcond, work, rwork, info) Original interface for CPOCON\nSee also: mfi_pocon , f77_pocon .\ncpocon estimates the reciprocal of the condition number (in the\n1-norm) of a complex(REAL32) Hermitian positive definite matrix using the\nCholesky factorization A = U H U or A = L L H computed by cPOTRF.\nAn estimate is obtained for norm(inv(A)), and the reciprocal of the\ncondition number is computed as RCOND = 1 / (ANORM * norm(inv(A))). Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: anorm real(kind=REAL32), intent(out) :: rcond complex(kind=REAL32), intent(inout) :: work (*) real(kind=REAL32), intent(inout) :: rwork (*) integer, intent(out) :: info public pure subroutine zpocon(uplo, n, a, lda, anorm, rcond, work, rwork, info) Original interface for ZPOCON\nSee also: mfi_pocon , f77_pocon .\nzpocon estimates the reciprocal of the condition number (in the\n1-norm) of a complex(REAL64) Hermitian positive definite matrix using the\nCholesky factorization A = U H U or A = L L H computed by zPOTRF.\nAn estimate is obtained for norm(inv(A)), and the reciprocal of the\ncondition number is computed as RCOND = 1 / (ANORM * norm(inv(A))). Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: anorm real(kind=REAL64), intent(out) :: rcond complex(kind=REAL64), intent(inout) :: work (*) real(kind=REAL64), intent(inout) :: rwork (*) integer, intent(out) :: info public        interface f77_heevx Generic old style interface for HEEVX.\nSupports c, z.\nSee also: mfi_heevx , cheevx , zheevx . public pure subroutine cheevx(jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, work, lwork, rwork, lrwork, iwork, liwork, ifail, info) Original interface for CHEEVX\nSee also: mfi_heevx , f77_heevx . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobz character(len=1), intent(in) :: range character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: vl real(kind=REAL32), intent(in) :: vu integer, intent(in) :: il integer, intent(in) :: iu real(kind=REAL32), intent(in) :: abstol integer, intent(in) :: m real(kind=REAL32), intent(out) :: w (*) complex(kind=REAL32), intent(inout) :: z (ldz,*) integer, intent(in) :: ldz complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL32), intent(inout) :: rwork (*) integer, intent(in) :: lrwork integer, intent(inout) :: iwork (*) integer, intent(in) :: liwork integer, intent(in) :: ifail integer, intent(out) :: info public pure subroutine zheevx(jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, work, lwork, rwork, lrwork, iwork, liwork, ifail, info) Original interface for ZHEEVX\nSee also: mfi_heevx , f77_heevx . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobz character(len=1), intent(in) :: range character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: vl real(kind=REAL64), intent(in) :: vu integer, intent(in) :: il integer, intent(in) :: iu real(kind=REAL64), intent(in) :: abstol integer, intent(in) :: m real(kind=REAL64), intent(out) :: w (*) complex(kind=REAL64), intent(inout) :: z (ldz,*) integer, intent(in) :: ldz complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL64), intent(inout) :: rwork (*) integer, intent(in) :: lrwork integer, intent(inout) :: iwork (*) integer, intent(in) :: liwork integer, intent(in) :: ifail integer, intent(out) :: info public        interface f77_heevr Generic old style interface for HEEVR.\nSupports c, z.\nSee also: mfi_heevr , cheevr , zheevr . public pure subroutine cheevr(jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, isuppz, work, lwork, rwork, lrwork, iwork, liwork, info) Original interface for CHEEVR\nSee also: mfi_heevr , f77_heevr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobz character(len=1), intent(in) :: range character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: vl real(kind=REAL32), intent(in) :: vu integer, intent(in) :: il integer, intent(in) :: iu real(kind=REAL32), intent(in) :: abstol integer, intent(in) :: m real(kind=REAL32), intent(out) :: w (*) complex(kind=REAL32), intent(inout) :: z (ldz,*) integer, intent(in) :: ldz integer, intent(in) :: isuppz (*) complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL32), intent(inout) :: rwork (*) integer, intent(in) :: lrwork integer, intent(inout) :: iwork (*) integer, intent(in) :: liwork integer, intent(out) :: info public pure subroutine zheevr(jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, isuppz, work, lwork, rwork, lrwork, iwork, liwork, info) Original interface for ZHEEVR\nSee also: mfi_heevr , f77_heevr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobz character(len=1), intent(in) :: range character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: vl real(kind=REAL64), intent(in) :: vu integer, intent(in) :: il integer, intent(in) :: iu real(kind=REAL64), intent(in) :: abstol integer, intent(in) :: m real(kind=REAL64), intent(out) :: w (*) complex(kind=REAL64), intent(inout) :: z (ldz,*) integer, intent(in) :: ldz integer, intent(in) :: isuppz (*) complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL64), intent(inout) :: rwork (*) integer, intent(in) :: lrwork integer, intent(inout) :: iwork (*) integer, intent(in) :: liwork integer, intent(out) :: info public        interface f77_gels Generic old style interface for GELS.\nSupports s, d, c, z.\nSee also: mfi_gels , sgels , dgels , cgels , zgels . public pure subroutine sgels(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for SGELS\nSee also: mfi_gels , f77_gels .\nSGELS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgels(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for DGELS\nSee also: mfi_gels , f77_gels .\nDGELS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgels(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for CGELS\nSee also: mfi_gels , f77_gels .\nCGELS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgels(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for ZGELS\nSee also: mfi_gels , f77_gels .\nZGELS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_gelst Generic old style interface for GELST.\nSupports s, d, c, z.\nSee also: mfi_gelst , sgelst , dgelst , cgelst , zgelst . public pure subroutine sgelst(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for SGELST\nSee also: mfi_gelst , f77_gelst .\nSGELST solves overdetermined or underdetermined systems for GE matrices\nusing QR or LQ factorization with compact WY representation of Q. Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgelst(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for DGELST\nSee also: mfi_gelst , f77_gelst .\nDGELST solves overdetermined or underdetermined systems for GE matrices\nusing QR or LQ factorization with compact WY representation of Q. Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgelst(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for CGELST\nSee also: mfi_gelst , f77_gelst .\nCGELST solves overdetermined or underdetermined systems for GE matrices\nusing QR or LQ factorization with compact WY representation of Q. Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgelst(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for ZGELST\nSee also: mfi_gelst , f77_gelst .\nZGELST solves overdetermined or underdetermined systems for GE matrices\nusing QR or LQ factorization with compact WY representation of Q. Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_getsls Generic old style interface for GETSLS.\nSupports s, d, c, z.\nSee also: mfi_getsls , sgetsls , dgetsls , cgetsls , zgetsls . public pure subroutine sgetsls(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for SGETSLS\nSee also: mfi_getsls , f77_getsls .\nSGETSLS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgetsls(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for DGETSLS\nSee also: mfi_getsls , f77_getsls .\nDGETSLS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgetsls(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for CGETSLS\nSee also: mfi_getsls , f77_getsls .\nCGETSLS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgetsls(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for ZGETSLS\nSee also: mfi_getsls , f77_getsls .\nZGETSLS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_gelsd Generic old style interface for GELSD.\nSupports s, d, c, z.\nSee also: mfi_gelsd , sgelsd , dgelsd , cgelsd , zgelsd . public pure subroutine sgelsd(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, iwork, info) Original interface for SGELSD\nSee also: mfi_gelsd , f77_gelsd .\nSGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(out) :: s (*) real(kind=REAL32), intent(in) :: rcond integer, intent(out) :: rank real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: iwork (*) integer, intent(out) :: info public pure subroutine dgelsd(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, iwork, info) Original interface for DGELSD\nSee also: mfi_gelsd , f77_gelsd .\nDGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(out) :: s (*) real(kind=REAL64), intent(in) :: rcond integer, intent(out) :: rank real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: iwork (*) integer, intent(out) :: info public pure subroutine cgelsd(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, iwork, info) Original interface for CGELSD\nSee also: mfi_gelsd , f77_gelsd .\nCGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(out) :: s (*) complex(kind=REAL32), intent(in) :: rcond integer, intent(out) :: rank complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: iwork (*) integer, intent(out) :: info public pure subroutine zgelsd(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, iwork, info) Original interface for ZGELSD\nSee also: mfi_gelsd , f77_gelsd .\nZGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(out) :: s (*) complex(kind=REAL64), intent(in) :: rcond integer, intent(out) :: rank complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: iwork (*) integer, intent(out) :: info public        interface f77_gelss Generic old style interface for GELSS.\nSupports s, d, c, z.\nSee also: mfi_gelss , sgelss , dgelss , cgelss , zgelss . public pure subroutine sgelss(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, info) Original interface for SGELSS\nSee also: mfi_gelss , f77_gelss .\nSGELSS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(out) :: s (*) real(kind=REAL32), intent(in) :: rcond integer, intent(out) :: rank real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgelss(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, info) Original interface for DGELSS\nSee also: mfi_gelss , f77_gelss .\nDGELSS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(out) :: s (*) real(kind=REAL64), intent(in) :: rcond integer, intent(out) :: rank real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgelss(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, info) Original interface for CGELSS\nSee also: mfi_gelss , f77_gelss .\nCGELSS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(out) :: s (*) complex(kind=REAL32), intent(in) :: rcond integer, intent(out) :: rank complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgelss(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, info) Original interface for ZGELSS\nSee also: mfi_gelss , f77_gelss .\nZGELSS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(out) :: s (*) complex(kind=REAL64), intent(in) :: rcond integer, intent(out) :: rank complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_gelsy Generic old style interface for GELSY.\nSupports s, d, c, z.\nSee also: mfi_gelsy , sgelsy , dgelsy , cgelsy , zgelsy . public pure subroutine sgelsy(m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, work, lwork, info) Original interface for SGELSY\nSee also: mfi_gelsy , f77_gelsy .\nSGELSY solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(inout) :: jpvt (*) real(kind=REAL32), intent(in) :: rcond integer, intent(out) :: rank real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgelsy(m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, work, lwork, info) Original interface for DGELSY\nSee also: mfi_gelsy , f77_gelsy .\nDGELSY solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(inout) :: jpvt (*) real(kind=REAL64), intent(in) :: rcond integer, intent(out) :: rank real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgelsy(m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, work, lwork, info) Original interface for CGELSY\nSee also: mfi_gelsy , f77_gelsy .\nCGELSY solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(inout) :: jpvt (*) complex(kind=REAL32), intent(in) :: rcond integer, intent(out) :: rank complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgelsy(m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, work, lwork, info) Original interface for ZGELSY\nSee also: mfi_gelsy , f77_gelsy .\nZGELSY solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(inout) :: jpvt (*) complex(kind=REAL64), intent(in) :: rcond integer, intent(out) :: rank complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_gglse Generic old style interface for GGLSE.\nSupports s, d, c, z.\nSee also: mfi_gglse , sgglse , dgglse , cgglse , zgglse . public pure subroutine sgglse(m, n, p, a, lda, b, ldb, c, d, x, work, lwork, info) Original interface for SGGLSE\nSee also: mfi_gglse , f77_gglse . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: p real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(inout) :: c (*) real(kind=REAL32), intent(inout) :: d (*) real(kind=REAL32), intent(out) :: x (*) real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgglse(m, n, p, a, lda, b, ldb, c, d, x, work, lwork, info) Original interface for DGGLSE\nSee also: mfi_gglse , f77_gglse . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: p real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(inout) :: c (*) real(kind=REAL64), intent(inout) :: d (*) real(kind=REAL64), intent(out) :: x (*) real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgglse(m, n, p, a, lda, b, ldb, c, d, x, work, lwork, info) Original interface for CGGLSE\nSee also: mfi_gglse , f77_gglse . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: p complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(inout) :: c (*) complex(kind=REAL32), intent(inout) :: d (*) complex(kind=REAL32), intent(out) :: x (*) complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgglse(m, n, p, a, lda, b, ldb, c, d, x, work, lwork, info) Original interface for ZGGLSE\nSee also: mfi_gglse , f77_gglse . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: p complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(inout) :: c (*) complex(kind=REAL64), intent(inout) :: d (*) complex(kind=REAL64), intent(out) :: x (*) complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_gglsm Generic old style interface for GGLSM.\nSupports s, d, c, z.\nSee also: mfi_gglsm , sgglsm , dgglsm , cgglsm , zgglsm . public pure subroutine sgglsm(n, m, p, a, lda, b, ldb, d, x, y, work, lwork, info) Original interface for SGGLSM\nSee also: mfi_gglsm , f77_gglsm . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n integer, intent(in) :: m integer, intent(in) :: p real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(inout) :: d (*) real(kind=REAL32), intent(out) :: x (*) real(kind=REAL32), intent(out) :: y (*) real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgglsm(n, m, p, a, lda, b, ldb, d, x, y, work, lwork, info) Original interface for DGGLSM\nSee also: mfi_gglsm , f77_gglsm . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n integer, intent(in) :: m integer, intent(in) :: p real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(inout) :: d (*) real(kind=REAL64), intent(out) :: x (*) real(kind=REAL64), intent(out) :: y (*) real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgglsm(n, m, p, a, lda, b, ldb, d, x, y, work, lwork, info) Original interface for CGGLSM\nSee also: mfi_gglsm , f77_gglsm . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n integer, intent(in) :: m integer, intent(in) :: p complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(inout) :: d (*) complex(kind=REAL32), intent(out) :: x (*) complex(kind=REAL32), intent(out) :: y (*) complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgglsm(n, m, p, a, lda, b, ldb, d, x, y, work, lwork, info) Original interface for ZGGLSM\nSee also: mfi_gglsm , f77_gglsm . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n integer, intent(in) :: m integer, intent(in) :: p complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(inout) :: d (*) complex(kind=REAL64), intent(out) :: x (*) complex(kind=REAL64), intent(out) :: y (*) complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_org2r Generic old style interface for ORG2R.\nSupports s, d.\nSee also: mfi_org2r , sorg2r , dorg2r . public pure subroutine sorg2r(m, n, k, a, lda, tau, work, info) Original interface for SORG2R\nSee also: mfi_org2r , f77_org2r .\nThis routine generates an real(REAL32)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by sgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine dorg2r(m, n, k, a, lda, tau, work, info) Original interface for DORG2R\nSee also: mfi_org2r , f77_org2r .\nThis routine generates an real(REAL64)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by dgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info public        interface f77_orgr2 Generic old style interface for ORGR2.\nSupports s, d.\nSee also: mfi_orgr2 , sorgr2 , dorgr2 . public pure subroutine sorgr2(m, n, k, a, lda, tau, work, info) Original interface for SORGR2\nSee also: mfi_orgr2 , f77_orgr2 .\nThis routine generates an real(REAL32)\nmatrix with orthonormal rows,\nwhich is defined as the last rows of a product of elementary\nreflectors of order . as returned by sgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine dorgr2(m, n, k, a, lda, tau, work, info) Original interface for DORGR2\nSee also: mfi_orgr2 , f77_orgr2 .\nThis routine generates an real(REAL64)\nmatrix with orthonormal rows,\nwhich is defined as the last rows of a product of elementary\nreflectors of order . as returned by dgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info public        interface f77_orm2r Generic old style interface for ORM2R.\nSupports s, d.\nSee also: mfi_orm2r , sorm2r , dorm2r . public pure subroutine sorm2r(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for SORM2R\n See also: mfi_orm2r , f77_orm2r .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by sgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine dorm2r(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for DORM2R\n See also: mfi_orm2r , f77_orm2r .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by dgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info public        interface f77_ormr2 Generic old style interface for ORMR2.\nSupports s, d.\nSee also: mfi_ormr2 , sormr2 , dormr2 . public pure subroutine sormr2(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for SORMR2\n See also: mfi_ormr2 , f77_ormr2 .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by sgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine dormr2(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for DORMR2\n See also: mfi_ormr2 , f77_ormr2 .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by dgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info public        interface f77_ormqr Generic old style interface for ORMQR.\nSupports s, d.\nSee also: mfi_ormqr , sormqr , dormqr . public pure subroutine sormqr(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for SORMQR\n See also: mfi_ormqr , f77_ormqr .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by sgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dormqr(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for DORMQR\n See also: mfi_ormqr , f77_ormqr .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by dgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_ormrq Generic old style interface for ORMRQ.\nSupports s, d.\nSee also: mfi_ormrq , sormrq , dormrq . public pure subroutine sormrq(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for SORMRQ\n See also: mfi_ormrq , f77_ormrq .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by sgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dormrq(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for DORMRQ\n See also: mfi_ormrq , f77_ormrq .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by dgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_orgqr Generic old style interface for ORGQR.\nSupports s, d.\nSee also: mfi_orgqr , sorgqr , dorgqr . public pure subroutine sorgqr(m, n, k, a, lda, tau, work, lwork, info) Original interface for SORGQR\nSee also: mfi_orgqr , f77_orgqr .\nThis routine generates an real(REAL32)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by sgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dorgqr(m, n, k, a, lda, tau, work, lwork, info) Original interface for DORGQR\nSee also: mfi_orgqr , f77_orgqr .\nThis routine generates an real(REAL64)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by dgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_orgrq Generic old style interface for ORGRQ.\nSupports s, d.\nSee also: mfi_orgrq , sorgrq , dorgrq . public pure subroutine sorgrq(m, n, k, a, lda, tau, work, lwork, info) Original interface for SORGRQ\nSee also: mfi_orgrq , f77_orgrq .\nThis routine generates an real(REAL32)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by sgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dorgrq(m, n, k, a, lda, tau, work, lwork, info) Original interface for DORGRQ\nSee also: mfi_orgrq , f77_orgrq .\nThis routine generates an real(REAL64)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by dgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_ung2r Generic old style interface for UNG2R.\nSupports c, z.\nSee also: mfi_ung2r , cung2r , zung2r . public pure subroutine cung2r(m, n, k, a, lda, tau, work, info) Original interface for CUNG2R\nSee also: mfi_ung2r , f77_ung2r .\nThis routine generates an complex(REAL32)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by cgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine zung2r(m, n, k, a, lda, tau, work, info) Original interface for ZUNG2R\nSee also: mfi_ung2r , f77_ung2r .\nThis routine generates an complex(REAL64)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by zgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info public        interface f77_ungr2 Generic old style interface for UNGR2.\nSupports c, z.\nSee also: mfi_ungr2 , cungr2 , zungr2 . public pure subroutine cungr2(m, n, k, a, lda, tau, work, info) Original interface for CUNGR2\nSee also: mfi_ungr2 , f77_ungr2 .\nThis routine generates an complex(REAL32)\nmatrix with orthonormal rows,\nwhich is defined as the last rows of a product of elementary\nreflectors of order . as returned by cgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine zungr2(m, n, k, a, lda, tau, work, info) Original interface for ZUNGR2\nSee also: mfi_ungr2 , f77_ungr2 .\nThis routine generates an complex(REAL64)\nmatrix with orthonormal rows,\nwhich is defined as the last rows of a product of elementary\nreflectors of order . as returned by zgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info public        interface f77_unm2r Generic old style interface for UNM2R.\nSupports c, z.\nSee also: mfi_unm2r , cunm2r , zunm2r . public pure subroutine cunm2r(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for CUNM2R\n See also: mfi_unm2r , f77_unm2r .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by cgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine zunm2r(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for ZUNM2R\n See also: mfi_unm2r , f77_unm2r .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by zgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info public        interface f77_unmr2 Generic old style interface for UNMR2.\nSupports c, z.\nSee also: mfi_unmr2 , cunmr2 , zunmr2 . public pure subroutine cunmr2(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for CUNMR2\n See also: mfi_unmr2 , f77_unmr2 .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by cgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine zunmr2(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for ZUNMR2\n See also: mfi_unmr2 , f77_unmr2 .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by zgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info public        interface f77_unmqr Generic old style interface for UNMQR.\nSupports c, z.\nSee also: mfi_unmqr , cunmqr , zunmqr . public pure subroutine cunmqr(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for CUNMQR\n See also: mfi_unmqr , f77_unmqr .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by cgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zunmqr(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for ZUNMQR\n See also: mfi_unmqr , f77_unmqr .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by zgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_unmrq Generic old style interface for UNMRQ.\nSupports c, z.\nSee also: mfi_unmrq , cunmrq , zunmrq . public pure subroutine cunmrq(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for CUNMRQ\n See also: mfi_unmrq , f77_unmrq .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by cgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zunmrq(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for ZUNMRQ\n See also: mfi_unmrq , f77_unmrq .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by zgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_ungqr Generic old style interface for UNGQR.\nSupports c, z.\nSee also: mfi_ungqr , cungqr , zungqr . public pure subroutine cungqr(m, n, k, a, lda, tau, work, lwork, info) Original interface for CUNGQR\nSee also: mfi_ungqr , f77_ungqr .\nThis routine generates an complex(REAL32)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by cgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zungqr(m, n, k, a, lda, tau, work, lwork, info) Original interface for ZUNGQR\nSee also: mfi_ungqr , f77_ungqr .\nThis routine generates an complex(REAL64)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by zgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_ungrq Generic old style interface for UNGRQ.\nSupports c, z.\nSee also: mfi_ungrq , cungrq , zungrq . public pure subroutine cungrq(m, n, k, a, lda, tau, work, lwork, info) Original interface for CUNGRQ\nSee also: mfi_ungrq , f77_ungrq .\nThis routine generates an complex(REAL32)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by cgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zungrq(m, n, k, a, lda, tau, work, lwork, info) Original interface for ZUNGRQ\nSee also: mfi_ungrq , f77_ungrq .\nThis routine generates an complex(REAL64)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by zgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_lartg Generic old style interface for LARTG.\nSupports s, d, c, z.\nSee also: mfi_lartg , slartg , dlartg , clartg , zlartg . public pure subroutine slartg(f, g, c, s, r) Original interface for SLARTG\nSee also: mfi_lartg , f77_lartg . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: f real(kind=REAL32), intent(inout) :: g real(kind=wp), intent(inout) :: c real(kind=REAL32), intent(inout) :: s real(kind=REAL32), intent(inout) :: r public pure subroutine dlartg(f, g, c, s, r) Original interface for DLARTG\nSee also: mfi_lartg , f77_lartg . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: f real(kind=REAL64), intent(inout) :: g real(kind=wp), intent(inout) :: c real(kind=REAL64), intent(inout) :: s real(kind=REAL64), intent(inout) :: r public pure subroutine clartg(f, g, c, s, r) Original interface for CLARTG\nSee also: mfi_lartg , f77_lartg . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: f complex(kind=REAL32), intent(inout) :: g real(kind=wp), intent(inout) :: c complex(kind=REAL32), intent(inout) :: s complex(kind=REAL32), intent(inout) :: r public pure subroutine zlartg(f, g, c, s, r) Original interface for ZLARTG\nSee also: mfi_lartg , f77_lartg . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: f complex(kind=REAL64), intent(inout) :: g real(kind=wp), intent(inout) :: c complex(kind=REAL64), intent(inout) :: s complex(kind=REAL64), intent(inout) :: r public        interface f77_xerbla public pure subroutine xerbla(name, info) Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: name integer, intent(in) :: info","tags":"","loc":"module/f77_lapack.html"},{"title":"mfi_blas – MFI - Modern Fortran Interfaces","text":"Modern fortran interfaces for BLAS Uses f77_blas iso_fortran_env Interfaces public        interface mfi_copy Generic modern interface for COPY.\nSupports s, d, c, z.\nSee also: scopy , dcopy , ccopy , zcopy . public pure subroutine mfi_scopy (x, y, incx, incy) Modern interface for scopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dcopy (x, y, incx, incy) Modern interface for dcopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_ccopy (x, y, incx, incy) Modern interface for ccopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zcopy (x, y, incx, incy) Modern interface for zcopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_swap Generic modern interface for SWAP.\nSupports s, d, c, z.\nSee also: sswap , dswap , cswap , zswap . public pure subroutine mfi_sswap (x, y, incx, incy) Modern interface for sswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dswap (x, y, incx, incy) Modern interface for dswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_cswap (x, y, incx, incy) Modern interface for cswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zswap (x, y, incx, incy) Modern interface for zswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_axpy Generic modern interface for AXPY.\nSupports s, d, c, z.\nSee also: saxpy , daxpy , caxpy , zaxpy . public pure subroutine mfi_saxpy (x, y, a, incx, incy) Modern interface for saxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_daxpy (x, y, a, incx, incy) Modern interface for daxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_caxpy (x, y, a, incx, incy) Modern interface for caxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) complex(kind=REAL32), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zaxpy (x, y, a, incx, incy) Modern interface for zaxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) complex(kind=REAL64), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_dot Generic modern interface for DOT.\nSupports s, d.\nSee also: sdot , ddot . public pure function mfi_sdot (x, y, incx, incy) Modern interface for sdot .\nSee also: mfi_dot , f77_dot . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value real(kind=REAL32) public pure function mfi_ddot (x, y, incx, incy) Modern interface for ddot .\nSee also: mfi_dot , f77_dot . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value real(kind=REAL64) public        interface mfi_dotc Generic modern interface for DOTC.\nSupports c, z.\nSee also: cdotc , zdotc . public pure function mfi_cdotc (x, y, incx, incy) Modern interface for cdotc .\nSee also: mfi_dotc , f77_dotc . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL32) public pure function mfi_zdotc (x, y, incx, incy) Modern interface for zdotc .\nSee also: mfi_dotc , f77_dotc . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL64) public        interface mfi_dotu Generic modern interface for DOTU.\nSupports c, z.\nSee also: cdotu , zdotu . public pure function mfi_cdotu (x, y, incx, incy) Modern interface for cdotu .\nSee also: mfi_dotu , f77_dotu . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL32) public pure function mfi_zdotu (x, y, incx, incy) Modern interface for zdotu .\nSee also: mfi_dotu , f77_dotu . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL64) public        interface mfi_asum Generic modern interface for ASUM.\nSupports s, d, sc, dz.\nSee also: sasum , dasum , scasum , dzasum . public pure function mfi_sasum (x, incx) Modern interface for sasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32) public pure function mfi_dasum (x, incx) Modern interface for dasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64) public pure function mfi_scasum (x, incx) Modern interface for scasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32) public pure function mfi_dzasum (x, incx) Modern interface for dzasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64) public        interface mfi_nrm2 Generic modern interface for NRM2.\nSupports s, d, sc, dz.\nSee also: snrm2 , dnrm2 , scnrm2 , dznrm2 . public pure function mfi_snrm2 (x, incx) Modern interface for snrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32) public pure function mfi_dnrm2 (x, incx) Modern interface for dnrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64) public pure function mfi_scnrm2 (x, incx) Modern interface for scnrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32) public pure function mfi_dznrm2 (x, incx) Modern interface for dznrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64) public        interface mfi_rot Generic modern interface for ROT.\nSupports s, d, c, z, cs, zd.\nSee also: srot , drot , crot , zrot , csrot , zdrot . public pure subroutine mfi_srot (x, y, c, s, incx, incy) Modern interface for srot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: xi = c * xi + s * yi yi = c * yi - s * xi Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: x (:) real(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: c real(kind=REAL32), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_drot (x, y, c, s, incx, incy) Modern interface for drot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: xi = c * xi + s * yi yi = c * yi - s * xi Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: x (:) real(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: c real(kind=REAL64), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_crot (x, y, c, s, incx, incy) Modern interface for crot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: xi = c * xi + s * yi yi = c * yi - conj ( s ) * xi Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: c complex(kind=REAL32), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zrot (x, y, c, s, incx, incy) Modern interface for zrot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: xi = c * xi + s * yi yi = c * yi - conj ( s ) * xi Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: c complex(kind=REAL64), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_csrot (x, y, c, s, incx, incy) Modern interface for csrot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: xi = c * xi + s * yi yi = c * yi - conj ( s ) * xi Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: c real(kind=REAL32), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zdrot (x, y, c, s, incx, incy) Modern interface for zdrot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: xi = c * xi + s * yi yi = c * yi - conj ( s ) * xi Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: c real(kind=REAL64), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_rotm Generic modern interface for ROTM.\nSupports s, d.\nSee also: srotm , drotm . public pure subroutine mfi_srotm (x, y, param, incx, incy) Modern interface for srotm .\nSee also: mfi_rotm , f77_rotm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: x (:) real(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: param (5) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_drotm (x, y, param, incx, incy) Modern interface for drotm .\nSee also: mfi_rotm , f77_rotm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: x (:) real(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: param (5) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_scal Generic modern interface for SCAL.\nSupports s, d, c, z, cs, zd.\nSee also: sscal , dscal , cscal , zscal , csscal , zdscal . public pure subroutine mfi_sscal (a, x, incx) Modern interface for sscal .\nSee also: mfi_scal , f77_scal .\nMFI_SSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a real(kind=REAL32), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_dscal (a, x, incx) Modern interface for dscal .\nSee also: mfi_scal , f77_scal .\nMFI_DSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a real(kind=REAL64), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_cscal (a, x, incx) Modern interface for cscal .\nSee also: mfi_scal , f77_scal .\nMFI_CSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_zscal (a, x, incx) Modern interface for zscal .\nSee also: mfi_scal , f77_scal .\nMFI_ZSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_csscal (a, x, incx) Modern interface for csscal .\nSee also: mfi_scal , f77_scal .\nMFI_CSSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_zdscal (a, x, incx) Modern interface for zdscal .\nSee also: mfi_scal , f77_scal .\nMFI_ZDSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(inout) :: x (:) integer, intent(in), optional :: incx public        interface mfi_gbmv Generic modern interface for GBMV.\nSupports s, d, c, z.\nSee also: sgbmv , dgbmv , cgbmv , zgbmv . public pure subroutine mfi_sgbmv (a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for sgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dgbmv (a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for dgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_cgbmv (a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for cgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zgbmv (a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for zgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_gemv Generic modern interface for GEMV.\nSupports s, d, c, z.\nSee also: sgemv , dgemv , cgemv , zgemv . public pure subroutine mfi_sgemv (a, x, y, trans, alpha, beta, incx, incy) Modern interface for sgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dgemv (a, x, y, trans, alpha, beta, incx, incy) Modern interface for dgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_cgemv (a, x, y, trans, alpha, beta, incx, incy) Modern interface for cgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zgemv (a, x, y, trans, alpha, beta, incx, incy) Modern interface for zgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_ger Generic modern interface for GER.\nSupports s, d.\nSee also: sger , dger . public pure subroutine mfi_sger (a, x, y, alpha, incx, incy) Modern interface for sger .\nSee also: mfi_ger , f77_ger . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dger (a, x, y, alpha, incx, incy) Modern interface for dger .\nSee also: mfi_ger , f77_ger . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_gerc Generic modern interface for GERC.\nSupports c, z.\nSee also: cgerc , zgerc . public pure subroutine mfi_cgerc (a, x, y, alpha, incx, incy) Modern interface for cgerc .\nSee also: mfi_gerc , f77_gerc . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zgerc (a, x, y, alpha, incx, incy) Modern interface for zgerc .\nSee also: mfi_gerc , f77_gerc . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_geru Generic modern interface for GERU.\nSupports c, z.\nSee also: cgeru , zgeru . public pure subroutine mfi_cgeru (a, x, y, alpha, incx, incy) Modern interface for cgeru .\nSee also: mfi_geru , f77_geru . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zgeru (a, x, y, alpha, incx, incy) Modern interface for zgeru .\nSee also: mfi_geru , f77_geru . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_hbmv Generic modern interface for HBMV.\nSupports c, z.\nSee also: chbmv , zhbmv . public pure subroutine mfi_chbmv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for chbmv .\nSee also: mfi_hbmv , f77_hbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zhbmv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for zhbmv .\nSee also: mfi_hbmv , f77_hbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_hemv Generic modern interface for HEMV.\nSupports c, z.\nSee also: chemv , zhemv . public pure subroutine mfi_chemv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for chemv .\nSee also: mfi_hemv , f77_hemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zhemv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for zhemv .\nSee also: mfi_hemv , f77_hemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_her Generic modern interface for HER.\nSupports c, z.\nSee also: cher , zher . public pure subroutine mfi_cher (a, x, uplo, alpha, incx) Modern interface for cher .\nSee also: mfi_her , f77_her . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_zher (a, x, uplo, alpha, incx) Modern interface for zher .\nSee also: mfi_her , f77_her . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx public        interface mfi_her2 Generic modern interface for HER2.\nSupports c, z.\nSee also: cher2 , zher2 . public pure subroutine mfi_cher2 (a, x, y, uplo, alpha, incx, incy) Modern interface for cher2 .\nSee also: mfi_her2 , f77_her2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zher2 (a, x, y, uplo, alpha, incx, incy) Modern interface for zher2 .\nSee also: mfi_her2 , f77_her2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_hpmv Generic modern interface for HPMV.\nSupports c, z.\nSee also: chpmv , zhpmv . public pure subroutine mfi_chpmv (ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for chpmv .\nSee also: mfi_hpmv , f77_hpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: ap (:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zhpmv (ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for zhpmv .\nSee also: mfi_hpmv , f77_hpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: ap (:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_hpr Generic modern interface for HPR.\nSupports c, z.\nSee also: chpr , zhpr . public pure subroutine mfi_chpr (ap, x, uplo, alpha, incx) Modern interface for chpr .\nSee also: mfi_hpr , f77_hpr . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: ap (:) complex(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_zhpr (ap, x, uplo, alpha, incx) Modern interface for zhpr .\nSee also: mfi_hpr , f77_hpr . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: ap (:) complex(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx public        interface mfi_hpr2 Generic modern interface for HPR2.\nSupports c, z.\nSee also: chpr2 , zhpr2 . public pure subroutine mfi_chpr2 (ap, x, y, uplo, alpha, incx, incy) Modern interface for chpr2 .\nSee also: mfi_hpr2 , f77_hpr2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: ap (:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zhpr2 (ap, x, y, uplo, alpha, incx, incy) Modern interface for zhpr2 .\nSee also: mfi_hpr2 , f77_hpr2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: ap (:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_sbmv Generic modern interface for SBMV.\nSupports s, d.\nSee also: ssbmv , dsbmv . public pure subroutine mfi_ssbmv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for ssbmv .\nSee also: mfi_sbmv , f77_sbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dsbmv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for dsbmv .\nSee also: mfi_sbmv , f77_sbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_spmv Generic modern interface for SPMV.\nSupports s, d.\nSee also: sspmv , dspmv . public pure subroutine mfi_sspmv (ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for sspmv .\nSee also: mfi_spmv , f77_spmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: ap (:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dspmv (ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for dspmv .\nSee also: mfi_spmv , f77_spmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: ap (:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_spr Generic modern interface for SPR.\nSupports s, d.\nSee also: sspr , dspr . public pure subroutine mfi_sspr (ap, x, uplo, alpha, incx) Modern interface for sspr .\nSee also: mfi_spr , f77_spr . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: ap (:) real(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_dspr (ap, x, uplo, alpha, incx) Modern interface for dspr .\nSee also: mfi_spr , f77_spr . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: ap (:) real(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx public        interface mfi_spr2 Generic modern interface for SPR2.\nSupports s, d.\nSee also: sspr2 , dspr2 . public pure subroutine mfi_sspr2 (ap, x, y, uplo, alpha, incx, incy) Modern interface for sspr2 .\nSee also: mfi_spr2 , f77_spr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: ap (:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dspr2 (ap, x, y, uplo, alpha, incx, incy) Modern interface for dspr2 .\nSee also: mfi_spr2 , f77_spr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: ap (:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_symv Generic modern interface for SYMV.\nSupports s, d.\nSee also: ssymv , dsymv . public pure subroutine mfi_ssymv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for ssymv .\nSee also: mfi_symv , f77_symv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dsymv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for dsymv .\nSee also: mfi_symv , f77_symv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_syr Generic modern interface for SYR.\nSupports s, d.\nSee also: ssyr , dsyr . public pure subroutine mfi_ssyr (a, x, uplo, alpha, incx) Modern interface for ssyr .\nSee also: mfi_syr , f77_syr . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_dsyr (a, x, uplo, alpha, incx) Modern interface for dsyr .\nSee also: mfi_syr , f77_syr . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx public        interface mfi_syr2 Generic modern interface for SYR2.\nSupports s, d.\nSee also: ssyr2 , dsyr2 . public pure subroutine mfi_ssyr2 (a, x, y, uplo, alpha, incx, incy) Modern interface for ssyr2 .\nSee also: mfi_syr2 , f77_syr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dsyr2 (a, x, y, uplo, alpha, incx, incy) Modern interface for dsyr2 .\nSee also: mfi_syr2 , f77_syr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_tbmv Generic modern interface for TBMV.\nSupports s, d, c, z.\nSee also: stbmv , dtbmv , ctbmv , ztbmv . public pure subroutine mfi_stbmv (a, x, uplo, trans, diag, incx) Modern interface for stbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtbmv (a, x, uplo, trans, diag, incx) Modern interface for dtbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctbmv (a, x, uplo, trans, diag, incx) Modern interface for ctbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztbmv (a, x, uplo, trans, diag, incx) Modern interface for ztbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public        interface mfi_tbsv Generic modern interface for TBSV.\nSupports s, d, c, z.\nSee also: stbsv , dtbsv , ctbsv , ztbsv . public pure subroutine mfi_stbsv (a, x, uplo, trans, diag, incx) Modern interface for stbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtbsv (a, x, uplo, trans, diag, incx) Modern interface for dtbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctbsv (a, x, uplo, trans, diag, incx) Modern interface for ctbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztbsv (a, x, uplo, trans, diag, incx) Modern interface for ztbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public        interface mfi_tpmv Generic modern interface for TPMV.\nSupports s, d, c, z.\nSee also: stpmv , dtpmv , ctpmv , ztpmv . public pure subroutine mfi_stpmv (ap, x, uplo, trans, diag, incx) Modern interface for stpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: ap (:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtpmv (ap, x, uplo, trans, diag, incx) Modern interface for dtpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: ap (:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctpmv (ap, x, uplo, trans, diag, incx) Modern interface for ctpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: ap (:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztpmv (ap, x, uplo, trans, diag, incx) Modern interface for ztpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: ap (:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public        interface mfi_tpsv Generic modern interface for TPSV.\nSupports s, d, c, z.\nSee also: stpsv , dtpsv , ctpsv , ztpsv . public pure subroutine mfi_stpsv (ap, x, uplo, trans, diag, incx) Modern interface for stpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: ap (:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtpsv (ap, x, uplo, trans, diag, incx) Modern interface for dtpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: ap (:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctpsv (ap, x, uplo, trans, diag, incx) Modern interface for ctpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: ap (:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztpsv (ap, x, uplo, trans, diag, incx) Modern interface for ztpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: ap (:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public        interface mfi_trmv Generic modern interface for TRMV.\nSupports s, d, c, z.\nSee also: strmv , dtrmv , ctrmv , ztrmv . public pure subroutine mfi_strmv (a, x, uplo, trans, diag, incx) Modern interface for strmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtrmv (a, x, uplo, trans, diag, incx) Modern interface for dtrmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctrmv (a, x, uplo, trans, diag, incx) Modern interface for ctrmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztrmv (a, x, uplo, trans, diag, incx) Modern interface for ztrmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public        interface mfi_trsv Generic modern interface for TRSV.\nSupports s, d, c, z.\nSee also: strsv , dtrsv , ctrsv , ztrsv . public pure subroutine mfi_strsv (a, x, uplo, trans, diag, incx) Modern interface for strsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtrsv (a, x, uplo, trans, diag, incx) Modern interface for dtrsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctrsv (a, x, uplo, trans, diag, incx) Modern interface for ctrsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztrsv (a, x, uplo, trans, diag, incx) Modern interface for ztrsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public        interface mfi_gemm Generic modern interface for GEMM.\nSupports s, d, c, z.\nSee also: sgemm , dgemm , cgemm , zgemm . public pure subroutine mfi_sgemm (a, b, c, transa, transb, alpha, beta) Modern interface for sgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: b (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_dgemm (a, b, c, transa, transb, alpha, beta) Modern interface for dgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: b (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta public pure subroutine mfi_cgemm (a, b, c, transa, transb, alpha, beta) Modern interface for cgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: b (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_zgemm (a, b, c, transa, transb, alpha, beta) Modern interface for zgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: b (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta public        interface mfi_hemm Generic modern interface for HEMM.\nSupports c, z.\nSee also: chemm , zhemm . public pure subroutine mfi_chemm (a, b, c, side, uplo, alpha, beta) Modern interface for chemm .\nSee also: mfi_hemm , f77_hemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: b (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_zhemm (a, b, c, side, uplo, alpha, beta) Modern interface for zhemm .\nSee also: mfi_hemm , f77_hemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: b (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta public        interface mfi_herk Generic modern interface for HERK.\nSupports c, z.\nSee also: cherk , zherk . public pure subroutine mfi_cherk (a, c, uplo, trans, alpha, beta) Modern interface for cherk .\nSee also: mfi_herk , f77_herk . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=wp), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta public pure subroutine mfi_zherk (a, c, uplo, trans, alpha, beta) Modern interface for zherk .\nSee also: mfi_herk , f77_herk . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=wp), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta public        interface mfi_her2k Generic modern interface for HER2K.\nSupports c, z.\nSee also: cher2k , zher2k . public pure subroutine mfi_cher2k (a, b, c, uplo, trans, alpha, beta) Modern interface for cher2k .\nSee also: mfi_her2k , f77_her2k . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: b (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans complex(kind=REAL32), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta public pure subroutine mfi_zher2k (a, b, c, uplo, trans, alpha, beta) Modern interface for zher2k .\nSee also: mfi_her2k , f77_her2k . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: b (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans complex(kind=REAL64), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta public        interface mfi_symm Generic modern interface for SYMM.\nSupports s, d.\nSee also: ssymm , dsymm . public pure subroutine mfi_ssymm (a, b, c, side, uplo, alpha, beta) Modern interface for ssymm .\nSee also: mfi_symm , f77_symm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: b (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_dsymm (a, b, c, side, uplo, alpha, beta) Modern interface for dsymm .\nSee also: mfi_symm , f77_symm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: b (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta public        interface mfi_syrk Generic modern interface for SYRK.\nSupports s, d.\nSee also: ssyrk , dsyrk . public pure subroutine mfi_ssyrk (a, c, uplo, trans, alpha, beta) Modern interface for ssyrk .\nSee also: mfi_syrk , f77_syrk . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_dsyrk (a, c, uplo, trans, alpha, beta) Modern interface for dsyrk .\nSee also: mfi_syrk , f77_syrk . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta public        interface mfi_syr2k Generic modern interface for SYR2K.\nSupports s, d.\nSee also: ssyr2k , dsyr2k . public pure subroutine mfi_ssyr2k (a, b, c, uplo, trans, alpha, beta) Modern interface for ssyr2k .\nSee also: mfi_syr2k , f77_syr2k . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: b (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_dsyr2k (a, b, c, uplo, trans, alpha, beta) Modern interface for dsyr2k .\nSee also: mfi_syr2k , f77_syr2k . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: b (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta public        interface mfi_trmm Generic modern interface for TRMM.\nSupports s, d, c, z.\nSee also: strmm , dtrmm , ctrmm , ztrmm . public pure subroutine mfi_strmm (a, b, side, uplo, transa, diag, alpha) Modern interface for strmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL32), intent(in), optional :: alpha public pure subroutine mfi_dtrmm (a, b, side, uplo, transa, diag, alpha) Modern interface for dtrmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL64), intent(in), optional :: alpha public pure subroutine mfi_ctrmm (a, b, side, uplo, transa, diag, alpha) Modern interface for ctrmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL32), intent(in), optional :: alpha public pure subroutine mfi_ztrmm (a, b, side, uplo, transa, diag, alpha) Modern interface for ztrmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL64), intent(in), optional :: alpha public        interface mfi_trsm Generic modern interface for TRSM.\nSupports s, d, c, z.\nSee also: strsm , dtrsm , ctrsm , ztrsm . public pure subroutine mfi_strsm (a, b, side, uplo, transa, diag, alpha) Modern interface for strsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL32), intent(in), optional :: alpha public pure subroutine mfi_dtrsm (a, b, side, uplo, transa, diag, alpha) Modern interface for dtrsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL64), intent(in), optional :: alpha public pure subroutine mfi_ctrsm (a, b, side, uplo, transa, diag, alpha) Modern interface for ctrsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL32), intent(in), optional :: alpha public pure subroutine mfi_ztrsm (a, b, side, uplo, transa, diag, alpha) Modern interface for ztrsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL64), intent(in), optional :: alpha public        interface mfi_lamch Generic modern interface for LAMCH.\nSupports s, d.\nSee also: f77_lamch , f77_lamch . public pure function mfi_slamch (cmach, kind) result(res) Modern interface for f77_lamch .\nSee also: mfi_lamch , f77_lamch . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: cmach real(kind=REAL32), intent(in) :: kind Just a kind placeholder Return Value real(kind=REAL32) public pure function mfi_dlamch (cmach, kind) result(res) Modern interface for f77_lamch .\nSee also: mfi_lamch , f77_lamch . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: cmach real(kind=REAL64), intent(in) :: kind Just a kind placeholder Return Value real(kind=REAL64) public        interface mfi_iamax Generic modern interface for IAMAX.\nSupports s, d, c, z.\nSee also: f77_iamax , f77_iamax , f77_iamax , f77_iamax . public pure function mfi_isamax (x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_idamax (x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_icamax (x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_izamax (x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public        interface mfi_iamin Generic modern interface for IAMIN.\nSupports s, d, c, z.\nSee also: f77_iamin , f77_iamin , f77_iamin , f77_iamin . public pure function mfi_isamin (x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_idamin (x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_icamin (x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_izamin (x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer Functions public pure function mfi_cdotc (x, y, incx, incy) Modern interface for cdotc .\nSee also: mfi_dotc , f77_dotc . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL32) public pure function mfi_cdotu (x, y, incx, incy) Modern interface for cdotu .\nSee also: mfi_dotu , f77_dotu . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL32) public pure function mfi_zdotc (x, y, incx, incy) Modern interface for zdotc .\nSee also: mfi_dotc , f77_dotc . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL64) public pure function mfi_zdotu (x, y, incx, incy) Modern interface for zdotu .\nSee also: mfi_dotu , f77_dotu . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL64) public pure function mfi_isamax (x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_idamax (x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_icamax (x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_izamax (x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_isamin (x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_idamin (x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_icamin (x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_izamin (x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_sdot (x, y, incx, incy) Modern interface for sdot .\nSee also: mfi_dot , f77_dot . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value real(kind=REAL32) public pure function mfi_sasum (x, incx) Modern interface for sasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32) public pure function mfi_scasum (x, incx) Modern interface for scasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32) public pure function mfi_snrm2 (x, incx) Modern interface for snrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32) public pure function mfi_scnrm2 (x, incx) Modern interface for scnrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32) public pure function mfi_slamch (cmach, kind) result(res) Modern interface for f77_lamch .\nSee also: mfi_lamch , f77_lamch . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: cmach real(kind=REAL32), intent(in) :: kind Just a kind placeholder Return Value real(kind=REAL32) public pure function mfi_ddot (x, y, incx, incy) Modern interface for ddot .\nSee also: mfi_dot , f77_dot . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value real(kind=REAL64) public pure function mfi_dasum (x, incx) Modern interface for dasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64) public pure function mfi_dzasum (x, incx) Modern interface for dzasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64) public pure function mfi_dnrm2 (x, incx) Modern interface for dnrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64) public pure function mfi_dznrm2 (x, incx) Modern interface for dznrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64) public pure function mfi_dlamch (cmach, kind) result(res) Modern interface for f77_lamch .\nSee also: mfi_lamch , f77_lamch . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: cmach real(kind=REAL64), intent(in) :: kind Just a kind placeholder Return Value real(kind=REAL64) Subroutines public pure subroutine mfi_scopy (x, y, incx, incy) Modern interface for scopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dcopy (x, y, incx, incy) Modern interface for dcopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_ccopy (x, y, incx, incy) Modern interface for ccopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zcopy (x, y, incx, incy) Modern interface for zcopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_sswap (x, y, incx, incy) Modern interface for sswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dswap (x, y, incx, incy) Modern interface for dswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_cswap (x, y, incx, incy) Modern interface for cswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zswap (x, y, incx, incy) Modern interface for zswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_saxpy (x, y, a, incx, incy) Modern interface for saxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_daxpy (x, y, a, incx, incy) Modern interface for daxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_caxpy (x, y, a, incx, incy) Modern interface for caxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) complex(kind=REAL32), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zaxpy (x, y, a, incx, incy) Modern interface for zaxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) complex(kind=REAL64), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_srot (x, y, c, s, incx, incy) Modern interface for srot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: Read more… Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: x (:) real(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: c real(kind=REAL32), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_drot (x, y, c, s, incx, incy) Modern interface for drot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: Read more… Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: x (:) real(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: c real(kind=REAL64), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_crot (x, y, c, s, incx, incy) Modern interface for crot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: Read more… Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: c complex(kind=REAL32), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zrot (x, y, c, s, incx, incy) Modern interface for zrot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: Read more… Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: c complex(kind=REAL64), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_csrot (x, y, c, s, incx, incy) Modern interface for csrot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: Read more… Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: c real(kind=REAL32), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zdrot (x, y, c, s, incx, incy) Modern interface for zdrot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: Read more… Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: c real(kind=REAL64), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_srotm (x, y, param, incx, incy) Modern interface for srotm .\nSee also: mfi_rotm , f77_rotm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: x (:) real(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: param (5) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_drotm (x, y, param, incx, incy) Modern interface for drotm .\nSee also: mfi_rotm , f77_rotm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: x (:) real(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: param (5) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_sscal (a, x, incx) Modern interface for sscal .\nSee also: mfi_scal , f77_scal .\nMFI_SSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a real(kind=REAL32), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_dscal (a, x, incx) Modern interface for dscal .\nSee also: mfi_scal , f77_scal .\nMFI_DSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a real(kind=REAL64), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_cscal (a, x, incx) Modern interface for cscal .\nSee also: mfi_scal , f77_scal .\nMFI_CSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_zscal (a, x, incx) Modern interface for zscal .\nSee also: mfi_scal , f77_scal .\nMFI_ZSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_csscal (a, x, incx) Modern interface for csscal .\nSee also: mfi_scal , f77_scal .\nMFI_CSSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_zdscal (a, x, incx) Modern interface for zdscal .\nSee also: mfi_scal , f77_scal .\nMFI_ZDSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_sgbmv (a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for sgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dgbmv (a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for dgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_cgbmv (a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for cgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zgbmv (a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for zgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_sgemv (a, x, y, trans, alpha, beta, incx, incy) Modern interface for sgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dgemv (a, x, y, trans, alpha, beta, incx, incy) Modern interface for dgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_cgemv (a, x, y, trans, alpha, beta, incx, incy) Modern interface for cgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zgemv (a, x, y, trans, alpha, beta, incx, incy) Modern interface for zgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_sger (a, x, y, alpha, incx, incy) Modern interface for sger .\nSee also: mfi_ger , f77_ger . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dger (a, x, y, alpha, incx, incy) Modern interface for dger .\nSee also: mfi_ger , f77_ger . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_cgerc (a, x, y, alpha, incx, incy) Modern interface for cgerc .\nSee also: mfi_gerc , f77_gerc . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zgerc (a, x, y, alpha, incx, incy) Modern interface for zgerc .\nSee also: mfi_gerc , f77_gerc . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_cgeru (a, x, y, alpha, incx, incy) Modern interface for cgeru .\nSee also: mfi_geru , f77_geru . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zgeru (a, x, y, alpha, incx, incy) Modern interface for zgeru .\nSee also: mfi_geru , f77_geru . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_chbmv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for chbmv .\nSee also: mfi_hbmv , f77_hbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zhbmv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for zhbmv .\nSee also: mfi_hbmv , f77_hbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_chemv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for chemv .\nSee also: mfi_hemv , f77_hemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zhemv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for zhemv .\nSee also: mfi_hemv , f77_hemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_cher (a, x, uplo, alpha, incx) Modern interface for cher .\nSee also: mfi_her , f77_her . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_zher (a, x, uplo, alpha, incx) Modern interface for zher .\nSee also: mfi_her , f77_her . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_cher2 (a, x, y, uplo, alpha, incx, incy) Modern interface for cher2 .\nSee also: mfi_her2 , f77_her2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zher2 (a, x, y, uplo, alpha, incx, incy) Modern interface for zher2 .\nSee also: mfi_her2 , f77_her2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_chpmv (ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for chpmv .\nSee also: mfi_hpmv , f77_hpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: ap (:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zhpmv (ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for zhpmv .\nSee also: mfi_hpmv , f77_hpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: ap (:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_chpr (ap, x, uplo, alpha, incx) Modern interface for chpr .\nSee also: mfi_hpr , f77_hpr . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: ap (:) complex(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_zhpr (ap, x, uplo, alpha, incx) Modern interface for zhpr .\nSee also: mfi_hpr , f77_hpr . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: ap (:) complex(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_chpr2 (ap, x, y, uplo, alpha, incx, incy) Modern interface for chpr2 .\nSee also: mfi_hpr2 , f77_hpr2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: ap (:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zhpr2 (ap, x, y, uplo, alpha, incx, incy) Modern interface for zhpr2 .\nSee also: mfi_hpr2 , f77_hpr2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: ap (:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_ssbmv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for ssbmv .\nSee also: mfi_sbmv , f77_sbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dsbmv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for dsbmv .\nSee also: mfi_sbmv , f77_sbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_sspmv (ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for sspmv .\nSee also: mfi_spmv , f77_spmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: ap (:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dspmv (ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for dspmv .\nSee also: mfi_spmv , f77_spmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: ap (:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_sspr (ap, x, uplo, alpha, incx) Modern interface for sspr .\nSee also: mfi_spr , f77_spr . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: ap (:) real(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_dspr (ap, x, uplo, alpha, incx) Modern interface for dspr .\nSee also: mfi_spr , f77_spr . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: ap (:) real(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_sspr2 (ap, x, y, uplo, alpha, incx, incy) Modern interface for sspr2 .\nSee also: mfi_spr2 , f77_spr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: ap (:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dspr2 (ap, x, y, uplo, alpha, incx, incy) Modern interface for dspr2 .\nSee also: mfi_spr2 , f77_spr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: ap (:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_ssymv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for ssymv .\nSee also: mfi_symv , f77_symv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dsymv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for dsymv .\nSee also: mfi_symv , f77_symv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_ssyr (a, x, uplo, alpha, incx) Modern interface for ssyr .\nSee also: mfi_syr , f77_syr . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_dsyr (a, x, uplo, alpha, incx) Modern interface for dsyr .\nSee also: mfi_syr , f77_syr . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_ssyr2 (a, x, y, uplo, alpha, incx, incy) Modern interface for ssyr2 .\nSee also: mfi_syr2 , f77_syr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dsyr2 (a, x, y, uplo, alpha, incx, incy) Modern interface for dsyr2 .\nSee also: mfi_syr2 , f77_syr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_stbmv (a, x, uplo, trans, diag, incx) Modern interface for stbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtbmv (a, x, uplo, trans, diag, incx) Modern interface for dtbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctbmv (a, x, uplo, trans, diag, incx) Modern interface for ctbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztbmv (a, x, uplo, trans, diag, incx) Modern interface for ztbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_stbsv (a, x, uplo, trans, diag, incx) Modern interface for stbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtbsv (a, x, uplo, trans, diag, incx) Modern interface for dtbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctbsv (a, x, uplo, trans, diag, incx) Modern interface for ctbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztbsv (a, x, uplo, trans, diag, incx) Modern interface for ztbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_stpmv (ap, x, uplo, trans, diag, incx) Modern interface for stpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: ap (:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtpmv (ap, x, uplo, trans, diag, incx) Modern interface for dtpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: ap (:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctpmv (ap, x, uplo, trans, diag, incx) Modern interface for ctpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: ap (:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztpmv (ap, x, uplo, trans, diag, incx) Modern interface for ztpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: ap (:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_stpsv (ap, x, uplo, trans, diag, incx) Modern interface for stpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: ap (:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtpsv (ap, x, uplo, trans, diag, incx) Modern interface for dtpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: ap (:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctpsv (ap, x, uplo, trans, diag, incx) Modern interface for ctpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: ap (:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztpsv (ap, x, uplo, trans, diag, incx) Modern interface for ztpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: ap (:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_strmv (a, x, uplo, trans, diag, incx) Modern interface for strmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtrmv (a, x, uplo, trans, diag, incx) Modern interface for dtrmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctrmv (a, x, uplo, trans, diag, incx) Modern interface for ctrmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztrmv (a, x, uplo, trans, diag, incx) Modern interface for ztrmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_strsv (a, x, uplo, trans, diag, incx) Modern interface for strsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtrsv (a, x, uplo, trans, diag, incx) Modern interface for dtrsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctrsv (a, x, uplo, trans, diag, incx) Modern interface for ctrsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztrsv (a, x, uplo, trans, diag, incx) Modern interface for ztrsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_sgemm (a, b, c, transa, transb, alpha, beta) Modern interface for sgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: b (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_dgemm (a, b, c, transa, transb, alpha, beta) Modern interface for dgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: b (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta public pure subroutine mfi_cgemm (a, b, c, transa, transb, alpha, beta) Modern interface for cgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: b (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_zgemm (a, b, c, transa, transb, alpha, beta) Modern interface for zgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: b (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta public pure subroutine mfi_chemm (a, b, c, side, uplo, alpha, beta) Modern interface for chemm .\nSee also: mfi_hemm , f77_hemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: b (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_zhemm (a, b, c, side, uplo, alpha, beta) Modern interface for zhemm .\nSee also: mfi_hemm , f77_hemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: b (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta public pure subroutine mfi_cherk (a, c, uplo, trans, alpha, beta) Modern interface for cherk .\nSee also: mfi_herk , f77_herk . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=wp), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta public pure subroutine mfi_zherk (a, c, uplo, trans, alpha, beta) Modern interface for zherk .\nSee also: mfi_herk , f77_herk . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=wp), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta public pure subroutine mfi_cher2k (a, b, c, uplo, trans, alpha, beta) Modern interface for cher2k .\nSee also: mfi_her2k , f77_her2k . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: b (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans complex(kind=REAL32), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta public pure subroutine mfi_zher2k (a, b, c, uplo, trans, alpha, beta) Modern interface for zher2k .\nSee also: mfi_her2k , f77_her2k . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: b (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans complex(kind=REAL64), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta public pure subroutine mfi_ssymm (a, b, c, side, uplo, alpha, beta) Modern interface for ssymm .\nSee also: mfi_symm , f77_symm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: b (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_dsymm (a, b, c, side, uplo, alpha, beta) Modern interface for dsymm .\nSee also: mfi_symm , f77_symm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: b (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta public pure subroutine mfi_ssyrk (a, c, uplo, trans, alpha, beta) Modern interface for ssyrk .\nSee also: mfi_syrk , f77_syrk . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_dsyrk (a, c, uplo, trans, alpha, beta) Modern interface for dsyrk .\nSee also: mfi_syrk , f77_syrk . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta public pure subroutine mfi_ssyr2k (a, b, c, uplo, trans, alpha, beta) Modern interface for ssyr2k .\nSee also: mfi_syr2k , f77_syr2k . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: b (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_dsyr2k (a, b, c, uplo, trans, alpha, beta) Modern interface for dsyr2k .\nSee also: mfi_syr2k , f77_syr2k . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: b (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta public pure subroutine mfi_strmm (a, b, side, uplo, transa, diag, alpha) Modern interface for strmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL32), intent(in), optional :: alpha public pure subroutine mfi_dtrmm (a, b, side, uplo, transa, diag, alpha) Modern interface for dtrmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL64), intent(in), optional :: alpha public pure subroutine mfi_ctrmm (a, b, side, uplo, transa, diag, alpha) Modern interface for ctrmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL32), intent(in), optional :: alpha public pure subroutine mfi_ztrmm (a, b, side, uplo, transa, diag, alpha) Modern interface for ztrmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL64), intent(in), optional :: alpha public pure subroutine mfi_strsm (a, b, side, uplo, transa, diag, alpha) Modern interface for strsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL32), intent(in), optional :: alpha public pure subroutine mfi_dtrsm (a, b, side, uplo, transa, diag, alpha) Modern interface for dtrsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL64), intent(in), optional :: alpha public pure subroutine mfi_ctrsm (a, b, side, uplo, transa, diag, alpha) Modern interface for ctrsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL32), intent(in), optional :: alpha public pure subroutine mfi_ztrsm (a, b, side, uplo, transa, diag, alpha) Modern interface for ztrsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL64), intent(in), optional :: alpha","tags":"","loc":"module/mfi_blas.html"},{"title":"f77_blas – MFI - Modern Fortran Interfaces","text":"Improved and original F77 interfaces for BLAS Uses iso_fortran_env Interfaces public        interface f77_copy Generic old style interface for COPY.\nSupports s, d, c, z.\nSee also: mfi_copy , scopy , dcopy , ccopy , zcopy . public pure subroutine scopy(n, x, incx, y, incy) Original interface for SCOPY\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine dcopy(n, x, incx, y, incy) Original interface for DCOPY\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine ccopy(n, x, incx, y, incy) Original interface for CCOPY\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zcopy(n, x, incx, y, incy) Original interface for ZCOPY\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public        interface f77_swap Generic old style interface for SWAP.\nSupports s, d, c, z.\nSee also: mfi_swap , sswap , dswap , cswap , zswap . public pure subroutine sswap(n, x, incx, y, incy) Original interface for SSWAP\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine dswap(n, x, incx, y, incy) Original interface for DSWAP\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine cswap(n, x, incx, y, incy) Original interface for CSWAP\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zswap(n, x, incx, y, incy) Original interface for ZSWAP\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public        interface f77_axpy Generic old style interface for AXPY.\nSupports s, d, c, z.\nSee also: mfi_axpy , saxpy , daxpy , caxpy , zaxpy . public pure subroutine saxpy(n, a, x, incx, y, incy) Original interface for SAXPY\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: a real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine daxpy(n, a, x, incx, y, incy) Original interface for DAXPY\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: a real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine caxpy(n, a, x, incx, y, incy) Original interface for CAXPY\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zaxpy(n, a, x, incx, y, incy) Original interface for ZAXPY\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public        interface f77_dot Generic old style interface for DOT.\nSupports s, d.\nSee also: mfi_dot , sdot , ddot . public pure function sdot(n, x, incx, y, incy) Original interface for SDOT\nSee also: mfi_dot , f77_dot . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy Return Value real(kind=REAL32) public pure function ddot(n, x, incx, y, incy) Original interface for DDOT\nSee also: mfi_dot , f77_dot . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy Return Value real(kind=REAL64) public        interface f77_dotc Generic old style interface for DOTC.\nSupports c, z.\nSee also: mfi_dotc , cdotc , zdotc . public pure function cdotc(n, x, incx, y, incy) Original interface for CDOTC\nSee also: mfi_dotc , f77_dotc . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy Return Value complex(kind=REAL32) public pure function zdotc(n, x, incx, y, incy) Original interface for ZDOTC\nSee also: mfi_dotc , f77_dotc . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy Return Value complex(kind=REAL64) public        interface f77_dotu Generic old style interface for DOTU.\nSupports c, z.\nSee also: mfi_dotu , cdotu , zdotu . public pure function cdotu(n, x, incx, y, incy) Original interface for CDOTU\nSee also: mfi_dotu , f77_dotu . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy Return Value complex(kind=REAL32) public pure function zdotu(n, x, incx, y, incy) Original interface for ZDOTU\nSee also: mfi_dotu , f77_dotu . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy Return Value complex(kind=REAL64) public        interface f77_asum Generic old style interface for ASUM.\nSupports s, d, sc, dz.\nSee also: mfi_asum , sasum , dasum , scasum , dzasum . public pure function sasum(n, x, incx) Original interface for SASUM\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL32) public pure function scasum(n, x, incx) Original interface for SCASUM\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL32) public pure function dasum(n, x, incx) Original interface for DASUM\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL64) public pure function dzasum(n, x, incx) Original interface for DZASUM\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL64) public        interface f77_nrm2 Generic old style interface for NRM2.\nSupports s, d, sc, dz.\nSee also: mfi_nrm2 , snrm2 , dnrm2 , scnrm2 , dznrm2 . public pure function snrm2(n, x, incx) Original interface for SNRM2\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL32) public pure function scnrm2(n, x, incx) Original interface for SCNRM2\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL32) public pure function dnrm2(n, x, incx) Original interface for DNRM2\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL64) public pure function dznrm2(n, x, incx) Original interface for DZNRM2\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL64) public        interface f77_rot Generic old style interface for ROT.\nSupports s, d, c, z, cs, zd.\nSee also: mfi_rot , srot , drot , crot , zrot , csrot , zdrot . public pure subroutine srot(n, x, incx, y, incy, c, s) Original interface for SROT\nSee also: mfi_rot , f77_rot .\nSROT applies a plane rotation. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL32), intent(in) :: c real(kind=REAL32), intent(in) :: s public pure subroutine drot(n, x, incx, y, incy, c, s) Original interface for DROT\nSee also: mfi_rot , f77_rot .\nDROT applies a plane rotation. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL64), intent(in) :: c real(kind=REAL64), intent(in) :: s public pure subroutine crot(n, x, incx, y, incy, c, s) Original interface for CROT\nSee also: mfi_rot , f77_rot .\nCROT applies a plane rotation. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL32), intent(in) :: c complex(kind=REAL32), intent(in) :: s public pure subroutine zrot(n, x, incx, y, incy, c, s) Original interface for ZROT\nSee also: mfi_rot , f77_rot .\nZROT applies a plane rotation. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL64), intent(in) :: c complex(kind=REAL64), intent(in) :: s public pure subroutine csrot(n, x, incx, y, incy, c, s) Original interface for CSROT\nSee also: mfi_rot , f77_rot .\nCSROT applies a plane rotation. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL32), intent(in) :: c real(kind=REAL32), intent(in) :: s public pure subroutine zdrot(n, x, incx, y, incy, c, s) Original interface for ZDROT\nSee also: mfi_rot , f77_rot .\nZDROT applies a plane rotation. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL64), intent(in) :: c real(kind=REAL64), intent(in) :: s public        interface f77_rotg Generic old style interface for ROTG.\nSupports s, d, c, z.\nSee also: mfi_rotg , srotg , drotg , crotg , zrotg . public pure subroutine srotg(a, b, c, s) Original interface for SROTG\n See also: mfi_rotg , f77_rotg .\nsrotg generates a Givens rotation with real cosine and complex sine: [ c s ] [ a ] = [ r ] [ - s c ] [ b ] [ 0 ] satisfying c**2 + s**2 = 1 . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a real(kind=REAL32), intent(inout) :: b real(kind=REAL32), intent(out) :: c real(kind=REAL32), intent(out) :: s public pure subroutine drotg(a, b, c, s) Original interface for DROTG\n See also: mfi_rotg , f77_rotg .\ndrotg generates a Givens rotation with real cosine and complex sine: [ c s ] [ a ] = [ r ] [ - s c ] [ b ] [ 0 ] satisfying c**2 + s**2 = 1 . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a real(kind=REAL64), intent(inout) :: b real(kind=REAL64), intent(out) :: c real(kind=REAL64), intent(out) :: s public pure subroutine crotg(a, b, c, s) Original interface for CROTG\n See also: mfi_rotg , f77_rotg .\ncrotg generates a Givens rotation with real cosine and complex sine: [ c s ] [ a ] = [ r ] [ - conjg ( s ) c ] [ b ] [ 0 ] where c is real, s is complex, and c**2 + conjg(s)*s = 1 . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a complex(kind=REAL32), intent(inout) :: b real(kind=REAL32), intent(out) :: c complex(kind=REAL32), intent(out) :: s public pure subroutine zrotg(a, b, c, s) Original interface for ZROTG\n See also: mfi_rotg , f77_rotg .\nzrotg generates a Givens rotation with real cosine and complex sine: [ c s ] [ a ] = [ r ] [ - conjg ( s ) c ] [ b ] [ 0 ] where c is real, s is complex, and c**2 + conjg(s)*s = 1 . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a complex(kind=REAL64), intent(inout) :: b real(kind=REAL64), intent(out) :: c complex(kind=REAL64), intent(out) :: s public        interface f77_rotm Generic old style interface for ROTM.\nSupports s, d.\nSee also: mfi_rotm , srotm , drotm . public pure subroutine srotm(n, x, incx, y, incy, param) Original interface for SROTM\nSee also: mfi_rotm , f77_rotm . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy real(kind=REAL32), intent(in) :: param (5) public pure subroutine drotm(n, x, incx, y, incy, param) Original interface for DROTM\nSee also: mfi_rotm , f77_rotm . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy real(kind=REAL64), intent(in) :: param (5) public        interface f77_rotmg Generic old style interface for ROTMG.\nSupports s, d.\nSee also: mfi_rotmg , srotmg , drotmg . public pure subroutine srotmg(d1, d2, x1, y1, param) Original interface for SROTMG\nSee also: mfi_rotmg , f77_rotmg . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: d1 real(kind=REAL32), intent(inout) :: d2 real(kind=REAL32), intent(inout) :: x1 real(kind=REAL32), intent(in) :: y1 real(kind=REAL32), intent(out) :: param (5) public pure subroutine drotmg(d1, d2, x1, y1, param) Original interface for DROTMG\nSee also: mfi_rotmg , f77_rotmg . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: d1 real(kind=REAL64), intent(inout) :: d2 real(kind=REAL64), intent(inout) :: x1 real(kind=REAL64), intent(in) :: y1 real(kind=REAL64), intent(out) :: param (5) public        interface f77_scal Generic old style interface for SCAL.\nSupports s, d, c, z, cs, zd.\nSee also: mfi_scal , sscal , dscal , cscal , zscal , csscal , zdscal . public pure subroutine sscal(n, a, x, incx) Original interface for SSCAL\nSee also: mfi_scal , f77_scal .\nSSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: a real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine dscal(n, a, x, incx) Original interface for DSCAL\nSee also: mfi_scal , f77_scal .\nDSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: a real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine cscal(n, a, x, incx) Original interface for CSCAL\nSee also: mfi_scal , f77_scal .\nCSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine zscal(n, a, x, incx) Original interface for ZSCAL\nSee also: mfi_scal , f77_scal .\nZSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine csscal(n, a, x, incx) Original interface for CSSCAL\nSee also: mfi_scal , f77_scal .\nCSSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine zdscal(n, a, x, incx) Original interface for ZDSCAL\nSee also: mfi_scal , f77_scal .\nZDSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public        interface f77_gbmv Generic old style interface for GBMV.\nSupports s, d, c, z.\nSee also: mfi_gbmv , sgbmv , dgbmv , cgbmv , zgbmv . public pure subroutine sgbmv(trans, m, n, kl, ku, alpha, a, lda, x, incx, beta, y, incy) Original interface for SGBMV\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: kl integer, intent(in) :: ku real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine dgbmv(trans, m, n, kl, ku, alpha, a, lda, x, incx, beta, y, incy) Original interface for DGBMV\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: kl integer, intent(in) :: ku real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine cgbmv(trans, m, n, kl, ku, alpha, a, lda, x, incx, beta, y, incy) Original interface for CGBMV\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: kl integer, intent(in) :: ku complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zgbmv(trans, m, n, kl, ku, alpha, a, lda, x, incx, beta, y, incy) Original interface for ZGBMV\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: kl integer, intent(in) :: ku complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public        interface f77_gemv Generic old style interface for GEMV.\nSupports s, d, c, z.\nSee also: mfi_gemv , sgemv , dgemv , cgemv , zgemv . public pure subroutine sgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for SGEMV\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine dgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for DGEMV\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine cgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for CGEMV\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for ZGEMV\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public        interface f77_ger Generic old style interface for GER.\nSupports s, d.\nSee also: mfi_ger , sger , dger . public pure subroutine sger(m, n, alpha, x, incx, y, incy, a, lda) Original interface for SGER\nSee also: mfi_ger , f77_ger . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda public pure subroutine dger(m, n, alpha, x, incx, y, incy, a, lda) Original interface for DGER\nSee also: mfi_ger , f77_ger . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda public        interface f77_gerc Generic old style interface for GERC.\nSupports c, z.\nSee also: mfi_gerc , cgerc , zgerc . public pure subroutine cgerc(m, n, alpha, x, incx, y, incy, a, lda) Original interface for CGERC\nSee also: mfi_gerc , f77_gerc . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda public pure subroutine zgerc(m, n, alpha, x, incx, y, incy, a, lda) Original interface for ZGERC\nSee also: mfi_gerc , f77_gerc . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda public        interface f77_geru Generic old style interface for GERU.\nSupports c, z.\nSee also: mfi_geru , cgeru , zgeru . public pure subroutine cgeru(m, n, alpha, x, incx, y, incy, a, lda) Original interface for CGERU\nSee also: mfi_geru , f77_geru . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda public pure subroutine zgeru(m, n, alpha, x, incx, y, incy, a, lda) Original interface for ZGERU\nSee also: mfi_geru , f77_geru . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda public        interface f77_hbmv Generic old style interface for HBMV.\nSupports c, z.\nSee also: mfi_hbmv , chbmv , zhbmv . public pure subroutine chbmv(uplo, n, k, alpha, a, lda, x, incx, beta, y, incy) Original interface for CHBMV\nSee also: mfi_hbmv , f77_hbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zhbmv(uplo, n, k, alpha, a, lda, x, incx, beta, y, incy) Original interface for ZHBMV\nSee also: mfi_hbmv , f77_hbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public        interface f77_hemv Generic old style interface for HEMV.\nSupports c, z.\nSee also: mfi_hemv , chemv , zhemv . public pure subroutine chemv(uplo, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for CHEMV\nSee also: mfi_hemv , f77_hemv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zhemv(uplo, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for ZHEMV\nSee also: mfi_hemv , f77_hemv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public        interface f77_her Generic old style interface for HER.\nSupports c, z.\nSee also: mfi_her , cher , zher . public pure subroutine cher(uplo, n, alpha, x, incx, a, lda) Original interface for CHER\nSee also: mfi_her , f77_her . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=wp), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda public pure subroutine zher(uplo, n, alpha, x, incx, a, lda) Original interface for ZHER\nSee also: mfi_her , f77_her . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=wp), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda public        interface f77_her2 Generic old style interface for HER2.\nSupports c, z.\nSee also: mfi_her2 , cher2 , zher2 . public pure subroutine cher2(uplo, n, alpha, x, incx, y, incy, a, lda) Original interface for CHER2\nSee also: mfi_her2 , f77_her2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda public pure subroutine zher2(uplo, n, alpha, x, incx, y, incy, a, lda) Original interface for ZHER2\nSee also: mfi_her2 , f77_her2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda public        interface f77_hpmv Generic old style interface for HPMV.\nSupports c, z.\nSee also: mfi_hpmv , chpmv , zhpmv . public pure subroutine chpmv(uplo, n, alpha, ap, x, incx, beta, y, incy) Original interface for CHPMV\nSee also: mfi_hpmv , f77_hpmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: ap (*) complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zhpmv(uplo, n, alpha, ap, x, incx, beta, y, incy) Original interface for ZHPMV\nSee also: mfi_hpmv , f77_hpmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: ap (*) complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public        interface f77_hpr Generic old style interface for HPR.\nSupports c, z.\nSee also: mfi_hpr , chpr , zhpr . public pure subroutine chpr(uplo, n, alpha, x, incx, ap) Original interface for CHPR\nSee also: mfi_hpr , f77_hpr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=wp), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(inout) :: ap (*) public pure subroutine zhpr(uplo, n, alpha, x, incx, ap) Original interface for ZHPR\nSee also: mfi_hpr , f77_hpr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=wp), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(inout) :: ap (*) public        interface f77_hpr2 Generic old style interface for HPR2.\nSupports c, z.\nSee also: mfi_hpr2 , chpr2 , zhpr2 . public pure subroutine chpr2(uplo, n, alpha, x, incx, y, incy, ap) Original interface for CHPR2\nSee also: mfi_hpr2 , f77_hpr2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL32), intent(inout) :: ap (*) public pure subroutine zhpr2(uplo, n, alpha, x, incx, y, incy, ap) Original interface for ZHPR2\nSee also: mfi_hpr2 , f77_hpr2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL64), intent(inout) :: ap (*) public        interface f77_sbmv Generic old style interface for SBMV.\nSupports s, d.\nSee also: mfi_sbmv , ssbmv , dsbmv . public pure subroutine ssbmv(uplo, n, k, alpha, a, lda, x, incx, beta, y, incy) Original interface for SSBMV\nSee also: mfi_sbmv , f77_sbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine dsbmv(uplo, n, k, alpha, a, lda, x, incx, beta, y, incy) Original interface for DSBMV\nSee also: mfi_sbmv , f77_sbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public        interface f77_spmv Generic old style interface for SPMV.\nSupports s, d.\nSee also: mfi_spmv , sspmv , dspmv . public pure subroutine sspmv(uplo, n, alpha, ap, x, incx, beta, y, incy) Original interface for SSPMV\nSee also: mfi_spmv , f77_spmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: ap (*) real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine dspmv(uplo, n, alpha, ap, x, incx, beta, y, incy) Original interface for DSPMV\nSee also: mfi_spmv , f77_spmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: ap (*) real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public        interface f77_spr Generic old style interface for SPR.\nSupports s, d.\nSee also: mfi_spr , sspr , dspr . public pure subroutine sspr(uplo, n, alpha, x, incx, ap) Original interface for SSPR\nSee also: mfi_spr , f77_spr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: ap (*) public pure subroutine dspr(uplo, n, alpha, x, incx, ap) Original interface for DSPR\nSee also: mfi_spr , f77_spr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: ap (*) public        interface f77_spr2 Generic old style interface for SPR2.\nSupports s, d.\nSee also: mfi_spr2 , sspr2 , dspr2 . public pure subroutine sspr2(uplo, n, alpha, x, incx, y, incy, ap) Original interface for SSPR2\nSee also: mfi_spr2 , f77_spr2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL32), intent(inout) :: ap (*) public pure subroutine dspr2(uplo, n, alpha, x, incx, y, incy, ap) Original interface for DSPR2\nSee also: mfi_spr2 , f77_spr2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL64), intent(inout) :: ap (*) public        interface f77_symv Generic old style interface for SYMV.\nSupports s, d.\nSee also: mfi_symv , ssymv , dsymv . public pure subroutine ssymv(uplo, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for SSYMV\nSee also: mfi_symv , f77_symv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine dsymv(uplo, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for DSYMV\nSee also: mfi_symv , f77_symv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public        interface f77_syr Generic old style interface for SYR.\nSupports s, d.\nSee also: mfi_syr , ssyr , dsyr . public pure subroutine ssyr(uplo, n, alpha, x, incx, a, lda) Original interface for SSYR\nSee also: mfi_syr , f77_syr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda public pure subroutine dsyr(uplo, n, alpha, x, incx, a, lda) Original interface for DSYR\nSee also: mfi_syr , f77_syr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda public        interface f77_syr2 Generic old style interface for SYR2.\nSupports s, d.\nSee also: mfi_syr2 , ssyr2 , dsyr2 . public pure subroutine ssyr2(uplo, n, alpha, x, incx, y, incy, a, lda) Original interface for SSYR2\nSee also: mfi_syr2 , f77_syr2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda public pure subroutine dsyr2(uplo, n, alpha, x, incx, y, incy, a, lda) Original interface for DSYR2\nSee also: mfi_syr2 , f77_syr2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda public        interface f77_tbmv Generic old style interface for TBMV.\nSupports s, d, c, z.\nSee also: mfi_tbmv , stbmv , dtbmv , ctbmv , ztbmv . public pure subroutine stbmv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for STBMV\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine dtbmv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for DTBMV\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ctbmv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for CTBMV\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ztbmv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for ZTBMV\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public        interface f77_tbsv Generic old style interface for TBSV.\nSupports s, d, c, z.\nSee also: mfi_tbsv , stbsv , dtbsv , ctbsv , ztbsv . public pure subroutine stbsv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for STBSV\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine dtbsv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for DTBSV\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ctbsv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for CTBSV\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ztbsv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for ZTBSV\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public        interface f77_tpmv Generic old style interface for TPMV.\nSupports s, d, c, z.\nSee also: mfi_tpmv , stpmv , dtpmv , ctpmv , ztpmv . public pure subroutine stpmv(uplo, trans, diag, n, ap, x, incx) Original interface for STPMV\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL32), intent(in) :: ap (*) real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine dtpmv(uplo, trans, diag, n, ap, x, incx) Original interface for DTPMV\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL64), intent(in) :: ap (*) real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ctpmv(uplo, trans, diag, n, ap, x, incx) Original interface for CTPMV\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL32), intent(in) :: ap (*) complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ztpmv(uplo, trans, diag, n, ap, x, incx) Original interface for ZTPMV\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL64), intent(in) :: ap (*) complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public        interface f77_tpsv Generic old style interface for TPSV.\nSupports s, d, c, z.\nSee also: mfi_tpsv , stpsv , dtpsv , ctpsv , ztpsv . public pure subroutine stpsv(uplo, trans, diag, n, ap, x, incx) Original interface for STPSV\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL32), intent(in) :: ap (*) real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine dtpsv(uplo, trans, diag, n, ap, x, incx) Original interface for DTPSV\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL64), intent(in) :: ap (*) real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ctpsv(uplo, trans, diag, n, ap, x, incx) Original interface for CTPSV\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL32), intent(in) :: ap (*) complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ztpsv(uplo, trans, diag, n, ap, x, incx) Original interface for ZTPSV\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL64), intent(in) :: ap (*) complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public        interface f77_trmv Generic old style interface for TRMV.\nSupports s, d, c, z.\nSee also: mfi_trmv , strmv , dtrmv , ctrmv , ztrmv . public pure subroutine strmv(uplo, trans, diag, n, a, lda, x, incx) Original interface for STRMV\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine dtrmv(uplo, trans, diag, n, a, lda, x, incx) Original interface for DTRMV\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ctrmv(uplo, trans, diag, n, a, lda, x, incx) Original interface for CTRMV\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ztrmv(uplo, trans, diag, n, a, lda, x, incx) Original interface for ZTRMV\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public        interface f77_trsv Generic old style interface for TRSV.\nSupports s, d, c, z.\nSee also: mfi_trsv , strsv , dtrsv , ctrsv , ztrsv . public pure subroutine strsv(uplo, trans, diag, n, a, lda, x, incx) Original interface for STRSV\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine dtrsv(uplo, trans, diag, n, a, lda, x, incx) Original interface for DTRSV\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ctrsv(uplo, trans, diag, n, a, lda, x, incx) Original interface for CTRSV\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ztrsv(uplo, trans, diag, n, a, lda, x, incx) Original interface for ZTRSV\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public        interface f77_gemm Generic old style interface for GEMM.\nSupports s, d, c, z.\nSee also: mfi_gemm , sgemm , dgemm , cgemm , zgemm . public pure subroutine sgemm(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for SGEMM\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: transa character(len=1), intent(in) :: transb integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine dgemm(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for DGEMM\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: transa character(len=1), intent(in) :: transb integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine cgemm(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for CGEMM\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: transa character(len=1), intent(in) :: transb integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine zgemm(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for ZGEMM\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: transa character(len=1), intent(in) :: transb integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public        interface f77_hemm Generic old style interface for HEMM.\nSupports c, z.\nSee also: mfi_hemm , chemm , zhemm . public pure subroutine chemm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for CHEMM\nSee also: mfi_hemm , f77_hemm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine zhemm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for ZHEMM\nSee also: mfi_hemm , f77_hemm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public        interface f77_herk Generic old style interface for HERK.\nSupports c, z.\nSee also: mfi_herk , cherk , zherk . public pure subroutine cherk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc) Original interface for CHERK\nSee also: mfi_herk , f77_herk . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=wp), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=wp), intent(in) :: beta complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine zherk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc) Original interface for ZHERK\nSee also: mfi_herk , f77_herk . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=wp), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=wp), intent(in) :: beta complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public        interface f77_her2k Generic old style interface for HER2K.\nSupports c, z.\nSee also: mfi_her2k , cher2k , zher2k . public pure subroutine cher2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for CHER2K\nSee also: mfi_her2k , f77_her2k . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=wp), intent(in) :: beta complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine zher2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for ZHER2K\nSee also: mfi_her2k , f77_her2k . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=wp), intent(in) :: beta complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public        interface f77_symm Generic old style interface for SYMM.\nSupports s, d.\nSee also: mfi_symm , ssymm , dsymm . public pure subroutine ssymm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for SSYMM\nSee also: mfi_symm , f77_symm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine dsymm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for DSYMM\nSee also: mfi_symm , f77_symm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public        interface f77_syrk Generic old style interface for SYRK.\nSupports s, d.\nSee also: mfi_syrk , ssyrk , dsyrk . public pure subroutine ssyrk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc) Original interface for SSYRK\nSee also: mfi_syrk , f77_syrk . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine dsyrk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc) Original interface for DSYRK\nSee also: mfi_syrk , f77_syrk . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public        interface f77_syr2k Generic old style interface for SYR2K.\nSupports s, d.\nSee also: mfi_syr2k , ssyr2k , dsyr2k . public pure subroutine ssyr2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for SSYR2K\nSee also: mfi_syr2k , f77_syr2k . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine dsyr2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for DSYR2K\nSee also: mfi_syr2k , f77_syr2k . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public        interface f77_trmm Generic old style interface for TRMM.\nSupports s, d, c, z.\nSee also: mfi_trmm , strmm , dtrmm , ctrmm , ztrmm . public pure subroutine strmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for STRMM\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb public pure subroutine dtrmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for DTRMM\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb public pure subroutine ctrmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for CTRMM\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb public pure subroutine ztrmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for ZTRMM\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb public        interface f77_trsm Generic old style interface for TRSM.\nSupports s, d, c, z.\nSee also: mfi_trsm , strsm , dtrsm , ctrsm , ztrsm . public pure subroutine strsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for STRSM\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb public pure subroutine dtrsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for DTRSM\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb public pure subroutine ctrsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for CTRSM\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb public pure subroutine ztrsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for ZTRSM\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb interface ?lamch supports s, d. See mfi_lamch for the modern version. public pure function slamch(cmach) SLAMCH determines single precision machine parameters. Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: cmach Return Value real(kind=real32) interface ?lamch supports s, d. See mfi_lamch for the modern version. public pure function dlamch(cmach) DLAMCH determines double precision machine parameters. Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: cmach Return Value real(kind=real64) interface public pure function sdsdot(n, sb, sx, incx, sy, incy) Compute the inner product of two vectors with extended\nprecision accumulation. Returns S.P. result with dot product accumulated in D.P.\nSDSDOT = SB + sum for I = 0 to N-1 of SX(LX+I INCX) SY(LY+I INCY),\nwhere LX = 1 if INCX .GE. 0, else LX = 1+(1-N) INCX, and LY is\ndefined in a similar way using INCY. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=wp), intent(in) :: sb real(kind=wp), intent(in) :: sx (*) integer, intent(in) :: incx real(kind=wp), intent(in) :: sy (*) integer, intent(in) :: incy Return Value real(kind=wp) interface public pure function dsdot(n, sx, incx, sy, incy) Compute the inner product of two vectors with extended\nprecision accumulation and result. Returns D.P. dot product accumulated in D.P., for S.P. SX and SY\nDSDOT = sum for I = 0 to N-1 of  SX(LX+I INCX) * SY(LY+I INCY),\nwhere LX = 1 if INCX .GE. 0, else LX = 1+(1-N)*INCX, and LY is\ndefined in a similar way using INCY. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=sp), intent(in) :: sx (*) integer, intent(in) :: incx real(kind=sp), intent(in) :: sy (*) integer, intent(in) :: incy Return Value real(kind=dp) public        interface f77_iamax public pure function isamax (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function idamax (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function icamax (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function izamax (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public        interface f77_iamin public pure function isamin (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function idamin (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function icamin (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function izamin (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer Functions public pure function isamax (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function idamax (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function icamax (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function izamax (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function isamin (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function idamin (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function icamin (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function izamin (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer","tags":"","loc":"module/f77_blas.html"},{"title":"lapack.f90 – MFI - Modern Fortran Interfaces","text":"Source Code !> Modern fortran interfaces for LAPACK module mfi_lapack use iso_fortran_env use f77_lapack use f77_lapack , only : mfi_lartg => f77_lartg implicit none !> Generic modern interface for GEQRF. !> Supports s, d, c, z. !> See also: !> [[f77_geqrf:sgeqrf]],[[f77_geqrf:dgeqrf]],[[f77_geqrf:cgeqrf]],[[f77_geqrf:zgeqrf]]. interface mfi_geqrf module procedure :: mfi_sgeqrf module procedure :: mfi_dgeqrf module procedure :: mfi_cgeqrf module procedure :: mfi_zgeqrf end interface !> Generic modern interface for GERQF. !> Supports s, d, c, z. !> See also: !> [[f77_gerqf:sgerqf]],[[f77_gerqf:dgerqf]],[[f77_gerqf:cgerqf]],[[f77_gerqf:zgerqf]]. interface mfi_gerqf module procedure :: mfi_sgerqf module procedure :: mfi_dgerqf module procedure :: mfi_cgerqf module procedure :: mfi_zgerqf end interface !> Generic modern interface for GETRF. !> Supports s, d, c, z. !> See also: !> [[f77_getrf:sgetrf]],[[f77_getrf:dgetrf]],[[f77_getrf:cgetrf]],[[f77_getrf:zgetrf]]. interface mfi_getrf module procedure :: mfi_sgetrf module procedure :: mfi_dgetrf module procedure :: mfi_cgetrf module procedure :: mfi_zgetrf end interface !> Generic modern interface for GETRI. !> Supports s, d, c, z. !> See also: !> [[f77_getri:sgetri]],[[f77_getri:dgetri]],[[f77_getri:cgetri]],[[f77_getri:zgetri]]. interface mfi_getri module procedure :: mfi_sgetri module procedure :: mfi_dgetri module procedure :: mfi_cgetri module procedure :: mfi_zgetri end interface !> Generic modern interface for GETRS. !> Supports s, d, c, z. !> See also: !> [[f77_getrs:sgetrs]],[[f77_getrs:dgetrs]],[[f77_getrs:cgetrs]],[[f77_getrs:zgetrs]]. interface mfi_getrs module procedure :: mfi_sgetrs module procedure :: mfi_dgetrs module procedure :: mfi_cgetrs module procedure :: mfi_zgetrs end interface !> Generic modern interface for HETRF. !> Supports c, z. !> See also: !> [[f77_hetrf:chetrf]],[[f77_hetrf:zhetrf]]. interface mfi_hetrf module procedure :: mfi_chetrf module procedure :: mfi_zhetrf end interface !> Generic modern interface for HEGV. !> Supports c, z. !> See also: !> [[f77_hegv:chegv]],[[f77_hegv:zhegv]]. interface mfi_hegv module procedure :: mfi_chegv module procedure :: mfi_zhegv end interface !> Generic modern interface for HEEVD. !> Supports c, z. !> See also: !> [[f77_heevd:cheevd]],[[f77_heevd:zheevd]]. interface mfi_heevd module procedure :: mfi_cheevd module procedure :: mfi_zheevd end interface !> Generic modern interface for GESVD. !> Supports s, d, c, z. !> See also: !> [[f77_gesvd:sgesvd]],[[f77_gesvd:dgesvd]],[[f77_gesvd:cgesvd]],[[f77_gesvd:zgesvd]]. interface mfi_gesvd module procedure :: mfi_sgesvd module procedure :: mfi_dgesvd module procedure :: mfi_cgesvd module procedure :: mfi_zgesvd end interface !> Generic modern interface for POTRF. !> Supports s, d, c, z. !> See also: !> [[f77_potrf:spotrf]],[[f77_potrf:dpotrf]],[[f77_potrf:cpotrf]],[[f77_potrf:zpotrf]]. interface mfi_potrf module procedure :: mfi_spotrf module procedure :: mfi_dpotrf module procedure :: mfi_cpotrf module procedure :: mfi_zpotrf end interface !> Generic modern interface for POTRI. !> Supports s, d, c, z. !> See also: !> [[f77_potri:spotri]],[[f77_potri:dpotri]],[[f77_potri:cpotri]],[[f77_potri:zpotri]]. interface mfi_potri module procedure :: mfi_spotri module procedure :: mfi_dpotri module procedure :: mfi_cpotri module procedure :: mfi_zpotri end interface !> Generic modern interface for POTRS. !> Supports s, d, c, z. !> See also: !> [[f77_potrs:spotrs]],[[f77_potrs:dpotrs]],[[f77_potrs:cpotrs]],[[f77_potrs:zpotrs]]. interface mfi_potrs module procedure :: mfi_spotrs module procedure :: mfi_dpotrs module procedure :: mfi_cpotrs module procedure :: mfi_zpotrs end interface !> Generic modern interface for POCON. !> Supports s, d, c, z. !> See also: !> [[f77_pocon:spocon]],[[f77_pocon:dpocon]],[[f77_pocon:cpocon]],[[f77_pocon:zpocon]]. interface mfi_pocon module procedure :: mfi_spocon module procedure :: mfi_dpocon module procedure :: mfi_cpocon module procedure :: mfi_zpocon end interface contains !> Modern interface for [[f77_geqrf:sgeqrf]]. !> See also: [[mfi_geqrf]], [[f77_geqrf]]. pure subroutine mfi_sgeqrf ( a , tau , info ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a (:,:) real ( REAL32 ), intent ( out ), optional , target :: tau (:) integer , intent ( out ), optional :: info integer :: local_info integer :: m , n , lda , lwork , allocation_status , deallocation_status real ( REAL32 ), pointer :: local_tau (:), work (:) real ( REAL32 ), target :: s_work ( 1 ) lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) allocation_status = 0 if ( present ( tau )) then local_tau => tau else allocate ( local_tau ( min ( m , n )), stat = allocation_status ) end if ! Retrieve work array size lwork = - 1 call sgeqrf ( m , n , a , lda , local_tau , s_work , lwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) if ( allocation_status == 0 ) then allocate ( work ( lwork ), stat = allocation_status ) end if if ( allocation_status == 0 ) then call sgeqrf ( m , n , a , lda , local_tau , work , lwork , local_info ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) ! Error handling 404 continue if (. not . present ( tau )) then deallocate ( local_tau , stat = deallocation_status ) end if if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'sgeqrf' , - local_info ) end if end subroutine !> Modern interface for [[f77_geqrf:dgeqrf]]. !> See also: [[mfi_geqrf]], [[f77_geqrf]]. pure subroutine mfi_dgeqrf ( a , tau , info ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a (:,:) real ( REAL64 ), intent ( out ), optional , target :: tau (:) integer , intent ( out ), optional :: info integer :: local_info integer :: m , n , lda , lwork , allocation_status , deallocation_status real ( REAL64 ), pointer :: local_tau (:), work (:) real ( REAL64 ), target :: s_work ( 1 ) lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) allocation_status = 0 if ( present ( tau )) then local_tau => tau else allocate ( local_tau ( min ( m , n )), stat = allocation_status ) end if ! Retrieve work array size lwork = - 1 call dgeqrf ( m , n , a , lda , local_tau , s_work , lwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) if ( allocation_status == 0 ) then allocate ( work ( lwork ), stat = allocation_status ) end if if ( allocation_status == 0 ) then call dgeqrf ( m , n , a , lda , local_tau , work , lwork , local_info ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) ! Error handling 404 continue if (. not . present ( tau )) then deallocate ( local_tau , stat = deallocation_status ) end if if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'dgeqrf' , - local_info ) end if end subroutine !> Modern interface for [[f77_geqrf:cgeqrf]]. !> See also: [[mfi_geqrf]], [[f77_geqrf]]. pure subroutine mfi_cgeqrf ( a , tau , info ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a (:,:) complex ( REAL32 ), intent ( out ), optional , target :: tau (:) integer , intent ( out ), optional :: info integer :: local_info integer :: m , n , lda , lwork , allocation_status , deallocation_status complex ( REAL32 ), pointer :: local_tau (:), work (:) complex ( REAL32 ), target :: s_work ( 1 ) lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) allocation_status = 0 if ( present ( tau )) then local_tau => tau else allocate ( local_tau ( min ( m , n )), stat = allocation_status ) end if ! Retrieve work array size lwork = - 1 call cgeqrf ( m , n , a , lda , local_tau , s_work , lwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) if ( allocation_status == 0 ) then allocate ( work ( lwork ), stat = allocation_status ) end if if ( allocation_status == 0 ) then call cgeqrf ( m , n , a , lda , local_tau , work , lwork , local_info ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) ! Error handling 404 continue if (. not . present ( tau )) then deallocate ( local_tau , stat = deallocation_status ) end if if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'cgeqrf' , - local_info ) end if end subroutine !> Modern interface for [[f77_geqrf:zgeqrf]]. !> See also: [[mfi_geqrf]], [[f77_geqrf]]. pure subroutine mfi_zgeqrf ( a , tau , info ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a (:,:) complex ( REAL64 ), intent ( out ), optional , target :: tau (:) integer , intent ( out ), optional :: info integer :: local_info integer :: m , n , lda , lwork , allocation_status , deallocation_status complex ( REAL64 ), pointer :: local_tau (:), work (:) complex ( REAL64 ), target :: s_work ( 1 ) lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) allocation_status = 0 if ( present ( tau )) then local_tau => tau else allocate ( local_tau ( min ( m , n )), stat = allocation_status ) end if ! Retrieve work array size lwork = - 1 call zgeqrf ( m , n , a , lda , local_tau , s_work , lwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) if ( allocation_status == 0 ) then allocate ( work ( lwork ), stat = allocation_status ) end if if ( allocation_status == 0 ) then call zgeqrf ( m , n , a , lda , local_tau , work , lwork , local_info ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) ! Error handling 404 continue if (. not . present ( tau )) then deallocate ( local_tau , stat = deallocation_status ) end if if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'zgeqrf' , - local_info ) end if end subroutine !> Modern interface for [[f77_gerqf:sgerqf]]. !> See also: [[mfi_gerqf]], [[f77_gerqf]]. pure subroutine mfi_sgerqf ( a , tau , info ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a (:,:) real ( REAL32 ), intent ( out ), optional , target :: tau (:) integer , intent ( out ), optional :: info integer :: local_info integer :: m , n , lda , lwork , allocation_status , deallocation_status real ( REAL32 ), pointer :: local_tau (:), work (:) real ( REAL32 ), target :: s_work ( 1 ) lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) allocation_status = 0 if ( present ( tau )) then local_tau => tau else allocate ( local_tau ( min ( m , n )), stat = allocation_status ) end if ! Retrieve work array size lwork = - 1 call sgerqf ( m , n , a , lda , local_tau , s_work , lwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) if ( allocation_status == 0 ) then allocate ( work ( lwork ), stat = allocation_status ) end if if ( allocation_status == 0 ) then call sgerqf ( m , n , a , lda , local_tau , work , lwork , local_info ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) ! Error handling 404 continue if (. not . present ( tau )) then deallocate ( local_tau , stat = deallocation_status ) end if if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'sgerqf' , - local_info ) end if end subroutine !> Modern interface for [[f77_gerqf:dgerqf]]. !> See also: [[mfi_gerqf]], [[f77_gerqf]]. pure subroutine mfi_dgerqf ( a , tau , info ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a (:,:) real ( REAL64 ), intent ( out ), optional , target :: tau (:) integer , intent ( out ), optional :: info integer :: local_info integer :: m , n , lda , lwork , allocation_status , deallocation_status real ( REAL64 ), pointer :: local_tau (:), work (:) real ( REAL64 ), target :: s_work ( 1 ) lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) allocation_status = 0 if ( present ( tau )) then local_tau => tau else allocate ( local_tau ( min ( m , n )), stat = allocation_status ) end if ! Retrieve work array size lwork = - 1 call dgerqf ( m , n , a , lda , local_tau , s_work , lwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) if ( allocation_status == 0 ) then allocate ( work ( lwork ), stat = allocation_status ) end if if ( allocation_status == 0 ) then call dgerqf ( m , n , a , lda , local_tau , work , lwork , local_info ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) ! Error handling 404 continue if (. not . present ( tau )) then deallocate ( local_tau , stat = deallocation_status ) end if if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'dgerqf' , - local_info ) end if end subroutine !> Modern interface for [[f77_gerqf:cgerqf]]. !> See also: [[mfi_gerqf]], [[f77_gerqf]]. pure subroutine mfi_cgerqf ( a , tau , info ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a (:,:) complex ( REAL32 ), intent ( out ), optional , target :: tau (:) integer , intent ( out ), optional :: info integer :: local_info integer :: m , n , lda , lwork , allocation_status , deallocation_status complex ( REAL32 ), pointer :: local_tau (:), work (:) complex ( REAL32 ), target :: s_work ( 1 ) lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) allocation_status = 0 if ( present ( tau )) then local_tau => tau else allocate ( local_tau ( min ( m , n )), stat = allocation_status ) end if ! Retrieve work array size lwork = - 1 call cgerqf ( m , n , a , lda , local_tau , s_work , lwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) if ( allocation_status == 0 ) then allocate ( work ( lwork ), stat = allocation_status ) end if if ( allocation_status == 0 ) then call cgerqf ( m , n , a , lda , local_tau , work , lwork , local_info ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) ! Error handling 404 continue if (. not . present ( tau )) then deallocate ( local_tau , stat = deallocation_status ) end if if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'cgerqf' , - local_info ) end if end subroutine !> Modern interface for [[f77_gerqf:zgerqf]]. !> See also: [[mfi_gerqf]], [[f77_gerqf]]. pure subroutine mfi_zgerqf ( a , tau , info ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a (:,:) complex ( REAL64 ), intent ( out ), optional , target :: tau (:) integer , intent ( out ), optional :: info integer :: local_info integer :: m , n , lda , lwork , allocation_status , deallocation_status complex ( REAL64 ), pointer :: local_tau (:), work (:) complex ( REAL64 ), target :: s_work ( 1 ) lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) allocation_status = 0 if ( present ( tau )) then local_tau => tau else allocate ( local_tau ( min ( m , n )), stat = allocation_status ) end if ! Retrieve work array size lwork = - 1 call zgerqf ( m , n , a , lda , local_tau , s_work , lwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) if ( allocation_status == 0 ) then allocate ( work ( lwork ), stat = allocation_status ) end if if ( allocation_status == 0 ) then call zgerqf ( m , n , a , lda , local_tau , work , lwork , local_info ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) ! Error handling 404 continue if (. not . present ( tau )) then deallocate ( local_tau , stat = deallocation_status ) end if if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'zgerqf' , - local_info ) end if end subroutine !> Modern interface for [[f77_getrf:sgetrf]]. !> See also: [[mfi_getrf]], [[f77_getrf]]. pure subroutine mfi_sgetrf ( a , ipiv , info ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a (:,:) integer , intent ( out ), optional , target :: ipiv (:) integer , intent ( out ), optional :: info integer :: local_info integer :: m , n , lda , allocation_status , deallocation_status integer , pointer :: local_ipiv (:) lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) allocation_status = 0 if ( present ( ipiv )) then local_ipiv => ipiv else allocate ( local_ipiv ( min ( m , n )), stat = allocation_status ) end if if ( allocation_status == 0 ) then call sgetrf ( m , n , a , lda , local_ipiv , local_info ) else local_info = - 1000 end if if (. not . present ( ipiv )) then deallocate ( local_ipiv , stat = deallocation_status ) end if if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'sgetrf' , - local_info ) end if end subroutine !> Modern interface for [[f77_getrf:dgetrf]]. !> See also: [[mfi_getrf]], [[f77_getrf]]. pure subroutine mfi_dgetrf ( a , ipiv , info ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a (:,:) integer , intent ( out ), optional , target :: ipiv (:) integer , intent ( out ), optional :: info integer :: local_info integer :: m , n , lda , allocation_status , deallocation_status integer , pointer :: local_ipiv (:) lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) allocation_status = 0 if ( present ( ipiv )) then local_ipiv => ipiv else allocate ( local_ipiv ( min ( m , n )), stat = allocation_status ) end if if ( allocation_status == 0 ) then call dgetrf ( m , n , a , lda , local_ipiv , local_info ) else local_info = - 1000 end if if (. not . present ( ipiv )) then deallocate ( local_ipiv , stat = deallocation_status ) end if if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'dgetrf' , - local_info ) end if end subroutine !> Modern interface for [[f77_getrf:cgetrf]]. !> See also: [[mfi_getrf]], [[f77_getrf]]. pure subroutine mfi_cgetrf ( a , ipiv , info ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a (:,:) integer , intent ( out ), optional , target :: ipiv (:) integer , intent ( out ), optional :: info integer :: local_info integer :: m , n , lda , allocation_status , deallocation_status integer , pointer :: local_ipiv (:) lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) allocation_status = 0 if ( present ( ipiv )) then local_ipiv => ipiv else allocate ( local_ipiv ( min ( m , n )), stat = allocation_status ) end if if ( allocation_status == 0 ) then call cgetrf ( m , n , a , lda , local_ipiv , local_info ) else local_info = - 1000 end if if (. not . present ( ipiv )) then deallocate ( local_ipiv , stat = deallocation_status ) end if if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'cgetrf' , - local_info ) end if end subroutine !> Modern interface for [[f77_getrf:zgetrf]]. !> See also: [[mfi_getrf]], [[f77_getrf]]. pure subroutine mfi_zgetrf ( a , ipiv , info ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a (:,:) integer , intent ( out ), optional , target :: ipiv (:) integer , intent ( out ), optional :: info integer :: local_info integer :: m , n , lda , allocation_status , deallocation_status integer , pointer :: local_ipiv (:) lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) allocation_status = 0 if ( present ( ipiv )) then local_ipiv => ipiv else allocate ( local_ipiv ( min ( m , n )), stat = allocation_status ) end if if ( allocation_status == 0 ) then call zgetrf ( m , n , a , lda , local_ipiv , local_info ) else local_info = - 1000 end if if (. not . present ( ipiv )) then deallocate ( local_ipiv , stat = deallocation_status ) end if if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'zgetrf' , - local_info ) end if end subroutine !> Modern interface for [[f77_getri:sgetri]]. !> See also: [[mfi_getri]], [[f77_getri]]. pure subroutine mfi_sgetri ( a , ipiv , info ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a (:,:) integer , intent ( in ) :: ipiv (:) real ( REAL32 ), pointer :: work (:) real ( REAL32 ) :: s_work ( 1 ) integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda , lwork , allocation_status , deallocation_status lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) lwork = - 1 call sgetri ( n , a , lda , ipiv , s_work , lwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) allocate ( work ( lwork ), stat = allocation_status ) if ( allocation_status == 0 ) then call sgetri ( n , a , lda , ipiv , work , lwork , local_info ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) 404 continue if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'sgetri' , - local_info ) end if end subroutine !> Modern interface for [[f77_getri:dgetri]]. !> See also: [[mfi_getri]], [[f77_getri]]. pure subroutine mfi_dgetri ( a , ipiv , info ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a (:,:) integer , intent ( in ) :: ipiv (:) real ( REAL64 ), pointer :: work (:) real ( REAL64 ) :: s_work ( 1 ) integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda , lwork , allocation_status , deallocation_status lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) lwork = - 1 call dgetri ( n , a , lda , ipiv , s_work , lwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) allocate ( work ( lwork ), stat = allocation_status ) if ( allocation_status == 0 ) then call dgetri ( n , a , lda , ipiv , work , lwork , local_info ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) 404 continue if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'dgetri' , - local_info ) end if end subroutine !> Modern interface for [[f77_getri:cgetri]]. !> See also: [[mfi_getri]], [[f77_getri]]. pure subroutine mfi_cgetri ( a , ipiv , info ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a (:,:) integer , intent ( in ) :: ipiv (:) complex ( REAL32 ), pointer :: work (:) complex ( REAL32 ) :: s_work ( 1 ) integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda , lwork , allocation_status , deallocation_status lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) lwork = - 1 call cgetri ( n , a , lda , ipiv , s_work , lwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) allocate ( work ( lwork ), stat = allocation_status ) if ( allocation_status == 0 ) then call cgetri ( n , a , lda , ipiv , work , lwork , local_info ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) 404 continue if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'cgetri' , - local_info ) end if end subroutine !> Modern interface for [[f77_getri:zgetri]]. !> See also: [[mfi_getri]], [[f77_getri]]. pure subroutine mfi_zgetri ( a , ipiv , info ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a (:,:) integer , intent ( in ) :: ipiv (:) complex ( REAL64 ), pointer :: work (:) complex ( REAL64 ) :: s_work ( 1 ) integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda , lwork , allocation_status , deallocation_status lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) lwork = - 1 call zgetri ( n , a , lda , ipiv , s_work , lwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) allocate ( work ( lwork ), stat = allocation_status ) if ( allocation_status == 0 ) then call zgetri ( n , a , lda , ipiv , work , lwork , local_info ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) 404 continue if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'zgetri' , - local_info ) end if end subroutine !> Modern interface for [[f77_getrs:sgetrs]]. !> See also: [[mfi_getrs]], [[f77_getrs]]. pure subroutine mfi_sgetrs ( a , ipiv , b , trans , info ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a (:,:) real ( REAL32 ), intent ( inout ) :: b (:,:) integer , intent ( in ) :: ipiv (:) integer , intent ( out ), optional :: info integer :: local_info character , intent ( in ), optional :: trans character :: local_trans integer :: n , nrhs , lda , ldb if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) n = size ( a , 2 ) nrhs = size ( b , 2 ) call sgetrs ( local_trans , n , nrhs , a , lda , ipiv , b , ldb , local_info ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'sgetrs' , - local_info ) end if end subroutine !> Modern interface for [[f77_getrs:dgetrs]]. !> See also: [[mfi_getrs]], [[f77_getrs]]. pure subroutine mfi_dgetrs ( a , ipiv , b , trans , info ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a (:,:) real ( REAL64 ), intent ( inout ) :: b (:,:) integer , intent ( in ) :: ipiv (:) integer , intent ( out ), optional :: info integer :: local_info character , intent ( in ), optional :: trans character :: local_trans integer :: n , nrhs , lda , ldb if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) n = size ( a , 2 ) nrhs = size ( b , 2 ) call dgetrs ( local_trans , n , nrhs , a , lda , ipiv , b , ldb , local_info ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'dgetrs' , - local_info ) end if end subroutine !> Modern interface for [[f77_getrs:cgetrs]]. !> See also: [[mfi_getrs]], [[f77_getrs]]. pure subroutine mfi_cgetrs ( a , ipiv , b , trans , info ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a (:,:) complex ( REAL32 ), intent ( inout ) :: b (:,:) integer , intent ( in ) :: ipiv (:) integer , intent ( out ), optional :: info integer :: local_info character , intent ( in ), optional :: trans character :: local_trans integer :: n , nrhs , lda , ldb if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) n = size ( a , 2 ) nrhs = size ( b , 2 ) call cgetrs ( local_trans , n , nrhs , a , lda , ipiv , b , ldb , local_info ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'cgetrs' , - local_info ) end if end subroutine !> Modern interface for [[f77_getrs:zgetrs]]. !> See also: [[mfi_getrs]], [[f77_getrs]]. pure subroutine mfi_zgetrs ( a , ipiv , b , trans , info ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a (:,:) complex ( REAL64 ), intent ( inout ) :: b (:,:) integer , intent ( in ) :: ipiv (:) integer , intent ( out ), optional :: info integer :: local_info character , intent ( in ), optional :: trans character :: local_trans integer :: n , nrhs , lda , ldb if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) n = size ( a , 2 ) nrhs = size ( b , 2 ) call zgetrs ( local_trans , n , nrhs , a , lda , ipiv , b , ldb , local_info ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'zgetrs' , - local_info ) end if end subroutine !> Modern interface for [[f77_hetrf:chetrf]]. !> See also: [[mfi_hetrf]], [[f77_hetrf]]. pure subroutine mfi_chetrf ( a , uplo , ipiv , info ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a (:,:) integer , intent ( out ), optional , target :: ipiv (:) integer , pointer :: local_ipiv (:) character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda , lwork , allocation_status , deallocation_status complex ( REAL32 ), target :: s_work ( 1 ) complex ( REAL32 ), pointer :: work (:) if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) allocation_status = 0 if ( present ( ipiv )) then local_ipiv => ipiv else allocate ( local_ipiv ( n ), stat = allocation_status ) end if lwork = - 1 call chetrf ( local_uplo , n , a , lda , local_ipiv , s_work , lwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) if ( allocation_status == 0 ) then allocate ( work ( lwork ), stat = allocation_status ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) 404 continue if (. not . present ( ipiv )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'chetrf' , - local_info ) end if end subroutine !> Modern interface for [[f77_hetrf:zhetrf]]. !> See also: [[mfi_hetrf]], [[f77_hetrf]]. pure subroutine mfi_zhetrf ( a , uplo , ipiv , info ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a (:,:) integer , intent ( out ), optional , target :: ipiv (:) integer , pointer :: local_ipiv (:) character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda , lwork , allocation_status , deallocation_status complex ( REAL64 ), target :: s_work ( 1 ) complex ( REAL64 ), pointer :: work (:) if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) allocation_status = 0 if ( present ( ipiv )) then local_ipiv => ipiv else allocate ( local_ipiv ( n ), stat = allocation_status ) end if lwork = - 1 call zhetrf ( local_uplo , n , a , lda , local_ipiv , s_work , lwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) if ( allocation_status == 0 ) then allocate ( work ( lwork ), stat = allocation_status ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) 404 continue if (. not . present ( ipiv )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'zhetrf' , - local_info ) end if end subroutine !> Modern interface for [[f77_hegv:chegv]]. !> See also: [[mfi_hegv]], [[f77_hegv]]. pure subroutine mfi_chegv ( a , b , w , itype , jobz , uplo , info ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a (:,:) complex ( REAL32 ), intent ( inout ) :: b (:,:) real ( REAL32 ), intent ( out ) :: w (:) integer , intent ( in ), optional :: itype integer :: local_itype character , intent ( in ), optional :: jobz character :: local_jobz character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info complex ( REAL32 ), pointer :: work (:) real ( REAL32 ), pointer :: rwork (:) complex ( REAL32 ) :: s_work ( 1 ) integer :: n , lda , ldb , lwork , allocation_status , deallocation_status if ( present ( itype )) then local_itype = itype else local_itype = 1 end if if ( present ( jobz )) then local_jobz = jobz else local_jobz = 'N' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) n = size ( a , 2 ) allocation_status = 0 allocate ( rwork ( max ( 1 , 3 * N - 2 )), stat = allocation_status ) lwork = - 1 call chegv ( local_itype , local_jobz , local_uplo , n , a , lda , b , ldb , w , s_work , lwork , rwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) if ( allocation_status == 0 ) then allocate ( work ( lwork ), stat = allocation_status ) end if if ( allocation_status == 0 ) then call chegv ( local_itype , local_jobz , local_uplo , n , a , lda , b , ldb , w , work , lwork , rwork , local_info ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) 404 continue deallocate ( rwork , stat = deallocation_status ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'chegv' , - local_info ) end if end subroutine !> Modern interface for [[f77_hegv:zhegv]]. !> See also: [[mfi_hegv]], [[f77_hegv]]. pure subroutine mfi_zhegv ( a , b , w , itype , jobz , uplo , info ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a (:,:) complex ( REAL64 ), intent ( inout ) :: b (:,:) real ( REAL64 ), intent ( out ) :: w (:) integer , intent ( in ), optional :: itype integer :: local_itype character , intent ( in ), optional :: jobz character :: local_jobz character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info complex ( REAL64 ), pointer :: work (:) real ( REAL64 ), pointer :: rwork (:) complex ( REAL64 ) :: s_work ( 1 ) integer :: n , lda , ldb , lwork , allocation_status , deallocation_status if ( present ( itype )) then local_itype = itype else local_itype = 1 end if if ( present ( jobz )) then local_jobz = jobz else local_jobz = 'N' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) n = size ( a , 2 ) allocation_status = 0 allocate ( rwork ( max ( 1 , 3 * N - 2 )), stat = allocation_status ) lwork = - 1 call zhegv ( local_itype , local_jobz , local_uplo , n , a , lda , b , ldb , w , s_work , lwork , rwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) if ( allocation_status == 0 ) then allocate ( work ( lwork ), stat = allocation_status ) end if if ( allocation_status == 0 ) then call zhegv ( local_itype , local_jobz , local_uplo , n , a , lda , b , ldb , w , work , lwork , rwork , local_info ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) 404 continue deallocate ( rwork , stat = deallocation_status ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'zhegv' , - local_info ) end if end subroutine !> Modern interface for [[f77_heevd:cheevd]]. !> See also: [[mfi_heevd]], [[f77_heevd]]. pure subroutine mfi_cheevd ( a , w , jobz , uplo , info ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a (:,:) real ( REAL32 ), intent ( out ) :: w (:) integer , intent ( out ), optional :: info integer :: local_info character , intent ( in ), optional :: jobz character :: local_jobz character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL32 ), pointer :: work (:) real ( REAL32 ), pointer :: rwork (:) integer , pointer :: iwork (:) complex ( REAL32 ) :: s_work ( 1 ) real ( REAL32 ) :: s_rwork ( 1 ) integer :: s_iwork ( 1 ) integer :: n , lda , lwork , lrwork , liwork , allocation_status , deallocation_status if ( present ( jobz )) then local_jobz = jobz else local_jobz = 'N' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) allocation_status = 0 lwork = - 1 lrwork = - 1 liwork = - 1 call cheevd ( local_jobz , local_uplo , n , a , lda , w , & s_work , lwork , s_rwork , lrwork , s_iwork , liwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) lrwork = int ( s_rwork ( 1 )) liwork = int ( s_iwork ( 1 )) allocate ( iwork ( liwork ), stat = allocation_status ) if ( allocation_status == 0 ) then allocate ( rwork ( lrwork ), stat = allocation_status ) allocate ( work ( lwork ), stat = allocation_status ) call cheevd ( local_jobz , local_uplo , n , a , lda , w , & work , lwork , rwork , lrwork , iwork , liwork , local_info ) else local_info = - 1000 end if deallocate ( iwork , stat = deallocation_status ) deallocate ( rwork , stat = deallocation_status ) deallocate ( work , stat = deallocation_status ) 404 continue if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'cheevd' , - local_info ) end if end subroutine !> Modern interface for [[f77_heevd:zheevd]]. !> See also: [[mfi_heevd]], [[f77_heevd]]. pure subroutine mfi_zheevd ( a , w , jobz , uplo , info ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a (:,:) real ( REAL64 ), intent ( out ) :: w (:) integer , intent ( out ), optional :: info integer :: local_info character , intent ( in ), optional :: jobz character :: local_jobz character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL64 ), pointer :: work (:) real ( REAL64 ), pointer :: rwork (:) integer , pointer :: iwork (:) complex ( REAL64 ) :: s_work ( 1 ) real ( REAL64 ) :: s_rwork ( 1 ) integer :: s_iwork ( 1 ) integer :: n , lda , lwork , lrwork , liwork , allocation_status , deallocation_status if ( present ( jobz )) then local_jobz = jobz else local_jobz = 'N' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) allocation_status = 0 lwork = - 1 lrwork = - 1 liwork = - 1 call zheevd ( local_jobz , local_uplo , n , a , lda , w , & s_work , lwork , s_rwork , lrwork , s_iwork , liwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) lrwork = int ( s_rwork ( 1 )) liwork = int ( s_iwork ( 1 )) allocate ( iwork ( liwork ), stat = allocation_status ) if ( allocation_status == 0 ) then allocate ( rwork ( lrwork ), stat = allocation_status ) allocate ( work ( lwork ), stat = allocation_status ) call zheevd ( local_jobz , local_uplo , n , a , lda , w , & work , lwork , rwork , lrwork , iwork , liwork , local_info ) else local_info = - 1000 end if deallocate ( iwork , stat = deallocation_status ) deallocate ( rwork , stat = deallocation_status ) deallocate ( work , stat = deallocation_status ) 404 continue if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'zheevd' , - local_info ) end if end subroutine !> Modern interface for [[f77_gesvd:sgesvd]]. !> See also: [[mfi_gesvd]], [[f77_gesvd]]. pure subroutine mfi_sgesvd ( a , s , u , vt , ww , job , info ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a (:,:) real ( REAL32 ), intent ( out ) :: s (:) real ( REAL32 ), intent ( out ), optional , target :: u (:,:), vt (:,:) real ( REAL32 ), intent ( out ), optional , target :: ww (:) character , intent ( in ), optional :: job character :: local_job integer , intent ( out ), optional :: info integer :: local_info character :: jobu , jobvt integer :: m , n , lda , ldu , ldvt , lwork , allocation_status , deallocation_status real ( REAL32 ), target :: s_work ( 1 ), l_a2 ( 1 , 1 ) real ( REAL32 ), pointer :: local_u (:,:), local_vt (:,:), work (:) if ( present ( job )) then local_job = job else local_job = 'N' end if lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) if ( present ( u )) then ldu = max ( 1 , size ( u , 1 )) else ldu = 1 end if if ( present ( vt )) then ldvt = max ( 1 , size ( vt , 1 )) else ldvt = 1 end if if ( present ( u )) then if ( size ( u , 2 ) == m ) then jobu = 'A' else jobu = 'S' end if local_u => u else if ( local_job == 'u' . or . local_job == 'U' ) then jobu = 'O' else jobu = 'N' end if local_u => l_a2 end if if ( present ( vt )) then if ( size ( vt , 1 ) == n ) then jobvt = 'A' else jobvt = 'S' end if local_vt => vt else if ( local_job == 'v' . or . local_job == 'V' ) then jobvt = 'O' else jobvt = 'N' end if local_vt => l_a2 end if allocation_status = 0 lwork = - 1 call sgesvd ( jobu , jobvt , m , n , a , lda , s , local_u , ldu , local_vt , ldvt , s_work , lwork , local_info ) if ( local_info /= 0 ) then goto 404 end if lwork = int ( s_work ( 1 )) allocate ( work ( lwork ), stat = allocation_status ) if ( allocation_status == 0 ) then call sgesvd ( jobu , jobvt , m , n , a , lda , s , local_u , ldu , local_vt , ldvt , work , lwork , local_info ) else local_info = - 1000 end if if ( present ( ww )) then ww = real ( work ( 2 : min ( m , n ) - 1 )) end if deallocate ( work , stat = deallocation_status ) 404 continue if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'sgesvd' , - local_info ) end if end subroutine !> Modern interface for [[f77_gesvd:dgesvd]]. !> See also: [[mfi_gesvd]], [[f77_gesvd]]. pure subroutine mfi_dgesvd ( a , s , u , vt , ww , job , info ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a (:,:) real ( REAL64 ), intent ( out ) :: s (:) real ( REAL64 ), intent ( out ), optional , target :: u (:,:), vt (:,:) real ( REAL64 ), intent ( out ), optional , target :: ww (:) character , intent ( in ), optional :: job character :: local_job integer , intent ( out ), optional :: info integer :: local_info character :: jobu , jobvt integer :: m , n , lda , ldu , ldvt , lwork , allocation_status , deallocation_status real ( REAL64 ), target :: s_work ( 1 ), l_a2 ( 1 , 1 ) real ( REAL64 ), pointer :: local_u (:,:), local_vt (:,:), work (:) if ( present ( job )) then local_job = job else local_job = 'N' end if lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) if ( present ( u )) then ldu = max ( 1 , size ( u , 1 )) else ldu = 1 end if if ( present ( vt )) then ldvt = max ( 1 , size ( vt , 1 )) else ldvt = 1 end if if ( present ( u )) then if ( size ( u , 2 ) == m ) then jobu = 'A' else jobu = 'S' end if local_u => u else if ( local_job == 'u' . or . local_job == 'U' ) then jobu = 'O' else jobu = 'N' end if local_u => l_a2 end if if ( present ( vt )) then if ( size ( vt , 1 ) == n ) then jobvt = 'A' else jobvt = 'S' end if local_vt => vt else if ( local_job == 'v' . or . local_job == 'V' ) then jobvt = 'O' else jobvt = 'N' end if local_vt => l_a2 end if allocation_status = 0 lwork = - 1 call dgesvd ( jobu , jobvt , m , n , a , lda , s , local_u , ldu , local_vt , ldvt , s_work , lwork , local_info ) if ( local_info /= 0 ) then goto 404 end if lwork = int ( s_work ( 1 )) allocate ( work ( lwork ), stat = allocation_status ) if ( allocation_status == 0 ) then call dgesvd ( jobu , jobvt , m , n , a , lda , s , local_u , ldu , local_vt , ldvt , work , lwork , local_info ) else local_info = - 1000 end if if ( present ( ww )) then ww = real ( work ( 2 : min ( m , n ) - 1 )) end if deallocate ( work , stat = deallocation_status ) 404 continue if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'dgesvd' , - local_info ) end if end subroutine !> Modern interface for [[f77_gesvd:cgesvd]]. !> See also: [[mfi_gesvd]], [[f77_gesvd]]. pure subroutine mfi_cgesvd ( a , s , u , vt , ww , job , info ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a (:,:) real ( REAL32 ), intent ( out ) :: s (:) complex ( REAL32 ), intent ( out ), optional , target :: u (:,:), vt (:,:) real ( REAL32 ), intent ( out ), optional , target :: ww (:) character , intent ( in ), optional :: job character :: local_job integer , intent ( out ), optional :: info integer :: local_info character :: jobu , jobvt integer :: m , n , lda , ldu , ldvt , lwork , allocation_status , deallocation_status complex ( REAL32 ), target :: s_work ( 1 ), l_a2 ( 1 , 1 ) complex ( REAL32 ), pointer :: local_u (:,:), local_vt (:,:), work (:) real ( REAL32 ), pointer :: rwork (:) if ( present ( job )) then local_job = job else local_job = 'N' end if lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) if ( present ( u )) then ldu = max ( 1 , size ( u , 1 )) else ldu = 1 end if if ( present ( vt )) then ldvt = max ( 1 , size ( vt , 1 )) else ldvt = 1 end if if ( present ( u )) then if ( size ( u , 2 ) == m ) then jobu = 'A' else jobu = 'S' end if local_u => u else if ( local_job == 'u' . or . local_job == 'U' ) then jobu = 'O' else jobu = 'N' end if local_u => l_a2 end if if ( present ( vt )) then if ( size ( vt , 1 ) == n ) then jobvt = 'A' else jobvt = 'S' end if local_vt => vt else if ( local_job == 'v' . or . local_job == 'V' ) then jobvt = 'O' else jobvt = 'N' end if local_vt => l_a2 end if allocation_status = 0 lwork = - 1 allocate ( rwork ( 5 * min ( m , n )), stat = allocation_status ) call cgesvd ( jobu , jobvt , m , n , a , lda , s , local_u , ldu , local_vt , ldvt , s_work , lwork , rwork , local_info ) if ( local_info /= 0 ) then goto 404 end if lwork = int ( s_work ( 1 )) allocate ( work ( lwork ), stat = allocation_status ) if ( allocation_status == 0 ) then call cgesvd ( jobu , jobvt , m , n , a , lda , s , local_u , ldu , local_vt , ldvt , work , lwork , rwork , local_info ) else local_info = - 1000 end if if ( present ( ww )) then ww = real ( work ( 2 : min ( m , n ) - 1 )) end if deallocate ( work , stat = deallocation_status ) 404 continue deallocate ( rwork , stat = deallocation_status ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'cgesvd' , - local_info ) end if end subroutine !> Modern interface for [[f77_gesvd:zgesvd]]. !> See also: [[mfi_gesvd]], [[f77_gesvd]]. pure subroutine mfi_zgesvd ( a , s , u , vt , ww , job , info ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a (:,:) real ( REAL64 ), intent ( out ) :: s (:) complex ( REAL64 ), intent ( out ), optional , target :: u (:,:), vt (:,:) real ( REAL64 ), intent ( out ), optional , target :: ww (:) character , intent ( in ), optional :: job character :: local_job integer , intent ( out ), optional :: info integer :: local_info character :: jobu , jobvt integer :: m , n , lda , ldu , ldvt , lwork , allocation_status , deallocation_status complex ( REAL64 ), target :: s_work ( 1 ), l_a2 ( 1 , 1 ) complex ( REAL64 ), pointer :: local_u (:,:), local_vt (:,:), work (:) real ( REAL64 ), pointer :: rwork (:) if ( present ( job )) then local_job = job else local_job = 'N' end if lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) if ( present ( u )) then ldu = max ( 1 , size ( u , 1 )) else ldu = 1 end if if ( present ( vt )) then ldvt = max ( 1 , size ( vt , 1 )) else ldvt = 1 end if if ( present ( u )) then if ( size ( u , 2 ) == m ) then jobu = 'A' else jobu = 'S' end if local_u => u else if ( local_job == 'u' . or . local_job == 'U' ) then jobu = 'O' else jobu = 'N' end if local_u => l_a2 end if if ( present ( vt )) then if ( size ( vt , 1 ) == n ) then jobvt = 'A' else jobvt = 'S' end if local_vt => vt else if ( local_job == 'v' . or . local_job == 'V' ) then jobvt = 'O' else jobvt = 'N' end if local_vt => l_a2 end if allocation_status = 0 lwork = - 1 allocate ( rwork ( 5 * min ( m , n )), stat = allocation_status ) call zgesvd ( jobu , jobvt , m , n , a , lda , s , local_u , ldu , local_vt , ldvt , s_work , lwork , rwork , local_info ) if ( local_info /= 0 ) then goto 404 end if lwork = int ( s_work ( 1 )) allocate ( work ( lwork ), stat = allocation_status ) if ( allocation_status == 0 ) then call zgesvd ( jobu , jobvt , m , n , a , lda , s , local_u , ldu , local_vt , ldvt , work , lwork , rwork , local_info ) else local_info = - 1000 end if if ( present ( ww )) then ww = real ( work ( 2 : min ( m , n ) - 1 )) end if deallocate ( work , stat = deallocation_status ) 404 continue deallocate ( rwork , stat = deallocation_status ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'zgesvd' , - local_info ) end if end subroutine !> Modern interface for [[f77_potrf:spotrf]]. !> See also: [[mfi_potrf]], [[f77_potrf]]. pure subroutine mfi_spotrf ( a , info , uplo ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call spotrf ( local_uplo , n , a , lda , local_info ) if ( present ( info )) then info = local_info else if ( local_info /= 0 ) then call mfi_error ( 'spotrf' , local_info ) end if end subroutine !> Modern interface for [[f77_potrf:dpotrf]]. !> See also: [[mfi_potrf]], [[f77_potrf]]. pure subroutine mfi_dpotrf ( a , info , uplo ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call dpotrf ( local_uplo , n , a , lda , local_info ) if ( present ( info )) then info = local_info else if ( local_info /= 0 ) then call mfi_error ( 'dpotrf' , local_info ) end if end subroutine !> Modern interface for [[f77_potrf:cpotrf]]. !> See also: [[mfi_potrf]], [[f77_potrf]]. pure subroutine mfi_cpotrf ( a , info , uplo ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call cpotrf ( local_uplo , n , a , lda , local_info ) if ( present ( info )) then info = local_info else if ( local_info /= 0 ) then call mfi_error ( 'cpotrf' , local_info ) end if end subroutine !> Modern interface for [[f77_potrf:zpotrf]]. !> See also: [[mfi_potrf]], [[f77_potrf]]. pure subroutine mfi_zpotrf ( a , info , uplo ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call zpotrf ( local_uplo , n , a , lda , local_info ) if ( present ( info )) then info = local_info else if ( local_info /= 0 ) then call mfi_error ( 'zpotrf' , local_info ) end if end subroutine !> Modern interface for [[f77_potri:spotri]]. !> See also: [[mfi_potri]], [[f77_potri]]. pure subroutine mfi_spotri ( a , info , uplo ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call spotri ( local_uplo , n , a , lda , local_info ) if ( present ( info )) then info = local_info else if ( local_info /= 0 ) then call mfi_error ( 'spotri' , local_info ) end if end subroutine !> Modern interface for [[f77_potri:dpotri]]. !> See also: [[mfi_potri]], [[f77_potri]]. pure subroutine mfi_dpotri ( a , info , uplo ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call dpotri ( local_uplo , n , a , lda , local_info ) if ( present ( info )) then info = local_info else if ( local_info /= 0 ) then call mfi_error ( 'dpotri' , local_info ) end if end subroutine !> Modern interface for [[f77_potri:cpotri]]. !> See also: [[mfi_potri]], [[f77_potri]]. pure subroutine mfi_cpotri ( a , info , uplo ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call cpotri ( local_uplo , n , a , lda , local_info ) if ( present ( info )) then info = local_info else if ( local_info /= 0 ) then call mfi_error ( 'cpotri' , local_info ) end if end subroutine !> Modern interface for [[f77_potri:zpotri]]. !> See also: [[mfi_potri]], [[f77_potri]]. pure subroutine mfi_zpotri ( a , info , uplo ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call zpotri ( local_uplo , n , a , lda , local_info ) if ( present ( info )) then info = local_info else if ( local_info /= 0 ) then call mfi_error ( 'zpotri' , local_info ) end if end subroutine !> Modern interface for [[f77_potrs:spotrs]]. !> See also: [[mfi_potrs]], [[f77_potrs]]. pure subroutine mfi_spotrs ( a , b , uplo , info ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( inout ) :: b (:,:) character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , nrhs , lda , ldb if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) n = size ( a , 2 ) nrhs = size ( b , 2 ) call spotrs ( local_uplo , n , nrhs , a , lda , b , ldb , local_info ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'spotrs' , - local_info ) end if end subroutine !> Modern interface for [[f77_potrs:dpotrs]]. !> See also: [[mfi_potrs]], [[f77_potrs]]. pure subroutine mfi_dpotrs ( a , b , uplo , info ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( inout ) :: b (:,:) character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , nrhs , lda , ldb if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) n = size ( a , 2 ) nrhs = size ( b , 2 ) call dpotrs ( local_uplo , n , nrhs , a , lda , b , ldb , local_info ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'dpotrs' , - local_info ) end if end subroutine !> Modern interface for [[f77_potrs:cpotrs]]. !> See also: [[mfi_potrs]], [[f77_potrs]]. pure subroutine mfi_cpotrs ( a , b , uplo , info ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( inout ) :: b (:,:) character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , nrhs , lda , ldb if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) n = size ( a , 2 ) nrhs = size ( b , 2 ) call cpotrs ( local_uplo , n , nrhs , a , lda , b , ldb , local_info ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'cpotrs' , - local_info ) end if end subroutine !> Modern interface for [[f77_potrs:zpotrs]]. !> See also: [[mfi_potrs]], [[f77_potrs]]. pure subroutine mfi_zpotrs ( a , b , uplo , info ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( inout ) :: b (:,:) character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , nrhs , lda , ldb if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) n = size ( a , 2 ) nrhs = size ( b , 2 ) call zpotrs ( local_uplo , n , nrhs , a , lda , b , ldb , local_info ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'zpotrs' , - local_info ) end if end subroutine !> Modern interface for [[f77_pocon:spocon]]. !> See also: [[mfi_pocon]], [[f77_pocon]]. !> Estimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF pure subroutine mfi_spocon ( a , anorm , rcond , uplo , info ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a (:,:) real ( REAL32 ), intent ( in ) :: anorm real ( REAL32 ), intent ( out ) :: rcond character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda , allocation_status , deallocation_status real ( REAL32 ), pointer :: work (:) integer , pointer :: xwork (:) if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) allocation_status = 0 allocate ( xwork ( n ), stat = allocation_status ) if ( allocation_status == 0 ) allocate ( work ( 3 * n ), stat = allocation_status ) if ( allocation_status == 0 ) then call spocon ( local_uplo , n , a , lda , anorm , rcond , work , xwork , local_info ) else local_info = - 1000 end if deallocate ( xwork , stat = deallocation_status ) deallocate ( work , stat = deallocation_status ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'spocon' , - local_info ) end if end subroutine !> Modern interface for [[f77_pocon:dpocon]]. !> See also: [[mfi_pocon]], [[f77_pocon]]. !> Estimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF pure subroutine mfi_dpocon ( a , anorm , rcond , uplo , info ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a (:,:) real ( REAL64 ), intent ( in ) :: anorm real ( REAL64 ), intent ( out ) :: rcond character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda , allocation_status , deallocation_status real ( REAL64 ), pointer :: work (:) integer , pointer :: xwork (:) if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) allocation_status = 0 allocate ( xwork ( n ), stat = allocation_status ) if ( allocation_status == 0 ) allocate ( work ( 3 * n ), stat = allocation_status ) if ( allocation_status == 0 ) then call dpocon ( local_uplo , n , a , lda , anorm , rcond , work , xwork , local_info ) else local_info = - 1000 end if deallocate ( xwork , stat = deallocation_status ) deallocate ( work , stat = deallocation_status ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'dpocon' , - local_info ) end if end subroutine !> Modern interface for [[f77_pocon:cpocon]]. !> See also: [[mfi_pocon]], [[f77_pocon]]. !> Estimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF pure subroutine mfi_cpocon ( a , anorm , rcond , uplo , info ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a (:,:) real ( REAL32 ), intent ( in ) :: anorm real ( REAL32 ), intent ( out ) :: rcond character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda , allocation_status , deallocation_status complex ( REAL32 ), pointer :: work (:) real ( REAL32 ), pointer :: xwork (:) if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) allocation_status = 0 allocate ( xwork ( n ), stat = allocation_status ) if ( allocation_status == 0 ) allocate ( work ( 3 * n ), stat = allocation_status ) if ( allocation_status == 0 ) then call cpocon ( local_uplo , n , a , lda , anorm , rcond , work , xwork , local_info ) else local_info = - 1000 end if deallocate ( xwork , stat = deallocation_status ) deallocate ( work , stat = deallocation_status ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'cpocon' , - local_info ) end if end subroutine !> Modern interface for [[f77_pocon:zpocon]]. !> See also: [[mfi_pocon]], [[f77_pocon]]. !> Estimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF pure subroutine mfi_zpocon ( a , anorm , rcond , uplo , info ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a (:,:) real ( REAL64 ), intent ( in ) :: anorm real ( REAL64 ), intent ( out ) :: rcond character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda , allocation_status , deallocation_status complex ( REAL64 ), pointer :: work (:) real ( REAL64 ), pointer :: xwork (:) if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) allocation_status = 0 allocate ( xwork ( n ), stat = allocation_status ) if ( allocation_status == 0 ) allocate ( work ( 3 * n ), stat = allocation_status ) if ( allocation_status == 0 ) then call zpocon ( local_uplo , n , a , lda , anorm , rcond , work , xwork , local_info ) else local_info = - 1000 end if deallocate ( xwork , stat = deallocation_status ) deallocate ( work , stat = deallocation_status ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'zpocon' , - local_info ) end if end subroutine pure subroutine mfi_error ( name , info ) character ( * ), intent ( in ) :: name integer , intent ( in ) :: info call f77_xerbla ( name , info ) end subroutine end module","tags":"","loc":"sourcefile/lapack.f90.html"},{"title":"lapack.f90 – MFI - Modern Fortran Interfaces","text":"Source Code !> Improved and original F77 interfaces for LAPACK module f77_lapack use iso_fortran_env implicit none !> Generic old style interface for GEQRF. !> Supports s, d, c, z. !> See also: [[mfi_geqrf]], [[sgeqrf]],[[dgeqrf]],[[cgeqrf]],[[zgeqrf]]. interface f77_geqrf !> Original interface for SGEQRF !> See also: [[mfi_geqrf]], [[f77_geqrf]]. pure subroutine sgeqrf ( m , n , a , lda , tau , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( out ) :: tau ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork real ( REAL32 ), intent ( inout ) :: work ( * ) end subroutine !> Original interface for DGEQRF !> See also: [[mfi_geqrf]], [[f77_geqrf]]. pure subroutine dgeqrf ( m , n , a , lda , tau , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( out ) :: tau ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork real ( REAL64 ), intent ( inout ) :: work ( * ) end subroutine !> Original interface for CGEQRF !> See also: [[mfi_geqrf]], [[f77_geqrf]]. pure subroutine cgeqrf ( m , n , a , lda , tau , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( out ) :: tau ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork complex ( REAL32 ), intent ( inout ) :: work ( * ) end subroutine !> Original interface for ZGEQRF !> See also: [[mfi_geqrf]], [[f77_geqrf]]. pure subroutine zgeqrf ( m , n , a , lda , tau , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( out ) :: tau ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork complex ( REAL64 ), intent ( inout ) :: work ( * ) end subroutine end interface !> Generic old style interface for GERQF. !> Supports s, d, c, z. !> See also: [[mfi_gerqf]], [[sgerqf]],[[dgerqf]],[[cgerqf]],[[zgerqf]]. interface f77_gerqf !> Original interface for SGERQF !> See also: [[mfi_gerqf]], [[f77_gerqf]]. pure subroutine sgerqf ( m , n , a , lda , tau , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( out ) :: tau ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork real ( REAL32 ), intent ( inout ) :: work ( * ) end subroutine !> Original interface for DGERQF !> See also: [[mfi_gerqf]], [[f77_gerqf]]. pure subroutine dgerqf ( m , n , a , lda , tau , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( out ) :: tau ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork real ( REAL64 ), intent ( inout ) :: work ( * ) end subroutine !> Original interface for CGERQF !> See also: [[mfi_gerqf]], [[f77_gerqf]]. pure subroutine cgerqf ( m , n , a , lda , tau , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( out ) :: tau ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork complex ( REAL32 ), intent ( inout ) :: work ( * ) end subroutine !> Original interface for ZGERQF !> See also: [[mfi_gerqf]], [[f77_gerqf]]. pure subroutine zgerqf ( m , n , a , lda , tau , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( out ) :: tau ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork complex ( REAL64 ), intent ( inout ) :: work ( * ) end subroutine end interface !> Generic old style interface for GETRF. !> Supports s, d, c, z. !> See also: [[mfi_getrf]], [[sgetrf]],[[dgetrf]],[[cgetrf]],[[zgetrf]]. interface f77_getrf !> Original interface for SGETRF !> See also: [[mfi_getrf]], [[f77_getrf]]. pure subroutine sgetrf ( m , n , a , lda , ipiv , info ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a ( lda , * ) integer , intent ( out ) :: ipiv ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda end subroutine !> Original interface for DGETRF !> See also: [[mfi_getrf]], [[f77_getrf]]. pure subroutine dgetrf ( m , n , a , lda , ipiv , info ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a ( lda , * ) integer , intent ( out ) :: ipiv ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda end subroutine !> Original interface for CGETRF !> See also: [[mfi_getrf]], [[f77_getrf]]. pure subroutine cgetrf ( m , n , a , lda , ipiv , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) integer , intent ( out ) :: ipiv ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda end subroutine !> Original interface for ZGETRF !> See also: [[mfi_getrf]], [[f77_getrf]]. pure subroutine zgetrf ( m , n , a , lda , ipiv , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) integer , intent ( out ) :: ipiv ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda end subroutine end interface !> Generic old style interface for GETRI. !> Supports s, d, c, z. !> See also: [[mfi_getri]], [[sgetri]],[[dgetri]],[[cgetri]],[[zgetri]]. interface f77_getri !> Original interface for SGETRI !> See also: [[mfi_getri]], [[f77_getri]]. pure subroutine sgetri ( n , a , lda , ipiv , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: work ( * ) integer , intent ( in ) :: ipiv ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork end subroutine !> Original interface for DGETRI !> See also: [[mfi_getri]], [[f77_getri]]. pure subroutine dgetri ( n , a , lda , ipiv , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: work ( * ) integer , intent ( in ) :: ipiv ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork end subroutine !> Original interface for CGETRI !> See also: [[mfi_getri]], [[f77_getri]]. pure subroutine cgetri ( n , a , lda , ipiv , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: work ( * ) integer , intent ( in ) :: ipiv ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork end subroutine !> Original interface for ZGETRI !> See also: [[mfi_getri]], [[f77_getri]]. pure subroutine zgetri ( n , a , lda , ipiv , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: work ( * ) integer , intent ( in ) :: ipiv ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork end subroutine end interface !> Generic old style interface for GETRS. !> Supports s, d, c, z. !> See also: [[mfi_getrs]], [[sgetrs]],[[dgetrs]],[[cgetrs]],[[zgetrs]]. interface f77_getrs !> Original interface for SGETRS !> See also: [[mfi_getrs]], [[f77_getrs]]. pure subroutine sgetrs ( trans , n , nrhs , a , lda , ipiv , b , ldb , info ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: b ( ldb , * ) character , intent ( in ) :: trans integer , intent ( in ) :: ipiv ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: n integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb end subroutine !> Original interface for DGETRS !> See also: [[mfi_getrs]], [[f77_getrs]]. pure subroutine dgetrs ( trans , n , nrhs , a , lda , ipiv , b , ldb , info ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: b ( ldb , * ) character , intent ( in ) :: trans integer , intent ( in ) :: ipiv ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: n integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb end subroutine !> Original interface for CGETRS !> See also: [[mfi_getrs]], [[f77_getrs]]. pure subroutine cgetrs ( trans , n , nrhs , a , lda , ipiv , b , ldb , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: b ( ldb , * ) character , intent ( in ) :: trans integer , intent ( in ) :: ipiv ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: n integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb end subroutine !> Original interface for ZGETRS !> See also: [[mfi_getrs]], [[f77_getrs]]. pure subroutine zgetrs ( trans , n , nrhs , a , lda , ipiv , b , ldb , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: b ( ldb , * ) character , intent ( in ) :: trans integer , intent ( in ) :: ipiv ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: n integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb end subroutine end interface !> Generic old style interface for HETRF. !> Supports c, z. !> See also: [[mfi_hetrf]], [[chetrf]],[[zhetrf]]. interface f77_hetrf !> Original interface for CHETRF !> See also: [[mfi_hetrf]], [[f77_hetrf]]. pure subroutine chetrf ( uplo , n , a , lda , ipiv , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) character , intent ( in ) :: uplo integer , intent ( in ) :: ipiv ( * ) complex ( REAL32 ), intent ( inout ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork end subroutine !> Original interface for ZHETRF !> See also: [[mfi_hetrf]], [[f77_hetrf]]. pure subroutine zhetrf ( uplo , n , a , lda , ipiv , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) character , intent ( in ) :: uplo integer , intent ( in ) :: ipiv ( * ) complex ( REAL64 ), intent ( inout ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork end subroutine end interface !> Generic old style interface for HEGV. !> Supports c, z. !> See also: [[mfi_hegv]], [[chegv]],[[zhegv]]. interface f77_hegv !> Original interface for CHEGV !> See also: [[mfi_hegv]], [[f77_hegv]]. pure subroutine chegv ( itype , jobz , uplo , n , a , lda , b , ldb , w , work , lwork , rwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: b ( ldb , * ) real ( REAL32 ), intent ( out ) :: w ( * ) integer , intent ( out ) :: info character , intent ( in ) :: jobz character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: itype integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork complex ( REAL32 ), intent ( inout ) :: work ( * ) real ( REAL32 ), intent ( in ) :: rwork ( * ) end subroutine !> Original interface for ZHEGV !> See also: [[mfi_hegv]], [[f77_hegv]]. pure subroutine zhegv ( itype , jobz , uplo , n , a , lda , b , ldb , w , work , lwork , rwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: b ( ldb , * ) real ( REAL64 ), intent ( out ) :: w ( * ) integer , intent ( out ) :: info character , intent ( in ) :: jobz character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: itype integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork complex ( REAL64 ), intent ( inout ) :: work ( * ) real ( REAL64 ), intent ( in ) :: rwork ( * ) end subroutine end interface !> Generic old style interface for HEEVD. !> Supports c, z. !> See also: [[mfi_heevd]], [[cheevd]],[[zheevd]]. interface f77_heevd !> Original interface for CHEEVD !> See also: [[mfi_heevd]], [[f77_heevd]]. pure subroutine cheevd ( jobz , uplo , n , a , lda , w , work , lwork , rwork , lrwork , iwork , liwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( out ) :: w ( * ) integer , intent ( out ) :: info character , intent ( in ) :: jobz character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork integer , intent ( in ) :: lrwork integer , intent ( in ) :: liwork complex ( REAL32 ), intent ( inout ) :: work ( * ) real ( REAL32 ), intent ( inout ) :: rwork ( * ) integer , intent ( inout ) :: iwork ( * ) end subroutine !> Original interface for ZHEEVD !> See also: [[mfi_heevd]], [[f77_heevd]]. pure subroutine zheevd ( jobz , uplo , n , a , lda , w , work , lwork , rwork , lrwork , iwork , liwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( out ) :: w ( * ) integer , intent ( out ) :: info character , intent ( in ) :: jobz character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork integer , intent ( in ) :: lrwork integer , intent ( in ) :: liwork complex ( REAL64 ), intent ( inout ) :: work ( * ) real ( REAL64 ), intent ( inout ) :: rwork ( * ) integer , intent ( inout ) :: iwork ( * ) end subroutine end interface !> Generic old style interface for GESVD. !> Supports s, d, c, z. !> See also: [[mfi_gesvd]], [[sgesvd]],[[dgesvd]],[[cgesvd]],[[zgesvd]]. interface f77_gesvd !> Original interface for SGESVD !> See also: [[mfi_gesvd]], [[f77_gesvd]]. pure subroutine sgesvd ( jobu , jobvt , m , n , a , lda , s , u , ldu , vt , ldvt , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( out ) :: s ( * ) real ( REAL32 ), intent ( out ) :: u ( ldu , * ) real ( REAL32 ), intent ( out ) :: vt ( ldvt , * ) integer , intent ( out ) :: info character , intent ( in ) :: jobu character , intent ( in ) :: jobvt integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldu integer , intent ( in ) :: ldvt integer , intent ( in ) :: lwork real ( REAL32 ), intent ( inout ) :: work ( * ) end subroutine !> Original interface for DGESVD !> See also: [[mfi_gesvd]], [[f77_gesvd]]. pure subroutine dgesvd ( jobu , jobvt , m , n , a , lda , s , u , ldu , vt , ldvt , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( out ) :: s ( * ) real ( REAL64 ), intent ( out ) :: u ( ldu , * ) real ( REAL64 ), intent ( out ) :: vt ( ldvt , * ) integer , intent ( out ) :: info character , intent ( in ) :: jobu character , intent ( in ) :: jobvt integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldu integer , intent ( in ) :: ldvt integer , intent ( in ) :: lwork real ( REAL64 ), intent ( inout ) :: work ( * ) end subroutine !> Original interface for CGESVD !> See also: [[mfi_gesvd]], [[f77_gesvd]]. pure subroutine cgesvd ( jobu , jobvt , m , n , a , lda , s , u , ldu , vt , ldvt , work , lwork , rwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( out ) :: s ( * ) complex ( REAL32 ), intent ( out ) :: u ( ldu , * ) complex ( REAL32 ), intent ( out ) :: vt ( ldvt , * ) integer , intent ( out ) :: info character , intent ( in ) :: jobu character , intent ( in ) :: jobvt integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldu integer , intent ( in ) :: ldvt integer , intent ( in ) :: lwork complex ( REAL32 ), intent ( inout ) :: work ( * ) real ( REAL32 ), intent ( in ) :: rwork ( * ) end subroutine !> Original interface for ZGESVD !> See also: [[mfi_gesvd]], [[f77_gesvd]]. pure subroutine zgesvd ( jobu , jobvt , m , n , a , lda , s , u , ldu , vt , ldvt , work , lwork , rwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( out ) :: s ( * ) complex ( REAL64 ), intent ( out ) :: u ( ldu , * ) complex ( REAL64 ), intent ( out ) :: vt ( ldvt , * ) integer , intent ( out ) :: info character , intent ( in ) :: jobu character , intent ( in ) :: jobvt integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldu integer , intent ( in ) :: ldvt integer , intent ( in ) :: lwork complex ( REAL64 ), intent ( inout ) :: work ( * ) real ( REAL64 ), intent ( in ) :: rwork ( * ) end subroutine end interface !> Generic old style interface for POTRF. !> Supports s, d, c, z. !> See also: [[mfi_potrf]], [[spotrf]],[[dpotrf]],[[cpotrf]],[[zpotrf]]. interface f77_potrf !> Original interface for SPOTRF !> See also: [[mfi_potrf]], [[f77_potrf]]. pure subroutine spotrf ( uplo , n , a , lda , info ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine !> Original interface for DPOTRF !> See also: [[mfi_potrf]], [[f77_potrf]]. pure subroutine dpotrf ( uplo , n , a , lda , info ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine !> Original interface for CPOTRF !> See also: [[mfi_potrf]], [[f77_potrf]]. pure subroutine cpotrf ( uplo , n , a , lda , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine !> Original interface for ZPOTRF !> See also: [[mfi_potrf]], [[f77_potrf]]. pure subroutine zpotrf ( uplo , n , a , lda , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for POTRI. !> Supports s, d, c, z. !> See also: [[mfi_potri]], [[spotri]],[[dpotri]],[[cpotri]],[[zpotri]]. interface f77_potri !> Original interface for SPOTRI !> See also: [[mfi_potri]], [[f77_potri]]. pure subroutine spotri ( uplo , n , a , lda , info ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine !> Original interface for DPOTRI !> See also: [[mfi_potri]], [[f77_potri]]. pure subroutine dpotri ( uplo , n , a , lda , info ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine !> Original interface for CPOTRI !> See also: [[mfi_potri]], [[f77_potri]]. pure subroutine cpotri ( uplo , n , a , lda , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine !> Original interface for ZPOTRI !> See also: [[mfi_potri]], [[f77_potri]]. pure subroutine zpotri ( uplo , n , a , lda , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for POTRS. !> Supports s, d, c, z. !> See also: [[mfi_potrs]], [[spotrs]],[[dpotrs]],[[cpotrs]],[[zpotrs]]. interface f77_potrs !> Original interface for SPOTRS !> See also: [[mfi_potrs]], [[f77_potrs]]. pure subroutine spotrs ( uplo , n , nrhs , a , lda , b , ldb , info ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( in ) :: b ( ldb , * ) character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( out ) :: info end subroutine !> Original interface for DPOTRS !> See also: [[mfi_potrs]], [[f77_potrs]]. pure subroutine dpotrs ( uplo , n , nrhs , a , lda , b , ldb , info ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( in ) :: b ( ldb , * ) character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( out ) :: info end subroutine !> Original interface for CPOTRS !> See also: [[mfi_potrs]], [[f77_potrs]]. pure subroutine cpotrs ( uplo , n , nrhs , a , lda , b , ldb , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( in ) :: b ( ldb , * ) character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( out ) :: info end subroutine !> Original interface for ZPOTRS !> See also: [[mfi_potrs]], [[f77_potrs]]. pure subroutine zpotrs ( uplo , n , nrhs , a , lda , b , ldb , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( in ) :: b ( ldb , * ) character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for POCON. !> Supports s, d, c, z. !> See also: [[mfi_pocon]], [[spocon]],[[dpocon]],[[cpocon]],[[zpocon]]. interface f77_pocon !> Original interface for SPOCON !> See also: [[mfi_pocon]], [[f77_pocon]]. !> spocon estimates the reciprocal of the condition number (in the !> 1-norm) of a real(REAL32) Hermitian positive definite matrix using the !> Cholesky factorization A = U**H*U or A = L*L**H computed by sPOTRF. !> An estimate is obtained for norm(inv(A)), and the reciprocal of the !> condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))). pure subroutine spocon ( uplo , n , a , lda , anorm , rcond , work , iwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: lda real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( in ) :: anorm real ( REAL32 ), intent ( out ) :: rcond real ( REAL32 ), intent ( inout ) :: work ( * ) integer , intent ( inout ) :: iwork ( * ) integer , intent ( out ) :: info end subroutine !> Original interface for DPOCON !> See also: [[mfi_pocon]], [[f77_pocon]]. !> dpocon estimates the reciprocal of the condition number (in the !> 1-norm) of a real(REAL64) Hermitian positive definite matrix using the !> Cholesky factorization A = U**H*U or A = L*L**H computed by dPOTRF. !> An estimate is obtained for norm(inv(A)), and the reciprocal of the !> condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))). pure subroutine dpocon ( uplo , n , a , lda , anorm , rcond , work , iwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: lda real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( in ) :: anorm real ( REAL64 ), intent ( out ) :: rcond real ( REAL64 ), intent ( inout ) :: work ( * ) integer , intent ( inout ) :: iwork ( * ) integer , intent ( out ) :: info end subroutine !> Original interface for CPOCON !> See also: [[mfi_pocon]], [[f77_pocon]]. !> cpocon estimates the reciprocal of the condition number (in the !> 1-norm) of a complex(REAL32) Hermitian positive definite matrix using the !> Cholesky factorization A = U**H*U or A = L*L**H computed by cPOTRF. !> An estimate is obtained for norm(inv(A)), and the reciprocal of the !> condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))). pure subroutine cpocon ( uplo , n , a , lda , anorm , rcond , work , rwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: lda complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( in ) :: anorm real ( REAL32 ), intent ( out ) :: rcond complex ( REAL32 ), intent ( inout ) :: work ( * ) real ( REAL32 ), intent ( inout ) :: rwork ( * ) integer , intent ( out ) :: info end subroutine !> Original interface for ZPOCON !> See also: [[mfi_pocon]], [[f77_pocon]]. !> zpocon estimates the reciprocal of the condition number (in the !> 1-norm) of a complex(REAL64) Hermitian positive definite matrix using the !> Cholesky factorization A = U**H*U or A = L*L**H computed by zPOTRF. !> An estimate is obtained for norm(inv(A)), and the reciprocal of the !> condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))). pure subroutine zpocon ( uplo , n , a , lda , anorm , rcond , work , rwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: lda complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( in ) :: anorm real ( REAL64 ), intent ( out ) :: rcond complex ( REAL64 ), intent ( inout ) :: work ( * ) real ( REAL64 ), intent ( inout ) :: rwork ( * ) integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for HEEVX. !> Supports c, z. !> See also: [[mfi_heevx]], [[cheevx]],[[zheevx]]. interface f77_heevx !> Original interface for CHEEVX !> See also: [[mfi_heevx]], [[f77_heevx]]. pure subroutine cheevx ( jobz , range , uplo , n , a , lda , vl , vu , il , iu , abstol , m , w , z , ldz ,& work , lwork , rwork , lrwork , iwork , liwork , ifail , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: z ( ldz , * ) real ( REAL32 ), intent ( out ) :: w ( * ) integer , intent ( out ) :: info character , intent ( in ) :: jobz character , intent ( in ) :: uplo character , intent ( in ) :: range real ( REAL32 ), intent ( in ) :: vl real ( REAL32 ), intent ( in ) :: vu real ( REAL32 ), intent ( in ) :: abstol integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: lda integer , intent ( in ) :: ldz integer , intent ( in ) :: il integer , intent ( in ) :: iu integer , intent ( in ) :: lwork integer , intent ( in ) :: lrwork integer , intent ( in ) :: liwork integer , intent ( in ) :: ifail complex ( REAL32 ), intent ( inout ) :: work ( * ) real ( REAL32 ), intent ( inout ) :: rwork ( * ) integer , intent ( inout ) :: iwork ( * ) end subroutine !> Original interface for ZHEEVX !> See also: [[mfi_heevx]], [[f77_heevx]]. pure subroutine zheevx ( jobz , range , uplo , n , a , lda , vl , vu , il , iu , abstol , m , w , z , ldz ,& work , lwork , rwork , lrwork , iwork , liwork , ifail , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: z ( ldz , * ) real ( REAL64 ), intent ( out ) :: w ( * ) integer , intent ( out ) :: info character , intent ( in ) :: jobz character , intent ( in ) :: uplo character , intent ( in ) :: range real ( REAL64 ), intent ( in ) :: vl real ( REAL64 ), intent ( in ) :: vu real ( REAL64 ), intent ( in ) :: abstol integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: lda integer , intent ( in ) :: ldz integer , intent ( in ) :: il integer , intent ( in ) :: iu integer , intent ( in ) :: lwork integer , intent ( in ) :: lrwork integer , intent ( in ) :: liwork integer , intent ( in ) :: ifail complex ( REAL64 ), intent ( inout ) :: work ( * ) real ( REAL64 ), intent ( inout ) :: rwork ( * ) integer , intent ( inout ) :: iwork ( * ) end subroutine end interface !> Generic old style interface for HEEVR. !> Supports c, z. !> See also: [[mfi_heevr]], [[cheevr]],[[zheevr]]. interface f77_heevr !> Original interface for CHEEVR !> See also: [[mfi_heevr]], [[f77_heevr]]. pure subroutine cheevr ( jobz , range , uplo , n , a , lda , vl , vu , il , iu , abstol , m , w , z , ldz ,& isuppz , work , lwork , rwork , lrwork , iwork , liwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: z ( ldz , * ) real ( REAL32 ), intent ( out ) :: w ( * ) integer , intent ( out ) :: info character , intent ( in ) :: jobz character , intent ( in ) :: uplo character , intent ( in ) :: range real ( REAL32 ), intent ( in ) :: vl real ( REAL32 ), intent ( in ) :: vu real ( REAL32 ), intent ( in ) :: abstol integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: lda integer , intent ( in ) :: ldz integer , intent ( in ) :: il integer , intent ( in ) :: iu integer , intent ( in ) :: lwork integer , intent ( in ) :: lrwork integer , intent ( in ) :: liwork integer , intent ( in ) :: isuppz ( * ) complex ( REAL32 ), intent ( inout ) :: work ( * ) real ( REAL32 ), intent ( inout ) :: rwork ( * ) integer , intent ( inout ) :: iwork ( * ) end subroutine !> Original interface for ZHEEVR !> See also: [[mfi_heevr]], [[f77_heevr]]. pure subroutine zheevr ( jobz , range , uplo , n , a , lda , vl , vu , il , iu , abstol , m , w , z , ldz ,& isuppz , work , lwork , rwork , lrwork , iwork , liwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: z ( ldz , * ) real ( REAL64 ), intent ( out ) :: w ( * ) integer , intent ( out ) :: info character , intent ( in ) :: jobz character , intent ( in ) :: uplo character , intent ( in ) :: range real ( REAL64 ), intent ( in ) :: vl real ( REAL64 ), intent ( in ) :: vu real ( REAL64 ), intent ( in ) :: abstol integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: lda integer , intent ( in ) :: ldz integer , intent ( in ) :: il integer , intent ( in ) :: iu integer , intent ( in ) :: lwork integer , intent ( in ) :: lrwork integer , intent ( in ) :: liwork integer , intent ( in ) :: isuppz ( * ) complex ( REAL64 ), intent ( inout ) :: work ( * ) real ( REAL64 ), intent ( inout ) :: rwork ( * ) integer , intent ( inout ) :: iwork ( * ) end subroutine end interface !> Generic old style interface for GELS. !> Supports s, d, c, z. !> See also: [[mfi_gels]], [[sgels]],[[dgels]],[[cgels]],[[zgels]]. interface f77_gels !> Original interface for SGELS !> See also: [[mfi_gels]], [[f77_gels]]. !> SGELS solves overdetermined or underdetermined systems for GE matrices pure subroutine sgels ( trans , m , n , nrhs , a , lda , b , ldb , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 character , intent ( in ) :: trans real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: b ( ldb , * ) real ( REAL32 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: nrhs integer , intent ( in ) :: lwork end subroutine !> Original interface for DGELS !> See also: [[mfi_gels]], [[f77_gels]]. !> DGELS solves overdetermined or underdetermined systems for GE matrices pure subroutine dgels ( trans , m , n , nrhs , a , lda , b , ldb , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 character , intent ( in ) :: trans real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: b ( ldb , * ) real ( REAL64 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: nrhs integer , intent ( in ) :: lwork end subroutine !> Original interface for CGELS !> See also: [[mfi_gels]], [[f77_gels]]. !> CGELS solves overdetermined or underdetermined systems for GE matrices pure subroutine cgels ( trans , m , n , nrhs , a , lda , b , ldb , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 character , intent ( in ) :: trans complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: b ( ldb , * ) complex ( REAL32 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: nrhs integer , intent ( in ) :: lwork end subroutine !> Original interface for ZGELS !> See also: [[mfi_gels]], [[f77_gels]]. !> ZGELS solves overdetermined or underdetermined systems for GE matrices pure subroutine zgels ( trans , m , n , nrhs , a , lda , b , ldb , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 character , intent ( in ) :: trans complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: b ( ldb , * ) complex ( REAL64 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: nrhs integer , intent ( in ) :: lwork end subroutine end interface !> Generic old style interface for GELST. !> Supports s, d, c, z. !> See also: [[mfi_gelst]], [[sgelst]],[[dgelst]],[[cgelst]],[[zgelst]]. interface f77_gelst !> Original interface for SGELST !> See also: [[mfi_gelst]], [[f77_gelst]]. !> SGELST solves overdetermined or underdetermined systems for GE matrices !> using QR or LQ factorization with compact WY representation of Q. pure subroutine sgelst ( trans , m , n , nrhs , a , lda , b , ldb , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 character , intent ( in ) :: trans real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: b ( ldb , * ) real ( REAL32 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: nrhs integer , intent ( in ) :: lwork end subroutine !> Original interface for DGELST !> See also: [[mfi_gelst]], [[f77_gelst]]. !> DGELST solves overdetermined or underdetermined systems for GE matrices !> using QR or LQ factorization with compact WY representation of Q. pure subroutine dgelst ( trans , m , n , nrhs , a , lda , b , ldb , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 character , intent ( in ) :: trans real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: b ( ldb , * ) real ( REAL64 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: nrhs integer , intent ( in ) :: lwork end subroutine !> Original interface for CGELST !> See also: [[mfi_gelst]], [[f77_gelst]]. !> CGELST solves overdetermined or underdetermined systems for GE matrices !> using QR or LQ factorization with compact WY representation of Q. pure subroutine cgelst ( trans , m , n , nrhs , a , lda , b , ldb , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 character , intent ( in ) :: trans complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: b ( ldb , * ) complex ( REAL32 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: nrhs integer , intent ( in ) :: lwork end subroutine !> Original interface for ZGELST !> See also: [[mfi_gelst]], [[f77_gelst]]. !> ZGELST solves overdetermined or underdetermined systems for GE matrices !> using QR or LQ factorization with compact WY representation of Q. pure subroutine zgelst ( trans , m , n , nrhs , a , lda , b , ldb , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 character , intent ( in ) :: trans complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: b ( ldb , * ) complex ( REAL64 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: nrhs integer , intent ( in ) :: lwork end subroutine end interface !> Generic old style interface for GETSLS. !> Supports s, d, c, z. !> See also: [[mfi_getsls]], [[sgetsls]],[[dgetsls]],[[cgetsls]],[[zgetsls]]. interface f77_getsls !> Original interface for SGETSLS !> See also: [[mfi_getsls]], [[f77_getsls]]. !> SGETSLS solves overdetermined or underdetermined systems for GE matrices pure subroutine sgetsls ( trans , m , n , nrhs , a , lda , b , ldb , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 character , intent ( in ) :: trans real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: b ( ldb , * ) real ( REAL32 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: nrhs integer , intent ( in ) :: lwork end subroutine !> Original interface for DGETSLS !> See also: [[mfi_getsls]], [[f77_getsls]]. !> DGETSLS solves overdetermined or underdetermined systems for GE matrices pure subroutine dgetsls ( trans , m , n , nrhs , a , lda , b , ldb , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 character , intent ( in ) :: trans real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: b ( ldb , * ) real ( REAL64 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: nrhs integer , intent ( in ) :: lwork end subroutine !> Original interface for CGETSLS !> See also: [[mfi_getsls]], [[f77_getsls]]. !> CGETSLS solves overdetermined or underdetermined systems for GE matrices pure subroutine cgetsls ( trans , m , n , nrhs , a , lda , b , ldb , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 character , intent ( in ) :: trans complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: b ( ldb , * ) complex ( REAL32 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: nrhs integer , intent ( in ) :: lwork end subroutine !> Original interface for ZGETSLS !> See also: [[mfi_getsls]], [[f77_getsls]]. !> ZGETSLS solves overdetermined or underdetermined systems for GE matrices pure subroutine zgetsls ( trans , m , n , nrhs , a , lda , b , ldb , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 character , intent ( in ) :: trans complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: b ( ldb , * ) complex ( REAL64 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: nrhs integer , intent ( in ) :: lwork end subroutine end interface !> Generic old style interface for GELSD. !> Supports s, d, c, z. !> See also: [[mfi_gelsd]], [[sgelsd]],[[dgelsd]],[[cgelsd]],[[zgelsd]]. interface f77_gelsd !> Original interface for SGELSD !> See also: [[mfi_gelsd]], [[f77_gelsd]]. !> SGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices pure subroutine sgelsd ( m , n , nrhs , a , lda , b , ldb , s , rcond , rank , work , lwork , iwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: rcond real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: b ( ldb , * ) real ( REAL32 ), intent ( out ) :: s ( * ) real ( REAL32 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: iwork ( * ) integer , intent ( out ) :: info integer , intent ( out ) :: rank integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for DGELSD !> See also: [[mfi_gelsd]], [[f77_gelsd]]. !> DGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices pure subroutine dgelsd ( m , n , nrhs , a , lda , b , ldb , s , rcond , rank , work , lwork , iwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: rcond real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: b ( ldb , * ) real ( REAL64 ), intent ( out ) :: s ( * ) real ( REAL64 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: iwork ( * ) integer , intent ( out ) :: info integer , intent ( out ) :: rank integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for CGELSD !> See also: [[mfi_gelsd]], [[f77_gelsd]]. !> CGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices pure subroutine cgelsd ( m , n , nrhs , a , lda , b , ldb , s , rcond , rank , work , lwork , iwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: rcond complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: b ( ldb , * ) complex ( REAL32 ), intent ( out ) :: s ( * ) complex ( REAL32 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: iwork ( * ) integer , intent ( out ) :: info integer , intent ( out ) :: rank integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for ZGELSD !> See also: [[mfi_gelsd]], [[f77_gelsd]]. !> ZGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices pure subroutine zgelsd ( m , n , nrhs , a , lda , b , ldb , s , rcond , rank , work , lwork , iwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: rcond complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: b ( ldb , * ) complex ( REAL64 ), intent ( out ) :: s ( * ) complex ( REAL64 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: iwork ( * ) integer , intent ( out ) :: info integer , intent ( out ) :: rank integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine end interface !> Generic old style interface for GELSS. !> Supports s, d, c, z. !> See also: [[mfi_gelss]], [[sgelss]],[[dgelss]],[[cgelss]],[[zgelss]]. interface f77_gelss !> Original interface for SGELSS !> See also: [[mfi_gelss]], [[f77_gelss]]. !> SGELSS solves overdetermined or underdetermined systems for GE matrices pure subroutine sgelss ( m , n , nrhs , a , lda , b , ldb , s , rcond , rank , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: rcond real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: b ( ldb , * ) real ( REAL32 ), intent ( out ) :: s ( * ) real ( REAL32 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( out ) :: rank integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for DGELSS !> See also: [[mfi_gelss]], [[f77_gelss]]. !> DGELSS solves overdetermined or underdetermined systems for GE matrices pure subroutine dgelss ( m , n , nrhs , a , lda , b , ldb , s , rcond , rank , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: rcond real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: b ( ldb , * ) real ( REAL64 ), intent ( out ) :: s ( * ) real ( REAL64 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( out ) :: rank integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for CGELSS !> See also: [[mfi_gelss]], [[f77_gelss]]. !> CGELSS solves overdetermined or underdetermined systems for GE matrices pure subroutine cgelss ( m , n , nrhs , a , lda , b , ldb , s , rcond , rank , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: rcond complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: b ( ldb , * ) complex ( REAL32 ), intent ( out ) :: s ( * ) complex ( REAL32 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( out ) :: rank integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for ZGELSS !> See also: [[mfi_gelss]], [[f77_gelss]]. !> ZGELSS solves overdetermined or underdetermined systems for GE matrices pure subroutine zgelss ( m , n , nrhs , a , lda , b , ldb , s , rcond , rank , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: rcond complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: b ( ldb , * ) complex ( REAL64 ), intent ( out ) :: s ( * ) complex ( REAL64 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( out ) :: rank integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine end interface !> Generic old style interface for GELSY. !> Supports s, d, c, z. !> See also: [[mfi_gelsy]], [[sgelsy]],[[dgelsy]],[[cgelsy]],[[zgelsy]]. interface f77_gelsy !> Original interface for SGELSY !> See also: [[mfi_gelsy]], [[f77_gelsy]]. !> SGELSY solves overdetermined or underdetermined systems for GE matrices pure subroutine sgelsy ( m , n , nrhs , a , lda , b , ldb , jpvt , rcond , rank , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: rcond real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: b ( ldb , * ) integer , intent ( inout ) :: jpvt ( * ) real ( REAL32 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( out ) :: rank integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for DGELSY !> See also: [[mfi_gelsy]], [[f77_gelsy]]. !> DGELSY solves overdetermined or underdetermined systems for GE matrices pure subroutine dgelsy ( m , n , nrhs , a , lda , b , ldb , jpvt , rcond , rank , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: rcond real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: b ( ldb , * ) integer , intent ( inout ) :: jpvt ( * ) real ( REAL64 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( out ) :: rank integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for CGELSY !> See also: [[mfi_gelsy]], [[f77_gelsy]]. !> CGELSY solves overdetermined or underdetermined systems for GE matrices pure subroutine cgelsy ( m , n , nrhs , a , lda , b , ldb , jpvt , rcond , rank , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: rcond complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: b ( ldb , * ) integer , intent ( inout ) :: jpvt ( * ) complex ( REAL32 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( out ) :: rank integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for ZGELSY !> See also: [[mfi_gelsy]], [[f77_gelsy]]. !> ZGELSY solves overdetermined or underdetermined systems for GE matrices pure subroutine zgelsy ( m , n , nrhs , a , lda , b , ldb , jpvt , rcond , rank , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: rcond complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: b ( ldb , * ) integer , intent ( inout ) :: jpvt ( * ) complex ( REAL64 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( out ) :: rank integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine end interface !> Generic old style interface for GGLSE. !> Supports s, d, c, z. !> See also: [[mfi_gglse]], [[sgglse]],[[dgglse]],[[cgglse]],[[zgglse]]. interface f77_gglse !> Original interface for SGGLSE !> See also: [[mfi_gglse]], [[f77_gglse]]. pure subroutine sgglse ( m , n , p , a , lda , b , ldb , c , d , x , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: b ( ldb , * ) real ( REAL32 ), intent ( inout ) :: c ( * ) real ( REAL32 ), intent ( inout ) :: d ( * ) real ( REAL32 ), intent ( out ) :: work ( * ) real ( REAL32 ), intent ( out ) :: x ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: p integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for DGGLSE !> See also: [[mfi_gglse]], [[f77_gglse]]. pure subroutine dgglse ( m , n , p , a , lda , b , ldb , c , d , x , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: b ( ldb , * ) real ( REAL64 ), intent ( inout ) :: c ( * ) real ( REAL64 ), intent ( inout ) :: d ( * ) real ( REAL64 ), intent ( out ) :: work ( * ) real ( REAL64 ), intent ( out ) :: x ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: p integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for CGGLSE !> See also: [[mfi_gglse]], [[f77_gglse]]. pure subroutine cgglse ( m , n , p , a , lda , b , ldb , c , d , x , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: b ( ldb , * ) complex ( REAL32 ), intent ( inout ) :: c ( * ) complex ( REAL32 ), intent ( inout ) :: d ( * ) complex ( REAL32 ), intent ( out ) :: work ( * ) complex ( REAL32 ), intent ( out ) :: x ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: p integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for ZGGLSE !> See also: [[mfi_gglse]], [[f77_gglse]]. pure subroutine zgglse ( m , n , p , a , lda , b , ldb , c , d , x , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: b ( ldb , * ) complex ( REAL64 ), intent ( inout ) :: c ( * ) complex ( REAL64 ), intent ( inout ) :: d ( * ) complex ( REAL64 ), intent ( out ) :: work ( * ) complex ( REAL64 ), intent ( out ) :: x ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: p integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine end interface !> Generic old style interface for GGLSM. !> Supports s, d, c, z. !> See also: [[mfi_gglsm]], [[sgglsm]],[[dgglsm]],[[cgglsm]],[[zgglsm]]. interface f77_gglsm !> Original interface for SGGLSM !> See also: [[mfi_gglsm]], [[f77_gglsm]]. pure subroutine sgglsm ( n , m , p , a , lda , b , ldb , d , x , y , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: b ( ldb , * ) real ( REAL32 ), intent ( inout ) :: d ( * ) real ( REAL32 ), intent ( out ) :: work ( * ) real ( REAL32 ), intent ( out ) :: x ( * ) real ( REAL32 ), intent ( out ) :: y ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: p integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for DGGLSM !> See also: [[mfi_gglsm]], [[f77_gglsm]]. pure subroutine dgglsm ( n , m , p , a , lda , b , ldb , d , x , y , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: b ( ldb , * ) real ( REAL64 ), intent ( inout ) :: d ( * ) real ( REAL64 ), intent ( out ) :: work ( * ) real ( REAL64 ), intent ( out ) :: x ( * ) real ( REAL64 ), intent ( out ) :: y ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: p integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for CGGLSM !> See also: [[mfi_gglsm]], [[f77_gglsm]]. pure subroutine cgglsm ( n , m , p , a , lda , b , ldb , d , x , y , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: b ( ldb , * ) complex ( REAL32 ), intent ( inout ) :: d ( * ) complex ( REAL32 ), intent ( out ) :: work ( * ) complex ( REAL32 ), intent ( out ) :: x ( * ) complex ( REAL32 ), intent ( out ) :: y ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: p integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for ZGGLSM !> See also: [[mfi_gglsm]], [[f77_gglsm]]. pure subroutine zgglsm ( n , m , p , a , lda , b , ldb , d , x , y , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: b ( ldb , * ) complex ( REAL64 ), intent ( inout ) :: d ( * ) complex ( REAL64 ), intent ( out ) :: work ( * ) complex ( REAL64 ), intent ( out ) :: x ( * ) complex ( REAL64 ), intent ( out ) :: y ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: p integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine end interface !> Generic old style interface for ORG2R. !> Supports s, d. !> See also: [[mfi_org2r]], [[sorg2r]],[[dorg2r]]. interface f77_org2r !> Original interface for SORG2R !> See also: [[mfi_org2r]], [[f77_org2r]]. !> This routine generates an M \\times N  real(REAL32) !> matrix  Q  with orthonormal columns, !> which is defined as the first  N  columns of a product of  K  elementary !> reflectors of order  M . !>  Q  =  H(1) H(2) . . . H(k)  !> as returned by [[f77_geqrf:sgeqrf]]. pure subroutine sorg2r ( m , n , k , a , lda , tau , work , info ) import :: REAL32 real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( out ) :: work ( * ) real ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine !> Original interface for DORG2R !> See also: [[mfi_org2r]], [[f77_org2r]]. !> This routine generates an M \\times N  real(REAL64) !> matrix  Q  with orthonormal columns, !> which is defined as the first  N  columns of a product of  K  elementary !> reflectors of order  M . !>  Q  =  H(1) H(2) . . . H(k)  !> as returned by [[f77_geqrf:dgeqrf]]. pure subroutine dorg2r ( m , n , k , a , lda , tau , work , info ) import :: REAL64 real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( out ) :: work ( * ) real ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for ORGR2. !> Supports s, d. !> See also: [[mfi_orgr2]], [[sorgr2]],[[dorgr2]]. interface f77_orgr2 !> Original interface for SORGR2 !> See also: [[mfi_orgr2]], [[f77_orgr2]]. !> This routine generates an M \\times N  real(REAL32) !> matrix  Q  with orthonormal rows, !> which is defined as the last  M  rows of a product of  K  elementary !> reflectors of order  N . !>  Q  =  H(1)&#94;\\dagger H(2)&#94;\\dagger \\cdots H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:sgerqf]]. pure subroutine sorgr2 ( m , n , k , a , lda , tau , work , info ) import :: REAL32 real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( out ) :: work ( * ) real ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine !> Original interface for DORGR2 !> See also: [[mfi_orgr2]], [[f77_orgr2]]. !> This routine generates an M \\times N  real(REAL64) !> matrix  Q  with orthonormal rows, !> which is defined as the last  M  rows of a product of  K  elementary !> reflectors of order  N . !>  Q  =  H(1)&#94;\\dagger H(2)&#94;\\dagger \\cdots H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:dgerqf]]. pure subroutine dorgr2 ( m , n , k , a , lda , tau , work , info ) import :: REAL64 real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( out ) :: work ( * ) real ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for ORM2R. !> Supports s, d. !> See also: [[mfi_orm2r]], [[sorm2r]],[[dorm2r]]. interface f77_orm2r !> Original interface for SORM2R !> See also: [[mfi_orm2r]], [[f77_orm2r]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1) H(2) \\cdots H(k)  !> as returned by [[f77_geqrf:sgeqrf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine sorm2r ( side , trans , m , n , k , a , lda , tau , c , ldc , work , info ) import :: REAL32 character , intent ( in ) :: side character , intent ( in ) :: trans real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: c ( ldc , * ) real ( REAL32 ), intent ( out ) :: work ( * ) real ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( out ) :: info end subroutine !> Original interface for DORM2R !> See also: [[mfi_orm2r]], [[f77_orm2r]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1) H(2) \\cdots H(k)  !> as returned by [[f77_geqrf:dgeqrf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine dorm2r ( side , trans , m , n , k , a , lda , tau , c , ldc , work , info ) import :: REAL64 character , intent ( in ) :: side character , intent ( in ) :: trans real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: c ( ldc , * ) real ( REAL64 ), intent ( out ) :: work ( * ) real ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for ORMR2. !> Supports s, d. !> See also: [[mfi_ormr2]], [[sormr2]],[[dormr2]]. interface f77_ormr2 !> Original interface for SORMR2 !> See also: [[mfi_ormr2]], [[f77_ormr2]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1)&#94;\\dagger H(2)&#94;\\dagger \\cdots H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:sgerqf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine sormr2 ( side , trans , m , n , k , a , lda , tau , c , ldc , work , info ) import :: REAL32 character , intent ( in ) :: side character , intent ( in ) :: trans real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: c ( ldc , * ) real ( REAL32 ), intent ( out ) :: work ( * ) real ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( out ) :: info end subroutine !> Original interface for DORMR2 !> See also: [[mfi_ormr2]], [[f77_ormr2]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1)&#94;\\dagger H(2)&#94;\\dagger \\cdots H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:dgerqf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine dormr2 ( side , trans , m , n , k , a , lda , tau , c , ldc , work , info ) import :: REAL64 character , intent ( in ) :: side character , intent ( in ) :: trans real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: c ( ldc , * ) real ( REAL64 ), intent ( out ) :: work ( * ) real ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for ORMQR. !> Supports s, d. !> See also: [[mfi_ormqr]], [[sormqr]],[[dormqr]]. interface f77_ormqr !> Original interface for SORMQR !> See also: [[mfi_ormqr]], [[f77_ormqr]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1) H(2) \\cdots H(k)  !> as returned by [[f77_geqrf:sgeqrf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine sormqr ( side , trans , m , n , k , a , lda , tau , c , ldc , work , lwork , info ) import :: REAL32 character , intent ( in ) :: side character , intent ( in ) :: trans real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: c ( ldc , * ) real ( REAL32 ), intent ( out ) :: work ( * ) real ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine !> Original interface for DORMQR !> See also: [[mfi_ormqr]], [[f77_ormqr]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1) H(2) \\cdots H(k)  !> as returned by [[f77_geqrf:dgeqrf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine dormqr ( side , trans , m , n , k , a , lda , tau , c , ldc , work , lwork , info ) import :: REAL64 character , intent ( in ) :: side character , intent ( in ) :: trans real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: c ( ldc , * ) real ( REAL64 ), intent ( out ) :: work ( * ) real ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for ORMRQ. !> Supports s, d. !> See also: [[mfi_ormrq]], [[sormrq]],[[dormrq]]. interface f77_ormrq !> Original interface for SORMRQ !> See also: [[mfi_ormrq]], [[f77_ormrq]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1)&#94;\\dagger H(2)&#94;\\dagger \\cdots H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:sgerqf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine sormrq ( side , trans , m , n , k , a , lda , tau , c , ldc , work , lwork , info ) import :: REAL32 character , intent ( in ) :: side character , intent ( in ) :: trans real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: c ( ldc , * ) real ( REAL32 ), intent ( out ) :: work ( * ) real ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine !> Original interface for DORMRQ !> See also: [[mfi_ormrq]], [[f77_ormrq]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1)&#94;\\dagger H(2)&#94;\\dagger \\cdots H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:dgerqf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine dormrq ( side , trans , m , n , k , a , lda , tau , c , ldc , work , lwork , info ) import :: REAL64 character , intent ( in ) :: side character , intent ( in ) :: trans real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: c ( ldc , * ) real ( REAL64 ), intent ( out ) :: work ( * ) real ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for ORGQR. !> Supports s, d. !> See also: [[mfi_orgqr]], [[sorgqr]],[[dorgqr]]. interface f77_orgqr !> Original interface for SORGQR !> See also: [[mfi_orgqr]], [[f77_orgqr]]. !> This routine generates an M \\times N  real(REAL32) !> matrix  Q  with orthonormal columns, !> which is defined as the first  N  columns of a product of  K  elementary !> reflectors of order  M . !>  Q  =  H(1) H(2) . . . H(k)  !> as returned by [[f77_geqrf:sgeqrf]]. pure subroutine sorgqr ( m , n , k , a , lda , tau , work , lwork , info ) import :: REAL32 real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( out ) :: work ( * ) real ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine !> Original interface for DORGQR !> See also: [[mfi_orgqr]], [[f77_orgqr]]. !> This routine generates an M \\times N  real(REAL64) !> matrix  Q  with orthonormal columns, !> which is defined as the first  N  columns of a product of  K  elementary !> reflectors of order  M . !>  Q  =  H(1) H(2) . . . H(k)  !> as returned by [[f77_geqrf:dgeqrf]]. pure subroutine dorgqr ( m , n , k , a , lda , tau , work , lwork , info ) import :: REAL64 real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( out ) :: work ( * ) real ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for ORGRQ. !> Supports s, d. !> See also: [[mfi_orgrq]], [[sorgrq]],[[dorgrq]]. interface f77_orgrq !> Original interface for SORGRQ !> See also: [[mfi_orgrq]], [[f77_orgrq]]. !> This routine generates an M \\times N  real(REAL32) !> matrix  Q  with orthonormal columns, !> which is defined as the first  N  columns of a product of  K  elementary !> reflectors of order  N . !>  Q  =  H(1)&#94;\\dagger H(2)&#94;\\dagger . . . H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:sgerqf]]. pure subroutine sorgrq ( m , n , k , a , lda , tau , work , lwork , info ) import :: REAL32 real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( out ) :: work ( * ) real ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine !> Original interface for DORGRQ !> See also: [[mfi_orgrq]], [[f77_orgrq]]. !> This routine generates an M \\times N  real(REAL64) !> matrix  Q  with orthonormal columns, !> which is defined as the first  N  columns of a product of  K  elementary !> reflectors of order  N . !>  Q  =  H(1)&#94;\\dagger H(2)&#94;\\dagger . . . H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:dgerqf]]. pure subroutine dorgrq ( m , n , k , a , lda , tau , work , lwork , info ) import :: REAL64 real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( out ) :: work ( * ) real ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for UNG2R. !> Supports c, z. !> See also: [[mfi_ung2r]], [[cung2r]],[[zung2r]]. interface f77_ung2r !> Original interface for CUNG2R !> See also: [[mfi_ung2r]], [[f77_ung2r]]. !> This routine generates an M \\times N  complex(REAL32) !> matrix  Q  with orthonormal columns, !> which is defined as the first  N  columns of a product of  K  elementary !> reflectors of order  M . !>  Q  =  H(1) H(2) . . . H(k)  !> as returned by [[f77_geqrf:cgeqrf]]. pure subroutine cung2r ( m , n , k , a , lda , tau , work , info ) import :: REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( out ) :: work ( * ) complex ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine !> Original interface for ZUNG2R !> See also: [[mfi_ung2r]], [[f77_ung2r]]. !> This routine generates an M \\times N  complex(REAL64) !> matrix  Q  with orthonormal columns, !> which is defined as the first  N  columns of a product of  K  elementary !> reflectors of order  M . !>  Q  =  H(1) H(2) . . . H(k)  !> as returned by [[f77_geqrf:zgeqrf]]. pure subroutine zung2r ( m , n , k , a , lda , tau , work , info ) import :: REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( out ) :: work ( * ) complex ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for UNGR2. !> Supports c, z. !> See also: [[mfi_ungr2]], [[cungr2]],[[zungr2]]. interface f77_ungr2 !> Original interface for CUNGR2 !> See also: [[mfi_ungr2]], [[f77_ungr2]]. !> This routine generates an M \\times N  complex(REAL32) !> matrix  Q  with orthonormal rows, !> which is defined as the last  M  rows of a product of  K  elementary !> reflectors of order  N . !>  Q  =  H(1)&#94;\\dagger H(2)&#94;\\dagger \\cdots H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:cgerqf]]. pure subroutine cungr2 ( m , n , k , a , lda , tau , work , info ) import :: REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( out ) :: work ( * ) complex ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine !> Original interface for ZUNGR2 !> See also: [[mfi_ungr2]], [[f77_ungr2]]. !> This routine generates an M \\times N  complex(REAL64) !> matrix  Q  with orthonormal rows, !> which is defined as the last  M  rows of a product of  K  elementary !> reflectors of order  N . !>  Q  =  H(1)&#94;\\dagger H(2)&#94;\\dagger \\cdots H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:zgerqf]]. pure subroutine zungr2 ( m , n , k , a , lda , tau , work , info ) import :: REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( out ) :: work ( * ) complex ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for UNM2R. !> Supports c, z. !> See also: [[mfi_unm2r]], [[cunm2r]],[[zunm2r]]. interface f77_unm2r !> Original interface for CUNM2R !> See also: [[mfi_unm2r]], [[f77_unm2r]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1) H(2) \\cdots H(k)  !> as returned by [[f77_geqrf:cgeqrf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine cunm2r ( side , trans , m , n , k , a , lda , tau , c , ldc , work , info ) import :: REAL32 character , intent ( in ) :: side character , intent ( in ) :: trans complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: c ( ldc , * ) complex ( REAL32 ), intent ( out ) :: work ( * ) complex ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( out ) :: info end subroutine !> Original interface for ZUNM2R !> See also: [[mfi_unm2r]], [[f77_unm2r]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1) H(2) \\cdots H(k)  !> as returned by [[f77_geqrf:zgeqrf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine zunm2r ( side , trans , m , n , k , a , lda , tau , c , ldc , work , info ) import :: REAL64 character , intent ( in ) :: side character , intent ( in ) :: trans complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: c ( ldc , * ) complex ( REAL64 ), intent ( out ) :: work ( * ) complex ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for UNMR2. !> Supports c, z. !> See also: [[mfi_unmr2]], [[cunmr2]],[[zunmr2]]. interface f77_unmr2 !> Original interface for CUNMR2 !> See also: [[mfi_unmr2]], [[f77_unmr2]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1)&#94;\\dagger H(2)&#94;\\dagger \\cdots H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:cgerqf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine cunmr2 ( side , trans , m , n , k , a , lda , tau , c , ldc , work , info ) import :: REAL32 character , intent ( in ) :: side character , intent ( in ) :: trans complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: c ( ldc , * ) complex ( REAL32 ), intent ( out ) :: work ( * ) complex ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( out ) :: info end subroutine !> Original interface for ZUNMR2 !> See also: [[mfi_unmr2]], [[f77_unmr2]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1)&#94;\\dagger H(2)&#94;\\dagger \\cdots H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:zgerqf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine zunmr2 ( side , trans , m , n , k , a , lda , tau , c , ldc , work , info ) import :: REAL64 character , intent ( in ) :: side character , intent ( in ) :: trans complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: c ( ldc , * ) complex ( REAL64 ), intent ( out ) :: work ( * ) complex ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for UNMQR. !> Supports c, z. !> See also: [[mfi_unmqr]], [[cunmqr]],[[zunmqr]]. interface f77_unmqr !> Original interface for CUNMQR !> See also: [[mfi_unmqr]], [[f77_unmqr]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1) H(2) \\cdots H(k)  !> as returned by [[f77_geqrf:cgeqrf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine cunmqr ( side , trans , m , n , k , a , lda , tau , c , ldc , work , lwork , info ) import :: REAL32 character , intent ( in ) :: side character , intent ( in ) :: trans complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: c ( ldc , * ) complex ( REAL32 ), intent ( out ) :: work ( * ) complex ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine !> Original interface for ZUNMQR !> See also: [[mfi_unmqr]], [[f77_unmqr]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1) H(2) \\cdots H(k)  !> as returned by [[f77_geqrf:zgeqrf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine zunmqr ( side , trans , m , n , k , a , lda , tau , c , ldc , work , lwork , info ) import :: REAL64 character , intent ( in ) :: side character , intent ( in ) :: trans complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: c ( ldc , * ) complex ( REAL64 ), intent ( out ) :: work ( * ) complex ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for UNMRQ. !> Supports c, z. !> See also: [[mfi_unmrq]], [[cunmrq]],[[zunmrq]]. interface f77_unmrq !> Original interface for CUNMRQ !> See also: [[mfi_unmrq]], [[f77_unmrq]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1)&#94;\\dagger H(2)&#94;\\dagger \\cdots H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:cgerqf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine cunmrq ( side , trans , m , n , k , a , lda , tau , c , ldc , work , lwork , info ) import :: REAL32 character , intent ( in ) :: side character , intent ( in ) :: trans complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: c ( ldc , * ) complex ( REAL32 ), intent ( out ) :: work ( * ) complex ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine !> Original interface for ZUNMRQ !> See also: [[mfi_unmrq]], [[f77_unmrq]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1)&#94;\\dagger H(2)&#94;\\dagger \\cdots H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:zgerqf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine zunmrq ( side , trans , m , n , k , a , lda , tau , c , ldc , work , lwork , info ) import :: REAL64 character , intent ( in ) :: side character , intent ( in ) :: trans complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: c ( ldc , * ) complex ( REAL64 ), intent ( out ) :: work ( * ) complex ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for UNGQR. !> Supports c, z. !> See also: [[mfi_ungqr]], [[cungqr]],[[zungqr]]. interface f77_ungqr !> Original interface for CUNGQR !> See also: [[mfi_ungqr]], [[f77_ungqr]]. !> This routine generates an M \\times N  complex(REAL32) !> matrix  Q  with orthonormal columns, !> which is defined as the first  N  columns of a product of  K  elementary !> reflectors of order  M . !>  Q  =  H(1) H(2) . . . H(k)  !> as returned by [[f77_geqrf:cgeqrf]]. pure subroutine cungqr ( m , n , k , a , lda , tau , work , lwork , info ) import :: REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( out ) :: work ( * ) complex ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine !> Original interface for ZUNGQR !> See also: [[mfi_ungqr]], [[f77_ungqr]]. !> This routine generates an M \\times N  complex(REAL64) !> matrix  Q  with orthonormal columns, !> which is defined as the first  N  columns of a product of  K  elementary !> reflectors of order  M . !>  Q  =  H(1) H(2) . . . H(k)  !> as returned by [[f77_geqrf:zgeqrf]]. pure subroutine zungqr ( m , n , k , a , lda , tau , work , lwork , info ) import :: REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( out ) :: work ( * ) complex ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for UNGRQ. !> Supports c, z. !> See also: [[mfi_ungrq]], [[cungrq]],[[zungrq]]. interface f77_ungrq !> Original interface for CUNGRQ !> See also: [[mfi_ungrq]], [[f77_ungrq]]. !> This routine generates an M \\times N  complex(REAL32) !> matrix  Q  with orthonormal columns, !> which is defined as the first  N  columns of a product of  K  elementary !> reflectors of order  N . !>  Q  =  H(1)&#94;\\dagger H(2)&#94;\\dagger . . . H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:cgerqf]]. pure subroutine cungrq ( m , n , k , a , lda , tau , work , lwork , info ) import :: REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( out ) :: work ( * ) complex ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine !> Original interface for ZUNGRQ !> See also: [[mfi_ungrq]], [[f77_ungrq]]. !> This routine generates an M \\times N  complex(REAL64) !> matrix  Q  with orthonormal columns, !> which is defined as the first  N  columns of a product of  K  elementary !> reflectors of order  N . !>  Q  =  H(1)&#94;\\dagger H(2)&#94;\\dagger . . . H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:zgerqf]]. pure subroutine zungrq ( m , n , k , a , lda , tau , work , lwork , info ) import :: REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( out ) :: work ( * ) complex ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for LARTG. !> Supports s, d, c, z. !> See also: [[mfi_lartg]], [[slartg]],[[dlartg]],[[clartg]],[[zlartg]]. interface f77_lartg !> Original interface for SLARTG !> See also: [[mfi_lartg]], [[f77_lartg]]. pure subroutine slartg ( f , g , c , s , r ) import :: REAL32 integer , parameter :: wp = REAL32 real ( wp ), intent ( inout ) :: c real ( REAL32 ), intent ( inout ) :: f real ( REAL32 ), intent ( inout ) :: g real ( REAL32 ), intent ( inout ) :: r real ( REAL32 ), intent ( inout ) :: s end subroutine !> Original interface for DLARTG !> See also: [[mfi_lartg]], [[f77_lartg]]. pure subroutine dlartg ( f , g , c , s , r ) import :: REAL64 integer , parameter :: wp = REAL64 real ( wp ), intent ( inout ) :: c real ( REAL64 ), intent ( inout ) :: f real ( REAL64 ), intent ( inout ) :: g real ( REAL64 ), intent ( inout ) :: r real ( REAL64 ), intent ( inout ) :: s end subroutine !> Original interface for CLARTG !> See also: [[mfi_lartg]], [[f77_lartg]]. pure subroutine clartg ( f , g , c , s , r ) import :: REAL32 integer , parameter :: wp = REAL32 real ( wp ), intent ( inout ) :: c complex ( REAL32 ), intent ( inout ) :: f complex ( REAL32 ), intent ( inout ) :: g complex ( REAL32 ), intent ( inout ) :: r complex ( REAL32 ), intent ( inout ) :: s end subroutine !> Original interface for ZLARTG !> See also: [[mfi_lartg]], [[f77_lartg]]. pure subroutine zlartg ( f , g , c , s , r ) import :: REAL64 integer , parameter :: wp = REAL64 real ( wp ), intent ( inout ) :: c complex ( REAL64 ), intent ( inout ) :: f complex ( REAL64 ), intent ( inout ) :: g complex ( REAL64 ), intent ( inout ) :: r complex ( REAL64 ), intent ( inout ) :: s end subroutine end interface interface f77_xerbla pure subroutine xerbla ( name , info ) character ( * ), intent ( in ) :: name integer , intent ( in ) :: info end subroutine end interface f77_xerbla end module","tags":"","loc":"sourcefile/lapack.f90~2.html"},{"title":"blas.f90 – MFI - Modern Fortran Interfaces","text":"Source Code !> Modern fortran interfaces for BLAS module mfi_blas use iso_fortran_env use f77_blas use f77_blas , only : mfi_rotg => f77_rotg use f77_blas , only : mfi_rotmg => f77_rotmg implicit none !> Generic modern interface for COPY. !> Supports s, d, c, z. !> See also: !> [[f77_copy:scopy]],[[f77_copy:dcopy]],[[f77_copy:ccopy]],[[f77_copy:zcopy]]. interface mfi_copy module procedure :: mfi_scopy module procedure :: mfi_dcopy module procedure :: mfi_ccopy module procedure :: mfi_zcopy end interface !> Generic modern interface for SWAP. !> Supports s, d, c, z. !> See also: !> [[f77_swap:sswap]],[[f77_swap:dswap]],[[f77_swap:cswap]],[[f77_swap:zswap]]. interface mfi_swap module procedure :: mfi_sswap module procedure :: mfi_dswap module procedure :: mfi_cswap module procedure :: mfi_zswap end interface !> Generic modern interface for AXPY. !> Supports s, d, c, z. !> See also: !> [[f77_axpy:saxpy]],[[f77_axpy:daxpy]],[[f77_axpy:caxpy]],[[f77_axpy:zaxpy]]. interface mfi_axpy module procedure :: mfi_saxpy module procedure :: mfi_daxpy module procedure :: mfi_caxpy module procedure :: mfi_zaxpy end interface !> Generic modern interface for DOT. !> Supports s, d. !> See also: !> [[f77_dot:sdot]],[[f77_dot:ddot]]. interface mfi_dot module procedure :: mfi_sdot module procedure :: mfi_ddot end interface !> Generic modern interface for DOTC. !> Supports c, z. !> See also: !> [[f77_dotc:cdotc]],[[f77_dotc:zdotc]]. interface mfi_dotc module procedure :: mfi_cdotc module procedure :: mfi_zdotc end interface !> Generic modern interface for DOTU. !> Supports c, z. !> See also: !> [[f77_dotu:cdotu]],[[f77_dotu:zdotu]]. interface mfi_dotu module procedure :: mfi_cdotu module procedure :: mfi_zdotu end interface !> Generic modern interface for ASUM. !> Supports s, d, sc, dz. !> See also: !> [[f77_asum:sasum]],[[f77_asum:dasum]],[[f77_asum:scasum]],[[f77_asum:dzasum]]. interface mfi_asum module procedure :: mfi_sasum module procedure :: mfi_dasum module procedure :: mfi_scasum module procedure :: mfi_dzasum end interface !> Generic modern interface for NRM2. !> Supports s, d, sc, dz. !> See also: !> [[f77_nrm2:snrm2]],[[f77_nrm2:dnrm2]],[[f77_nrm2:scnrm2]],[[f77_nrm2:dznrm2]]. interface mfi_nrm2 module procedure :: mfi_snrm2 module procedure :: mfi_dnrm2 module procedure :: mfi_scnrm2 module procedure :: mfi_dznrm2 end interface !> Generic modern interface for ROT. !> Supports s, d, c, z, cs, zd. !> See also: !> [[f77_rot:srot]],[[f77_rot:drot]],[[f77_rot:crot]],[[f77_rot:zrot]],[[f77_rot:csrot]],[[f77_rot:zdrot]]. interface mfi_rot module procedure :: mfi_srot module procedure :: mfi_drot module procedure :: mfi_crot module procedure :: mfi_zrot module procedure :: mfi_csrot module procedure :: mfi_zdrot end interface !> Generic modern interface for ROTM. !> Supports s, d. !> See also: !> [[f77_rotm:srotm]],[[f77_rotm:drotm]]. interface mfi_rotm module procedure :: mfi_srotm module procedure :: mfi_drotm end interface !> Generic modern interface for SCAL. !> Supports s, d, c, z, cs, zd. !> See also: !> [[f77_scal:sscal]],[[f77_scal:dscal]],[[f77_scal:cscal]],[[f77_scal:zscal]],[[f77_scal:csscal]],[[f77_scal:zdscal]]. interface mfi_scal module procedure :: mfi_sscal module procedure :: mfi_dscal module procedure :: mfi_cscal module procedure :: mfi_zscal module procedure :: mfi_csscal module procedure :: mfi_zdscal end interface !> Generic modern interface for GBMV. !> Supports s, d, c, z. !> See also: !> [[f77_gbmv:sgbmv]],[[f77_gbmv:dgbmv]],[[f77_gbmv:cgbmv]],[[f77_gbmv:zgbmv]]. interface mfi_gbmv module procedure :: mfi_sgbmv module procedure :: mfi_dgbmv module procedure :: mfi_cgbmv module procedure :: mfi_zgbmv end interface !> Generic modern interface for GEMV. !> Supports s, d, c, z. !> See also: !> [[f77_gemv:sgemv]],[[f77_gemv:dgemv]],[[f77_gemv:cgemv]],[[f77_gemv:zgemv]]. interface mfi_gemv module procedure :: mfi_sgemv module procedure :: mfi_dgemv module procedure :: mfi_cgemv module procedure :: mfi_zgemv end interface !> Generic modern interface for GER. !> Supports s, d. !> See also: !> [[f77_ger:sger]],[[f77_ger:dger]]. interface mfi_ger module procedure :: mfi_sger module procedure :: mfi_dger end interface !> Generic modern interface for GERC. !> Supports c, z. !> See also: !> [[f77_gerc:cgerc]],[[f77_gerc:zgerc]]. interface mfi_gerc module procedure :: mfi_cgerc module procedure :: mfi_zgerc end interface !> Generic modern interface for GERU. !> Supports c, z. !> See also: !> [[f77_geru:cgeru]],[[f77_geru:zgeru]]. interface mfi_geru module procedure :: mfi_cgeru module procedure :: mfi_zgeru end interface !> Generic modern interface for HBMV. !> Supports c, z. !> See also: !> [[f77_hbmv:chbmv]],[[f77_hbmv:zhbmv]]. interface mfi_hbmv module procedure :: mfi_chbmv module procedure :: mfi_zhbmv end interface !> Generic modern interface for HEMV. !> Supports c, z. !> See also: !> [[f77_hemv:chemv]],[[f77_hemv:zhemv]]. interface mfi_hemv module procedure :: mfi_chemv module procedure :: mfi_zhemv end interface !> Generic modern interface for HER. !> Supports c, z. !> See also: !> [[f77_her:cher]],[[f77_her:zher]]. interface mfi_her module procedure :: mfi_cher module procedure :: mfi_zher end interface !> Generic modern interface for HER2. !> Supports c, z. !> See also: !> [[f77_her2:cher2]],[[f77_her2:zher2]]. interface mfi_her2 module procedure :: mfi_cher2 module procedure :: mfi_zher2 end interface !> Generic modern interface for HPMV. !> Supports c, z. !> See also: !> [[f77_hpmv:chpmv]],[[f77_hpmv:zhpmv]]. interface mfi_hpmv module procedure :: mfi_chpmv module procedure :: mfi_zhpmv end interface !> Generic modern interface for HPR. !> Supports c, z. !> See also: !> [[f77_hpr:chpr]],[[f77_hpr:zhpr]]. interface mfi_hpr module procedure :: mfi_chpr module procedure :: mfi_zhpr end interface !> Generic modern interface for HPR2. !> Supports c, z. !> See also: !> [[f77_hpr2:chpr2]],[[f77_hpr2:zhpr2]]. interface mfi_hpr2 module procedure :: mfi_chpr2 module procedure :: mfi_zhpr2 end interface !> Generic modern interface for SBMV. !> Supports s, d. !> See also: !> [[f77_sbmv:ssbmv]],[[f77_sbmv:dsbmv]]. interface mfi_sbmv module procedure :: mfi_ssbmv module procedure :: mfi_dsbmv end interface !> Generic modern interface for SPMV. !> Supports s, d. !> See also: !> [[f77_spmv:sspmv]],[[f77_spmv:dspmv]]. interface mfi_spmv module procedure :: mfi_sspmv module procedure :: mfi_dspmv end interface !> Generic modern interface for SPR. !> Supports s, d. !> See also: !> [[f77_spr:sspr]],[[f77_spr:dspr]]. interface mfi_spr module procedure :: mfi_sspr module procedure :: mfi_dspr end interface !> Generic modern interface for SPR2. !> Supports s, d. !> See also: !> [[f77_spr2:sspr2]],[[f77_spr2:dspr2]]. interface mfi_spr2 module procedure :: mfi_sspr2 module procedure :: mfi_dspr2 end interface !> Generic modern interface for SYMV. !> Supports s, d. !> See also: !> [[f77_symv:ssymv]],[[f77_symv:dsymv]]. interface mfi_symv module procedure :: mfi_ssymv module procedure :: mfi_dsymv end interface !> Generic modern interface for SYR. !> Supports s, d. !> See also: !> [[f77_syr:ssyr]],[[f77_syr:dsyr]]. interface mfi_syr module procedure :: mfi_ssyr module procedure :: mfi_dsyr end interface !> Generic modern interface for SYR2. !> Supports s, d. !> See also: !> [[f77_syr2:ssyr2]],[[f77_syr2:dsyr2]]. interface mfi_syr2 module procedure :: mfi_ssyr2 module procedure :: mfi_dsyr2 end interface !> Generic modern interface for TBMV. !> Supports s, d, c, z. !> See also: !> [[f77_tbmv:stbmv]],[[f77_tbmv:dtbmv]],[[f77_tbmv:ctbmv]],[[f77_tbmv:ztbmv]]. interface mfi_tbmv module procedure :: mfi_stbmv module procedure :: mfi_dtbmv module procedure :: mfi_ctbmv module procedure :: mfi_ztbmv end interface !> Generic modern interface for TBSV. !> Supports s, d, c, z. !> See also: !> [[f77_tbsv:stbsv]],[[f77_tbsv:dtbsv]],[[f77_tbsv:ctbsv]],[[f77_tbsv:ztbsv]]. interface mfi_tbsv module procedure :: mfi_stbsv module procedure :: mfi_dtbsv module procedure :: mfi_ctbsv module procedure :: mfi_ztbsv end interface !> Generic modern interface for TPMV. !> Supports s, d, c, z. !> See also: !> [[f77_tpmv:stpmv]],[[f77_tpmv:dtpmv]],[[f77_tpmv:ctpmv]],[[f77_tpmv:ztpmv]]. interface mfi_tpmv module procedure :: mfi_stpmv module procedure :: mfi_dtpmv module procedure :: mfi_ctpmv module procedure :: mfi_ztpmv end interface !> Generic modern interface for TPSV. !> Supports s, d, c, z. !> See also: !> [[f77_tpsv:stpsv]],[[f77_tpsv:dtpsv]],[[f77_tpsv:ctpsv]],[[f77_tpsv:ztpsv]]. interface mfi_tpsv module procedure :: mfi_stpsv module procedure :: mfi_dtpsv module procedure :: mfi_ctpsv module procedure :: mfi_ztpsv end interface !> Generic modern interface for TRMV. !> Supports s, d, c, z. !> See also: !> [[f77_trmv:strmv]],[[f77_trmv:dtrmv]],[[f77_trmv:ctrmv]],[[f77_trmv:ztrmv]]. interface mfi_trmv module procedure :: mfi_strmv module procedure :: mfi_dtrmv module procedure :: mfi_ctrmv module procedure :: mfi_ztrmv end interface !> Generic modern interface for TRSV. !> Supports s, d, c, z. !> See also: !> [[f77_trsv:strsv]],[[f77_trsv:dtrsv]],[[f77_trsv:ctrsv]],[[f77_trsv:ztrsv]]. interface mfi_trsv module procedure :: mfi_strsv module procedure :: mfi_dtrsv module procedure :: mfi_ctrsv module procedure :: mfi_ztrsv end interface !> Generic modern interface for GEMM. !> Supports s, d, c, z. !> See also: !> [[f77_gemm:sgemm]],[[f77_gemm:dgemm]],[[f77_gemm:cgemm]],[[f77_gemm:zgemm]]. interface mfi_gemm module procedure :: mfi_sgemm module procedure :: mfi_dgemm module procedure :: mfi_cgemm module procedure :: mfi_zgemm end interface !> Generic modern interface for HEMM. !> Supports c, z. !> See also: !> [[f77_hemm:chemm]],[[f77_hemm:zhemm]]. interface mfi_hemm module procedure :: mfi_chemm module procedure :: mfi_zhemm end interface !> Generic modern interface for HERK. !> Supports c, z. !> See also: !> [[f77_herk:cherk]],[[f77_herk:zherk]]. interface mfi_herk module procedure :: mfi_cherk module procedure :: mfi_zherk end interface !> Generic modern interface for HER2K. !> Supports c, z. !> See also: !> [[f77_her2k:cher2k]],[[f77_her2k:zher2k]]. interface mfi_her2k module procedure :: mfi_cher2k module procedure :: mfi_zher2k end interface !> Generic modern interface for SYMM. !> Supports s, d. !> See also: !> [[f77_symm:ssymm]],[[f77_symm:dsymm]]. interface mfi_symm module procedure :: mfi_ssymm module procedure :: mfi_dsymm end interface !> Generic modern interface for SYRK. !> Supports s, d. !> See also: !> [[f77_syrk:ssyrk]],[[f77_syrk:dsyrk]]. interface mfi_syrk module procedure :: mfi_ssyrk module procedure :: mfi_dsyrk end interface !> Generic modern interface for SYR2K. !> Supports s, d. !> See also: !> [[f77_syr2k:ssyr2k]],[[f77_syr2k:dsyr2k]]. interface mfi_syr2k module procedure :: mfi_ssyr2k module procedure :: mfi_dsyr2k end interface !> Generic modern interface for TRMM. !> Supports s, d, c, z. !> See also: !> [[f77_trmm:strmm]],[[f77_trmm:dtrmm]],[[f77_trmm:ctrmm]],[[f77_trmm:ztrmm]]. interface mfi_trmm module procedure :: mfi_strmm module procedure :: mfi_dtrmm module procedure :: mfi_ctrmm module procedure :: mfi_ztrmm end interface !> Generic modern interface for TRSM. !> Supports s, d, c, z. !> See also: !> [[f77_trsm:strsm]],[[f77_trsm:dtrsm]],[[f77_trsm:ctrsm]],[[f77_trsm:ztrsm]]. interface mfi_trsm module procedure :: mfi_strsm module procedure :: mfi_dtrsm module procedure :: mfi_ctrsm module procedure :: mfi_ztrsm end interface !> Generic modern interface for LAMCH. !> Supports s, d. !> See also: !> [[f77_lamch:slamch]],[[f77_lamch:dlamch]]. interface mfi_lamch module procedure :: mfi_slamch module procedure :: mfi_dlamch end interface ! Extensions ! BLAS level 1 - Utils / Extensions !> Generic modern interface for IAMAX. !> Supports s, d, c, z. !> See also: !> [[f77_iamax:isamax]],[[f77_iamax:idamax]],[[f77_iamax:icamax]],[[f77_iamax:izamax]]. interface mfi_iamax module procedure :: mfi_isamax module procedure :: mfi_idamax module procedure :: mfi_icamax module procedure :: mfi_izamax end interface !> Generic modern interface for IAMIN. !> Supports s, d, c, z. !> See also: !> [[f77_iamin:isamin]],[[f77_iamin:idamin]],[[f77_iamin:icamin]],[[f77_iamin:izamin]]. interface mfi_iamin module procedure :: mfi_isamin module procedure :: mfi_idamin module procedure :: mfi_icamin module procedure :: mfi_izamin end interface contains !> Modern interface for [[f77_copy:scopy]]. !> See also: [[mfi_copy]], [[f77_copy]]. pure subroutine mfi_scopy ( x , y , incx , incy ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x (:) real ( REAL32 ), intent ( inout ) :: y (:) integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) call scopy ( n , x , local_incx , y , local_incy ) end subroutine !> Modern interface for [[f77_copy:dcopy]]. !> See also: [[mfi_copy]], [[f77_copy]]. pure subroutine mfi_dcopy ( x , y , incx , incy ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x (:) real ( REAL64 ), intent ( inout ) :: y (:) integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) call dcopy ( n , x , local_incx , y , local_incy ) end subroutine !> Modern interface for [[f77_copy:ccopy]]. !> See also: [[mfi_copy]], [[f77_copy]]. pure subroutine mfi_ccopy ( x , y , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( inout ) :: y (:) integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) call ccopy ( n , x , local_incx , y , local_incy ) end subroutine !> Modern interface for [[f77_copy:zcopy]]. !> See also: [[mfi_copy]], [[f77_copy]]. pure subroutine mfi_zcopy ( x , y , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( inout ) :: y (:) integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) call zcopy ( n , x , local_incx , y , local_incy ) end subroutine !> Modern interface for [[f77_swap:sswap]]. !> See also: [[mfi_swap]], [[f77_swap]]. pure subroutine mfi_sswap ( x , y , incx , incy ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x (:) real ( REAL32 ), intent ( inout ) :: y (:) integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) call sswap ( n , x , local_incx , y , local_incy ) end subroutine !> Modern interface for [[f77_swap:dswap]]. !> See also: [[mfi_swap]], [[f77_swap]]. pure subroutine mfi_dswap ( x , y , incx , incy ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x (:) real ( REAL64 ), intent ( inout ) :: y (:) integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) call dswap ( n , x , local_incx , y , local_incy ) end subroutine !> Modern interface for [[f77_swap:cswap]]. !> See also: [[mfi_swap]], [[f77_swap]]. pure subroutine mfi_cswap ( x , y , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( inout ) :: y (:) integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) call cswap ( n , x , local_incx , y , local_incy ) end subroutine !> Modern interface for [[f77_swap:zswap]]. !> See also: [[mfi_swap]], [[f77_swap]]. pure subroutine mfi_zswap ( x , y , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( inout ) :: y (:) integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) call zswap ( n , x , local_incx , y , local_incy ) end subroutine !> Modern interface for [[f77_axpy:saxpy]]. !> See also: [[mfi_axpy]], [[f77_axpy]]. pure subroutine mfi_saxpy ( x , y , a , incx , incy ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x (:) real ( REAL32 ), intent ( inout ) :: y (:) real ( REAL32 ), intent ( in ), optional :: a real ( REAL32 ) :: local_a integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( a )) then local_a = a else local_a = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) call saxpy ( n , local_a , x , local_incx , y , local_incy ) end subroutine !> Modern interface for [[f77_axpy:daxpy]]. !> See also: [[mfi_axpy]], [[f77_axpy]]. pure subroutine mfi_daxpy ( x , y , a , incx , incy ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x (:) real ( REAL64 ), intent ( inout ) :: y (:) real ( REAL64 ), intent ( in ), optional :: a real ( REAL64 ) :: local_a integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( a )) then local_a = a else local_a = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) call daxpy ( n , local_a , x , local_incx , y , local_incy ) end subroutine !> Modern interface for [[f77_axpy:caxpy]]. !> See also: [[mfi_axpy]], [[f77_axpy]]. pure subroutine mfi_caxpy ( x , y , a , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( inout ) :: y (:) complex ( REAL32 ), intent ( in ), optional :: a complex ( REAL32 ) :: local_a integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( a )) then local_a = a else local_a = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) call caxpy ( n , local_a , x , local_incx , y , local_incy ) end subroutine !> Modern interface for [[f77_axpy:zaxpy]]. !> See also: [[mfi_axpy]], [[f77_axpy]]. pure subroutine mfi_zaxpy ( x , y , a , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( inout ) :: y (:) complex ( REAL64 ), intent ( in ), optional :: a complex ( REAL64 ) :: local_a integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( a )) then local_a = a else local_a = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) call zaxpy ( n , local_a , x , local_incx , y , local_incy ) end subroutine !> Modern interface for [[f77_dot:sdot]]. !> See also: [[mfi_dot]], [[f77_dot]]. pure function mfi_sdot ( x , y , incx , incy ) integer , parameter :: wp = REAL32 real ( REAL32 ) :: mfi_sdot real ( REAL32 ), intent ( in ) :: x (:) real ( REAL32 ), intent ( in ) :: y (:) integer :: n integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) mfi_sdot = sdot ( n , x , local_incx , y , local_incy ) end function !> Modern interface for [[f77_dot:ddot]]. !> See also: [[mfi_dot]], [[f77_dot]]. pure function mfi_ddot ( x , y , incx , incy ) integer , parameter :: wp = REAL64 real ( REAL64 ) :: mfi_ddot real ( REAL64 ), intent ( in ) :: x (:) real ( REAL64 ), intent ( in ) :: y (:) integer :: n integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) mfi_ddot = ddot ( n , x , local_incx , y , local_incy ) end function !> Modern interface for [[f77_dotc:cdotc]]. !> See also: [[mfi_dotc]], [[f77_dotc]]. pure function mfi_cdotc ( x , y , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ) :: mfi_cdotc complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( in ) :: y (:) integer :: n integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) mfi_cdotc = cdotc ( n , x , local_incx , y , local_incy ) end function !> Modern interface for [[f77_dotc:zdotc]]. !> See also: [[mfi_dotc]], [[f77_dotc]]. pure function mfi_zdotc ( x , y , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ) :: mfi_zdotc complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( in ) :: y (:) integer :: n integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) mfi_zdotc = zdotc ( n , x , local_incx , y , local_incy ) end function !> Modern interface for [[f77_dotu:cdotu]]. !> See also: [[mfi_dotu]], [[f77_dotu]]. pure function mfi_cdotu ( x , y , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ) :: mfi_cdotu complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( in ) :: y (:) integer :: n integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) mfi_cdotu = cdotu ( n , x , local_incx , y , local_incy ) end function !> Modern interface for [[f77_dotu:zdotu]]. !> See also: [[mfi_dotu]], [[f77_dotu]]. pure function mfi_zdotu ( x , y , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ) :: mfi_zdotu complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( in ) :: y (:) integer :: n integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) mfi_zdotu = zdotu ( n , x , local_incx , y , local_incy ) end function !> Modern interface for [[f77_asum:sasum]]. !> See also: [[mfi_asum]], [[f77_asum]]. pure function mfi_sasum ( x , incx ) real ( REAL32 ) :: mfi_sasum real ( REAL32 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_sasum = sasum ( n , x , local_incx ) end function !> Modern interface for [[f77_asum:dasum]]. !> See also: [[mfi_asum]], [[f77_asum]]. pure function mfi_dasum ( x , incx ) real ( REAL64 ) :: mfi_dasum real ( REAL64 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_dasum = dasum ( n , x , local_incx ) end function !> Modern interface for [[f77_asum:scasum]]. !> See also: [[mfi_asum]], [[f77_asum]]. pure function mfi_scasum ( x , incx ) real ( REAL32 ) :: mfi_scasum complex ( REAL32 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_scasum = scasum ( n , x , local_incx ) end function !> Modern interface for [[f77_asum:dzasum]]. !> See also: [[mfi_asum]], [[f77_asum]]. pure function mfi_dzasum ( x , incx ) real ( REAL64 ) :: mfi_dzasum complex ( REAL64 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_dzasum = dzasum ( n , x , local_incx ) end function !> Modern interface for [[f77_nrm2:snrm2]]. !> See also: [[mfi_nrm2]], [[f77_nrm2]]. pure function mfi_snrm2 ( x , incx ) real ( REAL32 ) :: mfi_snrm2 real ( REAL32 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_snrm2 = snrm2 ( n , x , local_incx ) end function !> Modern interface for [[f77_nrm2:dnrm2]]. !> See also: [[mfi_nrm2]], [[f77_nrm2]]. pure function mfi_dnrm2 ( x , incx ) real ( REAL64 ) :: mfi_dnrm2 real ( REAL64 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_dnrm2 = dnrm2 ( n , x , local_incx ) end function !> Modern interface for [[f77_nrm2:scnrm2]]. !> See also: [[mfi_nrm2]], [[f77_nrm2]]. pure function mfi_scnrm2 ( x , incx ) real ( REAL32 ) :: mfi_scnrm2 complex ( REAL32 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_scnrm2 = scnrm2 ( n , x , local_incx ) end function !> Modern interface for [[f77_nrm2:dznrm2]]. !> See also: [[mfi_nrm2]], [[f77_nrm2]]. pure function mfi_dznrm2 ( x , incx ) real ( REAL64 ) :: mfi_dznrm2 complex ( REAL64 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_dznrm2 = dznrm2 ( n , x , local_incx ) end function !> Modern interface for [[f77_rot:srot]]. !> See also: [[mfi_rot]], [[f77_rot]]. !> Given two vectors x and y, !> each vector element of these vectors is replaced as follows: !>```fortran !> xi = c*xi + s*yi !> yi = c*yi - s*xi !>``` pure subroutine mfi_srot ( x , y , c , s , incx , incy ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: x (:) real ( REAL32 ), intent ( inout ) :: y (:) real ( REAL32 ), intent ( in ) :: c real ( REAL32 ), intent ( in ) :: s integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if n = size ( x ) call srot ( n , x , local_incx , y , local_incy , c , s ) end subroutine !> Modern interface for [[f77_rot:drot]]. !> See also: [[mfi_rot]], [[f77_rot]]. !> Given two vectors x and y, !> each vector element of these vectors is replaced as follows: !>```fortran !> xi = c*xi + s*yi !> yi = c*yi - s*xi !>``` pure subroutine mfi_drot ( x , y , c , s , incx , incy ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: x (:) real ( REAL64 ), intent ( inout ) :: y (:) real ( REAL64 ), intent ( in ) :: c real ( REAL64 ), intent ( in ) :: s integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if n = size ( x ) call drot ( n , x , local_incx , y , local_incy , c , s ) end subroutine !> Modern interface for [[f77_rot:crot]]. !> See also: [[mfi_rot]], [[f77_rot]]. !> Given two vectors x and y, !> each vector element of these vectors is replaced as follows: !>```fortran !> xi = c*xi + s*yi !> yi = c*yi - conj(s)*xi !>``` pure subroutine mfi_crot ( x , y , c , s , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: x (:) complex ( REAL32 ), intent ( inout ) :: y (:) real ( REAL32 ), intent ( in ) :: c complex ( REAL32 ), intent ( in ) :: s integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if n = size ( x ) call crot ( n , x , local_incx , y , local_incy , c , s ) end subroutine !> Modern interface for [[f77_rot:zrot]]. !> See also: [[mfi_rot]], [[f77_rot]]. !> Given two vectors x and y, !> each vector element of these vectors is replaced as follows: !>```fortran !> xi = c*xi + s*yi !> yi = c*yi - conj(s)*xi !>``` pure subroutine mfi_zrot ( x , y , c , s , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: x (:) complex ( REAL64 ), intent ( inout ) :: y (:) real ( REAL64 ), intent ( in ) :: c complex ( REAL64 ), intent ( in ) :: s integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if n = size ( x ) call zrot ( n , x , local_incx , y , local_incy , c , s ) end subroutine !> Modern interface for [[f77_rot:csrot]]. !> See also: [[mfi_rot]], [[f77_rot]]. !> Given two vectors x and y, !> each vector element of these vectors is replaced as follows: !>```fortran !> xi = c*xi + s*yi !> yi = c*yi - conj(s)*xi !>``` pure subroutine mfi_csrot ( x , y , c , s , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: x (:) complex ( REAL32 ), intent ( inout ) :: y (:) real ( REAL32 ), intent ( in ) :: c real ( REAL32 ), intent ( in ) :: s integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if n = size ( x ) call csrot ( n , x , local_incx , y , local_incy , c , s ) end subroutine !> Modern interface for [[f77_rot:zdrot]]. !> See also: [[mfi_rot]], [[f77_rot]]. !> Given two vectors x and y, !> each vector element of these vectors is replaced as follows: !>```fortran !> xi = c*xi + s*yi !> yi = c*yi - conj(s)*xi !>``` pure subroutine mfi_zdrot ( x , y , c , s , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: x (:) complex ( REAL64 ), intent ( inout ) :: y (:) real ( REAL64 ), intent ( in ) :: c real ( REAL64 ), intent ( in ) :: s integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if n = size ( x ) call zdrot ( n , x , local_incx , y , local_incy , c , s ) end subroutine !> Modern interface for [[f77_rotm:srotm]]. !> See also: [[mfi_rotm]], [[f77_rotm]]. pure subroutine mfi_srotm ( x , y , param , incx , incy ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: x (:) real ( REAL32 ), intent ( inout ) :: y (:) real ( REAL32 ), intent ( in ) :: param ( 5 ) integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) call srotm ( n , x , local_incx , y , local_incy , param ) end subroutine !> Modern interface for [[f77_rotm:drotm]]. !> See also: [[mfi_rotm]], [[f77_rotm]]. pure subroutine mfi_drotm ( x , y , param , incx , incy ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: x (:) real ( REAL64 ), intent ( inout ) :: y (:) real ( REAL64 ), intent ( in ) :: param ( 5 ) integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) call drotm ( n , x , local_incx , y , local_incy , param ) end subroutine !> Modern interface for [[f77_scal:sscal]]. !> See also: [[mfi_scal]], [[f77_scal]]. !> MFI_SSCAL scales a vector by a constant. pure subroutine mfi_sscal ( a , x , incx ) real ( REAL32 ), intent ( inout ) :: x (:) real ( REAL32 ), intent ( in ) :: a integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call sscal ( n , a , x , local_incx ) end subroutine !> Modern interface for [[f77_scal:dscal]]. !> See also: [[mfi_scal]], [[f77_scal]]. !> MFI_DSCAL scales a vector by a constant. pure subroutine mfi_dscal ( a , x , incx ) real ( REAL64 ), intent ( inout ) :: x (:) real ( REAL64 ), intent ( in ) :: a integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call dscal ( n , a , x , local_incx ) end subroutine !> Modern interface for [[f77_scal:cscal]]. !> See also: [[mfi_scal]], [[f77_scal]]. !> MFI_CSCAL scales a vector by a constant. pure subroutine mfi_cscal ( a , x , incx ) complex ( REAL32 ), intent ( inout ) :: x (:) complex ( REAL32 ), intent ( in ) :: a integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call cscal ( n , a , x , local_incx ) end subroutine !> Modern interface for [[f77_scal:zscal]]. !> See also: [[mfi_scal]], [[f77_scal]]. !> MFI_ZSCAL scales a vector by a constant. pure subroutine mfi_zscal ( a , x , incx ) complex ( REAL64 ), intent ( inout ) :: x (:) complex ( REAL64 ), intent ( in ) :: a integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call zscal ( n , a , x , local_incx ) end subroutine !> Modern interface for [[f77_scal:csscal]]. !> See also: [[mfi_scal]], [[f77_scal]]. !> MFI_CSSCAL scales a vector by a constant. pure subroutine mfi_csscal ( a , x , incx ) complex ( REAL32 ), intent ( inout ) :: x (:) real ( REAL32 ), intent ( in ) :: a integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call csscal ( n , a , x , local_incx ) end subroutine !> Modern interface for [[f77_scal:zdscal]]. !> See also: [[mfi_scal]], [[f77_scal]]. !> MFI_ZDSCAL scales a vector by a constant. pure subroutine mfi_zdscal ( a , x , incx ) complex ( REAL64 ), intent ( inout ) :: x (:) real ( REAL64 ), intent ( in ) :: a integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call zdscal ( n , a , x , local_incx ) end subroutine !> Modern interface for [[f77_gbmv:sgbmv]]. !> See also: [[mfi_gbmv]], [[f77_gbmv]]. pure subroutine mfi_sgbmv ( a , x , y , kl , m , alpha , beta , trans , incx , incy ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( in ) :: x (:) real ( REAL32 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: trans character :: local_trans real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha real ( REAL32 ), intent ( in ), optional :: beta real ( REAL32 ) :: local_beta integer , intent ( in ), optional :: kl integer :: local_kl integer , intent ( in ), optional :: m integer :: local_m integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , ku , lda n = size ( a , 2 ) lda = max ( 1 , size ( a , 1 )) if ( present ( kl )) then local_kl = kl else local_kl = ( lda - 1 ) / 2 end if if ( present ( m )) then local_m = m else local_m = n end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if ku = lda - local_kl - 1 call sgbmv ( local_trans , local_m , n , local_kl , ku , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_gbmv:dgbmv]]. !> See also: [[mfi_gbmv]], [[f77_gbmv]]. pure subroutine mfi_dgbmv ( a , x , y , kl , m , alpha , beta , trans , incx , incy ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( in ) :: x (:) real ( REAL64 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: trans character :: local_trans real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha real ( REAL64 ), intent ( in ), optional :: beta real ( REAL64 ) :: local_beta integer , intent ( in ), optional :: kl integer :: local_kl integer , intent ( in ), optional :: m integer :: local_m integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , ku , lda n = size ( a , 2 ) lda = max ( 1 , size ( a , 1 )) if ( present ( kl )) then local_kl = kl else local_kl = ( lda - 1 ) / 2 end if if ( present ( m )) then local_m = m else local_m = n end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if ku = lda - local_kl - 1 call dgbmv ( local_trans , local_m , n , local_kl , ku , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_gbmv:cgbmv]]. !> See also: [[mfi_gbmv]], [[f77_gbmv]]. pure subroutine mfi_cgbmv ( a , x , y , kl , m , alpha , beta , trans , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: trans character :: local_trans complex ( REAL32 ), intent ( in ), optional :: alpha complex ( REAL32 ) :: local_alpha complex ( REAL32 ), intent ( in ), optional :: beta complex ( REAL32 ) :: local_beta integer , intent ( in ), optional :: kl integer :: local_kl integer , intent ( in ), optional :: m integer :: local_m integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , ku , lda n = size ( a , 2 ) lda = max ( 1 , size ( a , 1 )) if ( present ( kl )) then local_kl = kl else local_kl = ( lda - 1 ) / 2 end if if ( present ( m )) then local_m = m else local_m = n end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if ku = lda - local_kl - 1 call cgbmv ( local_trans , local_m , n , local_kl , ku , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_gbmv:zgbmv]]. !> See also: [[mfi_gbmv]], [[f77_gbmv]]. pure subroutine mfi_zgbmv ( a , x , y , kl , m , alpha , beta , trans , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: trans character :: local_trans complex ( REAL64 ), intent ( in ), optional :: alpha complex ( REAL64 ) :: local_alpha complex ( REAL64 ), intent ( in ), optional :: beta complex ( REAL64 ) :: local_beta integer , intent ( in ), optional :: kl integer :: local_kl integer , intent ( in ), optional :: m integer :: local_m integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , ku , lda n = size ( a , 2 ) lda = max ( 1 , size ( a , 1 )) if ( present ( kl )) then local_kl = kl else local_kl = ( lda - 1 ) / 2 end if if ( present ( m )) then local_m = m else local_m = n end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if ku = lda - local_kl - 1 call zgbmv ( local_trans , local_m , n , local_kl , ku , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_gemv:sgemv]]. !> See also: [[mfi_gemv]], [[f77_gemv]]. pure subroutine mfi_sgemv ( a , x , y , trans , alpha , beta , incx , incy ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( in ) :: x (:) real ( REAL32 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: trans character :: local_trans real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha real ( REAL32 ), intent ( in ), optional :: beta real ( REAL32 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: m , n , lda if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if m = size ( a , 1 ) n = size ( a , 2 ) lda = max ( 1 , m ) call sgemv ( local_trans , m , n , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_gemv:dgemv]]. !> See also: [[mfi_gemv]], [[f77_gemv]]. pure subroutine mfi_dgemv ( a , x , y , trans , alpha , beta , incx , incy ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( in ) :: x (:) real ( REAL64 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: trans character :: local_trans real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha real ( REAL64 ), intent ( in ), optional :: beta real ( REAL64 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: m , n , lda if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if m = size ( a , 1 ) n = size ( a , 2 ) lda = max ( 1 , m ) call dgemv ( local_trans , m , n , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_gemv:cgemv]]. !> See also: [[mfi_gemv]], [[f77_gemv]]. pure subroutine mfi_cgemv ( a , x , y , trans , alpha , beta , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: trans character :: local_trans complex ( REAL32 ), intent ( in ), optional :: alpha complex ( REAL32 ) :: local_alpha complex ( REAL32 ), intent ( in ), optional :: beta complex ( REAL32 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: m , n , lda if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if m = size ( a , 1 ) n = size ( a , 2 ) lda = max ( 1 , m ) call cgemv ( local_trans , m , n , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_gemv:zgemv]]. !> See also: [[mfi_gemv]], [[f77_gemv]]. pure subroutine mfi_zgemv ( a , x , y , trans , alpha , beta , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: trans character :: local_trans complex ( REAL64 ), intent ( in ), optional :: alpha complex ( REAL64 ) :: local_alpha complex ( REAL64 ), intent ( in ), optional :: beta complex ( REAL64 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: m , n , lda if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if m = size ( a , 1 ) n = size ( a , 2 ) lda = max ( 1 , m ) call zgemv ( local_trans , m , n , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_ger:sger]]. !> See also: [[mfi_ger]], [[f77_ger]]. pure subroutine mfi_sger ( a , x , y , alpha , incx , incy ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x (:) real ( REAL32 ), intent ( in ) :: y (:) real ( REAL32 ), intent ( inout ) :: a (:,:) real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: m , n , lda if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if m = size ( a , 1 ) n = size ( a , 2 ) lda = max ( 1 , m ) call sger ( m , n , local_alpha , x , local_incx , y , local_incy , a , lda ) end subroutine !> Modern interface for [[f77_ger:dger]]. !> See also: [[mfi_ger]], [[f77_ger]]. pure subroutine mfi_dger ( a , x , y , alpha , incx , incy ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x (:) real ( REAL64 ), intent ( in ) :: y (:) real ( REAL64 ), intent ( inout ) :: a (:,:) real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: m , n , lda if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if m = size ( a , 1 ) n = size ( a , 2 ) lda = max ( 1 , m ) call dger ( m , n , local_alpha , x , local_incx , y , local_incy , a , lda ) end subroutine !> Modern interface for [[f77_gerc:cgerc]]. !> See also: [[mfi_gerc]], [[f77_gerc]]. pure subroutine mfi_cgerc ( a , x , y , alpha , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( in ) :: y (:) complex ( REAL32 ), intent ( inout ) :: a (:,:) complex ( REAL32 ), intent ( in ), optional :: alpha complex ( REAL32 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: m , n , lda if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if m = size ( a , 1 ) n = size ( a , 2 ) lda = max ( 1 , m ) call cgerc ( m , n , local_alpha , x , local_incx , y , local_incy , a , lda ) end subroutine !> Modern interface for [[f77_gerc:zgerc]]. !> See also: [[mfi_gerc]], [[f77_gerc]]. pure subroutine mfi_zgerc ( a , x , y , alpha , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( in ) :: y (:) complex ( REAL64 ), intent ( inout ) :: a (:,:) complex ( REAL64 ), intent ( in ), optional :: alpha complex ( REAL64 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: m , n , lda if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if m = size ( a , 1 ) n = size ( a , 2 ) lda = max ( 1 , m ) call zgerc ( m , n , local_alpha , x , local_incx , y , local_incy , a , lda ) end subroutine !> Modern interface for [[f77_geru:cgeru]]. !> See also: [[mfi_geru]], [[f77_geru]]. pure subroutine mfi_cgeru ( a , x , y , alpha , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( in ) :: y (:) complex ( REAL32 ), intent ( inout ) :: a (:,:) complex ( REAL32 ), intent ( in ), optional :: alpha complex ( REAL32 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: m , n , lda if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if m = size ( a , 1 ) n = size ( a , 2 ) lda = max ( 1 , m ) call cgeru ( m , n , local_alpha , x , local_incx , y , local_incy , a , lda ) end subroutine !> Modern interface for [[f77_geru:zgeru]]. !> See also: [[mfi_geru]], [[f77_geru]]. pure subroutine mfi_zgeru ( a , x , y , alpha , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( in ) :: y (:) complex ( REAL64 ), intent ( inout ) :: a (:,:) complex ( REAL64 ), intent ( in ), optional :: alpha complex ( REAL64 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: m , n , lda if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if m = size ( a , 1 ) n = size ( a , 2 ) lda = max ( 1 , m ) call zgeru ( m , n , local_alpha , x , local_incx , y , local_incy , a , lda ) end subroutine !> Modern interface for [[f77_hbmv:chbmv]]. !> See also: [[mfi_hbmv]], [[f77_hbmv]]. pure subroutine mfi_chbmv ( a , x , y , uplo , alpha , beta , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL32 ), intent ( in ), optional :: alpha complex ( REAL32 ) :: local_alpha complex ( REAL32 ), intent ( in ), optional :: beta complex ( REAL32 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , k , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if k = size ( a , 1 ) - 1 lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call chbmv ( local_uplo , n , k , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_hbmv:zhbmv]]. !> See also: [[mfi_hbmv]], [[f77_hbmv]]. pure subroutine mfi_zhbmv ( a , x , y , uplo , alpha , beta , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL64 ), intent ( in ), optional :: alpha complex ( REAL64 ) :: local_alpha complex ( REAL64 ), intent ( in ), optional :: beta complex ( REAL64 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , k , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if k = size ( a , 1 ) - 1 lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call zhbmv ( local_uplo , n , k , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_hemv:chemv]]. !> See also: [[mfi_hemv]], [[f77_hemv]]. pure subroutine mfi_chemv ( a , x , y , uplo , alpha , beta , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL32 ), intent ( in ), optional :: alpha complex ( REAL32 ) :: local_alpha complex ( REAL32 ), intent ( in ), optional :: beta complex ( REAL32 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call chemv ( local_uplo , n , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_hemv:zhemv]]. !> See also: [[mfi_hemv]], [[f77_hemv]]. pure subroutine mfi_zhemv ( a , x , y , uplo , alpha , beta , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL64 ), intent ( in ), optional :: alpha complex ( REAL64 ) :: local_alpha complex ( REAL64 ), intent ( in ), optional :: beta complex ( REAL64 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call zhemv ( local_uplo , n , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_her:cher]]. !> See also: [[mfi_her]], [[f77_her]]. pure subroutine mfi_cher ( a , x , uplo , alpha , incx ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo real ( wp ), intent ( in ), optional :: alpha real ( wp ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call cher ( local_uplo , n , local_alpha , x , local_incx , a , lda ) end subroutine !> Modern interface for [[f77_her:zher]]. !> See also: [[mfi_her]], [[f77_her]]. pure subroutine mfi_zher ( a , x , uplo , alpha , incx ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo real ( wp ), intent ( in ), optional :: alpha real ( wp ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call zher ( local_uplo , n , local_alpha , x , local_incx , a , lda ) end subroutine !> Modern interface for [[f77_her2:cher2]]. !> See also: [[mfi_her2]], [[f77_her2]]. pure subroutine mfi_cher2 ( a , x , y , uplo , alpha , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( in ) :: y (:) complex ( REAL32 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL32 ), intent ( in ), optional :: alpha complex ( REAL32 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call cher2 ( local_uplo , n , local_alpha , x , local_incx , y , local_incy , a , lda ) end subroutine !> Modern interface for [[f77_her2:zher2]]. !> See also: [[mfi_her2]], [[f77_her2]]. pure subroutine mfi_zher2 ( a , x , y , uplo , alpha , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( in ) :: y (:) complex ( REAL64 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL64 ), intent ( in ), optional :: alpha complex ( REAL64 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call zher2 ( local_uplo , n , local_alpha , x , local_incx , y , local_incy , a , lda ) end subroutine !> Modern interface for [[f77_hpmv:chpmv]]. !> See also: [[mfi_hpmv]], [[f77_hpmv]]. pure subroutine mfi_chpmv ( ap , x , y , uplo , alpha , beta , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( in ) :: ap (:) complex ( REAL32 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL32 ), intent ( in ), optional :: alpha complex ( REAL32 ) :: local_alpha complex ( REAL32 ), intent ( in ), optional :: beta complex ( REAL32 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if n = size ( x ) call chpmv ( local_uplo , n , local_alpha , ap , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_hpmv:zhpmv]]. !> See also: [[mfi_hpmv]], [[f77_hpmv]]. pure subroutine mfi_zhpmv ( ap , x , y , uplo , alpha , beta , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( in ) :: ap (:) complex ( REAL64 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL64 ), intent ( in ), optional :: alpha complex ( REAL64 ) :: local_alpha complex ( REAL64 ), intent ( in ), optional :: beta complex ( REAL64 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if n = size ( x ) call zhpmv ( local_uplo , n , local_alpha , ap , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_hpr:chpr]]. !> See also: [[mfi_hpr]], [[f77_hpr]]. pure subroutine mfi_chpr ( ap , x , uplo , alpha , incx ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( inout ) :: ap (:) character , intent ( in ), optional :: uplo character :: local_uplo real ( wp ), intent ( in ), optional :: alpha real ( wp ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call chpr ( local_uplo , n , local_alpha , x , local_incx , ap ) end subroutine !> Modern interface for [[f77_hpr:zhpr]]. !> See also: [[mfi_hpr]], [[f77_hpr]]. pure subroutine mfi_zhpr ( ap , x , uplo , alpha , incx ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( inout ) :: ap (:) character , intent ( in ), optional :: uplo character :: local_uplo real ( wp ), intent ( in ), optional :: alpha real ( wp ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call zhpr ( local_uplo , n , local_alpha , x , local_incx , ap ) end subroutine !> Modern interface for [[f77_hpr2:chpr2]]. !> See also: [[mfi_hpr2]], [[f77_hpr2]]. pure subroutine mfi_chpr2 ( ap , x , y , uplo , alpha , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( in ) :: y (:) complex ( REAL32 ), intent ( inout ) :: ap (:) character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL32 ), intent ( in ), optional :: alpha complex ( REAL32 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if n = size ( x ) call chpr2 ( local_uplo , n , local_alpha , x , local_incx , y , local_incy , ap ) end subroutine !> Modern interface for [[f77_hpr2:zhpr2]]. !> See also: [[mfi_hpr2]], [[f77_hpr2]]. pure subroutine mfi_zhpr2 ( ap , x , y , uplo , alpha , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( in ) :: y (:) complex ( REAL64 ), intent ( inout ) :: ap (:) character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL64 ), intent ( in ), optional :: alpha complex ( REAL64 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if n = size ( x ) call zhpr2 ( local_uplo , n , local_alpha , x , local_incx , y , local_incy , ap ) end subroutine !> Modern interface for [[f77_sbmv:ssbmv]]. !> See also: [[mfi_sbmv]], [[f77_sbmv]]. pure subroutine mfi_ssbmv ( a , x , y , uplo , alpha , beta , incx , incy ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x (:) real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha real ( REAL32 ), intent ( in ), optional :: beta real ( REAL32 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , k , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if k = size ( a , 1 ) - 1 lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call ssbmv ( local_uplo , n , k , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_sbmv:dsbmv]]. !> See also: [[mfi_sbmv]], [[f77_sbmv]]. pure subroutine mfi_dsbmv ( a , x , y , uplo , alpha , beta , incx , incy ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x (:) real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha real ( REAL64 ), intent ( in ), optional :: beta real ( REAL64 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , k , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if k = size ( a , 1 ) - 1 lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call dsbmv ( local_uplo , n , k , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_spmv:sspmv]]. !> See also: [[mfi_spmv]], [[f77_spmv]]. pure subroutine mfi_sspmv ( ap , x , y , uplo , alpha , beta , incx , incy ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x (:) real ( REAL32 ), intent ( in ) :: ap (:) real ( REAL32 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha real ( REAL32 ), intent ( in ), optional :: beta real ( REAL32 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if n = size ( x ) call sspmv ( local_uplo , n , local_alpha , ap , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_spmv:dspmv]]. !> See also: [[mfi_spmv]], [[f77_spmv]]. pure subroutine mfi_dspmv ( ap , x , y , uplo , alpha , beta , incx , incy ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x (:) real ( REAL64 ), intent ( in ) :: ap (:) real ( REAL64 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha real ( REAL64 ), intent ( in ), optional :: beta real ( REAL64 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if n = size ( x ) call dspmv ( local_uplo , n , local_alpha , ap , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_spr:sspr]]. !> See also: [[mfi_spr]], [[f77_spr]]. pure subroutine mfi_sspr ( ap , x , uplo , alpha , incx ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x (:) real ( REAL32 ), intent ( inout ) :: ap (:) character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call sspr ( local_uplo , n , local_alpha , x , local_incx , ap ) end subroutine !> Modern interface for [[f77_spr:dspr]]. !> See also: [[mfi_spr]], [[f77_spr]]. pure subroutine mfi_dspr ( ap , x , uplo , alpha , incx ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x (:) real ( REAL64 ), intent ( inout ) :: ap (:) character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call dspr ( local_uplo , n , local_alpha , x , local_incx , ap ) end subroutine !> Modern interface for [[f77_spr2:sspr2]]. !> See also: [[mfi_spr2]], [[f77_spr2]]. pure subroutine mfi_sspr2 ( ap , x , y , uplo , alpha , incx , incy ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x (:) real ( REAL32 ), intent ( in ) :: y (:) real ( REAL32 ), intent ( inout ) :: ap (:) character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if n = size ( x ) call sspr2 ( local_uplo , n , local_alpha , x , local_incx , y , local_incy , ap ) end subroutine !> Modern interface for [[f77_spr2:dspr2]]. !> See also: [[mfi_spr2]], [[f77_spr2]]. pure subroutine mfi_dspr2 ( ap , x , y , uplo , alpha , incx , incy ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x (:) real ( REAL64 ), intent ( in ) :: y (:) real ( REAL64 ), intent ( inout ) :: ap (:) character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if n = size ( x ) call dspr2 ( local_uplo , n , local_alpha , x , local_incx , y , local_incy , ap ) end subroutine !> Modern interface for [[f77_symv:ssymv]]. !> See also: [[mfi_symv]], [[f77_symv]]. pure subroutine mfi_ssymv ( a , x , y , uplo , alpha , beta , incx , incy ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x (:) real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha real ( REAL32 ), intent ( in ), optional :: beta real ( REAL32 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call ssymv ( local_uplo , n , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_symv:dsymv]]. !> See also: [[mfi_symv]], [[f77_symv]]. pure subroutine mfi_dsymv ( a , x , y , uplo , alpha , beta , incx , incy ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x (:) real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha real ( REAL64 ), intent ( in ), optional :: beta real ( REAL64 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call dsymv ( local_uplo , n , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_syr:ssyr]]. !> See also: [[mfi_syr]], [[f77_syr]]. pure subroutine mfi_ssyr ( a , x , uplo , alpha , incx ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x (:) real ( REAL32 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call ssyr ( local_uplo , n , local_alpha , x , local_incx , a , lda ) end subroutine !> Modern interface for [[f77_syr:dsyr]]. !> See also: [[mfi_syr]], [[f77_syr]]. pure subroutine mfi_dsyr ( a , x , uplo , alpha , incx ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x (:) real ( REAL64 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call dsyr ( local_uplo , n , local_alpha , x , local_incx , a , lda ) end subroutine !> Modern interface for [[f77_syr2:ssyr2]]. !> See also: [[mfi_syr2]], [[f77_syr2]]. pure subroutine mfi_ssyr2 ( a , x , y , uplo , alpha , incx , incy ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x (:) real ( REAL32 ), intent ( in ) :: y (:) real ( REAL32 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call ssyr2 ( local_uplo , n , local_alpha , x , local_incx , y , local_incy , a , lda ) end subroutine !> Modern interface for [[f77_syr2:dsyr2]]. !> See also: [[mfi_syr2]], [[f77_syr2]]. pure subroutine mfi_dsyr2 ( a , x , y , uplo , alpha , incx , incy ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x (:) real ( REAL64 ), intent ( in ) :: y (:) real ( REAL64 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call dsyr2 ( local_uplo , n , local_alpha , x , local_incx , y , local_incy , a , lda ) end subroutine !> Modern interface for [[f77_tbmv:stbmv]]. !> See also: [[mfi_tbmv]], [[f77_tbmv]]. pure subroutine mfi_stbmv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , k , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if k = size ( a , 1 ) - 1 lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call stbmv ( local_uplo , local_trans , local_diag , n , k , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_tbmv:dtbmv]]. !> See also: [[mfi_tbmv]], [[f77_tbmv]]. pure subroutine mfi_dtbmv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , k , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if k = size ( a , 1 ) - 1 lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call dtbmv ( local_uplo , local_trans , local_diag , n , k , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_tbmv:ctbmv]]. !> See also: [[mfi_tbmv]], [[f77_tbmv]]. pure subroutine mfi_ctbmv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , k , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if k = size ( a , 1 ) - 1 lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call ctbmv ( local_uplo , local_trans , local_diag , n , k , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_tbmv:ztbmv]]. !> See also: [[mfi_tbmv]], [[f77_tbmv]]. pure subroutine mfi_ztbmv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , k , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if k = size ( a , 1 ) - 1 lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call ztbmv ( local_uplo , local_trans , local_diag , n , k , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_tbsv:stbsv]]. !> See also: [[mfi_tbsv]], [[f77_tbsv]]. pure subroutine mfi_stbsv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , k , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if k = size ( a , 1 ) - 1 lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call stbsv ( local_uplo , local_trans , local_diag , n , k , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_tbsv:dtbsv]]. !> See also: [[mfi_tbsv]], [[f77_tbsv]]. pure subroutine mfi_dtbsv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , k , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if k = size ( a , 1 ) - 1 lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call dtbsv ( local_uplo , local_trans , local_diag , n , k , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_tbsv:ctbsv]]. !> See also: [[mfi_tbsv]], [[f77_tbsv]]. pure subroutine mfi_ctbsv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , k , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if k = size ( a , 1 ) - 1 lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call ctbsv ( local_uplo , local_trans , local_diag , n , k , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_tbsv:ztbsv]]. !> See also: [[mfi_tbsv]], [[f77_tbsv]]. pure subroutine mfi_ztbsv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , k , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if k = size ( a , 1 ) - 1 lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call ztbsv ( local_uplo , local_trans , local_diag , n , k , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_tpmv:stpmv]]. !> See also: [[mfi_tpmv]], [[f77_tpmv]]. pure subroutine mfi_stpmv ( ap , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: ap (:) real ( REAL32 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call stpmv ( local_uplo , local_trans , local_diag , n , ap , x , local_incx ) end subroutine !> Modern interface for [[f77_tpmv:dtpmv]]. !> See also: [[mfi_tpmv]], [[f77_tpmv]]. pure subroutine mfi_dtpmv ( ap , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: ap (:) real ( REAL64 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call dtpmv ( local_uplo , local_trans , local_diag , n , ap , x , local_incx ) end subroutine !> Modern interface for [[f77_tpmv:ctpmv]]. !> See also: [[mfi_tpmv]], [[f77_tpmv]]. pure subroutine mfi_ctpmv ( ap , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: ap (:) complex ( REAL32 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call ctpmv ( local_uplo , local_trans , local_diag , n , ap , x , local_incx ) end subroutine !> Modern interface for [[f77_tpmv:ztpmv]]. !> See also: [[mfi_tpmv]], [[f77_tpmv]]. pure subroutine mfi_ztpmv ( ap , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: ap (:) complex ( REAL64 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call ztpmv ( local_uplo , local_trans , local_diag , n , ap , x , local_incx ) end subroutine !> Modern interface for [[f77_tpsv:stpsv]]. !> See also: [[mfi_tpsv]], [[f77_tpsv]]. pure subroutine mfi_stpsv ( ap , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: ap (:) real ( REAL32 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call stpsv ( local_uplo , local_trans , local_diag , n , ap , x , local_incx ) end subroutine !> Modern interface for [[f77_tpsv:dtpsv]]. !> See also: [[mfi_tpsv]], [[f77_tpsv]]. pure subroutine mfi_dtpsv ( ap , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: ap (:) real ( REAL64 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call dtpsv ( local_uplo , local_trans , local_diag , n , ap , x , local_incx ) end subroutine !> Modern interface for [[f77_tpsv:ctpsv]]. !> See also: [[mfi_tpsv]], [[f77_tpsv]]. pure subroutine mfi_ctpsv ( ap , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: ap (:) complex ( REAL32 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call ctpsv ( local_uplo , local_trans , local_diag , n , ap , x , local_incx ) end subroutine !> Modern interface for [[f77_tpsv:ztpsv]]. !> See also: [[mfi_tpsv]], [[f77_tpsv]]. pure subroutine mfi_ztpsv ( ap , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: ap (:) complex ( REAL64 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call ztpsv ( local_uplo , local_trans , local_diag , n , ap , x , local_incx ) end subroutine !> Modern interface for [[f77_trmv:strmv]]. !> See also: [[mfi_trmv]], [[f77_trmv]]. pure subroutine mfi_strmv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call strmv ( local_uplo , local_trans , local_diag , n , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_trmv:dtrmv]]. !> See also: [[mfi_trmv]], [[f77_trmv]]. pure subroutine mfi_dtrmv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call dtrmv ( local_uplo , local_trans , local_diag , n , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_trmv:ctrmv]]. !> See also: [[mfi_trmv]], [[f77_trmv]]. pure subroutine mfi_ctrmv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call ctrmv ( local_uplo , local_trans , local_diag , n , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_trmv:ztrmv]]. !> See also: [[mfi_trmv]], [[f77_trmv]]. pure subroutine mfi_ztrmv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call ztrmv ( local_uplo , local_trans , local_diag , n , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_trsv:strsv]]. !> See also: [[mfi_trsv]], [[f77_trsv]]. pure subroutine mfi_strsv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call strsv ( local_uplo , local_trans , local_diag , n , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_trsv:dtrsv]]. !> See also: [[mfi_trsv]], [[f77_trsv]]. pure subroutine mfi_dtrsv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call dtrsv ( local_uplo , local_trans , local_diag , n , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_trsv:ctrsv]]. !> See also: [[mfi_trsv]], [[f77_trsv]]. pure subroutine mfi_ctrsv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call ctrsv ( local_uplo , local_trans , local_diag , n , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_trsv:ztrsv]]. !> See also: [[mfi_trsv]], [[f77_trsv]]. pure subroutine mfi_ztrsv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call ztrsv ( local_uplo , local_trans , local_diag , n , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_gemm:sgemm]]. !> See also: [[mfi_gemm]], [[f77_gemm]]. pure subroutine mfi_sgemm ( a , b , c , transa , transb , alpha , beta ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( in ) :: b (:,:) real ( REAL32 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: transa character :: local_transa character , intent ( in ), optional :: transb character :: local_transb real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha real ( REAL32 ), intent ( in ), optional :: beta real ( REAL32 ) :: local_beta integer :: m , n , k , lda , ldb , ldc if ( present ( transa )) then local_transa = transa else local_transa = 'N' end if if ( present ( transb )) then local_transb = transb else local_transb = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) ldc = max ( 1 , size ( c , 1 )) m = size ( c , 1 ) n = size ( c , 2 ) if ( local_transa == 'N' . or . local_transa == 'n' ) then k = size ( a , 2 ) else k = size ( a , 1 ) end if call sgemm ( local_transa , local_transb , m , n , k , local_alpha , a , lda , b , ldb , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_gemm:dgemm]]. !> See also: [[mfi_gemm]], [[f77_gemm]]. pure subroutine mfi_dgemm ( a , b , c , transa , transb , alpha , beta ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( in ) :: b (:,:) real ( REAL64 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: transa character :: local_transa character , intent ( in ), optional :: transb character :: local_transb real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha real ( REAL64 ), intent ( in ), optional :: beta real ( REAL64 ) :: local_beta integer :: m , n , k , lda , ldb , ldc if ( present ( transa )) then local_transa = transa else local_transa = 'N' end if if ( present ( transb )) then local_transb = transb else local_transb = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) ldc = max ( 1 , size ( c , 1 )) m = size ( c , 1 ) n = size ( c , 2 ) if ( local_transa == 'N' . or . local_transa == 'n' ) then k = size ( a , 2 ) else k = size ( a , 1 ) end if call dgemm ( local_transa , local_transb , m , n , k , local_alpha , a , lda , b , ldb , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_gemm:cgemm]]. !> See also: [[mfi_gemm]], [[f77_gemm]]. pure subroutine mfi_cgemm ( a , b , c , transa , transb , alpha , beta ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( in ) :: b (:,:) complex ( REAL32 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: transa character :: local_transa character , intent ( in ), optional :: transb character :: local_transb complex ( REAL32 ), intent ( in ), optional :: alpha complex ( REAL32 ) :: local_alpha complex ( REAL32 ), intent ( in ), optional :: beta complex ( REAL32 ) :: local_beta integer :: m , n , k , lda , ldb , ldc if ( present ( transa )) then local_transa = transa else local_transa = 'N' end if if ( present ( transb )) then local_transb = transb else local_transb = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) ldc = max ( 1 , size ( c , 1 )) m = size ( c , 1 ) n = size ( c , 2 ) if ( local_transa == 'N' . or . local_transa == 'n' ) then k = size ( a , 2 ) else k = size ( a , 1 ) end if call cgemm ( local_transa , local_transb , m , n , k , local_alpha , a , lda , b , ldb , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_gemm:zgemm]]. !> See also: [[mfi_gemm]], [[f77_gemm]]. pure subroutine mfi_zgemm ( a , b , c , transa , transb , alpha , beta ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( in ) :: b (:,:) complex ( REAL64 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: transa character :: local_transa character , intent ( in ), optional :: transb character :: local_transb complex ( REAL64 ), intent ( in ), optional :: alpha complex ( REAL64 ) :: local_alpha complex ( REAL64 ), intent ( in ), optional :: beta complex ( REAL64 ) :: local_beta integer :: m , n , k , lda , ldb , ldc if ( present ( transa )) then local_transa = transa else local_transa = 'N' end if if ( present ( transb )) then local_transb = transb else local_transb = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) ldc = max ( 1 , size ( c , 1 )) m = size ( c , 1 ) n = size ( c , 2 ) if ( local_transa == 'N' . or . local_transa == 'n' ) then k = size ( a , 2 ) else k = size ( a , 1 ) end if call zgemm ( local_transa , local_transb , m , n , k , local_alpha , a , lda , b , ldb , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_hemm:chemm]]. !> See also: [[mfi_hemm]], [[f77_hemm]]. pure subroutine mfi_chemm ( a , b , c , side , uplo , alpha , beta ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( in ) :: b (:,:) complex ( REAL32 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: side character :: local_side character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL32 ), intent ( in ), optional :: alpha complex ( REAL32 ) :: local_alpha complex ( REAL32 ), intent ( in ), optional :: beta complex ( REAL32 ) :: local_beta integer :: m , n , lda , ldb , ldc if ( present ( side )) then local_side = side else local_side = 'L' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) ldc = max ( 1 , size ( c , 1 )) m = size ( c , 1 ) n = size ( c , 2 ) call chemm ( local_side , local_uplo , m , n , local_alpha , a , lda , b , ldb , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_hemm:zhemm]]. !> See also: [[mfi_hemm]], [[f77_hemm]]. pure subroutine mfi_zhemm ( a , b , c , side , uplo , alpha , beta ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( in ) :: b (:,:) complex ( REAL64 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: side character :: local_side character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL64 ), intent ( in ), optional :: alpha complex ( REAL64 ) :: local_alpha complex ( REAL64 ), intent ( in ), optional :: beta complex ( REAL64 ) :: local_beta integer :: m , n , lda , ldb , ldc if ( present ( side )) then local_side = side else local_side = 'L' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) ldc = max ( 1 , size ( c , 1 )) m = size ( c , 1 ) n = size ( c , 2 ) call zhemm ( local_side , local_uplo , m , n , local_alpha , a , lda , b , ldb , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_herk:cherk]]. !> See also: [[mfi_herk]], [[f77_herk]]. pure subroutine mfi_cherk ( a , c , uplo , trans , alpha , beta ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: uplo character :: local_uplo real ( wp ), intent ( in ), optional :: alpha real ( wp ) :: local_alpha real ( wp ), intent ( in ), optional :: beta real ( wp ) :: local_beta integer :: n , k , lda , ldc if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if n = size ( c , 2 ) if ( local_trans == 'N' . or . local_trans == 'n' ) then k = size ( a , 2 ) else k = size ( a , 1 ) end if lda = max ( 1 , size ( a , 1 )) ldc = max ( 1 , size ( c , 1 )) call cherk ( local_uplo , local_trans , n , k , local_alpha , a , lda , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_herk:zherk]]. !> See also: [[mfi_herk]], [[f77_herk]]. pure subroutine mfi_zherk ( a , c , uplo , trans , alpha , beta ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: uplo character :: local_uplo real ( wp ), intent ( in ), optional :: alpha real ( wp ) :: local_alpha real ( wp ), intent ( in ), optional :: beta real ( wp ) :: local_beta integer :: n , k , lda , ldc if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if n = size ( c , 2 ) if ( local_trans == 'N' . or . local_trans == 'n' ) then k = size ( a , 2 ) else k = size ( a , 1 ) end if lda = max ( 1 , size ( a , 1 )) ldc = max ( 1 , size ( c , 1 )) call zherk ( local_uplo , local_trans , n , k , local_alpha , a , lda , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_her2k:cher2k]]. !> See also: [[mfi_her2k]], [[f77_her2k]]. pure subroutine mfi_cher2k ( a , b , c , uplo , trans , alpha , beta ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( in ) :: b (:,:) complex ( REAL32 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL32 ), intent ( in ), optional :: alpha complex ( REAL32 ) :: local_alpha real ( wp ), intent ( in ), optional :: beta real ( wp ) :: local_beta integer :: n , k , lda , ldb , ldc if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if n = size ( c , 2 ) if ( local_trans == 'N' . or . local_trans == 'n' ) then k = size ( a , 2 ) else k = size ( a , 1 ) end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) ldc = max ( 1 , size ( c , 1 )) call cher2k ( local_uplo , local_trans , n , k , local_alpha , a , lda , b , ldb , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_her2k:zher2k]]. !> See also: [[mfi_her2k]], [[f77_her2k]]. pure subroutine mfi_zher2k ( a , b , c , uplo , trans , alpha , beta ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( in ) :: b (:,:) complex ( REAL64 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL64 ), intent ( in ), optional :: alpha complex ( REAL64 ) :: local_alpha real ( wp ), intent ( in ), optional :: beta real ( wp ) :: local_beta integer :: n , k , lda , ldb , ldc if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if n = size ( c , 2 ) if ( local_trans == 'N' . or . local_trans == 'n' ) then k = size ( a , 2 ) else k = size ( a , 1 ) end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) ldc = max ( 1 , size ( c , 1 )) call zher2k ( local_uplo , local_trans , n , k , local_alpha , a , lda , b , ldb , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_symm:ssymm]]. !> See also: [[mfi_symm]], [[f77_symm]]. pure subroutine mfi_ssymm ( a , b , c , side , uplo , alpha , beta ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( in ) :: b (:,:) real ( REAL32 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: side character :: local_side character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha real ( REAL32 ), intent ( in ), optional :: beta real ( REAL32 ) :: local_beta integer :: m , n , lda , ldb , ldc if ( present ( side )) then local_side = side else local_side = 'L' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) ldc = max ( 1 , size ( c , 1 )) m = size ( c , 1 ) n = size ( c , 2 ) call ssymm ( local_side , local_uplo , m , n , local_alpha , a , lda , b , ldb , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_symm:dsymm]]. !> See also: [[mfi_symm]], [[f77_symm]]. pure subroutine mfi_dsymm ( a , b , c , side , uplo , alpha , beta ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( in ) :: b (:,:) real ( REAL64 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: side character :: local_side character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha real ( REAL64 ), intent ( in ), optional :: beta real ( REAL64 ) :: local_beta integer :: m , n , lda , ldb , ldc if ( present ( side )) then local_side = side else local_side = 'L' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) ldc = max ( 1 , size ( c , 1 )) m = size ( c , 1 ) n = size ( c , 2 ) call dsymm ( local_side , local_uplo , m , n , local_alpha , a , lda , b , ldb , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_syrk:ssyrk]]. !> See also: [[mfi_syrk]], [[f77_syrk]]. pure subroutine mfi_ssyrk ( a , c , uplo , trans , alpha , beta ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha real ( REAL32 ), intent ( in ), optional :: beta real ( REAL32 ) :: local_beta integer :: n , k , lda , ldc if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if n = size ( c , 2 ) if ( local_trans == 'N' . or . local_trans == 'n' ) then k = size ( a , 2 ) else k = size ( a , 1 ) end if lda = max ( 1 , size ( a , 1 )) ldc = max ( 1 , size ( c , 1 )) call ssyrk ( local_uplo , local_trans , n , k , local_alpha , a , lda , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_syrk:dsyrk]]. !> See also: [[mfi_syrk]], [[f77_syrk]]. pure subroutine mfi_dsyrk ( a , c , uplo , trans , alpha , beta ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha real ( REAL64 ), intent ( in ), optional :: beta real ( REAL64 ) :: local_beta integer :: n , k , lda , ldc if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if n = size ( c , 2 ) if ( local_trans == 'N' . or . local_trans == 'n' ) then k = size ( a , 2 ) else k = size ( a , 1 ) end if lda = max ( 1 , size ( a , 1 )) ldc = max ( 1 , size ( c , 1 )) call dsyrk ( local_uplo , local_trans , n , k , local_alpha , a , lda , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_syr2k:ssyr2k]]. !> See also: [[mfi_syr2k]], [[f77_syr2k]]. pure subroutine mfi_ssyr2k ( a , b , c , uplo , trans , alpha , beta ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( in ) :: b (:,:) real ( REAL32 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha real ( REAL32 ), intent ( in ), optional :: beta real ( REAL32 ) :: local_beta integer :: n , k , lda , ldb , ldc if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if n = size ( c , 2 ) if ( local_trans == 'N' . or . local_trans == 'n' ) then k = size ( a , 2 ) else k = size ( a , 1 ) end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) ldc = max ( 1 , size ( c , 1 )) call ssyr2k ( local_uplo , local_trans , n , k , local_alpha , a , lda , b , ldb , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_syr2k:dsyr2k]]. !> See also: [[mfi_syr2k]], [[f77_syr2k]]. pure subroutine mfi_dsyr2k ( a , b , c , uplo , trans , alpha , beta ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( in ) :: b (:,:) real ( REAL64 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha real ( REAL64 ), intent ( in ), optional :: beta real ( REAL64 ) :: local_beta integer :: n , k , lda , ldb , ldc if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if n = size ( c , 2 ) if ( local_trans == 'N' . or . local_trans == 'n' ) then k = size ( a , 2 ) else k = size ( a , 1 ) end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) ldc = max ( 1 , size ( c , 1 )) call dsyr2k ( local_uplo , local_trans , n , k , local_alpha , a , lda , b , ldb , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_trmm:strmm]]. !> See also: [[mfi_trmm]], [[f77_trmm]]. pure subroutine mfi_strmm ( a , b , side , uplo , transa , diag , alpha ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( inout ) :: b (:,:) character , intent ( in ), optional :: side character :: local_side character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: transa character :: local_transa character , intent ( in ), optional :: diag character :: local_diag real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha integer :: m , n , lda , ldb if ( present ( side )) then local_side = side else local_side = 'L' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( transa )) then local_transa = transa else local_transa = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if m = size ( b , 1 ) n = size ( b , 2 ) lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) call strmm ( local_side , local_uplo , local_transa , local_diag , m , n , local_alpha , a , lda , b , ldb ) end subroutine !> Modern interface for [[f77_trmm:dtrmm]]. !> See also: [[mfi_trmm]], [[f77_trmm]]. pure subroutine mfi_dtrmm ( a , b , side , uplo , transa , diag , alpha ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( inout ) :: b (:,:) character , intent ( in ), optional :: side character :: local_side character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: transa character :: local_transa character , intent ( in ), optional :: diag character :: local_diag real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha integer :: m , n , lda , ldb if ( present ( side )) then local_side = side else local_side = 'L' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( transa )) then local_transa = transa else local_transa = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if m = size ( b , 1 ) n = size ( b , 2 ) lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) call dtrmm ( local_side , local_uplo , local_transa , local_diag , m , n , local_alpha , a , lda , b , ldb ) end subroutine !> Modern interface for [[f77_trmm:ctrmm]]. !> See also: [[mfi_trmm]], [[f77_trmm]]. pure subroutine mfi_ctrmm ( a , b , side , uplo , transa , diag , alpha ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( inout ) :: b (:,:) character , intent ( in ), optional :: side character :: local_side character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: transa character :: local_transa character , intent ( in ), optional :: diag character :: local_diag complex ( REAL32 ), intent ( in ), optional :: alpha complex ( REAL32 ) :: local_alpha integer :: m , n , lda , ldb if ( present ( side )) then local_side = side else local_side = 'L' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( transa )) then local_transa = transa else local_transa = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if m = size ( b , 1 ) n = size ( b , 2 ) lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) call ctrmm ( local_side , local_uplo , local_transa , local_diag , m , n , local_alpha , a , lda , b , ldb ) end subroutine !> Modern interface for [[f77_trmm:ztrmm]]. !> See also: [[mfi_trmm]], [[f77_trmm]]. pure subroutine mfi_ztrmm ( a , b , side , uplo , transa , diag , alpha ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( inout ) :: b (:,:) character , intent ( in ), optional :: side character :: local_side character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: transa character :: local_transa character , intent ( in ), optional :: diag character :: local_diag complex ( REAL64 ), intent ( in ), optional :: alpha complex ( REAL64 ) :: local_alpha integer :: m , n , lda , ldb if ( present ( side )) then local_side = side else local_side = 'L' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( transa )) then local_transa = transa else local_transa = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if m = size ( b , 1 ) n = size ( b , 2 ) lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) call ztrmm ( local_side , local_uplo , local_transa , local_diag , m , n , local_alpha , a , lda , b , ldb ) end subroutine !> Modern interface for [[f77_trsm:strsm]]. !> See also: [[mfi_trsm]], [[f77_trsm]]. pure subroutine mfi_strsm ( a , b , side , uplo , transa , diag , alpha ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( inout ) :: b (:,:) character , intent ( in ), optional :: side character :: local_side character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: transa character :: local_transa character , intent ( in ), optional :: diag character :: local_diag real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha integer :: m , n , lda , ldb if ( present ( side )) then local_side = side else local_side = 'L' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( transa )) then local_transa = transa else local_transa = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if m = size ( b , 1 ) n = size ( b , 2 ) lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) call strsm ( local_side , local_uplo , local_transa , local_diag , m , n , local_alpha , a , lda , b , ldb ) end subroutine !> Modern interface for [[f77_trsm:dtrsm]]. !> See also: [[mfi_trsm]], [[f77_trsm]]. pure subroutine mfi_dtrsm ( a , b , side , uplo , transa , diag , alpha ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( inout ) :: b (:,:) character , intent ( in ), optional :: side character :: local_side character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: transa character :: local_transa character , intent ( in ), optional :: diag character :: local_diag real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha integer :: m , n , lda , ldb if ( present ( side )) then local_side = side else local_side = 'L' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( transa )) then local_transa = transa else local_transa = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if m = size ( b , 1 ) n = size ( b , 2 ) lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) call dtrsm ( local_side , local_uplo , local_transa , local_diag , m , n , local_alpha , a , lda , b , ldb ) end subroutine !> Modern interface for [[f77_trsm:ctrsm]]. !> See also: [[mfi_trsm]], [[f77_trsm]]. pure subroutine mfi_ctrsm ( a , b , side , uplo , transa , diag , alpha ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( inout ) :: b (:,:) character , intent ( in ), optional :: side character :: local_side character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: transa character :: local_transa character , intent ( in ), optional :: diag character :: local_diag complex ( REAL32 ), intent ( in ), optional :: alpha complex ( REAL32 ) :: local_alpha integer :: m , n , lda , ldb if ( present ( side )) then local_side = side else local_side = 'L' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( transa )) then local_transa = transa else local_transa = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if m = size ( b , 1 ) n = size ( b , 2 ) lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) call ctrsm ( local_side , local_uplo , local_transa , local_diag , m , n , local_alpha , a , lda , b , ldb ) end subroutine !> Modern interface for [[f77_trsm:ztrsm]]. !> See also: [[mfi_trsm]], [[f77_trsm]]. pure subroutine mfi_ztrsm ( a , b , side , uplo , transa , diag , alpha ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( inout ) :: b (:,:) character , intent ( in ), optional :: side character :: local_side character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: transa character :: local_transa character , intent ( in ), optional :: diag character :: local_diag complex ( REAL64 ), intent ( in ), optional :: alpha complex ( REAL64 ) :: local_alpha integer :: m , n , lda , ldb if ( present ( side )) then local_side = side else local_side = 'L' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( transa )) then local_transa = transa else local_transa = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if m = size ( b , 1 ) n = size ( b , 2 ) lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) call ztrsm ( local_side , local_uplo , local_transa , local_diag , m , n , local_alpha , a , lda , b , ldb ) end subroutine !> Modern interface for [[f77_lamch:slamch]]. !> See also: [[mfi_lamch]], [[f77_lamch]]. pure function mfi_slamch ( cmach , kind ) result ( res ) integer , parameter :: wp = REAL32 character , intent ( in ) :: cmach real ( REAL32 ), intent ( in ) :: kind !! Just a kind placeholder real ( REAL32 ) :: res res = slamch ( cmach ) end function !> Modern interface for [[f77_lamch:dlamch]]. !> See also: [[mfi_lamch]], [[f77_lamch]]. pure function mfi_dlamch ( cmach , kind ) result ( res ) integer , parameter :: wp = REAL64 character , intent ( in ) :: cmach real ( REAL64 ), intent ( in ) :: kind !! Just a kind placeholder real ( REAL64 ) :: res res = dlamch ( cmach ) end function ! Extensions ! BLAS level 1 - Utils / Extensions !> Modern interface for [[f77_iamax:isamax]]. !> See also: [[mfi_iamax]], [[f77_iamax]]. pure function mfi_isamax ( x , incx ) integer , parameter :: wp = REAL32 integer :: mfi_isamax real ( REAL32 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_isamax = isamax ( n , x , local_incx ) end function !> Modern interface for [[f77_iamax:idamax]]. !> See also: [[mfi_iamax]], [[f77_iamax]]. pure function mfi_idamax ( x , incx ) integer , parameter :: wp = REAL64 integer :: mfi_idamax real ( REAL64 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_idamax = idamax ( n , x , local_incx ) end function !> Modern interface for [[f77_iamax:icamax]]. !> See also: [[mfi_iamax]], [[f77_iamax]]. pure function mfi_icamax ( x , incx ) integer , parameter :: wp = REAL32 integer :: mfi_icamax complex ( REAL32 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_icamax = icamax ( n , x , local_incx ) end function !> Modern interface for [[f77_iamax:izamax]]. !> See also: [[mfi_iamax]], [[f77_iamax]]. pure function mfi_izamax ( x , incx ) integer , parameter :: wp = REAL64 integer :: mfi_izamax complex ( REAL64 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_izamax = izamax ( n , x , local_incx ) end function !> Modern interface for [[f77_iamin:isamin]]. !> See also: [[mfi_iamin]], [[f77_iamin]]. pure function mfi_isamin ( x , incx ) integer , parameter :: wp = REAL32 integer :: mfi_isamin real ( REAL32 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_isamin = isamin ( n , x , local_incx ) end function !> Modern interface for [[f77_iamin:idamin]]. !> See also: [[mfi_iamin]], [[f77_iamin]]. pure function mfi_idamin ( x , incx ) integer , parameter :: wp = REAL64 integer :: mfi_idamin real ( REAL64 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_idamin = idamin ( n , x , local_incx ) end function !> Modern interface for [[f77_iamin:icamin]]. !> See also: [[mfi_iamin]], [[f77_iamin]]. pure function mfi_icamin ( x , incx ) integer , parameter :: wp = REAL32 integer :: mfi_icamin complex ( REAL32 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_icamin = icamin ( n , x , local_incx ) end function !> Modern interface for [[f77_iamin:izamin]]. !> See also: [[mfi_iamin]], [[f77_iamin]]. pure function mfi_izamin ( x , incx ) integer , parameter :: wp = REAL64 integer :: mfi_izamin complex ( REAL64 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_izamin = izamin ( n , x , local_incx ) end function end module","tags":"","loc":"sourcefile/blas.f90.html"},{"title":"blas.f90 – MFI - Modern Fortran Interfaces","text":"Source Code !> Improved and original F77 interfaces for BLAS module f77_blas use iso_fortran_env implicit none !> Generic old style interface for COPY. !> Supports s, d, c, z. !> See also: [[mfi_copy]], [[scopy]],[[dcopy]],[[ccopy]],[[zcopy]]. interface f77_copy !> Original interface for SCOPY !> See also: [[mfi_copy]], [[f77_copy]]. pure subroutine scopy ( n , x , incx , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( inout ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for DCOPY !> See also: [[mfi_copy]], [[f77_copy]]. pure subroutine dcopy ( n , x , incx , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( inout ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for CCOPY !> See also: [[mfi_copy]], [[f77_copy]]. pure subroutine ccopy ( n , x , incx , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( inout ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for ZCOPY !> See also: [[mfi_copy]], [[f77_copy]]. pure subroutine zcopy ( n , x , incx , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( inout ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for SWAP. !> Supports s, d, c, z. !> See also: [[mfi_swap]], [[sswap]],[[dswap]],[[cswap]],[[zswap]]. interface f77_swap !> Original interface for SSWAP !> See also: [[mfi_swap]], [[f77_swap]]. pure subroutine sswap ( n , x , incx , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( inout ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for DSWAP !> See also: [[mfi_swap]], [[f77_swap]]. pure subroutine dswap ( n , x , incx , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( inout ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for CSWAP !> See also: [[mfi_swap]], [[f77_swap]]. pure subroutine cswap ( n , x , incx , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( inout ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for ZSWAP !> See also: [[mfi_swap]], [[f77_swap]]. pure subroutine zswap ( n , x , incx , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( inout ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for AXPY. !> Supports s, d, c, z. !> See also: [[mfi_axpy]], [[saxpy]],[[daxpy]],[[caxpy]],[[zaxpy]]. interface f77_axpy !> Original interface for SAXPY !> See also: [[mfi_axpy]], [[f77_axpy]]. pure subroutine saxpy ( n , a , x , incx , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( in ) :: a real ( REAL32 ), intent ( inout ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for DAXPY !> See also: [[mfi_axpy]], [[f77_axpy]]. pure subroutine daxpy ( n , a , x , incx , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( in ) :: a real ( REAL64 ), intent ( inout ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for CAXPY !> See also: [[mfi_axpy]], [[f77_axpy]]. pure subroutine caxpy ( n , a , x , incx , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( in ) :: a complex ( REAL32 ), intent ( inout ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for ZAXPY !> See also: [[mfi_axpy]], [[f77_axpy]]. pure subroutine zaxpy ( n , a , x , incx , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( in ) :: a complex ( REAL64 ), intent ( inout ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for DOT. !> Supports s, d. !> See also: [[mfi_dot]], [[sdot]],[[ddot]]. interface f77_dot !> Original interface for SDOT !> See also: [[mfi_dot]], [[f77_dot]]. pure function sdot ( n , x , incx , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ) :: sdot real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( in ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end function !> Original interface for DDOT !> See also: [[mfi_dot]], [[f77_dot]]. pure function ddot ( n , x , incx , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ) :: ddot real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( in ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end function end interface !> Generic old style interface for DOTC. !> Supports c, z. !> See also: [[mfi_dotc]], [[cdotc]],[[zdotc]]. interface f77_dotc !> Original interface for CDOTC !> See also: [[mfi_dotc]], [[f77_dotc]]. pure function cdotc ( n , x , incx , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ) :: cdotc complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( in ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end function !> Original interface for ZDOTC !> See also: [[mfi_dotc]], [[f77_dotc]]. pure function zdotc ( n , x , incx , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ) :: zdotc complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( in ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end function end interface !> Generic old style interface for DOTU. !> Supports c, z. !> See also: [[mfi_dotu]], [[cdotu]],[[zdotu]]. interface f77_dotu !> Original interface for CDOTU !> See also: [[mfi_dotu]], [[f77_dotu]]. pure function cdotu ( n , x , incx , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ) :: cdotu complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( in ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end function !> Original interface for ZDOTU !> See also: [[mfi_dotu]], [[f77_dotu]]. pure function zdotu ( n , x , incx , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ) :: zdotu complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( in ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end function end interface !> Generic old style interface for ASUM. !> Supports s, d, sc, dz. !> See also: [[mfi_asum]], [[sasum]],[[dasum]],[[scasum]],[[dzasum]]. interface f77_asum !> Original interface for SASUM !> See also: [[mfi_asum]], [[f77_asum]]. pure function sasum ( n , x , incx ) import :: REAL32 real ( REAL32 ) :: sasum real ( REAL32 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx end function !> Original interface for DASUM !> See also: [[mfi_asum]], [[f77_asum]]. pure function dasum ( n , x , incx ) import :: REAL64 real ( REAL64 ) :: dasum real ( REAL64 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx end function !> Original interface for SCASUM !> See also: [[mfi_asum]], [[f77_asum]]. pure function scasum ( n , x , incx ) import :: REAL32 real ( REAL32 ) :: scasum complex ( REAL32 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx end function !> Original interface for DZASUM !> See also: [[mfi_asum]], [[f77_asum]]. pure function dzasum ( n , x , incx ) import :: REAL64 real ( REAL64 ) :: dzasum complex ( REAL64 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx end function end interface !> Generic old style interface for NRM2. !> Supports s, d, sc, dz. !> See also: [[mfi_nrm2]], [[snrm2]],[[dnrm2]],[[scnrm2]],[[dznrm2]]. interface f77_nrm2 !> Original interface for SNRM2 !> See also: [[mfi_nrm2]], [[f77_nrm2]]. pure function snrm2 ( n , x , incx ) import :: REAL32 real ( REAL32 ) :: snrm2 real ( REAL32 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx end function !> Original interface for DNRM2 !> See also: [[mfi_nrm2]], [[f77_nrm2]]. pure function dnrm2 ( n , x , incx ) import :: REAL64 real ( REAL64 ) :: dnrm2 real ( REAL64 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx end function !> Original interface for SCNRM2 !> See also: [[mfi_nrm2]], [[f77_nrm2]]. pure function scnrm2 ( n , x , incx ) import :: REAL32 real ( REAL32 ) :: scnrm2 complex ( REAL32 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx end function !> Original interface for DZNRM2 !> See also: [[mfi_nrm2]], [[f77_nrm2]]. pure function dznrm2 ( n , x , incx ) import :: REAL64 real ( REAL64 ) :: dznrm2 complex ( REAL64 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx end function end interface !> Generic old style interface for ROT. !> Supports s, d, c, z, cs, zd. !> See also: [[mfi_rot]], [[srot]],[[drot]],[[crot]],[[zrot]],[[csrot]],[[zdrot]]. interface f77_rot !> Original interface for SROT !> See also: [[mfi_rot]], [[f77_rot]]. !> SROT applies a plane rotation. pure subroutine srot ( n , x , incx , y , incy , c , s ) import :: REAL32 real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( in ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy real ( REAL32 ), intent ( in ) :: c real ( REAL32 ), intent ( in ) :: s end subroutine !> Original interface for DROT !> See also: [[mfi_rot]], [[f77_rot]]. !> DROT applies a plane rotation. pure subroutine drot ( n , x , incx , y , incy , c , s ) import :: REAL64 real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( in ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy real ( REAL64 ), intent ( in ) :: c real ( REAL64 ), intent ( in ) :: s end subroutine !> Original interface for CROT !> See also: [[mfi_rot]], [[f77_rot]]. !> CROT applies a plane rotation. pure subroutine crot ( n , x , incx , y , incy , c , s ) import :: REAL32 complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( in ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy real ( REAL32 ), intent ( in ) :: c complex ( REAL32 ), intent ( in ) :: s end subroutine !> Original interface for ZROT !> See also: [[mfi_rot]], [[f77_rot]]. !> ZROT applies a plane rotation. pure subroutine zrot ( n , x , incx , y , incy , c , s ) import :: REAL64 complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( in ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy real ( REAL64 ), intent ( in ) :: c complex ( REAL64 ), intent ( in ) :: s end subroutine !> Original interface for CSROT !> See also: [[mfi_rot]], [[f77_rot]]. !> CSROT applies a plane rotation. pure subroutine csrot ( n , x , incx , y , incy , c , s ) import :: REAL32 complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( in ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy real ( REAL32 ), intent ( in ) :: c real ( REAL32 ), intent ( in ) :: s end subroutine !> Original interface for ZDROT !> See also: [[mfi_rot]], [[f77_rot]]. !> ZDROT applies a plane rotation. pure subroutine zdrot ( n , x , incx , y , incy , c , s ) import :: REAL64 complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( in ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy real ( REAL64 ), intent ( in ) :: c real ( REAL64 ), intent ( in ) :: s end subroutine end interface !> Generic old style interface for ROTG. !> Supports s, d, c, z. !> See also: [[mfi_rotg]], [[srotg]],[[drotg]],[[crotg]],[[zrotg]]. interface f77_rotg !> Original interface for SROTG !> See also: [[mfi_rotg]], [[f77_rotg]]. !>srotg generates a Givens rotation with real cosine and complex sine: !>``` !> [  c  s ] [ a ] = [ r ] !> [ -s  c ] [ b ]   [ 0 ] !>``` !> satisfying `c**2 + s**2 = 1`. pure subroutine srotg ( a , b , c , s ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a real ( REAL32 ), intent ( inout ) :: b real ( REAL32 ), intent ( out ) :: c real ( REAL32 ), intent ( out ) :: s end subroutine !> Original interface for DROTG !> See also: [[mfi_rotg]], [[f77_rotg]]. !>drotg generates a Givens rotation with real cosine and complex sine: !>``` !> [  c  s ] [ a ] = [ r ] !> [ -s  c ] [ b ]   [ 0 ] !>``` !> satisfying `c**2 + s**2 = 1`. pure subroutine drotg ( a , b , c , s ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a real ( REAL64 ), intent ( inout ) :: b real ( REAL64 ), intent ( out ) :: c real ( REAL64 ), intent ( out ) :: s end subroutine !> Original interface for CROTG !> See also: [[mfi_rotg]], [[f77_rotg]]. !>crotg generates a Givens rotation with real cosine and complex sine: !>``` !>  [  c         s ] [ a ] = [ r ] !>  [ -conjg(s)  c ] [ b ]   [ 0 ] !>``` !> where c is real, s is complex, and `c**2 + conjg(s)*s = 1`. pure subroutine crotg ( a , b , c , s ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a complex ( REAL32 ), intent ( inout ) :: b real ( REAL32 ), intent ( out ) :: c complex ( REAL32 ), intent ( out ) :: s end subroutine !> Original interface for ZROTG !> See also: [[mfi_rotg]], [[f77_rotg]]. !>zrotg generates a Givens rotation with real cosine and complex sine: !>``` !>  [  c         s ] [ a ] = [ r ] !>  [ -conjg(s)  c ] [ b ]   [ 0 ] !>``` !> where c is real, s is complex, and `c**2 + conjg(s)*s = 1`. pure subroutine zrotg ( a , b , c , s ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a complex ( REAL64 ), intent ( inout ) :: b real ( REAL64 ), intent ( out ) :: c complex ( REAL64 ), intent ( out ) :: s end subroutine end interface !> Generic old style interface for ROTM. !> Supports s, d. !> See also: [[mfi_rotm]], [[srotm]],[[drotm]]. interface f77_rotm !> Original interface for SROTM !> See also: [[mfi_rotm]], [[f77_rotm]]. pure subroutine srotm ( n , x , incx , y , incy , param ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: x ( * ) real ( REAL32 ), intent ( inout ) :: y ( * ) real ( REAL32 ), intent ( in ) :: param ( 5 ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for DROTM !> See also: [[mfi_rotm]], [[f77_rotm]]. pure subroutine drotm ( n , x , incx , y , incy , param ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: x ( * ) real ( REAL64 ), intent ( inout ) :: y ( * ) real ( REAL64 ), intent ( in ) :: param ( 5 ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for ROTMG. !> Supports s, d. !> See also: [[mfi_rotmg]], [[srotmg]],[[drotmg]]. interface f77_rotmg !> Original interface for SROTMG !> See also: [[mfi_rotmg]], [[f77_rotmg]]. pure subroutine srotmg ( d1 , d2 , x1 , y1 , param ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: y1 real ( REAL32 ), intent ( out ) :: param ( 5 ) real ( REAL32 ), intent ( inout ) :: d1 real ( REAL32 ), intent ( inout ) :: d2 real ( REAL32 ), intent ( inout ) :: x1 end subroutine !> Original interface for DROTMG !> See also: [[mfi_rotmg]], [[f77_rotmg]]. pure subroutine drotmg ( d1 , d2 , x1 , y1 , param ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: y1 real ( REAL64 ), intent ( out ) :: param ( 5 ) real ( REAL64 ), intent ( inout ) :: d1 real ( REAL64 ), intent ( inout ) :: d2 real ( REAL64 ), intent ( inout ) :: x1 end subroutine end interface !> Generic old style interface for SCAL. !> Supports s, d, c, z, cs, zd. !> See also: [[mfi_scal]], [[sscal]],[[dscal]],[[cscal]],[[zscal]],[[csscal]],[[zdscal]]. interface f77_scal !> Original interface for SSCAL !> See also: [[mfi_scal]], [[f77_scal]]. !> SSCAL scales a vector by a constant. pure subroutine sscal ( n , a , x , incx ) import :: REAL32 real ( REAL32 ), intent ( inout ) :: x ( * ) real ( REAL32 ), intent ( in ) :: a integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine !> Original interface for DSCAL !> See also: [[mfi_scal]], [[f77_scal]]. !> DSCAL scales a vector by a constant. pure subroutine dscal ( n , a , x , incx ) import :: REAL64 real ( REAL64 ), intent ( inout ) :: x ( * ) real ( REAL64 ), intent ( in ) :: a integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine !> Original interface for CSCAL !> See also: [[mfi_scal]], [[f77_scal]]. !> CSCAL scales a vector by a constant. pure subroutine cscal ( n , a , x , incx ) import :: REAL32 complex ( REAL32 ), intent ( inout ) :: x ( * ) complex ( REAL32 ), intent ( in ) :: a integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine !> Original interface for ZSCAL !> See also: [[mfi_scal]], [[f77_scal]]. !> ZSCAL scales a vector by a constant. pure subroutine zscal ( n , a , x , incx ) import :: REAL64 complex ( REAL64 ), intent ( inout ) :: x ( * ) complex ( REAL64 ), intent ( in ) :: a integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine !> Original interface for CSSCAL !> See also: [[mfi_scal]], [[f77_scal]]. !> CSSCAL scales a vector by a constant. pure subroutine csscal ( n , a , x , incx ) import :: REAL32 complex ( REAL32 ), intent ( inout ) :: x ( * ) real ( REAL32 ), intent ( in ) :: a integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine !> Original interface for ZDSCAL !> See also: [[mfi_scal]], [[f77_scal]]. !> ZDSCAL scales a vector by a constant. pure subroutine zdscal ( n , a , x , incx ) import :: REAL64 complex ( REAL64 ), intent ( inout ) :: x ( * ) real ( REAL64 ), intent ( in ) :: a integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine end interface !> Generic old style interface for GBMV. !> Supports s, d, c, z. !> See also: [[mfi_gbmv]], [[sgbmv]],[[dgbmv]],[[cgbmv]],[[zgbmv]]. interface f77_gbmv !> Original interface for SGBMV !> See also: [[mfi_gbmv]], [[f77_gbmv]]. pure subroutine sgbmv ( trans , m , n , kl , ku , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: trans real ( REAL32 ), intent ( in ) :: alpha real ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: kl integer , intent ( in ) :: ku integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for DGBMV !> See also: [[mfi_gbmv]], [[f77_gbmv]]. pure subroutine dgbmv ( trans , m , n , kl , ku , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: trans real ( REAL64 ), intent ( in ) :: alpha real ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: kl integer , intent ( in ) :: ku integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for CGBMV !> See also: [[mfi_gbmv]], [[f77_gbmv]]. pure subroutine cgbmv ( trans , m , n , kl , ku , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: trans complex ( REAL32 ), intent ( in ) :: alpha complex ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: kl integer , intent ( in ) :: ku integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for ZGBMV !> See also: [[mfi_gbmv]], [[f77_gbmv]]. pure subroutine zgbmv ( trans , m , n , kl , ku , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: trans complex ( REAL64 ), intent ( in ) :: alpha complex ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: kl integer , intent ( in ) :: ku integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for GEMV. !> Supports s, d, c, z. !> See also: [[mfi_gemv]], [[sgemv]],[[dgemv]],[[cgemv]],[[zgemv]]. interface f77_gemv !> Original interface for SGEMV !> See also: [[mfi_gemv]], [[f77_gemv]]. pure subroutine sgemv ( trans , m , n , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: trans real ( REAL32 ), intent ( in ) :: alpha real ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for DGEMV !> See also: [[mfi_gemv]], [[f77_gemv]]. pure subroutine dgemv ( trans , m , n , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: trans real ( REAL64 ), intent ( in ) :: alpha real ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for CGEMV !> See also: [[mfi_gemv]], [[f77_gemv]]. pure subroutine cgemv ( trans , m , n , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: trans complex ( REAL32 ), intent ( in ) :: alpha complex ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for ZGEMV !> See also: [[mfi_gemv]], [[f77_gemv]]. pure subroutine zgemv ( trans , m , n , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: trans complex ( REAL64 ), intent ( in ) :: alpha complex ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for GER. !> Supports s, d. !> See also: [[mfi_ger]], [[sger]],[[dger]]. interface f77_ger !> Original interface for SGER !> See also: [[mfi_ger]], [[f77_ger]]. pure subroutine sger ( m , n , alpha , x , incx , y , incy , a , lda ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( in ) :: y ( * ) real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( in ) :: alpha integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for DGER !> See also: [[mfi_ger]], [[f77_ger]]. pure subroutine dger ( m , n , alpha , x , incx , y , incy , a , lda ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( in ) :: y ( * ) real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( in ) :: alpha integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for GERC. !> Supports c, z. !> See also: [[mfi_gerc]], [[cgerc]],[[zgerc]]. interface f77_gerc !> Original interface for CGERC !> See also: [[mfi_gerc]], [[f77_gerc]]. pure subroutine cgerc ( m , n , alpha , x , incx , y , incy , a , lda ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( in ) :: y ( * ) complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( in ) :: alpha integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for ZGERC !> See also: [[mfi_gerc]], [[f77_gerc]]. pure subroutine zgerc ( m , n , alpha , x , incx , y , incy , a , lda ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( in ) :: y ( * ) complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( in ) :: alpha integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for GERU. !> Supports c, z. !> See also: [[mfi_geru]], [[cgeru]],[[zgeru]]. interface f77_geru !> Original interface for CGERU !> See also: [[mfi_geru]], [[f77_geru]]. pure subroutine cgeru ( m , n , alpha , x , incx , y , incy , a , lda ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( in ) :: y ( * ) complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( in ) :: alpha integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for ZGERU !> See also: [[mfi_geru]], [[f77_geru]]. pure subroutine zgeru ( m , n , alpha , x , incx , y , incy , a , lda ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( in ) :: y ( * ) complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( in ) :: alpha integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for HBMV. !> Supports c, z. !> See also: [[mfi_hbmv]], [[chbmv]],[[zhbmv]]. interface f77_hbmv !> Original interface for CHBMV !> See also: [[mfi_hbmv]], [[f77_hbmv]]. pure subroutine chbmv ( uplo , n , k , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: uplo complex ( REAL32 ), intent ( in ) :: alpha complex ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for ZHBMV !> See also: [[mfi_hbmv]], [[f77_hbmv]]. pure subroutine zhbmv ( uplo , n , k , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: uplo complex ( REAL64 ), intent ( in ) :: alpha complex ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for HEMV. !> Supports c, z. !> See also: [[mfi_hemv]], [[chemv]],[[zhemv]]. interface f77_hemv !> Original interface for CHEMV !> See also: [[mfi_hemv]], [[f77_hemv]]. pure subroutine chemv ( uplo , n , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: uplo complex ( REAL32 ), intent ( in ) :: alpha complex ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for ZHEMV !> See also: [[mfi_hemv]], [[f77_hemv]]. pure subroutine zhemv ( uplo , n , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: uplo complex ( REAL64 ), intent ( in ) :: alpha complex ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for HER. !> Supports c, z. !> See also: [[mfi_her]], [[cher]],[[zher]]. interface f77_her !> Original interface for CHER !> See also: [[mfi_her]], [[f77_her]]. pure subroutine cher ( uplo , n , alpha , x , incx , a , lda ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) character , intent ( in ) :: uplo real ( wp ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine !> Original interface for ZHER !> See also: [[mfi_her]], [[f77_her]]. pure subroutine zher ( uplo , n , alpha , x , incx , a , lda ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) character , intent ( in ) :: uplo real ( wp ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine end interface !> Generic old style interface for HER2. !> Supports c, z. !> See also: [[mfi_her2]], [[cher2]],[[zher2]]. interface f77_her2 !> Original interface for CHER2 !> See also: [[mfi_her2]], [[f77_her2]]. pure subroutine cher2 ( uplo , n , alpha , x , incx , y , incy , a , lda ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( in ) :: y ( * ) complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) character , intent ( in ) :: uplo complex ( REAL32 ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for ZHER2 !> See also: [[mfi_her2]], [[f77_her2]]. pure subroutine zher2 ( uplo , n , alpha , x , incx , y , incy , a , lda ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( in ) :: y ( * ) complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) character , intent ( in ) :: uplo complex ( REAL64 ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for HPMV. !> Supports c, z. !> See also: [[mfi_hpmv]], [[chpmv]],[[zhpmv]]. interface f77_hpmv !> Original interface for CHPMV !> See also: [[mfi_hpmv]], [[f77_hpmv]]. pure subroutine chpmv ( uplo , n , alpha , ap , x , incx , beta , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: ap ( * ) complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: uplo complex ( REAL32 ), intent ( in ) :: alpha complex ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for ZHPMV !> See also: [[mfi_hpmv]], [[f77_hpmv]]. pure subroutine zhpmv ( uplo , n , alpha , ap , x , incx , beta , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: ap ( * ) complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: uplo complex ( REAL64 ), intent ( in ) :: alpha complex ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for HPR. !> Supports c, z. !> See also: [[mfi_hpr]], [[chpr]],[[zhpr]]. interface f77_hpr !> Original interface for CHPR !> See also: [[mfi_hpr]], [[f77_hpr]]. pure subroutine chpr ( uplo , n , alpha , x , incx , ap ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( inout ) :: ap ( * ) character , intent ( in ) :: uplo real ( wp ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine !> Original interface for ZHPR !> See also: [[mfi_hpr]], [[f77_hpr]]. pure subroutine zhpr ( uplo , n , alpha , x , incx , ap ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( inout ) :: ap ( * ) character , intent ( in ) :: uplo real ( wp ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine end interface !> Generic old style interface for HPR2. !> Supports c, z. !> See also: [[mfi_hpr2]], [[chpr2]],[[zhpr2]]. interface f77_hpr2 !> Original interface for CHPR2 !> See also: [[mfi_hpr2]], [[f77_hpr2]]. pure subroutine chpr2 ( uplo , n , alpha , x , incx , y , incy , ap ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( in ) :: y ( * ) complex ( REAL32 ), intent ( inout ) :: ap ( * ) character , intent ( in ) :: uplo complex ( REAL32 ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for ZHPR2 !> See also: [[mfi_hpr2]], [[f77_hpr2]]. pure subroutine zhpr2 ( uplo , n , alpha , x , incx , y , incy , ap ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( in ) :: y ( * ) complex ( REAL64 ), intent ( inout ) :: ap ( * ) character , intent ( in ) :: uplo complex ( REAL64 ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for SBMV. !> Supports s, d. !> See also: [[mfi_sbmv]], [[ssbmv]],[[dsbmv]]. interface f77_sbmv !> Original interface for SSBMV !> See also: [[mfi_sbmv]], [[f77_sbmv]]. pure subroutine ssbmv ( uplo , n , k , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: uplo real ( REAL32 ), intent ( in ) :: alpha real ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for DSBMV !> See also: [[mfi_sbmv]], [[f77_sbmv]]. pure subroutine dsbmv ( uplo , n , k , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: uplo real ( REAL64 ), intent ( in ) :: alpha real ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for SPMV. !> Supports s, d. !> See also: [[mfi_spmv]], [[sspmv]],[[dspmv]]. interface f77_spmv !> Original interface for SSPMV !> See also: [[mfi_spmv]], [[f77_spmv]]. pure subroutine sspmv ( uplo , n , alpha , ap , x , incx , beta , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: ap ( * ) real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: uplo real ( REAL32 ), intent ( in ) :: alpha real ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for DSPMV !> See also: [[mfi_spmv]], [[f77_spmv]]. pure subroutine dspmv ( uplo , n , alpha , ap , x , incx , beta , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: ap ( * ) real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: uplo real ( REAL64 ), intent ( in ) :: alpha real ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for SPR. !> Supports s, d. !> See also: [[mfi_spr]], [[sspr]],[[dspr]]. interface f77_spr !> Original interface for SSPR !> See also: [[mfi_spr]], [[f77_spr]]. pure subroutine sspr ( uplo , n , alpha , x , incx , ap ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( inout ) :: ap ( * ) character , intent ( in ) :: uplo real ( REAL32 ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine !> Original interface for DSPR !> See also: [[mfi_spr]], [[f77_spr]]. pure subroutine dspr ( uplo , n , alpha , x , incx , ap ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( inout ) :: ap ( * ) character , intent ( in ) :: uplo real ( REAL64 ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine end interface !> Generic old style interface for SPR2. !> Supports s, d. !> See also: [[mfi_spr2]], [[sspr2]],[[dspr2]]. interface f77_spr2 !> Original interface for SSPR2 !> See also: [[mfi_spr2]], [[f77_spr2]]. pure subroutine sspr2 ( uplo , n , alpha , x , incx , y , incy , ap ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( in ) :: y ( * ) real ( REAL32 ), intent ( inout ) :: ap ( * ) character , intent ( in ) :: uplo real ( REAL32 ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for DSPR2 !> See also: [[mfi_spr2]], [[f77_spr2]]. pure subroutine dspr2 ( uplo , n , alpha , x , incx , y , incy , ap ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( in ) :: y ( * ) real ( REAL64 ), intent ( inout ) :: ap ( * ) character , intent ( in ) :: uplo real ( REAL64 ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for SYMV. !> Supports s, d. !> See also: [[mfi_symv]], [[ssymv]],[[dsymv]]. interface f77_symv !> Original interface for SSYMV !> See also: [[mfi_symv]], [[f77_symv]]. pure subroutine ssymv ( uplo , n , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: uplo real ( REAL32 ), intent ( in ) :: alpha real ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for DSYMV !> See also: [[mfi_symv]], [[f77_symv]]. pure subroutine dsymv ( uplo , n , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: uplo real ( REAL64 ), intent ( in ) :: alpha real ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for SYR. !> Supports s, d. !> See also: [[mfi_syr]], [[ssyr]],[[dsyr]]. interface f77_syr !> Original interface for SSYR !> See also: [[mfi_syr]], [[f77_syr]]. pure subroutine ssyr ( uplo , n , alpha , x , incx , a , lda ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( inout ) :: a ( lda , * ) character , intent ( in ) :: uplo real ( REAL32 ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine !> Original interface for DSYR !> See also: [[mfi_syr]], [[f77_syr]]. pure subroutine dsyr ( uplo , n , alpha , x , incx , a , lda ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( inout ) :: a ( lda , * ) character , intent ( in ) :: uplo real ( REAL64 ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine end interface !> Generic old style interface for SYR2. !> Supports s, d. !> See also: [[mfi_syr2]], [[ssyr2]],[[dsyr2]]. interface f77_syr2 !> Original interface for SSYR2 !> See also: [[mfi_syr2]], [[f77_syr2]]. pure subroutine ssyr2 ( uplo , n , alpha , x , incx , y , incy , a , lda ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( in ) :: y ( * ) real ( REAL32 ), intent ( inout ) :: a ( lda , * ) character , intent ( in ) :: uplo real ( REAL32 ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for DSYR2 !> See also: [[mfi_syr2]], [[f77_syr2]]. pure subroutine dsyr2 ( uplo , n , alpha , x , incx , y , incy , a , lda ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( in ) :: y ( * ) real ( REAL64 ), intent ( inout ) :: a ( lda , * ) character , intent ( in ) :: uplo real ( REAL64 ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for TBMV. !> Supports s, d, c, z. !> See also: [[mfi_tbmv]], [[stbmv]],[[dtbmv]],[[ctbmv]],[[ztbmv]]. interface f77_tbmv !> Original interface for STBMV !> See also: [[mfi_tbmv]], [[f77_tbmv]]. pure subroutine stbmv ( uplo , trans , diag , n , k , a , lda , x , incx ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine !> Original interface for DTBMV !> See also: [[mfi_tbmv]], [[f77_tbmv]]. pure subroutine dtbmv ( uplo , trans , diag , n , k , a , lda , x , incx ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine !> Original interface for CTBMV !> See also: [[mfi_tbmv]], [[f77_tbmv]]. pure subroutine ctbmv ( uplo , trans , diag , n , k , a , lda , x , incx ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine !> Original interface for ZTBMV !> See also: [[mfi_tbmv]], [[f77_tbmv]]. pure subroutine ztbmv ( uplo , trans , diag , n , k , a , lda , x , incx ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine end interface !> Generic old style interface for TBSV. !> Supports s, d, c, z. !> See also: [[mfi_tbsv]], [[stbsv]],[[dtbsv]],[[ctbsv]],[[ztbsv]]. interface f77_tbsv !> Original interface for STBSV !> See also: [[mfi_tbsv]], [[f77_tbsv]]. pure subroutine stbsv ( uplo , trans , diag , n , k , a , lda , x , incx ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine !> Original interface for DTBSV !> See also: [[mfi_tbsv]], [[f77_tbsv]]. pure subroutine dtbsv ( uplo , trans , diag , n , k , a , lda , x , incx ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine !> Original interface for CTBSV !> See also: [[mfi_tbsv]], [[f77_tbsv]]. pure subroutine ctbsv ( uplo , trans , diag , n , k , a , lda , x , incx ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine !> Original interface for ZTBSV !> See also: [[mfi_tbsv]], [[f77_tbsv]]. pure subroutine ztbsv ( uplo , trans , diag , n , k , a , lda , x , incx ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine end interface !> Generic old style interface for TPMV. !> Supports s, d, c, z. !> See also: [[mfi_tpmv]], [[stpmv]],[[dtpmv]],[[ctpmv]],[[ztpmv]]. interface f77_tpmv !> Original interface for STPMV !> See also: [[mfi_tpmv]], [[f77_tpmv]]. pure subroutine stpmv ( uplo , trans , diag , n , ap , x , incx ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: ap ( * ) real ( REAL32 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine !> Original interface for DTPMV !> See also: [[mfi_tpmv]], [[f77_tpmv]]. pure subroutine dtpmv ( uplo , trans , diag , n , ap , x , incx ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: ap ( * ) real ( REAL64 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine !> Original interface for CTPMV !> See also: [[mfi_tpmv]], [[f77_tpmv]]. pure subroutine ctpmv ( uplo , trans , diag , n , ap , x , incx ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: ap ( * ) complex ( REAL32 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine !> Original interface for ZTPMV !> See also: [[mfi_tpmv]], [[f77_tpmv]]. pure subroutine ztpmv ( uplo , trans , diag , n , ap , x , incx ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: ap ( * ) complex ( REAL64 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine end interface !> Generic old style interface for TPSV. !> Supports s, d, c, z. !> See also: [[mfi_tpsv]], [[stpsv]],[[dtpsv]],[[ctpsv]],[[ztpsv]]. interface f77_tpsv !> Original interface for STPSV !> See also: [[mfi_tpsv]], [[f77_tpsv]]. pure subroutine stpsv ( uplo , trans , diag , n , ap , x , incx ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: ap ( * ) real ( REAL32 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine !> Original interface for DTPSV !> See also: [[mfi_tpsv]], [[f77_tpsv]]. pure subroutine dtpsv ( uplo , trans , diag , n , ap , x , incx ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: ap ( * ) real ( REAL64 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine !> Original interface for CTPSV !> See also: [[mfi_tpsv]], [[f77_tpsv]]. pure subroutine ctpsv ( uplo , trans , diag , n , ap , x , incx ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: ap ( * ) complex ( REAL32 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine !> Original interface for ZTPSV !> See also: [[mfi_tpsv]], [[f77_tpsv]]. pure subroutine ztpsv ( uplo , trans , diag , n , ap , x , incx ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: ap ( * ) complex ( REAL64 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine end interface !> Generic old style interface for TRMV. !> Supports s, d, c, z. !> See also: [[mfi_trmv]], [[strmv]],[[dtrmv]],[[ctrmv]],[[ztrmv]]. interface f77_trmv !> Original interface for STRMV !> See also: [[mfi_trmv]], [[f77_trmv]]. pure subroutine strmv ( uplo , trans , diag , n , a , lda , x , incx ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine !> Original interface for DTRMV !> See also: [[mfi_trmv]], [[f77_trmv]]. pure subroutine dtrmv ( uplo , trans , diag , n , a , lda , x , incx ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine !> Original interface for CTRMV !> See also: [[mfi_trmv]], [[f77_trmv]]. pure subroutine ctrmv ( uplo , trans , diag , n , a , lda , x , incx ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine !> Original interface for ZTRMV !> See also: [[mfi_trmv]], [[f77_trmv]]. pure subroutine ztrmv ( uplo , trans , diag , n , a , lda , x , incx ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine end interface !> Generic old style interface for TRSV. !> Supports s, d, c, z. !> See also: [[mfi_trsv]], [[strsv]],[[dtrsv]],[[ctrsv]],[[ztrsv]]. interface f77_trsv !> Original interface for STRSV !> See also: [[mfi_trsv]], [[f77_trsv]]. pure subroutine strsv ( uplo , trans , diag , n , a , lda , x , incx ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine !> Original interface for DTRSV !> See also: [[mfi_trsv]], [[f77_trsv]]. pure subroutine dtrsv ( uplo , trans , diag , n , a , lda , x , incx ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine !> Original interface for CTRSV !> See also: [[mfi_trsv]], [[f77_trsv]]. pure subroutine ctrsv ( uplo , trans , diag , n , a , lda , x , incx ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine !> Original interface for ZTRSV !> See also: [[mfi_trsv]], [[f77_trsv]]. pure subroutine ztrsv ( uplo , trans , diag , n , a , lda , x , incx ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine end interface !> Generic old style interface for GEMM. !> Supports s, d, c, z. !> See also: [[mfi_gemm]], [[sgemm]],[[dgemm]],[[cgemm]],[[zgemm]]. interface f77_gemm !> Original interface for SGEMM !> See also: [[mfi_gemm]], [[f77_gemm]]. pure subroutine sgemm ( transa , transb , m , n , k , alpha , a , lda , b , ldb , beta , c , ldc ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( in ) :: b ( ldb , * ) real ( REAL32 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: transa character , intent ( in ) :: transb real ( REAL32 ), intent ( in ) :: alpha real ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: ldc end subroutine !> Original interface for DGEMM !> See also: [[mfi_gemm]], [[f77_gemm]]. pure subroutine dgemm ( transa , transb , m , n , k , alpha , a , lda , b , ldb , beta , c , ldc ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( in ) :: b ( ldb , * ) real ( REAL64 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: transa character , intent ( in ) :: transb real ( REAL64 ), intent ( in ) :: alpha real ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: ldc end subroutine !> Original interface for CGEMM !> See also: [[mfi_gemm]], [[f77_gemm]]. pure subroutine cgemm ( transa , transb , m , n , k , alpha , a , lda , b , ldb , beta , c , ldc ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( in ) :: b ( ldb , * ) complex ( REAL32 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: transa character , intent ( in ) :: transb complex ( REAL32 ), intent ( in ) :: alpha complex ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: ldc end subroutine !> Original interface for ZGEMM !> See also: [[mfi_gemm]], [[f77_gemm]]. pure subroutine zgemm ( transa , transb , m , n , k , alpha , a , lda , b , ldb , beta , c , ldc ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( in ) :: b ( ldb , * ) complex ( REAL64 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: transa character , intent ( in ) :: transb complex ( REAL64 ), intent ( in ) :: alpha complex ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: ldc end subroutine end interface !> Generic old style interface for HEMM. !> Supports c, z. !> See also: [[mfi_hemm]], [[chemm]],[[zhemm]]. interface f77_hemm !> Original interface for CHEMM !> See also: [[mfi_hemm]], [[f77_hemm]]. pure subroutine chemm ( side , uplo , m , n , alpha , a , lda , b , ldb , beta , c , ldc ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( in ) :: b ( ldb , * ) complex ( REAL32 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: side character , intent ( in ) :: uplo complex ( REAL32 ), intent ( in ) :: alpha complex ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: ldc end subroutine !> Original interface for ZHEMM !> See also: [[mfi_hemm]], [[f77_hemm]]. pure subroutine zhemm ( side , uplo , m , n , alpha , a , lda , b , ldb , beta , c , ldc ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( in ) :: b ( ldb , * ) complex ( REAL64 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: side character , intent ( in ) :: uplo complex ( REAL64 ), intent ( in ) :: alpha complex ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: ldc end subroutine end interface !> Generic old style interface for HERK. !> Supports c, z. !> See also: [[mfi_herk]], [[cherk]],[[zherk]]. interface f77_herk !> Original interface for CHERK !> See also: [[mfi_herk]], [[f77_herk]]. pure subroutine cherk ( uplo , trans , n , k , alpha , a , lda , beta , c , ldc ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: trans character , intent ( in ) :: uplo real ( wp ), intent ( in ) :: alpha real ( wp ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc end subroutine !> Original interface for ZHERK !> See also: [[mfi_herk]], [[f77_herk]]. pure subroutine zherk ( uplo , trans , n , k , alpha , a , lda , beta , c , ldc ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: trans character , intent ( in ) :: uplo real ( wp ), intent ( in ) :: alpha real ( wp ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc end subroutine end interface !> Generic old style interface for HER2K. !> Supports c, z. !> See also: [[mfi_her2k]], [[cher2k]],[[zher2k]]. interface f77_her2k !> Original interface for CHER2K !> See also: [[mfi_her2k]], [[f77_her2k]]. pure subroutine cher2k ( uplo , trans , n , k , alpha , a , lda , b , ldb , beta , c , ldc ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( in ) :: b ( ldb , * ) complex ( REAL32 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: trans character , intent ( in ) :: uplo complex ( REAL32 ), intent ( in ) :: alpha real ( wp ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: ldc end subroutine !> Original interface for ZHER2K !> See also: [[mfi_her2k]], [[f77_her2k]]. pure subroutine zher2k ( uplo , trans , n , k , alpha , a , lda , b , ldb , beta , c , ldc ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( in ) :: b ( ldb , * ) complex ( REAL64 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: trans character , intent ( in ) :: uplo complex ( REAL64 ), intent ( in ) :: alpha real ( wp ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: ldc end subroutine end interface !> Generic old style interface for SYMM. !> Supports s, d. !> See also: [[mfi_symm]], [[ssymm]],[[dsymm]]. interface f77_symm !> Original interface for SSYMM !> See also: [[mfi_symm]], [[f77_symm]]. pure subroutine ssymm ( side , uplo , m , n , alpha , a , lda , b , ldb , beta , c , ldc ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( in ) :: b ( ldb , * ) real ( REAL32 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: side character , intent ( in ) :: uplo real ( REAL32 ), intent ( in ) :: alpha real ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: ldc end subroutine !> Original interface for DSYMM !> See also: [[mfi_symm]], [[f77_symm]]. pure subroutine dsymm ( side , uplo , m , n , alpha , a , lda , b , ldb , beta , c , ldc ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( in ) :: b ( ldb , * ) real ( REAL64 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: side character , intent ( in ) :: uplo real ( REAL64 ), intent ( in ) :: alpha real ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: ldc end subroutine end interface !> Generic old style interface for SYRK. !> Supports s, d. !> See also: [[mfi_syrk]], [[ssyrk]],[[dsyrk]]. interface f77_syrk !> Original interface for SSYRK !> See also: [[mfi_syrk]], [[f77_syrk]]. pure subroutine ssyrk ( uplo , trans , n , k , alpha , a , lda , beta , c , ldc ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: trans character , intent ( in ) :: uplo real ( REAL32 ), intent ( in ) :: alpha real ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc end subroutine !> Original interface for DSYRK !> See also: [[mfi_syrk]], [[f77_syrk]]. pure subroutine dsyrk ( uplo , trans , n , k , alpha , a , lda , beta , c , ldc ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: trans character , intent ( in ) :: uplo real ( REAL64 ), intent ( in ) :: alpha real ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc end subroutine end interface !> Generic old style interface for SYR2K. !> Supports s, d. !> See also: [[mfi_syr2k]], [[ssyr2k]],[[dsyr2k]]. interface f77_syr2k !> Original interface for SSYR2K !> See also: [[mfi_syr2k]], [[f77_syr2k]]. pure subroutine ssyr2k ( uplo , trans , n , k , alpha , a , lda , b , ldb , beta , c , ldc ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( in ) :: b ( ldb , * ) real ( REAL32 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: trans character , intent ( in ) :: uplo real ( REAL32 ), intent ( in ) :: alpha real ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: ldc end subroutine !> Original interface for DSYR2K !> See also: [[mfi_syr2k]], [[f77_syr2k]]. pure subroutine dsyr2k ( uplo , trans , n , k , alpha , a , lda , b , ldb , beta , c , ldc ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( in ) :: b ( ldb , * ) real ( REAL64 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: trans character , intent ( in ) :: uplo real ( REAL64 ), intent ( in ) :: alpha real ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: ldc end subroutine end interface !> Generic old style interface for TRMM. !> Supports s, d, c, z. !> See also: [[mfi_trmm]], [[strmm]],[[dtrmm]],[[ctrmm]],[[ztrmm]]. interface f77_trmm !> Original interface for STRMM !> See also: [[mfi_trmm]], [[f77_trmm]]. pure subroutine strmm ( side , uplo , transa , diag , m , n , alpha , a , lda , b , ldb ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: b ( ldb , * ) character , intent ( in ) :: side character , intent ( in ) :: uplo character , intent ( in ) :: transa character , intent ( in ) :: diag real ( REAL32 ), intent ( in ) :: alpha integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb end subroutine !> Original interface for DTRMM !> See also: [[mfi_trmm]], [[f77_trmm]]. pure subroutine dtrmm ( side , uplo , transa , diag , m , n , alpha , a , lda , b , ldb ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: b ( ldb , * ) character , intent ( in ) :: side character , intent ( in ) :: uplo character , intent ( in ) :: transa character , intent ( in ) :: diag real ( REAL64 ), intent ( in ) :: alpha integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb end subroutine !> Original interface for CTRMM !> See also: [[mfi_trmm]], [[f77_trmm]]. pure subroutine ctrmm ( side , uplo , transa , diag , m , n , alpha , a , lda , b , ldb ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: b ( ldb , * ) character , intent ( in ) :: side character , intent ( in ) :: uplo character , intent ( in ) :: transa character , intent ( in ) :: diag complex ( REAL32 ), intent ( in ) :: alpha integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb end subroutine !> Original interface for ZTRMM !> See also: [[mfi_trmm]], [[f77_trmm]]. pure subroutine ztrmm ( side , uplo , transa , diag , m , n , alpha , a , lda , b , ldb ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: b ( ldb , * ) character , intent ( in ) :: side character , intent ( in ) :: uplo character , intent ( in ) :: transa character , intent ( in ) :: diag complex ( REAL64 ), intent ( in ) :: alpha integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb end subroutine end interface !> Generic old style interface for TRSM. !> Supports s, d, c, z. !> See also: [[mfi_trsm]], [[strsm]],[[dtrsm]],[[ctrsm]],[[ztrsm]]. interface f77_trsm !> Original interface for STRSM !> See also: [[mfi_trsm]], [[f77_trsm]]. pure subroutine strsm ( side , uplo , transa , diag , m , n , alpha , a , lda , b , ldb ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: b ( ldb , * ) character , intent ( in ) :: side character , intent ( in ) :: uplo character , intent ( in ) :: transa character , intent ( in ) :: diag real ( REAL32 ), intent ( in ) :: alpha integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb end subroutine !> Original interface for DTRSM !> See also: [[mfi_trsm]], [[f77_trsm]]. pure subroutine dtrsm ( side , uplo , transa , diag , m , n , alpha , a , lda , b , ldb ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: b ( ldb , * ) character , intent ( in ) :: side character , intent ( in ) :: uplo character , intent ( in ) :: transa character , intent ( in ) :: diag real ( REAL64 ), intent ( in ) :: alpha integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb end subroutine !> Original interface for CTRSM !> See also: [[mfi_trsm]], [[f77_trsm]]. pure subroutine ctrsm ( side , uplo , transa , diag , m , n , alpha , a , lda , b , ldb ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: b ( ldb , * ) character , intent ( in ) :: side character , intent ( in ) :: uplo character , intent ( in ) :: transa character , intent ( in ) :: diag complex ( REAL32 ), intent ( in ) :: alpha integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb end subroutine !> Original interface for ZTRSM !> See also: [[mfi_trsm]], [[f77_trsm]]. pure subroutine ztrsm ( side , uplo , transa , diag , m , n , alpha , a , lda , b , ldb ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: b ( ldb , * ) character , intent ( in ) :: side character , intent ( in ) :: uplo character , intent ( in ) :: transa character , intent ( in ) :: diag complex ( REAL64 ), intent ( in ) :: alpha integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb end subroutine end interface !> ?lamch supports s, d. See [[mfi_lamch]] for the modern version. interface !> SLAMCH determines single precision machine parameters. pure real ( REAL32 ) function slamch ( cmach ) import :: REAL32 character , intent ( in ) :: cmach end function !> DLAMCH determines double precision machine parameters. pure real ( REAL64 ) function dlamch ( cmach ) import :: REAL64 character , intent ( in ) :: cmach end function end interface interface !> Compute the inner product of two vectors with extended !> precision accumulation. !> !> Returns S.P. result with dot product accumulated in D.P. !> SDSDOT = SB + sum for I = 0 to N-1 of SX(LX+I*INCX)*SY(LY+I*INCY), !> where LX = 1 if INCX .GE. 0, else LX = 1+(1-N)*INCX, and LY is !> defined in a similar way using INCY. pure function sdsdot ( n , sb , sx , incx , sy , incy ) import :: REAL32 integer , parameter :: wp = REAL32 real ( wp ) :: sdsdot real ( wp ), intent ( in ) :: sx ( * ) real ( wp ), intent ( in ) :: sy ( * ) real ( wp ), intent ( in ) :: sb integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end function !> Compute the inner product of two vectors with extended !> precision accumulation and result. !> !> Returns D.P. dot product accumulated in D.P., for S.P. SX and SY !> DSDOT = sum for I = 0 to N-1 of  SX(LX+I*INCX) * SY(LY+I*INCY), !> where LX = 1 if INCX .GE. 0, else LX = 1+(1-N)*INCX, and LY is !> defined in a similar way using INCY. pure function dsdot ( n , sx , incx , sy , incy ) import :: REAL32 , REAL64 integer , parameter :: sp = REAL32 integer , parameter :: dp = REAL64 real ( dp ) :: dsdot real ( sp ), intent ( in ) :: sx ( * ) real ( sp ), intent ( in ) :: sy ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end function end interface ! Extensions ! BLAS Level 1 - Utils / Extensions ! Implement the blas extensions in interface f77_iamax procedure :: isamax procedure :: idamax procedure :: icamax procedure :: izamax end interface interface f77_iamin procedure :: isamin procedure :: idamin procedure :: icamin procedure :: izamin end interface contains pure function isamax ( n , x , incx ) integer , parameter :: wp = REAL32 integer :: isamax real ( REAL32 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx !If either n or incx are not positive, the routine returns 0. if ( n <= 0 . or . incx <= 0 ) then isamax = 0 return end if isamax = minloc ( x ( 1 : n : incx ), dim = 1 ) end function pure function idamax ( n , x , incx ) integer , parameter :: wp = REAL64 integer :: idamax real ( REAL64 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx !If either n or incx are not positive, the routine returns 0. if ( n <= 0 . or . incx <= 0 ) then idamax = 0 return end if idamax = minloc ( x ( 1 : n : incx ), dim = 1 ) end function pure function icamax ( n , x , incx ) integer , parameter :: wp = REAL32 integer :: icamax complex ( REAL32 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx !If either n or incx are not positive, the routine returns 0. if ( n <= 0 . or . incx <= 0 ) then icamax = 0 return end if icamax = minloc ( abs ( real ( x ( 1 : n : incx ))) + abs ( aimag ( x ( 1 : n : incx ))), dim = 1 ) end function pure function izamax ( n , x , incx ) integer , parameter :: wp = REAL64 integer :: izamax complex ( REAL64 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx !If either n or incx are not positive, the routine returns 0. if ( n <= 0 . or . incx <= 0 ) then izamax = 0 return end if izamax = minloc ( abs ( real ( x ( 1 : n : incx ))) + abs ( aimag ( x ( 1 : n : incx ))), dim = 1 ) end function pure function isamin ( n , x , incx ) integer , parameter :: wp = REAL32 integer :: isamin real ( REAL32 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx !If either n or incx are not positive, the routine returns 0. if ( n <= 0 . or . incx <= 0 ) then isamin = 0 return end if isamin = minloc ( x ( 1 : n : incx ), dim = 1 ) end function pure function idamin ( n , x , incx ) integer , parameter :: wp = REAL64 integer :: idamin real ( REAL64 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx !If either n or incx are not positive, the routine returns 0. if ( n <= 0 . or . incx <= 0 ) then idamin = 0 return end if idamin = minloc ( x ( 1 : n : incx ), dim = 1 ) end function pure function icamin ( n , x , incx ) integer , parameter :: wp = REAL32 integer :: icamin complex ( REAL32 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx !If either n or incx are not positive, the routine returns 0. if ( n <= 0 . or . incx <= 0 ) then icamin = 0 return end if icamin = minloc ( abs ( real ( x ( 1 : n : incx ))) + abs ( aimag ( x ( 1 : n : incx ))), dim = 1 ) end function pure function izamin ( n , x , incx ) integer , parameter :: wp = REAL64 integer :: izamin complex ( REAL64 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx !If either n or incx are not positive, the routine returns 0. if ( n <= 0 . or . incx <= 0 ) then izamin = 0 return end if izamin = minloc ( abs ( real ( x ( 1 : n : incx ))) + abs ( aimag ( x ( 1 : n : incx ))), dim = 1 ) end function end module","tags":"","loc":"sourcefile/blas.f90~2.html"}]}
\ No newline at end of file
+var tipuesearch = {"pages":[{"title":" MFI - Modern Fortran Interfaces ","text":"MFI - Modern Fortran Interfaces Developer Info I. G. Pauli","tags":"home","loc":"index.html"},{"title":"mfi_cdotc – MFI - Modern Fortran Interfaces","text":"public pure function mfi_cdotc(x, y, incx, incy) Modern interface for cdotc .\nSee also: mfi_dotc , f77_dotc . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL32)","tags":"","loc":"proc/mfi_cdotc.html"},{"title":"mfi_cdotu – MFI - Modern Fortran Interfaces","text":"public pure function mfi_cdotu(x, y, incx, incy) Modern interface for cdotu .\nSee also: mfi_dotu , f77_dotu . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL32)","tags":"","loc":"proc/mfi_cdotu.html"},{"title":"mfi_zdotc – MFI - Modern Fortran Interfaces","text":"public pure function mfi_zdotc(x, y, incx, incy) Modern interface for zdotc .\nSee also: mfi_dotc , f77_dotc . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL64)","tags":"","loc":"proc/mfi_zdotc.html"},{"title":"mfi_zdotu – MFI - Modern Fortran Interfaces","text":"public pure function mfi_zdotu(x, y, incx, incy) Modern interface for zdotu .\nSee also: mfi_dotu , f77_dotu . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL64)","tags":"","loc":"proc/mfi_zdotu.html"},{"title":"mfi_isamax – MFI - Modern Fortran Interfaces","text":"public pure function mfi_isamax(x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer","tags":"","loc":"proc/mfi_isamax.html"},{"title":"mfi_idamax – MFI - Modern Fortran Interfaces","text":"public pure function mfi_idamax(x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer","tags":"","loc":"proc/mfi_idamax.html"},{"title":"mfi_icamax – MFI - Modern Fortran Interfaces","text":"public pure function mfi_icamax(x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer","tags":"","loc":"proc/mfi_icamax.html"},{"title":"mfi_izamax – MFI - Modern Fortran Interfaces","text":"public pure function mfi_izamax(x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer","tags":"","loc":"proc/mfi_izamax.html"},{"title":"mfi_isamin – MFI - Modern Fortran Interfaces","text":"public pure function mfi_isamin(x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer","tags":"","loc":"proc/mfi_isamin.html"},{"title":"mfi_idamin – MFI - Modern Fortran Interfaces","text":"public pure function mfi_idamin(x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer","tags":"","loc":"proc/mfi_idamin.html"},{"title":"mfi_icamin – MFI - Modern Fortran Interfaces","text":"public pure function mfi_icamin(x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer","tags":"","loc":"proc/mfi_icamin.html"},{"title":"mfi_izamin – MFI - Modern Fortran Interfaces","text":"public pure function mfi_izamin(x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer","tags":"","loc":"proc/mfi_izamin.html"},{"title":"mfi_sdot – MFI - Modern Fortran Interfaces","text":"public pure function mfi_sdot(x, y, incx, incy) Modern interface for sdot .\nSee also: mfi_dot , f77_dot . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value real(kind=REAL32)","tags":"","loc":"proc/mfi_sdot.html"},{"title":"mfi_sasum – MFI - Modern Fortran Interfaces","text":"public pure function mfi_sasum(x, incx) Modern interface for sasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32)","tags":"","loc":"proc/mfi_sasum.html"},{"title":"mfi_scasum – MFI - Modern Fortran Interfaces","text":"public pure function mfi_scasum(x, incx) Modern interface for scasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32)","tags":"","loc":"proc/mfi_scasum.html"},{"title":"mfi_snrm2 – MFI - Modern Fortran Interfaces","text":"public pure function mfi_snrm2(x, incx) Modern interface for snrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32)","tags":"","loc":"proc/mfi_snrm2.html"},{"title":"mfi_scnrm2 – MFI - Modern Fortran Interfaces","text":"public pure function mfi_scnrm2(x, incx) Modern interface for scnrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32)","tags":"","loc":"proc/mfi_scnrm2.html"},{"title":"mfi_slamch – MFI - Modern Fortran Interfaces","text":"public pure function mfi_slamch(cmach, kind) result(res) Modern interface for f77_lamch .\nSee also: mfi_lamch , f77_lamch . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: cmach real(kind=REAL32), intent(in) :: kind Just a kind placeholder Return Value real(kind=REAL32)","tags":"","loc":"proc/mfi_slamch.html"},{"title":"mfi_ddot – MFI - Modern Fortran Interfaces","text":"public pure function mfi_ddot(x, y, incx, incy) Modern interface for ddot .\nSee also: mfi_dot , f77_dot . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value real(kind=REAL64)","tags":"","loc":"proc/mfi_ddot.html"},{"title":"mfi_dasum – MFI - Modern Fortran Interfaces","text":"public pure function mfi_dasum(x, incx) Modern interface for dasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64)","tags":"","loc":"proc/mfi_dasum.html"},{"title":"mfi_dzasum – MFI - Modern Fortran Interfaces","text":"public pure function mfi_dzasum(x, incx) Modern interface for dzasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64)","tags":"","loc":"proc/mfi_dzasum.html"},{"title":"mfi_dnrm2 – MFI - Modern Fortran Interfaces","text":"public pure function mfi_dnrm2(x, incx) Modern interface for dnrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64)","tags":"","loc":"proc/mfi_dnrm2.html"},{"title":"mfi_dznrm2 – MFI - Modern Fortran Interfaces","text":"public pure function mfi_dznrm2(x, incx) Modern interface for dznrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64)","tags":"","loc":"proc/mfi_dznrm2.html"},{"title":"mfi_dlamch – MFI - Modern Fortran Interfaces","text":"public pure function mfi_dlamch(cmach, kind) result(res) Modern interface for f77_lamch .\nSee also: mfi_lamch , f77_lamch . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: cmach real(kind=REAL64), intent(in) :: kind Just a kind placeholder Return Value real(kind=REAL64)","tags":"","loc":"proc/mfi_dlamch.html"},{"title":"mfi_scopy – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_scopy(x, y, incx, incy) Modern interface for scopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_scopy.html"},{"title":"mfi_dcopy – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dcopy(x, y, incx, incy) Modern interface for dcopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_dcopy.html"},{"title":"mfi_ccopy – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ccopy(x, y, incx, incy) Modern interface for ccopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_ccopy.html"},{"title":"mfi_zcopy – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zcopy(x, y, incx, incy) Modern interface for zcopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_zcopy.html"},{"title":"mfi_sswap – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sswap(x, y, incx, incy) Modern interface for sswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_sswap.html"},{"title":"mfi_dswap – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dswap(x, y, incx, incy) Modern interface for dswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_dswap.html"},{"title":"mfi_cswap – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cswap(x, y, incx, incy) Modern interface for cswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_cswap.html"},{"title":"mfi_zswap – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zswap(x, y, incx, incy) Modern interface for zswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_zswap.html"},{"title":"mfi_saxpy – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_saxpy(x, y, a, incx, incy) Modern interface for saxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_saxpy.html"},{"title":"mfi_daxpy – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_daxpy(x, y, a, incx, incy) Modern interface for daxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_daxpy.html"},{"title":"mfi_caxpy – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_caxpy(x, y, a, incx, incy) Modern interface for caxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) complex(kind=REAL32), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_caxpy.html"},{"title":"mfi_zaxpy – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zaxpy(x, y, a, incx, incy) Modern interface for zaxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) complex(kind=REAL64), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_zaxpy.html"},{"title":"mfi_srot – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_srot(x, y, c, s, incx, incy) Modern interface for srot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: xi = c * xi + s * yi yi = c * yi - s * xi Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: x (:) real(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: c real(kind=REAL32), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_srot.html"},{"title":"mfi_drot – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_drot(x, y, c, s, incx, incy) Modern interface for drot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: xi = c * xi + s * yi yi = c * yi - s * xi Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: x (:) real(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: c real(kind=REAL64), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_drot.html"},{"title":"mfi_crot – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_crot(x, y, c, s, incx, incy) Modern interface for crot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: xi = c * xi + s * yi yi = c * yi - conj ( s ) * xi Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: c complex(kind=REAL32), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_crot.html"},{"title":"mfi_zrot – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zrot(x, y, c, s, incx, incy) Modern interface for zrot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: xi = c * xi + s * yi yi = c * yi - conj ( s ) * xi Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: c complex(kind=REAL64), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_zrot.html"},{"title":"mfi_csrot – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_csrot(x, y, c, s, incx, incy) Modern interface for csrot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: xi = c * xi + s * yi yi = c * yi - conj ( s ) * xi Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: c real(kind=REAL32), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_csrot.html"},{"title":"mfi_zdrot – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zdrot(x, y, c, s, incx, incy) Modern interface for zdrot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: xi = c * xi + s * yi yi = c * yi - conj ( s ) * xi Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: c real(kind=REAL64), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_zdrot.html"},{"title":"mfi_srotm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_srotm(x, y, param, incx, incy) Modern interface for srotm .\nSee also: mfi_rotm , f77_rotm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: x (:) real(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: param (5) integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_srotm.html"},{"title":"mfi_drotm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_drotm(x, y, param, incx, incy) Modern interface for drotm .\nSee also: mfi_rotm , f77_rotm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: x (:) real(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: param (5) integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_drotm.html"},{"title":"mfi_sscal – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sscal(a, x, incx) Modern interface for sscal .\nSee also: mfi_scal , f77_scal .\nMFI_SSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a real(kind=REAL32), intent(inout) :: x (:) integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_sscal.html"},{"title":"mfi_dscal – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dscal(a, x, incx) Modern interface for dscal .\nSee also: mfi_scal , f77_scal .\nMFI_DSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a real(kind=REAL64), intent(inout) :: x (:) integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_dscal.html"},{"title":"mfi_cscal – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cscal(a, x, incx) Modern interface for cscal .\nSee also: mfi_scal , f77_scal .\nMFI_CSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(inout) :: x (:) integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_cscal.html"},{"title":"mfi_zscal – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zscal(a, x, incx) Modern interface for zscal .\nSee also: mfi_scal , f77_scal .\nMFI_ZSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(inout) :: x (:) integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_zscal.html"},{"title":"mfi_csscal – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_csscal(a, x, incx) Modern interface for csscal .\nSee also: mfi_scal , f77_scal .\nMFI_CSSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(inout) :: x (:) integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_csscal.html"},{"title":"mfi_zdscal – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zdscal(a, x, incx) Modern interface for zdscal .\nSee also: mfi_scal , f77_scal .\nMFI_ZDSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(inout) :: x (:) integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_zdscal.html"},{"title":"mfi_sgbmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sgbmv(a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for sgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_sgbmv.html"},{"title":"mfi_dgbmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dgbmv(a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for dgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_dgbmv.html"},{"title":"mfi_cgbmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cgbmv(a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for cgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_cgbmv.html"},{"title":"mfi_zgbmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zgbmv(a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for zgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_zgbmv.html"},{"title":"mfi_sgemv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sgemv(a, x, y, trans, alpha, beta, incx, incy) Modern interface for sgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_sgemv.html"},{"title":"mfi_dgemv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dgemv(a, x, y, trans, alpha, beta, incx, incy) Modern interface for dgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_dgemv.html"},{"title":"mfi_cgemv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cgemv(a, x, y, trans, alpha, beta, incx, incy) Modern interface for cgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_cgemv.html"},{"title":"mfi_zgemv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zgemv(a, x, y, trans, alpha, beta, incx, incy) Modern interface for zgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_zgemv.html"},{"title":"mfi_sger – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sger(a, x, y, alpha, incx, incy) Modern interface for sger .\nSee also: mfi_ger , f77_ger . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_sger.html"},{"title":"mfi_dger – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dger(a, x, y, alpha, incx, incy) Modern interface for dger .\nSee also: mfi_ger , f77_ger . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_dger.html"},{"title":"mfi_cgerc – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cgerc(a, x, y, alpha, incx, incy) Modern interface for cgerc .\nSee also: mfi_gerc , f77_gerc . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_cgerc.html"},{"title":"mfi_zgerc – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zgerc(a, x, y, alpha, incx, incy) Modern interface for zgerc .\nSee also: mfi_gerc , f77_gerc . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_zgerc.html"},{"title":"mfi_cgeru – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cgeru(a, x, y, alpha, incx, incy) Modern interface for cgeru .\nSee also: mfi_geru , f77_geru . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_cgeru.html"},{"title":"mfi_zgeru – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zgeru(a, x, y, alpha, incx, incy) Modern interface for zgeru .\nSee also: mfi_geru , f77_geru . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_zgeru.html"},{"title":"mfi_chbmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_chbmv(a, x, y, uplo, alpha, beta, incx, incy) Modern interface for chbmv .\nSee also: mfi_hbmv , f77_hbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_chbmv.html"},{"title":"mfi_zhbmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zhbmv(a, x, y, uplo, alpha, beta, incx, incy) Modern interface for zhbmv .\nSee also: mfi_hbmv , f77_hbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_zhbmv.html"},{"title":"mfi_chemv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_chemv(a, x, y, uplo, alpha, beta, incx, incy) Modern interface for chemv .\nSee also: mfi_hemv , f77_hemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_chemv.html"},{"title":"mfi_zhemv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zhemv(a, x, y, uplo, alpha, beta, incx, incy) Modern interface for zhemv .\nSee also: mfi_hemv , f77_hemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_zhemv.html"},{"title":"mfi_cher – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cher(a, x, uplo, alpha, incx) Modern interface for cher .\nSee also: mfi_her , f77_her . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_cher.html"},{"title":"mfi_zher – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zher(a, x, uplo, alpha, incx) Modern interface for zher .\nSee also: mfi_her , f77_her . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_zher.html"},{"title":"mfi_cher2 – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cher2(a, x, y, uplo, alpha, incx, incy) Modern interface for cher2 .\nSee also: mfi_her2 , f77_her2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_cher2.html"},{"title":"mfi_zher2 – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zher2(a, x, y, uplo, alpha, incx, incy) Modern interface for zher2 .\nSee also: mfi_her2 , f77_her2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_zher2.html"},{"title":"mfi_chpmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_chpmv(ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for chpmv .\nSee also: mfi_hpmv , f77_hpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: ap (:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_chpmv.html"},{"title":"mfi_zhpmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zhpmv(ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for zhpmv .\nSee also: mfi_hpmv , f77_hpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: ap (:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_zhpmv.html"},{"title":"mfi_chpr – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_chpr(ap, x, uplo, alpha, incx) Modern interface for chpr .\nSee also: mfi_hpr , f77_hpr . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: ap (:) complex(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_chpr.html"},{"title":"mfi_zhpr – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zhpr(ap, x, uplo, alpha, incx) Modern interface for zhpr .\nSee also: mfi_hpr , f77_hpr . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: ap (:) complex(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_zhpr.html"},{"title":"mfi_chpr2 – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_chpr2(ap, x, y, uplo, alpha, incx, incy) Modern interface for chpr2 .\nSee also: mfi_hpr2 , f77_hpr2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: ap (:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_chpr2.html"},{"title":"mfi_zhpr2 – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zhpr2(ap, x, y, uplo, alpha, incx, incy) Modern interface for zhpr2 .\nSee also: mfi_hpr2 , f77_hpr2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: ap (:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_zhpr2.html"},{"title":"mfi_ssbmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ssbmv(a, x, y, uplo, alpha, beta, incx, incy) Modern interface for ssbmv .\nSee also: mfi_sbmv , f77_sbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_ssbmv.html"},{"title":"mfi_dsbmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dsbmv(a, x, y, uplo, alpha, beta, incx, incy) Modern interface for dsbmv .\nSee also: mfi_sbmv , f77_sbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_dsbmv.html"},{"title":"mfi_sspmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sspmv(ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for sspmv .\nSee also: mfi_spmv , f77_spmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: ap (:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_sspmv.html"},{"title":"mfi_dspmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dspmv(ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for dspmv .\nSee also: mfi_spmv , f77_spmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: ap (:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_dspmv.html"},{"title":"mfi_sspr – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sspr(ap, x, uplo, alpha, incx) Modern interface for sspr .\nSee also: mfi_spr , f77_spr . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: ap (:) real(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_sspr.html"},{"title":"mfi_dspr – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dspr(ap, x, uplo, alpha, incx) Modern interface for dspr .\nSee also: mfi_spr , f77_spr . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: ap (:) real(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_dspr.html"},{"title":"mfi_sspr2 – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sspr2(ap, x, y, uplo, alpha, incx, incy) Modern interface for sspr2 .\nSee also: mfi_spr2 , f77_spr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: ap (:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_sspr2.html"},{"title":"mfi_dspr2 – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dspr2(ap, x, y, uplo, alpha, incx, incy) Modern interface for dspr2 .\nSee also: mfi_spr2 , f77_spr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: ap (:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_dspr2.html"},{"title":"mfi_ssymv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ssymv(a, x, y, uplo, alpha, beta, incx, incy) Modern interface for ssymv .\nSee also: mfi_symv , f77_symv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_ssymv.html"},{"title":"mfi_dsymv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dsymv(a, x, y, uplo, alpha, beta, incx, incy) Modern interface for dsymv .\nSee also: mfi_symv , f77_symv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_dsymv.html"},{"title":"mfi_ssyr – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ssyr(a, x, uplo, alpha, incx) Modern interface for ssyr .\nSee also: mfi_syr , f77_syr . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_ssyr.html"},{"title":"mfi_dsyr – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dsyr(a, x, uplo, alpha, incx) Modern interface for dsyr .\nSee also: mfi_syr , f77_syr . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_dsyr.html"},{"title":"mfi_ssyr2 – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ssyr2(a, x, y, uplo, alpha, incx, incy) Modern interface for ssyr2 .\nSee also: mfi_syr2 , f77_syr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_ssyr2.html"},{"title":"mfi_dsyr2 – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dsyr2(a, x, y, uplo, alpha, incx, incy) Modern interface for dsyr2 .\nSee also: mfi_syr2 , f77_syr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"proc/mfi_dsyr2.html"},{"title":"mfi_stbmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_stbmv(a, x, uplo, trans, diag, incx) Modern interface for stbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_stbmv.html"},{"title":"mfi_dtbmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dtbmv(a, x, uplo, trans, diag, incx) Modern interface for dtbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_dtbmv.html"},{"title":"mfi_ctbmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ctbmv(a, x, uplo, trans, diag, incx) Modern interface for ctbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_ctbmv.html"},{"title":"mfi_ztbmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ztbmv(a, x, uplo, trans, diag, incx) Modern interface for ztbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_ztbmv.html"},{"title":"mfi_stbsv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_stbsv(a, x, uplo, trans, diag, incx) Modern interface for stbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_stbsv.html"},{"title":"mfi_dtbsv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dtbsv(a, x, uplo, trans, diag, incx) Modern interface for dtbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_dtbsv.html"},{"title":"mfi_ctbsv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ctbsv(a, x, uplo, trans, diag, incx) Modern interface for ctbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_ctbsv.html"},{"title":"mfi_ztbsv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ztbsv(a, x, uplo, trans, diag, incx) Modern interface for ztbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_ztbsv.html"},{"title":"mfi_stpmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_stpmv(ap, x, uplo, trans, diag, incx) Modern interface for stpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: ap (:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_stpmv.html"},{"title":"mfi_dtpmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dtpmv(ap, x, uplo, trans, diag, incx) Modern interface for dtpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: ap (:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_dtpmv.html"},{"title":"mfi_ctpmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ctpmv(ap, x, uplo, trans, diag, incx) Modern interface for ctpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: ap (:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_ctpmv.html"},{"title":"mfi_ztpmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ztpmv(ap, x, uplo, trans, diag, incx) Modern interface for ztpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: ap (:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_ztpmv.html"},{"title":"mfi_stpsv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_stpsv(ap, x, uplo, trans, diag, incx) Modern interface for stpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: ap (:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_stpsv.html"},{"title":"mfi_dtpsv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dtpsv(ap, x, uplo, trans, diag, incx) Modern interface for dtpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: ap (:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_dtpsv.html"},{"title":"mfi_ctpsv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ctpsv(ap, x, uplo, trans, diag, incx) Modern interface for ctpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: ap (:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_ctpsv.html"},{"title":"mfi_ztpsv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ztpsv(ap, x, uplo, trans, diag, incx) Modern interface for ztpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: ap (:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_ztpsv.html"},{"title":"mfi_strmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_strmv(a, x, uplo, trans, diag, incx) Modern interface for strmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_strmv.html"},{"title":"mfi_dtrmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dtrmv(a, x, uplo, trans, diag, incx) Modern interface for dtrmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_dtrmv.html"},{"title":"mfi_ctrmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ctrmv(a, x, uplo, trans, diag, incx) Modern interface for ctrmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_ctrmv.html"},{"title":"mfi_ztrmv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ztrmv(a, x, uplo, trans, diag, incx) Modern interface for ztrmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_ztrmv.html"},{"title":"mfi_strsv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_strsv(a, x, uplo, trans, diag, incx) Modern interface for strsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_strsv.html"},{"title":"mfi_dtrsv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dtrsv(a, x, uplo, trans, diag, incx) Modern interface for dtrsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_dtrsv.html"},{"title":"mfi_ctrsv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ctrsv(a, x, uplo, trans, diag, incx) Modern interface for ctrsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_ctrsv.html"},{"title":"mfi_ztrsv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ztrsv(a, x, uplo, trans, diag, incx) Modern interface for ztrsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"proc/mfi_ztrsv.html"},{"title":"mfi_sgemm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sgemm(a, b, c, transa, transb, alpha, beta) Modern interface for sgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: b (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta","tags":"","loc":"proc/mfi_sgemm.html"},{"title":"mfi_dgemm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dgemm(a, b, c, transa, transb, alpha, beta) Modern interface for dgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: b (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta","tags":"","loc":"proc/mfi_dgemm.html"},{"title":"mfi_cgemm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cgemm(a, b, c, transa, transb, alpha, beta) Modern interface for cgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: b (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta","tags":"","loc":"proc/mfi_cgemm.html"},{"title":"mfi_zgemm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zgemm(a, b, c, transa, transb, alpha, beta) Modern interface for zgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: b (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta","tags":"","loc":"proc/mfi_zgemm.html"},{"title":"mfi_chemm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_chemm(a, b, c, side, uplo, alpha, beta) Modern interface for chemm .\nSee also: mfi_hemm , f77_hemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: b (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta","tags":"","loc":"proc/mfi_chemm.html"},{"title":"mfi_zhemm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zhemm(a, b, c, side, uplo, alpha, beta) Modern interface for zhemm .\nSee also: mfi_hemm , f77_hemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: b (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta","tags":"","loc":"proc/mfi_zhemm.html"},{"title":"mfi_cherk – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cherk(a, c, uplo, trans, alpha, beta) Modern interface for cherk .\nSee also: mfi_herk , f77_herk . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=wp), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta","tags":"","loc":"proc/mfi_cherk.html"},{"title":"mfi_zherk – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zherk(a, c, uplo, trans, alpha, beta) Modern interface for zherk .\nSee also: mfi_herk , f77_herk . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=wp), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta","tags":"","loc":"proc/mfi_zherk.html"},{"title":"mfi_cher2k – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cher2k(a, b, c, uplo, trans, alpha, beta) Modern interface for cher2k .\nSee also: mfi_her2k , f77_her2k . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: b (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans complex(kind=REAL32), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta","tags":"","loc":"proc/mfi_cher2k.html"},{"title":"mfi_zher2k – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zher2k(a, b, c, uplo, trans, alpha, beta) Modern interface for zher2k .\nSee also: mfi_her2k , f77_her2k . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: b (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans complex(kind=REAL64), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta","tags":"","loc":"proc/mfi_zher2k.html"},{"title":"mfi_ssymm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ssymm(a, b, c, side, uplo, alpha, beta) Modern interface for ssymm .\nSee also: mfi_symm , f77_symm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: b (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta","tags":"","loc":"proc/mfi_ssymm.html"},{"title":"mfi_dsymm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dsymm(a, b, c, side, uplo, alpha, beta) Modern interface for dsymm .\nSee also: mfi_symm , f77_symm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: b (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta","tags":"","loc":"proc/mfi_dsymm.html"},{"title":"mfi_ssyrk – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ssyrk(a, c, uplo, trans, alpha, beta) Modern interface for ssyrk .\nSee also: mfi_syrk , f77_syrk . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta","tags":"","loc":"proc/mfi_ssyrk.html"},{"title":"mfi_dsyrk – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dsyrk(a, c, uplo, trans, alpha, beta) Modern interface for dsyrk .\nSee also: mfi_syrk , f77_syrk . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta","tags":"","loc":"proc/mfi_dsyrk.html"},{"title":"mfi_ssyr2k – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ssyr2k(a, b, c, uplo, trans, alpha, beta) Modern interface for ssyr2k .\nSee also: mfi_syr2k , f77_syr2k . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: b (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta","tags":"","loc":"proc/mfi_ssyr2k.html"},{"title":"mfi_dsyr2k – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dsyr2k(a, b, c, uplo, trans, alpha, beta) Modern interface for dsyr2k .\nSee also: mfi_syr2k , f77_syr2k . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: b (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta","tags":"","loc":"proc/mfi_dsyr2k.html"},{"title":"mfi_strmm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_strmm(a, b, side, uplo, transa, diag, alpha) Modern interface for strmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL32), intent(in), optional :: alpha","tags":"","loc":"proc/mfi_strmm.html"},{"title":"mfi_dtrmm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dtrmm(a, b, side, uplo, transa, diag, alpha) Modern interface for dtrmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL64), intent(in), optional :: alpha","tags":"","loc":"proc/mfi_dtrmm.html"},{"title":"mfi_ctrmm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ctrmm(a, b, side, uplo, transa, diag, alpha) Modern interface for ctrmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL32), intent(in), optional :: alpha","tags":"","loc":"proc/mfi_ctrmm.html"},{"title":"mfi_ztrmm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ztrmm(a, b, side, uplo, transa, diag, alpha) Modern interface for ztrmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL64), intent(in), optional :: alpha","tags":"","loc":"proc/mfi_ztrmm.html"},{"title":"mfi_strsm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_strsm(a, b, side, uplo, transa, diag, alpha) Modern interface for strsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL32), intent(in), optional :: alpha","tags":"","loc":"proc/mfi_strsm.html"},{"title":"mfi_dtrsm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dtrsm(a, b, side, uplo, transa, diag, alpha) Modern interface for dtrsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL64), intent(in), optional :: alpha","tags":"","loc":"proc/mfi_dtrsm.html"},{"title":"mfi_ctrsm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ctrsm(a, b, side, uplo, transa, diag, alpha) Modern interface for ctrsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL32), intent(in), optional :: alpha","tags":"","loc":"proc/mfi_ctrsm.html"},{"title":"mfi_ztrsm – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_ztrsm(a, b, side, uplo, transa, diag, alpha) Modern interface for ztrsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL64), intent(in), optional :: alpha","tags":"","loc":"proc/mfi_ztrsm.html"},{"title":"mfi_copy – MFI - Modern Fortran Interfaces","text":"public interface mfi_copy Generic modern interface for COPY.\nSupports s, d, c, z.\nSee also: scopy , dcopy , ccopy , zcopy . Module Procedures public pure subroutine mfi_scopy (x, y, incx, incy) Modern interface for scopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dcopy (x, y, incx, incy) Modern interface for dcopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_ccopy (x, y, incx, incy) Modern interface for ccopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zcopy (x, y, incx, incy) Modern interface for zcopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_copy.html"},{"title":"mfi_swap – MFI - Modern Fortran Interfaces","text":"public interface mfi_swap Generic modern interface for SWAP.\nSupports s, d, c, z.\nSee also: sswap , dswap , cswap , zswap . Module Procedures public pure subroutine mfi_sswap (x, y, incx, incy) Modern interface for sswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dswap (x, y, incx, incy) Modern interface for dswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_cswap (x, y, incx, incy) Modern interface for cswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zswap (x, y, incx, incy) Modern interface for zswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_swap.html"},{"title":"mfi_axpy – MFI - Modern Fortran Interfaces","text":"public interface mfi_axpy Generic modern interface for AXPY.\nSupports s, d, c, z.\nSee also: saxpy , daxpy , caxpy , zaxpy . Module Procedures public pure subroutine mfi_saxpy (x, y, a, incx, incy) Modern interface for saxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_daxpy (x, y, a, incx, incy) Modern interface for daxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_caxpy (x, y, a, incx, incy) Modern interface for caxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) complex(kind=REAL32), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zaxpy (x, y, a, incx, incy) Modern interface for zaxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) complex(kind=REAL64), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_axpy.html"},{"title":"mfi_dot – MFI - Modern Fortran Interfaces","text":"public interface mfi_dot Generic modern interface for DOT.\nSupports s, d.\nSee also: sdot , ddot . Module Procedures public pure function mfi_sdot (x, y, incx, incy) Modern interface for sdot .\nSee also: mfi_dot , f77_dot . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value real(kind=REAL32) public pure function mfi_ddot (x, y, incx, incy) Modern interface for ddot .\nSee also: mfi_dot , f77_dot . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value real(kind=REAL64)","tags":"","loc":"interface/mfi_dot.html"},{"title":"mfi_dotc – MFI - Modern Fortran Interfaces","text":"public interface mfi_dotc Generic modern interface for DOTC.\nSupports c, z.\nSee also: cdotc , zdotc . Module Procedures public pure function mfi_cdotc (x, y, incx, incy) Modern interface for cdotc .\nSee also: mfi_dotc , f77_dotc . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL32) public pure function mfi_zdotc (x, y, incx, incy) Modern interface for zdotc .\nSee also: mfi_dotc , f77_dotc . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL64)","tags":"","loc":"interface/mfi_dotc.html"},{"title":"mfi_dotu – MFI - Modern Fortran Interfaces","text":"public interface mfi_dotu Generic modern interface for DOTU.\nSupports c, z.\nSee also: cdotu , zdotu . Module Procedures public pure function mfi_cdotu (x, y, incx, incy) Modern interface for cdotu .\nSee also: mfi_dotu , f77_dotu . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL32) public pure function mfi_zdotu (x, y, incx, incy) Modern interface for zdotu .\nSee also: mfi_dotu , f77_dotu . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL64)","tags":"","loc":"interface/mfi_dotu.html"},{"title":"mfi_asum – MFI - Modern Fortran Interfaces","text":"public interface mfi_asum Generic modern interface for ASUM.\nSupports s, d, sc, dz.\nSee also: sasum , dasum , scasum , dzasum . Module Procedures public pure function mfi_sasum (x, incx) Modern interface for sasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32) public pure function mfi_dasum (x, incx) Modern interface for dasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64) public pure function mfi_scasum (x, incx) Modern interface for scasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32) public pure function mfi_dzasum (x, incx) Modern interface for dzasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64)","tags":"","loc":"interface/mfi_asum.html"},{"title":"mfi_nrm2 – MFI - Modern Fortran Interfaces","text":"public interface mfi_nrm2 Generic modern interface for NRM2.\nSupports s, d, sc, dz.\nSee also: snrm2 , dnrm2 , scnrm2 , dznrm2 . Module Procedures public pure function mfi_snrm2 (x, incx) Modern interface for snrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32) public pure function mfi_dnrm2 (x, incx) Modern interface for dnrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64) public pure function mfi_scnrm2 (x, incx) Modern interface for scnrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32) public pure function mfi_dznrm2 (x, incx) Modern interface for dznrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64)","tags":"","loc":"interface/mfi_nrm2.html"},{"title":"mfi_rot – MFI - Modern Fortran Interfaces","text":"public interface mfi_rot Generic modern interface for ROT.\nSupports s, d, c, z, cs, zd.\nSee also: srot , drot , crot , zrot , csrot , zdrot . Module Procedures public pure subroutine mfi_srot (x, y, c, s, incx, incy) Modern interface for srot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: Read more… Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: x (:) real(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: c real(kind=REAL32), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_drot (x, y, c, s, incx, incy) Modern interface for drot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: Read more… Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: x (:) real(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: c real(kind=REAL64), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_crot (x, y, c, s, incx, incy) Modern interface for crot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: Read more… Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: c complex(kind=REAL32), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zrot (x, y, c, s, incx, incy) Modern interface for zrot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: Read more… Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: c complex(kind=REAL64), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_csrot (x, y, c, s, incx, incy) Modern interface for csrot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: Read more… Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: c real(kind=REAL32), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zdrot (x, y, c, s, incx, incy) Modern interface for zdrot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: Read more… Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: c real(kind=REAL64), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_rot.html"},{"title":"mfi_rotm – MFI - Modern Fortran Interfaces","text":"public interface mfi_rotm Generic modern interface for ROTM.\nSupports s, d.\nSee also: srotm , drotm . Module Procedures public pure subroutine mfi_srotm (x, y, param, incx, incy) Modern interface for srotm .\nSee also: mfi_rotm , f77_rotm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: x (:) real(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: param (5) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_drotm (x, y, param, incx, incy) Modern interface for drotm .\nSee also: mfi_rotm , f77_rotm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: x (:) real(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: param (5) integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_rotm.html"},{"title":"mfi_scal – MFI - Modern Fortran Interfaces","text":"public interface mfi_scal Generic modern interface for SCAL.\nSupports s, d, c, z, cs, zd.\nSee also: sscal , dscal , cscal , zscal , csscal , zdscal . Module Procedures public pure subroutine mfi_sscal (a, x, incx) Modern interface for sscal .\nSee also: mfi_scal , f77_scal .\nMFI_SSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a real(kind=REAL32), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_dscal (a, x, incx) Modern interface for dscal .\nSee also: mfi_scal , f77_scal .\nMFI_DSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a real(kind=REAL64), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_cscal (a, x, incx) Modern interface for cscal .\nSee also: mfi_scal , f77_scal .\nMFI_CSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_zscal (a, x, incx) Modern interface for zscal .\nSee also: mfi_scal , f77_scal .\nMFI_ZSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_csscal (a, x, incx) Modern interface for csscal .\nSee also: mfi_scal , f77_scal .\nMFI_CSSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_zdscal (a, x, incx) Modern interface for zdscal .\nSee also: mfi_scal , f77_scal .\nMFI_ZDSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(inout) :: x (:) integer, intent(in), optional :: incx","tags":"","loc":"interface/mfi_scal.html"},{"title":"mfi_gbmv – MFI - Modern Fortran Interfaces","text":"public interface mfi_gbmv Generic modern interface for GBMV.\nSupports s, d, c, z.\nSee also: sgbmv , dgbmv , cgbmv , zgbmv . Module Procedures public pure subroutine mfi_sgbmv (a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for sgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dgbmv (a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for dgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_cgbmv (a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for cgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zgbmv (a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for zgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_gbmv.html"},{"title":"mfi_gemv – MFI - Modern Fortran Interfaces","text":"public interface mfi_gemv Generic modern interface for GEMV.\nSupports s, d, c, z.\nSee also: sgemv , dgemv , cgemv , zgemv . Module Procedures public pure subroutine mfi_sgemv (a, x, y, trans, alpha, beta, incx, incy) Modern interface for sgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dgemv (a, x, y, trans, alpha, beta, incx, incy) Modern interface for dgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_cgemv (a, x, y, trans, alpha, beta, incx, incy) Modern interface for cgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zgemv (a, x, y, trans, alpha, beta, incx, incy) Modern interface for zgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_gemv.html"},{"title":"mfi_ger – MFI - Modern Fortran Interfaces","text":"public interface mfi_ger Generic modern interface for GER.\nSupports s, d.\nSee also: sger , dger . Module Procedures public pure subroutine mfi_sger (a, x, y, alpha, incx, incy) Modern interface for sger .\nSee also: mfi_ger , f77_ger . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dger (a, x, y, alpha, incx, incy) Modern interface for dger .\nSee also: mfi_ger , f77_ger . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_ger.html"},{"title":"mfi_gerc – MFI - Modern Fortran Interfaces","text":"public interface mfi_gerc Generic modern interface for GERC.\nSupports c, z.\nSee also: cgerc , zgerc . Module Procedures public pure subroutine mfi_cgerc (a, x, y, alpha, incx, incy) Modern interface for cgerc .\nSee also: mfi_gerc , f77_gerc . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zgerc (a, x, y, alpha, incx, incy) Modern interface for zgerc .\nSee also: mfi_gerc , f77_gerc . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_gerc.html"},{"title":"mfi_geru – MFI - Modern Fortran Interfaces","text":"public interface mfi_geru Generic modern interface for GERU.\nSupports c, z.\nSee also: cgeru , zgeru . Module Procedures public pure subroutine mfi_cgeru (a, x, y, alpha, incx, incy) Modern interface for cgeru .\nSee also: mfi_geru , f77_geru . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zgeru (a, x, y, alpha, incx, incy) Modern interface for zgeru .\nSee also: mfi_geru , f77_geru . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_geru.html"},{"title":"mfi_hbmv – MFI - Modern Fortran Interfaces","text":"public interface mfi_hbmv Generic modern interface for HBMV.\nSupports c, z.\nSee also: chbmv , zhbmv . Module Procedures public pure subroutine mfi_chbmv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for chbmv .\nSee also: mfi_hbmv , f77_hbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zhbmv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for zhbmv .\nSee also: mfi_hbmv , f77_hbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_hbmv.html"},{"title":"mfi_hemv – MFI - Modern Fortran Interfaces","text":"public interface mfi_hemv Generic modern interface for HEMV.\nSupports c, z.\nSee also: chemv , zhemv . Module Procedures public pure subroutine mfi_chemv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for chemv .\nSee also: mfi_hemv , f77_hemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zhemv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for zhemv .\nSee also: mfi_hemv , f77_hemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_hemv.html"},{"title":"mfi_her – MFI - Modern Fortran Interfaces","text":"public interface mfi_her Generic modern interface for HER.\nSupports c, z.\nSee also: cher , zher . Module Procedures public pure subroutine mfi_cher (a, x, uplo, alpha, incx) Modern interface for cher .\nSee also: mfi_her , f77_her . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_zher (a, x, uplo, alpha, incx) Modern interface for zher .\nSee also: mfi_her , f77_her . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx","tags":"","loc":"interface/mfi_her.html"},{"title":"mfi_her2 – MFI - Modern Fortran Interfaces","text":"public interface mfi_her2 Generic modern interface for HER2.\nSupports c, z.\nSee also: cher2 , zher2 . Module Procedures public pure subroutine mfi_cher2 (a, x, y, uplo, alpha, incx, incy) Modern interface for cher2 .\nSee also: mfi_her2 , f77_her2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zher2 (a, x, y, uplo, alpha, incx, incy) Modern interface for zher2 .\nSee also: mfi_her2 , f77_her2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_her2.html"},{"title":"mfi_hpmv – MFI - Modern Fortran Interfaces","text":"public interface mfi_hpmv Generic modern interface for HPMV.\nSupports c, z.\nSee also: chpmv , zhpmv . Module Procedures public pure subroutine mfi_chpmv (ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for chpmv .\nSee also: mfi_hpmv , f77_hpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: ap (:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zhpmv (ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for zhpmv .\nSee also: mfi_hpmv , f77_hpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: ap (:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_hpmv.html"},{"title":"mfi_hpr – MFI - Modern Fortran Interfaces","text":"public interface mfi_hpr Generic modern interface for HPR.\nSupports c, z.\nSee also: chpr , zhpr . Module Procedures public pure subroutine mfi_chpr (ap, x, uplo, alpha, incx) Modern interface for chpr .\nSee also: mfi_hpr , f77_hpr . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: ap (:) complex(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_zhpr (ap, x, uplo, alpha, incx) Modern interface for zhpr .\nSee also: mfi_hpr , f77_hpr . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: ap (:) complex(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx","tags":"","loc":"interface/mfi_hpr.html"},{"title":"mfi_hpr2 – MFI - Modern Fortran Interfaces","text":"public interface mfi_hpr2 Generic modern interface for HPR2.\nSupports c, z.\nSee also: chpr2 , zhpr2 . Module Procedures public pure subroutine mfi_chpr2 (ap, x, y, uplo, alpha, incx, incy) Modern interface for chpr2 .\nSee also: mfi_hpr2 , f77_hpr2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: ap (:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zhpr2 (ap, x, y, uplo, alpha, incx, incy) Modern interface for zhpr2 .\nSee also: mfi_hpr2 , f77_hpr2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: ap (:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_hpr2.html"},{"title":"mfi_sbmv – MFI - Modern Fortran Interfaces","text":"public interface mfi_sbmv Generic modern interface for SBMV.\nSupports s, d.\nSee also: ssbmv , dsbmv . Module Procedures public pure subroutine mfi_ssbmv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for ssbmv .\nSee also: mfi_sbmv , f77_sbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dsbmv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for dsbmv .\nSee also: mfi_sbmv , f77_sbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_sbmv.html"},{"title":"mfi_spmv – MFI - Modern Fortran Interfaces","text":"public interface mfi_spmv Generic modern interface for SPMV.\nSupports s, d.\nSee also: sspmv , dspmv . Module Procedures public pure subroutine mfi_sspmv (ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for sspmv .\nSee also: mfi_spmv , f77_spmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: ap (:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dspmv (ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for dspmv .\nSee also: mfi_spmv , f77_spmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: ap (:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_spmv.html"},{"title":"mfi_spr – MFI - Modern Fortran Interfaces","text":"public interface mfi_spr Generic modern interface for SPR.\nSupports s, d.\nSee also: sspr , dspr . Module Procedures public pure subroutine mfi_sspr (ap, x, uplo, alpha, incx) Modern interface for sspr .\nSee also: mfi_spr , f77_spr . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: ap (:) real(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_dspr (ap, x, uplo, alpha, incx) Modern interface for dspr .\nSee also: mfi_spr , f77_spr . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: ap (:) real(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx","tags":"","loc":"interface/mfi_spr.html"},{"title":"mfi_spr2 – MFI - Modern Fortran Interfaces","text":"public interface mfi_spr2 Generic modern interface for SPR2.\nSupports s, d.\nSee also: sspr2 , dspr2 . Module Procedures public pure subroutine mfi_sspr2 (ap, x, y, uplo, alpha, incx, incy) Modern interface for sspr2 .\nSee also: mfi_spr2 , f77_spr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: ap (:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dspr2 (ap, x, y, uplo, alpha, incx, incy) Modern interface for dspr2 .\nSee also: mfi_spr2 , f77_spr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: ap (:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_spr2.html"},{"title":"mfi_symv – MFI - Modern Fortran Interfaces","text":"public interface mfi_symv Generic modern interface for SYMV.\nSupports s, d.\nSee also: ssymv , dsymv . Module Procedures public pure subroutine mfi_ssymv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for ssymv .\nSee also: mfi_symv , f77_symv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dsymv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for dsymv .\nSee also: mfi_symv , f77_symv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_symv.html"},{"title":"mfi_syr – MFI - Modern Fortran Interfaces","text":"public interface mfi_syr Generic modern interface for SYR.\nSupports s, d.\nSee also: ssyr , dsyr . Module Procedures public pure subroutine mfi_ssyr (a, x, uplo, alpha, incx) Modern interface for ssyr .\nSee also: mfi_syr , f77_syr . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_dsyr (a, x, uplo, alpha, incx) Modern interface for dsyr .\nSee also: mfi_syr , f77_syr . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx","tags":"","loc":"interface/mfi_syr.html"},{"title":"mfi_syr2 – MFI - Modern Fortran Interfaces","text":"public interface mfi_syr2 Generic modern interface for SYR2.\nSupports s, d.\nSee also: ssyr2 , dsyr2 . Module Procedures public pure subroutine mfi_ssyr2 (a, x, y, uplo, alpha, incx, incy) Modern interface for ssyr2 .\nSee also: mfi_syr2 , f77_syr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dsyr2 (a, x, y, uplo, alpha, incx, incy) Modern interface for dsyr2 .\nSee also: mfi_syr2 , f77_syr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy","tags":"","loc":"interface/mfi_syr2.html"},{"title":"mfi_tbmv – MFI - Modern Fortran Interfaces","text":"public interface mfi_tbmv Generic modern interface for TBMV.\nSupports s, d, c, z.\nSee also: stbmv , dtbmv , ctbmv , ztbmv . Module Procedures public pure subroutine mfi_stbmv (a, x, uplo, trans, diag, incx) Modern interface for stbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtbmv (a, x, uplo, trans, diag, incx) Modern interface for dtbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctbmv (a, x, uplo, trans, diag, incx) Modern interface for ctbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztbmv (a, x, uplo, trans, diag, incx) Modern interface for ztbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"interface/mfi_tbmv.html"},{"title":"mfi_tbsv – MFI - Modern Fortran Interfaces","text":"public interface mfi_tbsv Generic modern interface for TBSV.\nSupports s, d, c, z.\nSee also: stbsv , dtbsv , ctbsv , ztbsv . Module Procedures public pure subroutine mfi_stbsv (a, x, uplo, trans, diag, incx) Modern interface for stbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtbsv (a, x, uplo, trans, diag, incx) Modern interface for dtbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctbsv (a, x, uplo, trans, diag, incx) Modern interface for ctbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztbsv (a, x, uplo, trans, diag, incx) Modern interface for ztbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"interface/mfi_tbsv.html"},{"title":"mfi_tpmv – MFI - Modern Fortran Interfaces","text":"public interface mfi_tpmv Generic modern interface for TPMV.\nSupports s, d, c, z.\nSee also: stpmv , dtpmv , ctpmv , ztpmv . Module Procedures public pure subroutine mfi_stpmv (ap, x, uplo, trans, diag, incx) Modern interface for stpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: ap (:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtpmv (ap, x, uplo, trans, diag, incx) Modern interface for dtpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: ap (:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctpmv (ap, x, uplo, trans, diag, incx) Modern interface for ctpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: ap (:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztpmv (ap, x, uplo, trans, diag, incx) Modern interface for ztpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: ap (:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"interface/mfi_tpmv.html"},{"title":"mfi_tpsv – MFI - Modern Fortran Interfaces","text":"public interface mfi_tpsv Generic modern interface for TPSV.\nSupports s, d, c, z.\nSee also: stpsv , dtpsv , ctpsv , ztpsv . Module Procedures public pure subroutine mfi_stpsv (ap, x, uplo, trans, diag, incx) Modern interface for stpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: ap (:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtpsv (ap, x, uplo, trans, diag, incx) Modern interface for dtpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: ap (:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctpsv (ap, x, uplo, trans, diag, incx) Modern interface for ctpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: ap (:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztpsv (ap, x, uplo, trans, diag, incx) Modern interface for ztpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: ap (:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"interface/mfi_tpsv.html"},{"title":"mfi_trmv – MFI - Modern Fortran Interfaces","text":"public interface mfi_trmv Generic modern interface for TRMV.\nSupports s, d, c, z.\nSee also: strmv , dtrmv , ctrmv , ztrmv . Module Procedures public pure subroutine mfi_strmv (a, x, uplo, trans, diag, incx) Modern interface for strmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtrmv (a, x, uplo, trans, diag, incx) Modern interface for dtrmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctrmv (a, x, uplo, trans, diag, incx) Modern interface for ctrmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztrmv (a, x, uplo, trans, diag, incx) Modern interface for ztrmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"interface/mfi_trmv.html"},{"title":"mfi_trsv – MFI - Modern Fortran Interfaces","text":"public interface mfi_trsv Generic modern interface for TRSV.\nSupports s, d, c, z.\nSee also: strsv , dtrsv , ctrsv , ztrsv . Module Procedures public pure subroutine mfi_strsv (a, x, uplo, trans, diag, incx) Modern interface for strsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtrsv (a, x, uplo, trans, diag, incx) Modern interface for dtrsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctrsv (a, x, uplo, trans, diag, incx) Modern interface for ctrsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztrsv (a, x, uplo, trans, diag, incx) Modern interface for ztrsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx","tags":"","loc":"interface/mfi_trsv.html"},{"title":"mfi_gemm – MFI - Modern Fortran Interfaces","text":"public interface mfi_gemm Generic modern interface for GEMM.\nSupports s, d, c, z.\nSee also: sgemm , dgemm , cgemm , zgemm . Module Procedures public pure subroutine mfi_sgemm (a, b, c, transa, transb, alpha, beta) Modern interface for sgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: b (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_dgemm (a, b, c, transa, transb, alpha, beta) Modern interface for dgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: b (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta public pure subroutine mfi_cgemm (a, b, c, transa, transb, alpha, beta) Modern interface for cgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: b (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_zgemm (a, b, c, transa, transb, alpha, beta) Modern interface for zgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: b (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta","tags":"","loc":"interface/mfi_gemm.html"},{"title":"mfi_hemm – MFI - Modern Fortran Interfaces","text":"public interface mfi_hemm Generic modern interface for HEMM.\nSupports c, z.\nSee also: chemm , zhemm . Module Procedures public pure subroutine mfi_chemm (a, b, c, side, uplo, alpha, beta) Modern interface for chemm .\nSee also: mfi_hemm , f77_hemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: b (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_zhemm (a, b, c, side, uplo, alpha, beta) Modern interface for zhemm .\nSee also: mfi_hemm , f77_hemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: b (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta","tags":"","loc":"interface/mfi_hemm.html"},{"title":"mfi_herk – MFI - Modern Fortran Interfaces","text":"public interface mfi_herk Generic modern interface for HERK.\nSupports c, z.\nSee also: cherk , zherk . Module Procedures public pure subroutine mfi_cherk (a, c, uplo, trans, alpha, beta) Modern interface for cherk .\nSee also: mfi_herk , f77_herk . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=wp), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta public pure subroutine mfi_zherk (a, c, uplo, trans, alpha, beta) Modern interface for zherk .\nSee also: mfi_herk , f77_herk . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=wp), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta","tags":"","loc":"interface/mfi_herk.html"},{"title":"mfi_her2k – MFI - Modern Fortran Interfaces","text":"public interface mfi_her2k Generic modern interface for HER2K.\nSupports c, z.\nSee also: cher2k , zher2k . Module Procedures public pure subroutine mfi_cher2k (a, b, c, uplo, trans, alpha, beta) Modern interface for cher2k .\nSee also: mfi_her2k , f77_her2k . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: b (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans complex(kind=REAL32), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta public pure subroutine mfi_zher2k (a, b, c, uplo, trans, alpha, beta) Modern interface for zher2k .\nSee also: mfi_her2k , f77_her2k . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: b (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans complex(kind=REAL64), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta","tags":"","loc":"interface/mfi_her2k.html"},{"title":"mfi_symm – MFI - Modern Fortran Interfaces","text":"public interface mfi_symm Generic modern interface for SYMM.\nSupports s, d.\nSee also: ssymm , dsymm . Module Procedures public pure subroutine mfi_ssymm (a, b, c, side, uplo, alpha, beta) Modern interface for ssymm .\nSee also: mfi_symm , f77_symm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: b (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_dsymm (a, b, c, side, uplo, alpha, beta) Modern interface for dsymm .\nSee also: mfi_symm , f77_symm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: b (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta","tags":"","loc":"interface/mfi_symm.html"},{"title":"mfi_syrk – MFI - Modern Fortran Interfaces","text":"public interface mfi_syrk Generic modern interface for SYRK.\nSupports s, d.\nSee also: ssyrk , dsyrk . Module Procedures public pure subroutine mfi_ssyrk (a, c, uplo, trans, alpha, beta) Modern interface for ssyrk .\nSee also: mfi_syrk , f77_syrk . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_dsyrk (a, c, uplo, trans, alpha, beta) Modern interface for dsyrk .\nSee also: mfi_syrk , f77_syrk . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta","tags":"","loc":"interface/mfi_syrk.html"},{"title":"mfi_syr2k – MFI - Modern Fortran Interfaces","text":"public interface mfi_syr2k Generic modern interface for SYR2K.\nSupports s, d.\nSee also: ssyr2k , dsyr2k . Module Procedures public pure subroutine mfi_ssyr2k (a, b, c, uplo, trans, alpha, beta) Modern interface for ssyr2k .\nSee also: mfi_syr2k , f77_syr2k . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: b (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_dsyr2k (a, b, c, uplo, trans, alpha, beta) Modern interface for dsyr2k .\nSee also: mfi_syr2k , f77_syr2k . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: b (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta","tags":"","loc":"interface/mfi_syr2k.html"},{"title":"mfi_trmm – MFI - Modern Fortran Interfaces","text":"public interface mfi_trmm Generic modern interface for TRMM.\nSupports s, d, c, z.\nSee also: strmm , dtrmm , ctrmm , ztrmm . Module Procedures public pure subroutine mfi_strmm (a, b, side, uplo, transa, diag, alpha) Modern interface for strmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL32), intent(in), optional :: alpha public pure subroutine mfi_dtrmm (a, b, side, uplo, transa, diag, alpha) Modern interface for dtrmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL64), intent(in), optional :: alpha public pure subroutine mfi_ctrmm (a, b, side, uplo, transa, diag, alpha) Modern interface for ctrmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL32), intent(in), optional :: alpha public pure subroutine mfi_ztrmm (a, b, side, uplo, transa, diag, alpha) Modern interface for ztrmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL64), intent(in), optional :: alpha","tags":"","loc":"interface/mfi_trmm.html"},{"title":"mfi_trsm – MFI - Modern Fortran Interfaces","text":"public interface mfi_trsm Generic modern interface for TRSM.\nSupports s, d, c, z.\nSee also: strsm , dtrsm , ctrsm , ztrsm . Module Procedures public pure subroutine mfi_strsm (a, b, side, uplo, transa, diag, alpha) Modern interface for strsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL32), intent(in), optional :: alpha public pure subroutine mfi_dtrsm (a, b, side, uplo, transa, diag, alpha) Modern interface for dtrsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL64), intent(in), optional :: alpha public pure subroutine mfi_ctrsm (a, b, side, uplo, transa, diag, alpha) Modern interface for ctrsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL32), intent(in), optional :: alpha public pure subroutine mfi_ztrsm (a, b, side, uplo, transa, diag, alpha) Modern interface for ztrsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL64), intent(in), optional :: alpha","tags":"","loc":"interface/mfi_trsm.html"},{"title":"mfi_lamch – MFI - Modern Fortran Interfaces","text":"public interface mfi_lamch Generic modern interface for LAMCH.\nSupports s, d.\nSee also: f77_lamch , f77_lamch . Module Procedures public pure function mfi_slamch (cmach, kind) result(res) Modern interface for f77_lamch .\nSee also: mfi_lamch , f77_lamch . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: cmach real(kind=REAL32), intent(in) :: kind Just a kind placeholder Return Value real(kind=REAL32) public pure function mfi_dlamch (cmach, kind) result(res) Modern interface for f77_lamch .\nSee also: mfi_lamch , f77_lamch . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: cmach real(kind=REAL64), intent(in) :: kind Just a kind placeholder Return Value real(kind=REAL64)","tags":"","loc":"interface/mfi_lamch.html"},{"title":"mfi_iamax – MFI - Modern Fortran Interfaces","text":"public interface mfi_iamax Generic modern interface for IAMAX.\nSupports s, d, c, z.\nSee also: f77_iamax , f77_iamax , f77_iamax , f77_iamax . Module Procedures public pure function mfi_isamax (x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_idamax (x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_icamax (x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_izamax (x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer","tags":"","loc":"interface/mfi_iamax.html"},{"title":"mfi_iamin – MFI - Modern Fortran Interfaces","text":"public interface mfi_iamin Generic modern interface for IAMIN.\nSupports s, d, c, z.\nSee also: f77_iamin , f77_iamin , f77_iamin , f77_iamin . Module Procedures public pure function mfi_isamin (x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_idamin (x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_icamin (x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_izamin (x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer","tags":"","loc":"interface/mfi_iamin.html"},{"title":"isamax – MFI - Modern Fortran Interfaces","text":"public pure function isamax(n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer","tags":"","loc":"proc/isamax.html"},{"title":"idamax – MFI - Modern Fortran Interfaces","text":"public pure function idamax(n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer","tags":"","loc":"proc/idamax.html"},{"title":"icamax – MFI - Modern Fortran Interfaces","text":"public pure function icamax(n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer","tags":"","loc":"proc/icamax.html"},{"title":"izamax – MFI - Modern Fortran Interfaces","text":"public pure function izamax(n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer","tags":"","loc":"proc/izamax.html"},{"title":"isamin – MFI - Modern Fortran Interfaces","text":"public pure function isamin(n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer","tags":"","loc":"proc/isamin.html"},{"title":"idamin – MFI - Modern Fortran Interfaces","text":"public pure function idamin(n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer","tags":"","loc":"proc/idamin.html"},{"title":"icamin – MFI - Modern Fortran Interfaces","text":"public pure function icamin(n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer","tags":"","loc":"proc/icamin.html"},{"title":"izamin – MFI - Modern Fortran Interfaces","text":"public pure function izamin(n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer","tags":"","loc":"proc/izamin.html"},{"title":"f77_copy – MFI - Modern Fortran Interfaces","text":"public interface f77_copy Generic old style interface for COPY.\nSupports s, d, c, z.\nSee also: mfi_copy , scopy , dcopy , ccopy , zcopy . Subroutines public pure subroutine scopy(n, x, incx, y, incy) Original interface for SCOPY\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine dcopy(n, x, incx, y, incy) Original interface for DCOPY\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine ccopy(n, x, incx, y, incy) Original interface for CCOPY\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zcopy(n, x, incx, y, incy) Original interface for ZCOPY\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy","tags":"","loc":"interface/f77_copy.html"},{"title":"f77_swap – MFI - Modern Fortran Interfaces","text":"public interface f77_swap Generic old style interface for SWAP.\nSupports s, d, c, z.\nSee also: mfi_swap , sswap , dswap , cswap , zswap . Subroutines public pure subroutine sswap(n, x, incx, y, incy) Original interface for SSWAP\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine dswap(n, x, incx, y, incy) Original interface for DSWAP\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine cswap(n, x, incx, y, incy) Original interface for CSWAP\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zswap(n, x, incx, y, incy) Original interface for ZSWAP\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy","tags":"","loc":"interface/f77_swap.html"},{"title":"f77_axpy – MFI - Modern Fortran Interfaces","text":"public interface f77_axpy Generic old style interface for AXPY.\nSupports s, d, c, z.\nSee also: mfi_axpy , saxpy , daxpy , caxpy , zaxpy . Subroutines public pure subroutine saxpy(n, a, x, incx, y, incy) Original interface for SAXPY\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: a real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine daxpy(n, a, x, incx, y, incy) Original interface for DAXPY\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: a real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine caxpy(n, a, x, incx, y, incy) Original interface for CAXPY\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zaxpy(n, a, x, incx, y, incy) Original interface for ZAXPY\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy","tags":"","loc":"interface/f77_axpy.html"},{"title":"f77_dot – MFI - Modern Fortran Interfaces","text":"public interface f77_dot Generic old style interface for DOT.\nSupports s, d.\nSee also: mfi_dot , sdot , ddot . Functions public pure function sdot(n, x, incx, y, incy) Original interface for SDOT\nSee also: mfi_dot , f77_dot . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy Return Value real(kind=REAL32) public pure function ddot(n, x, incx, y, incy) Original interface for DDOT\nSee also: mfi_dot , f77_dot . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy Return Value real(kind=REAL64)","tags":"","loc":"interface/f77_dot.html"},{"title":"f77_dotc – MFI - Modern Fortran Interfaces","text":"public interface f77_dotc Generic old style interface for DOTC.\nSupports c, z.\nSee also: mfi_dotc , cdotc , zdotc . Functions public pure function cdotc(n, x, incx, y, incy) Original interface for CDOTC\nSee also: mfi_dotc , f77_dotc . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy Return Value complex(kind=REAL32) public pure function zdotc(n, x, incx, y, incy) Original interface for ZDOTC\nSee also: mfi_dotc , f77_dotc . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy Return Value complex(kind=REAL64)","tags":"","loc":"interface/f77_dotc.html"},{"title":"f77_dotu – MFI - Modern Fortran Interfaces","text":"public interface f77_dotu Generic old style interface for DOTU.\nSupports c, z.\nSee also: mfi_dotu , cdotu , zdotu . Functions public pure function cdotu(n, x, incx, y, incy) Original interface for CDOTU\nSee also: mfi_dotu , f77_dotu . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy Return Value complex(kind=REAL32) public pure function zdotu(n, x, incx, y, incy) Original interface for ZDOTU\nSee also: mfi_dotu , f77_dotu . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy Return Value complex(kind=REAL64)","tags":"","loc":"interface/f77_dotu.html"},{"title":"f77_asum – MFI - Modern Fortran Interfaces","text":"public interface f77_asum Generic old style interface for ASUM.\nSupports s, d, sc, dz.\nSee also: mfi_asum , sasum , dasum , scasum , dzasum . Functions public pure function sasum(n, x, incx) Original interface for SASUM\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL32) public pure function scasum(n, x, incx) Original interface for SCASUM\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL32) public pure function dasum(n, x, incx) Original interface for DASUM\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL64) public pure function dzasum(n, x, incx) Original interface for DZASUM\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL64)","tags":"","loc":"interface/f77_asum.html"},{"title":"f77_nrm2 – MFI - Modern Fortran Interfaces","text":"public interface f77_nrm2 Generic old style interface for NRM2.\nSupports s, d, sc, dz.\nSee also: mfi_nrm2 , snrm2 , dnrm2 , scnrm2 , dznrm2 . Functions public pure function snrm2(n, x, incx) Original interface for SNRM2\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL32) public pure function scnrm2(n, x, incx) Original interface for SCNRM2\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL32) public pure function dnrm2(n, x, incx) Original interface for DNRM2\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL64) public pure function dznrm2(n, x, incx) Original interface for DZNRM2\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL64)","tags":"","loc":"interface/f77_nrm2.html"},{"title":"f77_rot – MFI - Modern Fortran Interfaces","text":"public interface f77_rot Generic old style interface for ROT.\nSupports s, d, c, z, cs, zd.\nSee also: mfi_rot , srot , drot , crot , zrot , csrot , zdrot . Subroutines public pure subroutine srot(n, x, incx, y, incy, c, s) Original interface for SROT\nSee also: mfi_rot , f77_rot .\nSROT applies a plane rotation. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL32), intent(in) :: c real(kind=REAL32), intent(in) :: s public pure subroutine drot(n, x, incx, y, incy, c, s) Original interface for DROT\nSee also: mfi_rot , f77_rot .\nDROT applies a plane rotation. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL64), intent(in) :: c real(kind=REAL64), intent(in) :: s public pure subroutine crot(n, x, incx, y, incy, c, s) Original interface for CROT\nSee also: mfi_rot , f77_rot .\nCROT applies a plane rotation. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL32), intent(in) :: c complex(kind=REAL32), intent(in) :: s public pure subroutine zrot(n, x, incx, y, incy, c, s) Original interface for ZROT\nSee also: mfi_rot , f77_rot .\nZROT applies a plane rotation. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL64), intent(in) :: c complex(kind=REAL64), intent(in) :: s public pure subroutine csrot(n, x, incx, y, incy, c, s) Original interface for CSROT\nSee also: mfi_rot , f77_rot .\nCSROT applies a plane rotation. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL32), intent(in) :: c real(kind=REAL32), intent(in) :: s public pure subroutine zdrot(n, x, incx, y, incy, c, s) Original interface for ZDROT\nSee also: mfi_rot , f77_rot .\nZDROT applies a plane rotation. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL64), intent(in) :: c real(kind=REAL64), intent(in) :: s","tags":"","loc":"interface/f77_rot.html"},{"title":"f77_rotg – MFI - Modern Fortran Interfaces","text":"public interface f77_rotg Generic old style interface for ROTG.\nSupports s, d, c, z.\nSee also: mfi_rotg , srotg , drotg , crotg , zrotg . Subroutines public pure subroutine srotg(a, b, c, s) Original interface for SROTG\n See also: mfi_rotg , f77_rotg .\nsrotg generates a Givens rotation with real cosine and complex sine: [ c s ] [ a ] = [ r ] [ - s c ] [ b ] [ 0 ] satisfying c**2 + s**2 = 1 . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a real(kind=REAL32), intent(inout) :: b real(kind=REAL32), intent(out) :: c real(kind=REAL32), intent(out) :: s public pure subroutine drotg(a, b, c, s) Original interface for DROTG\n See also: mfi_rotg , f77_rotg .\ndrotg generates a Givens rotation with real cosine and complex sine: [ c s ] [ a ] = [ r ] [ - s c ] [ b ] [ 0 ] satisfying c**2 + s**2 = 1 . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a real(kind=REAL64), intent(inout) :: b real(kind=REAL64), intent(out) :: c real(kind=REAL64), intent(out) :: s public pure subroutine crotg(a, b, c, s) Original interface for CROTG\n See also: mfi_rotg , f77_rotg .\ncrotg generates a Givens rotation with real cosine and complex sine: [ c s ] [ a ] = [ r ] [ - conjg ( s ) c ] [ b ] [ 0 ] where c is real, s is complex, and c**2 + conjg(s)*s = 1 . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a complex(kind=REAL32), intent(inout) :: b real(kind=REAL32), intent(out) :: c complex(kind=REAL32), intent(out) :: s public pure subroutine zrotg(a, b, c, s) Original interface for ZROTG\n See also: mfi_rotg , f77_rotg .\nzrotg generates a Givens rotation with real cosine and complex sine: [ c s ] [ a ] = [ r ] [ - conjg ( s ) c ] [ b ] [ 0 ] where c is real, s is complex, and c**2 + conjg(s)*s = 1 . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a complex(kind=REAL64), intent(inout) :: b real(kind=REAL64), intent(out) :: c complex(kind=REAL64), intent(out) :: s","tags":"","loc":"interface/f77_rotg.html"},{"title":"f77_rotm – MFI - Modern Fortran Interfaces","text":"public interface f77_rotm Generic old style interface for ROTM.\nSupports s, d.\nSee also: mfi_rotm , srotm , drotm . Subroutines public pure subroutine srotm(n, x, incx, y, incy, param) Original interface for SROTM\nSee also: mfi_rotm , f77_rotm . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy real(kind=REAL32), intent(in) :: param (5) public pure subroutine drotm(n, x, incx, y, incy, param) Original interface for DROTM\nSee also: mfi_rotm , f77_rotm . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy real(kind=REAL64), intent(in) :: param (5)","tags":"","loc":"interface/f77_rotm.html"},{"title":"f77_rotmg – MFI - Modern Fortran Interfaces","text":"public interface f77_rotmg Generic old style interface for ROTMG.\nSupports s, d.\nSee also: mfi_rotmg , srotmg , drotmg . Subroutines public pure subroutine srotmg(d1, d2, x1, y1, param) Original interface for SROTMG\nSee also: mfi_rotmg , f77_rotmg . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: d1 real(kind=REAL32), intent(inout) :: d2 real(kind=REAL32), intent(inout) :: x1 real(kind=REAL32), intent(in) :: y1 real(kind=REAL32), intent(out) :: param (5) public pure subroutine drotmg(d1, d2, x1, y1, param) Original interface for DROTMG\nSee also: mfi_rotmg , f77_rotmg . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: d1 real(kind=REAL64), intent(inout) :: d2 real(kind=REAL64), intent(inout) :: x1 real(kind=REAL64), intent(in) :: y1 real(kind=REAL64), intent(out) :: param (5)","tags":"","loc":"interface/f77_rotmg.html"},{"title":"f77_scal – MFI - Modern Fortran Interfaces","text":"public interface f77_scal Generic old style interface for SCAL.\nSupports s, d, c, z, cs, zd.\nSee also: mfi_scal , sscal , dscal , cscal , zscal , csscal , zdscal . Subroutines public pure subroutine sscal(n, a, x, incx) Original interface for SSCAL\nSee also: mfi_scal , f77_scal .\nSSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: a real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine dscal(n, a, x, incx) Original interface for DSCAL\nSee also: mfi_scal , f77_scal .\nDSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: a real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine cscal(n, a, x, incx) Original interface for CSCAL\nSee also: mfi_scal , f77_scal .\nCSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine zscal(n, a, x, incx) Original interface for ZSCAL\nSee also: mfi_scal , f77_scal .\nZSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine csscal(n, a, x, incx) Original interface for CSSCAL\nSee also: mfi_scal , f77_scal .\nCSSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine zdscal(n, a, x, incx) Original interface for ZDSCAL\nSee also: mfi_scal , f77_scal .\nZDSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx","tags":"","loc":"interface/f77_scal.html"},{"title":"f77_gbmv – MFI - Modern Fortran Interfaces","text":"public interface f77_gbmv Generic old style interface for GBMV.\nSupports s, d, c, z.\nSee also: mfi_gbmv , sgbmv , dgbmv , cgbmv , zgbmv . Subroutines public pure subroutine sgbmv(trans, m, n, kl, ku, alpha, a, lda, x, incx, beta, y, incy) Original interface for SGBMV\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: kl integer, intent(in) :: ku real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine dgbmv(trans, m, n, kl, ku, alpha, a, lda, x, incx, beta, y, incy) Original interface for DGBMV\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: kl integer, intent(in) :: ku real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine cgbmv(trans, m, n, kl, ku, alpha, a, lda, x, incx, beta, y, incy) Original interface for CGBMV\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: kl integer, intent(in) :: ku complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zgbmv(trans, m, n, kl, ku, alpha, a, lda, x, incx, beta, y, incy) Original interface for ZGBMV\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: kl integer, intent(in) :: ku complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy","tags":"","loc":"interface/f77_gbmv.html"},{"title":"f77_gemv – MFI - Modern Fortran Interfaces","text":"public interface f77_gemv Generic old style interface for GEMV.\nSupports s, d, c, z.\nSee also: mfi_gemv , sgemv , dgemv , cgemv , zgemv . Subroutines public pure subroutine sgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for SGEMV\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine dgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for DGEMV\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine cgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for CGEMV\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for ZGEMV\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy","tags":"","loc":"interface/f77_gemv.html"},{"title":"f77_ger – MFI - Modern Fortran Interfaces","text":"public interface f77_ger Generic old style interface for GER.\nSupports s, d.\nSee also: mfi_ger , sger , dger . Subroutines public pure subroutine sger(m, n, alpha, x, incx, y, incy, a, lda) Original interface for SGER\nSee also: mfi_ger , f77_ger . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda public pure subroutine dger(m, n, alpha, x, incx, y, incy, a, lda) Original interface for DGER\nSee also: mfi_ger , f77_ger . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda","tags":"","loc":"interface/f77_ger.html"},{"title":"f77_gerc – MFI - Modern Fortran Interfaces","text":"public interface f77_gerc Generic old style interface for GERC.\nSupports c, z.\nSee also: mfi_gerc , cgerc , zgerc . Subroutines public pure subroutine cgerc(m, n, alpha, x, incx, y, incy, a, lda) Original interface for CGERC\nSee also: mfi_gerc , f77_gerc . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda public pure subroutine zgerc(m, n, alpha, x, incx, y, incy, a, lda) Original interface for ZGERC\nSee also: mfi_gerc , f77_gerc . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda","tags":"","loc":"interface/f77_gerc.html"},{"title":"f77_geru – MFI - Modern Fortran Interfaces","text":"public interface f77_geru Generic old style interface for GERU.\nSupports c, z.\nSee also: mfi_geru , cgeru , zgeru . Subroutines public pure subroutine cgeru(m, n, alpha, x, incx, y, incy, a, lda) Original interface for CGERU\nSee also: mfi_geru , f77_geru . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda public pure subroutine zgeru(m, n, alpha, x, incx, y, incy, a, lda) Original interface for ZGERU\nSee also: mfi_geru , f77_geru . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda","tags":"","loc":"interface/f77_geru.html"},{"title":"f77_hbmv – MFI - Modern Fortran Interfaces","text":"public interface f77_hbmv Generic old style interface for HBMV.\nSupports c, z.\nSee also: mfi_hbmv , chbmv , zhbmv . Subroutines public pure subroutine chbmv(uplo, n, k, alpha, a, lda, x, incx, beta, y, incy) Original interface for CHBMV\nSee also: mfi_hbmv , f77_hbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zhbmv(uplo, n, k, alpha, a, lda, x, incx, beta, y, incy) Original interface for ZHBMV\nSee also: mfi_hbmv , f77_hbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy","tags":"","loc":"interface/f77_hbmv.html"},{"title":"f77_hemv – MFI - Modern Fortran Interfaces","text":"public interface f77_hemv Generic old style interface for HEMV.\nSupports c, z.\nSee also: mfi_hemv , chemv , zhemv . Subroutines public pure subroutine chemv(uplo, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for CHEMV\nSee also: mfi_hemv , f77_hemv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zhemv(uplo, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for ZHEMV\nSee also: mfi_hemv , f77_hemv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy","tags":"","loc":"interface/f77_hemv.html"},{"title":"f77_her – MFI - Modern Fortran Interfaces","text":"public interface f77_her Generic old style interface for HER.\nSupports c, z.\nSee also: mfi_her , cher , zher . Subroutines public pure subroutine cher(uplo, n, alpha, x, incx, a, lda) Original interface for CHER\nSee also: mfi_her , f77_her . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=wp), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda public pure subroutine zher(uplo, n, alpha, x, incx, a, lda) Original interface for ZHER\nSee also: mfi_her , f77_her . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=wp), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda","tags":"","loc":"interface/f77_her.html"},{"title":"f77_her2 – MFI - Modern Fortran Interfaces","text":"public interface f77_her2 Generic old style interface for HER2.\nSupports c, z.\nSee also: mfi_her2 , cher2 , zher2 . Subroutines public pure subroutine cher2(uplo, n, alpha, x, incx, y, incy, a, lda) Original interface for CHER2\nSee also: mfi_her2 , f77_her2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda public pure subroutine zher2(uplo, n, alpha, x, incx, y, incy, a, lda) Original interface for ZHER2\nSee also: mfi_her2 , f77_her2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda","tags":"","loc":"interface/f77_her2.html"},{"title":"f77_hpmv – MFI - Modern Fortran Interfaces","text":"public interface f77_hpmv Generic old style interface for HPMV.\nSupports c, z.\nSee also: mfi_hpmv , chpmv , zhpmv . Subroutines public pure subroutine chpmv(uplo, n, alpha, ap, x, incx, beta, y, incy) Original interface for CHPMV\nSee also: mfi_hpmv , f77_hpmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: ap (*) complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zhpmv(uplo, n, alpha, ap, x, incx, beta, y, incy) Original interface for ZHPMV\nSee also: mfi_hpmv , f77_hpmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: ap (*) complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy","tags":"","loc":"interface/f77_hpmv.html"},{"title":"f77_hpr – MFI - Modern Fortran Interfaces","text":"public interface f77_hpr Generic old style interface for HPR.\nSupports c, z.\nSee also: mfi_hpr , chpr , zhpr . Subroutines public pure subroutine chpr(uplo, n, alpha, x, incx, ap) Original interface for CHPR\nSee also: mfi_hpr , f77_hpr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=wp), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(inout) :: ap (*) public pure subroutine zhpr(uplo, n, alpha, x, incx, ap) Original interface for ZHPR\nSee also: mfi_hpr , f77_hpr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=wp), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(inout) :: ap (*)","tags":"","loc":"interface/f77_hpr.html"},{"title":"f77_hpr2 – MFI - Modern Fortran Interfaces","text":"public interface f77_hpr2 Generic old style interface for HPR2.\nSupports c, z.\nSee also: mfi_hpr2 , chpr2 , zhpr2 . Subroutines public pure subroutine chpr2(uplo, n, alpha, x, incx, y, incy, ap) Original interface for CHPR2\nSee also: mfi_hpr2 , f77_hpr2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL32), intent(inout) :: ap (*) public pure subroutine zhpr2(uplo, n, alpha, x, incx, y, incy, ap) Original interface for ZHPR2\nSee also: mfi_hpr2 , f77_hpr2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL64), intent(inout) :: ap (*)","tags":"","loc":"interface/f77_hpr2.html"},{"title":"f77_sbmv – MFI - Modern Fortran Interfaces","text":"public interface f77_sbmv Generic old style interface for SBMV.\nSupports s, d.\nSee also: mfi_sbmv , ssbmv , dsbmv . Subroutines public pure subroutine ssbmv(uplo, n, k, alpha, a, lda, x, incx, beta, y, incy) Original interface for SSBMV\nSee also: mfi_sbmv , f77_sbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine dsbmv(uplo, n, k, alpha, a, lda, x, incx, beta, y, incy) Original interface for DSBMV\nSee also: mfi_sbmv , f77_sbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy","tags":"","loc":"interface/f77_sbmv.html"},{"title":"f77_spmv – MFI - Modern Fortran Interfaces","text":"public interface f77_spmv Generic old style interface for SPMV.\nSupports s, d.\nSee also: mfi_spmv , sspmv , dspmv . Subroutines public pure subroutine sspmv(uplo, n, alpha, ap, x, incx, beta, y, incy) Original interface for SSPMV\nSee also: mfi_spmv , f77_spmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: ap (*) real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine dspmv(uplo, n, alpha, ap, x, incx, beta, y, incy) Original interface for DSPMV\nSee also: mfi_spmv , f77_spmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: ap (*) real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy","tags":"","loc":"interface/f77_spmv.html"},{"title":"f77_spr – MFI - Modern Fortran Interfaces","text":"public interface f77_spr Generic old style interface for SPR.\nSupports s, d.\nSee also: mfi_spr , sspr , dspr . Subroutines public pure subroutine sspr(uplo, n, alpha, x, incx, ap) Original interface for SSPR\nSee also: mfi_spr , f77_spr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: ap (*) public pure subroutine dspr(uplo, n, alpha, x, incx, ap) Original interface for DSPR\nSee also: mfi_spr , f77_spr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: ap (*)","tags":"","loc":"interface/f77_spr.html"},{"title":"f77_spr2 – MFI - Modern Fortran Interfaces","text":"public interface f77_spr2 Generic old style interface for SPR2.\nSupports s, d.\nSee also: mfi_spr2 , sspr2 , dspr2 . Subroutines public pure subroutine sspr2(uplo, n, alpha, x, incx, y, incy, ap) Original interface for SSPR2\nSee also: mfi_spr2 , f77_spr2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL32), intent(inout) :: ap (*) public pure subroutine dspr2(uplo, n, alpha, x, incx, y, incy, ap) Original interface for DSPR2\nSee also: mfi_spr2 , f77_spr2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL64), intent(inout) :: ap (*)","tags":"","loc":"interface/f77_spr2.html"},{"title":"f77_symv – MFI - Modern Fortran Interfaces","text":"public interface f77_symv Generic old style interface for SYMV.\nSupports s, d.\nSee also: mfi_symv , ssymv , dsymv . Subroutines public pure subroutine ssymv(uplo, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for SSYMV\nSee also: mfi_symv , f77_symv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine dsymv(uplo, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for DSYMV\nSee also: mfi_symv , f77_symv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy","tags":"","loc":"interface/f77_symv.html"},{"title":"f77_syr – MFI - Modern Fortran Interfaces","text":"public interface f77_syr Generic old style interface for SYR.\nSupports s, d.\nSee also: mfi_syr , ssyr , dsyr . Subroutines public pure subroutine ssyr(uplo, n, alpha, x, incx, a, lda) Original interface for SSYR\nSee also: mfi_syr , f77_syr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda public pure subroutine dsyr(uplo, n, alpha, x, incx, a, lda) Original interface for DSYR\nSee also: mfi_syr , f77_syr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda","tags":"","loc":"interface/f77_syr.html"},{"title":"f77_syr2 – MFI - Modern Fortran Interfaces","text":"public interface f77_syr2 Generic old style interface for SYR2.\nSupports s, d.\nSee also: mfi_syr2 , ssyr2 , dsyr2 . Subroutines public pure subroutine ssyr2(uplo, n, alpha, x, incx, y, incy, a, lda) Original interface for SSYR2\nSee also: mfi_syr2 , f77_syr2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda public pure subroutine dsyr2(uplo, n, alpha, x, incx, y, incy, a, lda) Original interface for DSYR2\nSee also: mfi_syr2 , f77_syr2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda","tags":"","loc":"interface/f77_syr2.html"},{"title":"f77_tbmv – MFI - Modern Fortran Interfaces","text":"public interface f77_tbmv Generic old style interface for TBMV.\nSupports s, d, c, z.\nSee also: mfi_tbmv , stbmv , dtbmv , ctbmv , ztbmv . Subroutines public pure subroutine stbmv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for STBMV\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine dtbmv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for DTBMV\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ctbmv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for CTBMV\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ztbmv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for ZTBMV\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx","tags":"","loc":"interface/f77_tbmv.html"},{"title":"f77_tbsv – MFI - Modern Fortran Interfaces","text":"public interface f77_tbsv Generic old style interface for TBSV.\nSupports s, d, c, z.\nSee also: mfi_tbsv , stbsv , dtbsv , ctbsv , ztbsv . Subroutines public pure subroutine stbsv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for STBSV\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine dtbsv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for DTBSV\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ctbsv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for CTBSV\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ztbsv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for ZTBSV\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx","tags":"","loc":"interface/f77_tbsv.html"},{"title":"f77_tpmv – MFI - Modern Fortran Interfaces","text":"public interface f77_tpmv Generic old style interface for TPMV.\nSupports s, d, c, z.\nSee also: mfi_tpmv , stpmv , dtpmv , ctpmv , ztpmv . Subroutines public pure subroutine stpmv(uplo, trans, diag, n, ap, x, incx) Original interface for STPMV\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL32), intent(in) :: ap (*) real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine dtpmv(uplo, trans, diag, n, ap, x, incx) Original interface for DTPMV\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL64), intent(in) :: ap (*) real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ctpmv(uplo, trans, diag, n, ap, x, incx) Original interface for CTPMV\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL32), intent(in) :: ap (*) complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ztpmv(uplo, trans, diag, n, ap, x, incx) Original interface for ZTPMV\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL64), intent(in) :: ap (*) complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx","tags":"","loc":"interface/f77_tpmv.html"},{"title":"f77_tpsv – MFI - Modern Fortran Interfaces","text":"public interface f77_tpsv Generic old style interface for TPSV.\nSupports s, d, c, z.\nSee also: mfi_tpsv , stpsv , dtpsv , ctpsv , ztpsv . Subroutines public pure subroutine stpsv(uplo, trans, diag, n, ap, x, incx) Original interface for STPSV\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL32), intent(in) :: ap (*) real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine dtpsv(uplo, trans, diag, n, ap, x, incx) Original interface for DTPSV\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL64), intent(in) :: ap (*) real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ctpsv(uplo, trans, diag, n, ap, x, incx) Original interface for CTPSV\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL32), intent(in) :: ap (*) complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ztpsv(uplo, trans, diag, n, ap, x, incx) Original interface for ZTPSV\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL64), intent(in) :: ap (*) complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx","tags":"","loc":"interface/f77_tpsv.html"},{"title":"f77_trmv – MFI - Modern Fortran Interfaces","text":"public interface f77_trmv Generic old style interface for TRMV.\nSupports s, d, c, z.\nSee also: mfi_trmv , strmv , dtrmv , ctrmv , ztrmv . Subroutines public pure subroutine strmv(uplo, trans, diag, n, a, lda, x, incx) Original interface for STRMV\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine dtrmv(uplo, trans, diag, n, a, lda, x, incx) Original interface for DTRMV\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ctrmv(uplo, trans, diag, n, a, lda, x, incx) Original interface for CTRMV\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ztrmv(uplo, trans, diag, n, a, lda, x, incx) Original interface for ZTRMV\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx","tags":"","loc":"interface/f77_trmv.html"},{"title":"f77_trsv – MFI - Modern Fortran Interfaces","text":"public interface f77_trsv Generic old style interface for TRSV.\nSupports s, d, c, z.\nSee also: mfi_trsv , strsv , dtrsv , ctrsv , ztrsv . Subroutines public pure subroutine strsv(uplo, trans, diag, n, a, lda, x, incx) Original interface for STRSV\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine dtrsv(uplo, trans, diag, n, a, lda, x, incx) Original interface for DTRSV\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ctrsv(uplo, trans, diag, n, a, lda, x, incx) Original interface for CTRSV\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ztrsv(uplo, trans, diag, n, a, lda, x, incx) Original interface for ZTRSV\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx","tags":"","loc":"interface/f77_trsv.html"},{"title":"f77_gemm – MFI - Modern Fortran Interfaces","text":"public interface f77_gemm Generic old style interface for GEMM.\nSupports s, d, c, z.\nSee also: mfi_gemm , sgemm , dgemm , cgemm , zgemm . Subroutines public pure subroutine sgemm(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for SGEMM\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: transa character(len=1), intent(in) :: transb integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine dgemm(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for DGEMM\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: transa character(len=1), intent(in) :: transb integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine cgemm(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for CGEMM\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: transa character(len=1), intent(in) :: transb integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine zgemm(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for ZGEMM\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: transa character(len=1), intent(in) :: transb integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc","tags":"","loc":"interface/f77_gemm.html"},{"title":"f77_hemm – MFI - Modern Fortran Interfaces","text":"public interface f77_hemm Generic old style interface for HEMM.\nSupports c, z.\nSee also: mfi_hemm , chemm , zhemm . Subroutines public pure subroutine chemm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for CHEMM\nSee also: mfi_hemm , f77_hemm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine zhemm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for ZHEMM\nSee also: mfi_hemm , f77_hemm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc","tags":"","loc":"interface/f77_hemm.html"},{"title":"f77_herk – MFI - Modern Fortran Interfaces","text":"public interface f77_herk Generic old style interface for HERK.\nSupports c, z.\nSee also: mfi_herk , cherk , zherk . Subroutines public pure subroutine cherk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc) Original interface for CHERK\nSee also: mfi_herk , f77_herk . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=wp), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=wp), intent(in) :: beta complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine zherk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc) Original interface for ZHERK\nSee also: mfi_herk , f77_herk . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=wp), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=wp), intent(in) :: beta complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc","tags":"","loc":"interface/f77_herk.html"},{"title":"f77_her2k – MFI - Modern Fortran Interfaces","text":"public interface f77_her2k Generic old style interface for HER2K.\nSupports c, z.\nSee also: mfi_her2k , cher2k , zher2k . Subroutines public pure subroutine cher2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for CHER2K\nSee also: mfi_her2k , f77_her2k . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=wp), intent(in) :: beta complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine zher2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for ZHER2K\nSee also: mfi_her2k , f77_her2k . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=wp), intent(in) :: beta complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc","tags":"","loc":"interface/f77_her2k.html"},{"title":"f77_symm – MFI - Modern Fortran Interfaces","text":"public interface f77_symm Generic old style interface for SYMM.\nSupports s, d.\nSee also: mfi_symm , ssymm , dsymm . Subroutines public pure subroutine ssymm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for SSYMM\nSee also: mfi_symm , f77_symm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine dsymm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for DSYMM\nSee also: mfi_symm , f77_symm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc","tags":"","loc":"interface/f77_symm.html"},{"title":"f77_syrk – MFI - Modern Fortran Interfaces","text":"public interface f77_syrk Generic old style interface for SYRK.\nSupports s, d.\nSee also: mfi_syrk , ssyrk , dsyrk . Subroutines public pure subroutine ssyrk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc) Original interface for SSYRK\nSee also: mfi_syrk , f77_syrk . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine dsyrk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc) Original interface for DSYRK\nSee also: mfi_syrk , f77_syrk . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc","tags":"","loc":"interface/f77_syrk.html"},{"title":"f77_syr2k – MFI - Modern Fortran Interfaces","text":"public interface f77_syr2k Generic old style interface for SYR2K.\nSupports s, d.\nSee also: mfi_syr2k , ssyr2k , dsyr2k . Subroutines public pure subroutine ssyr2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for SSYR2K\nSee also: mfi_syr2k , f77_syr2k . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine dsyr2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for DSYR2K\nSee also: mfi_syr2k , f77_syr2k . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc","tags":"","loc":"interface/f77_syr2k.html"},{"title":"f77_trmm – MFI - Modern Fortran Interfaces","text":"public interface f77_trmm Generic old style interface for TRMM.\nSupports s, d, c, z.\nSee also: mfi_trmm , strmm , dtrmm , ctrmm , ztrmm . Subroutines public pure subroutine strmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for STRMM\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb public pure subroutine dtrmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for DTRMM\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb public pure subroutine ctrmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for CTRMM\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb public pure subroutine ztrmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for ZTRMM\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb","tags":"","loc":"interface/f77_trmm.html"},{"title":"f77_trsm – MFI - Modern Fortran Interfaces","text":"public interface f77_trsm Generic old style interface for TRSM.\nSupports s, d, c, z.\nSee also: mfi_trsm , strsm , dtrsm , ctrsm , ztrsm . Subroutines public pure subroutine strsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for STRSM\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb public pure subroutine dtrsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for DTRSM\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb public pure subroutine ctrsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for CTRSM\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb public pure subroutine ztrsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for ZTRSM\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb","tags":"","loc":"interface/f77_trsm.html"},{"title":"slamch – MFI - Modern Fortran Interfaces","text":"interface ?lamch supports s, d. See mfi_lamch for the modern version. public pure function slamch(cmach) Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: cmach Return Value real(kind=real32) Description SLAMCH determines single precision machine parameters.","tags":"","loc":"interface/slamch.html"},{"title":"dlamch – MFI - Modern Fortran Interfaces","text":"interface ?lamch supports s, d. See mfi_lamch for the modern version. public pure function dlamch(cmach) Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: cmach Return Value real(kind=real64) Description DLAMCH determines double precision machine parameters.","tags":"","loc":"interface/dlamch.html"},{"title":"sdsdot – MFI - Modern Fortran Interfaces","text":"interface public pure function sdsdot(n, sb, sx, incx, sy, incy) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=wp), intent(in) :: sb real(kind=wp), intent(in) :: sx (*) integer, intent(in) :: incx real(kind=wp), intent(in) :: sy (*) integer, intent(in) :: incy Return Value real(kind=wp) Description Compute the inner product of two vectors with extended\nprecision accumulation. Returns S.P. result with dot product accumulated in D.P.\nSDSDOT = SB + sum for I = 0 to N-1 of SX(LX+I INCX) SY(LY+I INCY),\nwhere LX = 1 if INCX .GE. 0, else LX = 1+(1-N) INCX, and LY is\ndefined in a similar way using INCY.","tags":"","loc":"interface/sdsdot.html"},{"title":"dsdot – MFI - Modern Fortran Interfaces","text":"interface public pure function dsdot(n, sx, incx, sy, incy) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=sp), intent(in) :: sx (*) integer, intent(in) :: incx real(kind=sp), intent(in) :: sy (*) integer, intent(in) :: incy Return Value real(kind=dp) Description Compute the inner product of two vectors with extended\nprecision accumulation and result. Returns D.P. dot product accumulated in D.P., for S.P. SX and SY\nDSDOT = sum for I = 0 to N-1 of  SX(LX+I INCX) * SY(LY+I INCY),\nwhere LX = 1 if INCX .GE. 0, else LX = 1+(1-N)*INCX, and LY is\ndefined in a similar way using INCY.","tags":"","loc":"interface/dsdot.html"},{"title":"f77_iamax – MFI - Modern Fortran Interfaces","text":"public interface f77_iamax Module Procedures public pure function isamax (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function idamax (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function icamax (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function izamax (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer","tags":"","loc":"interface/f77_iamax.html"},{"title":"f77_iamin – MFI - Modern Fortran Interfaces","text":"public interface f77_iamin Module Procedures public pure function isamin (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function idamin (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function icamin (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function izamin (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer","tags":"","loc":"interface/f77_iamin.html"},{"title":"mfi_sgeqrf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sgeqrf(a, tau, info) Modern interface for sgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_sgeqrf.html"},{"title":"mfi_dgeqrf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dgeqrf(a, tau, info) Modern interface for dgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_dgeqrf.html"},{"title":"mfi_cgeqrf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cgeqrf(a, tau, info) Modern interface for cgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_cgeqrf.html"},{"title":"mfi_zgeqrf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zgeqrf(a, tau, info) Modern interface for zgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_zgeqrf.html"},{"title":"mfi_sgerqf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sgerqf(a, tau, info) Modern interface for sgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_sgerqf.html"},{"title":"mfi_dgerqf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dgerqf(a, tau, info) Modern interface for dgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_dgerqf.html"},{"title":"mfi_cgerqf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cgerqf(a, tau, info) Modern interface for cgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_cgerqf.html"},{"title":"mfi_zgerqf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zgerqf(a, tau, info) Modern interface for zgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_zgerqf.html"},{"title":"mfi_sgetrf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sgetrf(a, ipiv, info) Modern interface for sgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_sgetrf.html"},{"title":"mfi_dgetrf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dgetrf(a, ipiv, info) Modern interface for dgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_dgetrf.html"},{"title":"mfi_cgetrf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cgetrf(a, ipiv, info) Modern interface for cgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_cgetrf.html"},{"title":"mfi_zgetrf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zgetrf(a, ipiv, info) Modern interface for zgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_zgetrf.html"},{"title":"mfi_sgetri – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sgetri(a, ipiv, info) Modern interface for sgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_sgetri.html"},{"title":"mfi_dgetri – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dgetri(a, ipiv, info) Modern interface for dgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_dgetri.html"},{"title":"mfi_cgetri – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cgetri(a, ipiv, info) Modern interface for cgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_cgetri.html"},{"title":"mfi_zgetri – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zgetri(a, ipiv, info) Modern interface for zgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_zgetri.html"},{"title":"mfi_sgetrs – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sgetrs(a, ipiv, b, trans, info) Modern interface for sgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_sgetrs.html"},{"title":"mfi_dgetrs – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dgetrs(a, ipiv, b, trans, info) Modern interface for dgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_dgetrs.html"},{"title":"mfi_cgetrs – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cgetrs(a, ipiv, b, trans, info) Modern interface for cgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_cgetrs.html"},{"title":"mfi_zgetrs – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zgetrs(a, ipiv, b, trans, info) Modern interface for zgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_zgetrs.html"},{"title":"mfi_chetrf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_chetrf(a, uplo, ipiv, info) Modern interface for chetrf .\nSee also: mfi_hetrf , f77_hetrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_chetrf.html"},{"title":"mfi_zhetrf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zhetrf(a, uplo, ipiv, info) Modern interface for zhetrf .\nSee also: mfi_hetrf , f77_hetrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_zhetrf.html"},{"title":"mfi_chegv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_chegv(a, b, w, itype, jobz, uplo, info) Modern interface for chegv .\nSee also: mfi_hegv , f77_hegv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) real(kind=REAL32), intent(out) :: w (:) integer, intent(in), optional :: itype character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_chegv.html"},{"title":"mfi_zhegv – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zhegv(a, b, w, itype, jobz, uplo, info) Modern interface for zhegv .\nSee also: mfi_hegv , f77_hegv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) real(kind=REAL64), intent(out) :: w (:) integer, intent(in), optional :: itype character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_zhegv.html"},{"title":"mfi_cheevd – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cheevd(a, w, jobz, uplo, info) Modern interface for cheevd .\nSee also: mfi_heevd , f77_heevd . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out) :: w (:) character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_cheevd.html"},{"title":"mfi_zheevd – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zheevd(a, w, jobz, uplo, info) Modern interface for zheevd .\nSee also: mfi_heevd , f77_heevd . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out) :: w (:) character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_zheevd.html"},{"title":"mfi_sgesvd – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_sgesvd(a, s, u, vt, ww, job, info) Modern interface for sgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out) :: s (:) real(kind=REAL32), intent(out), optional, target :: u (:,:) real(kind=REAL32), intent(out), optional, target :: vt (:,:) real(kind=REAL32), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_sgesvd.html"},{"title":"mfi_dgesvd – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dgesvd(a, s, u, vt, ww, job, info) Modern interface for dgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out) :: s (:) real(kind=REAL64), intent(out), optional, target :: u (:,:) real(kind=REAL64), intent(out), optional, target :: vt (:,:) real(kind=REAL64), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_dgesvd.html"},{"title":"mfi_cgesvd – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cgesvd(a, s, u, vt, ww, job, info) Modern interface for cgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out) :: s (:) complex(kind=REAL32), intent(out), optional, target :: u (:,:) complex(kind=REAL32), intent(out), optional, target :: vt (:,:) real(kind=REAL32), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_cgesvd.html"},{"title":"mfi_zgesvd – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zgesvd(a, s, u, vt, ww, job, info) Modern interface for zgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out) :: s (:) complex(kind=REAL64), intent(out), optional, target :: u (:,:) complex(kind=REAL64), intent(out), optional, target :: vt (:,:) real(kind=REAL64), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_zgesvd.html"},{"title":"mfi_spotrf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_spotrf(a, info, uplo) Modern interface for spotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo","tags":"","loc":"proc/mfi_spotrf.html"},{"title":"mfi_dpotrf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dpotrf(a, info, uplo) Modern interface for dpotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo","tags":"","loc":"proc/mfi_dpotrf.html"},{"title":"mfi_cpotrf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cpotrf(a, info, uplo) Modern interface for cpotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo","tags":"","loc":"proc/mfi_cpotrf.html"},{"title":"mfi_zpotrf – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zpotrf(a, info, uplo) Modern interface for zpotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo","tags":"","loc":"proc/mfi_zpotrf.html"},{"title":"mfi_spotri – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_spotri(a, info, uplo) Modern interface for spotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo","tags":"","loc":"proc/mfi_spotri.html"},{"title":"mfi_dpotri – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dpotri(a, info, uplo) Modern interface for dpotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo","tags":"","loc":"proc/mfi_dpotri.html"},{"title":"mfi_cpotri – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cpotri(a, info, uplo) Modern interface for cpotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo","tags":"","loc":"proc/mfi_cpotri.html"},{"title":"mfi_zpotri – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zpotri(a, info, uplo) Modern interface for zpotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo","tags":"","loc":"proc/mfi_zpotri.html"},{"title":"mfi_spotrs – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_spotrs(a, b, uplo, info) Modern interface for spotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_spotrs.html"},{"title":"mfi_dpotrs – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dpotrs(a, b, uplo, info) Modern interface for dpotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_dpotrs.html"},{"title":"mfi_cpotrs – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cpotrs(a, b, uplo, info) Modern interface for cpotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_cpotrs.html"},{"title":"mfi_zpotrs – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zpotrs(a, b, uplo, info) Modern interface for zpotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_zpotrs.html"},{"title":"mfi_spocon – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_spocon(a, anorm, rcond, uplo, info) Modern interface for spocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: anorm real(kind=REAL32), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_spocon.html"},{"title":"mfi_dpocon – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_dpocon(a, anorm, rcond, uplo, info) Modern interface for dpocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: anorm real(kind=REAL64), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_dpocon.html"},{"title":"mfi_cpocon – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_cpocon(a, anorm, rcond, uplo, info) Modern interface for cpocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: anorm real(kind=REAL32), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_cpocon.html"},{"title":"mfi_zpocon – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_zpocon(a, anorm, rcond, uplo, info) Modern interface for zpocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: anorm real(kind=REAL64), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"proc/mfi_zpocon.html"},{"title":"mfi_error – MFI - Modern Fortran Interfaces","text":"public pure subroutine mfi_error(name, info) Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: name integer, intent(in) :: info","tags":"","loc":"proc/mfi_error.html"},{"title":"mfi_geqrf – MFI - Modern Fortran Interfaces","text":"public interface mfi_geqrf Generic modern interface for GEQRF.\nSupports s, d, c, z.\nSee also: sgeqrf , dgeqrf , cgeqrf , zgeqrf . Module Procedures public pure subroutine mfi_sgeqrf (a, tau, info) Modern interface for sgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_dgeqrf (a, tau, info) Modern interface for dgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_cgeqrf (a, tau, info) Modern interface for cgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_zgeqrf (a, tau, info) Modern interface for zgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info","tags":"","loc":"interface/mfi_geqrf.html"},{"title":"mfi_gerqf – MFI - Modern Fortran Interfaces","text":"public interface mfi_gerqf Generic modern interface for GERQF.\nSupports s, d, c, z.\nSee also: sgerqf , dgerqf , cgerqf , zgerqf . Module Procedures public pure subroutine mfi_sgerqf (a, tau, info) Modern interface for sgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_dgerqf (a, tau, info) Modern interface for dgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_cgerqf (a, tau, info) Modern interface for cgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_zgerqf (a, tau, info) Modern interface for zgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info","tags":"","loc":"interface/mfi_gerqf.html"},{"title":"mfi_getrf – MFI - Modern Fortran Interfaces","text":"public interface mfi_getrf Generic modern interface for GETRF.\nSupports s, d, c, z.\nSee also: sgetrf , dgetrf , cgetrf , zgetrf . Module Procedures public pure subroutine mfi_sgetrf (a, ipiv, info) Modern interface for sgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_dgetrf (a, ipiv, info) Modern interface for dgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_cgetrf (a, ipiv, info) Modern interface for cgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_zgetrf (a, ipiv, info) Modern interface for zgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info","tags":"","loc":"interface/mfi_getrf.html"},{"title":"mfi_getri – MFI - Modern Fortran Interfaces","text":"public interface mfi_getri Generic modern interface for GETRI.\nSupports s, d, c, z.\nSee also: sgetri , dgetri , cgetri , zgetri . Module Procedures public pure subroutine mfi_sgetri (a, ipiv, info) Modern interface for sgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_dgetri (a, ipiv, info) Modern interface for dgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_cgetri (a, ipiv, info) Modern interface for cgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_zgetri (a, ipiv, info) Modern interface for zgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info","tags":"","loc":"interface/mfi_getri.html"},{"title":"mfi_getrs – MFI - Modern Fortran Interfaces","text":"public interface mfi_getrs Generic modern interface for GETRS.\nSupports s, d, c, z.\nSee also: sgetrs , dgetrs , cgetrs , zgetrs . Module Procedures public pure subroutine mfi_sgetrs (a, ipiv, b, trans, info) Modern interface for sgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info public pure subroutine mfi_dgetrs (a, ipiv, b, trans, info) Modern interface for dgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info public pure subroutine mfi_cgetrs (a, ipiv, b, trans, info) Modern interface for cgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info public pure subroutine mfi_zgetrs (a, ipiv, b, trans, info) Modern interface for zgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info","tags":"","loc":"interface/mfi_getrs.html"},{"title":"mfi_hetrf – MFI - Modern Fortran Interfaces","text":"public interface mfi_hetrf Generic modern interface for HETRF.\nSupports c, z.\nSee also: chetrf , zhetrf . Module Procedures public pure subroutine mfi_chetrf (a, uplo, ipiv, info) Modern interface for chetrf .\nSee also: mfi_hetrf , f77_hetrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_zhetrf (a, uplo, ipiv, info) Modern interface for zhetrf .\nSee also: mfi_hetrf , f77_hetrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info","tags":"","loc":"interface/mfi_hetrf.html"},{"title":"mfi_hegv – MFI - Modern Fortran Interfaces","text":"public interface mfi_hegv Generic modern interface for HEGV.\nSupports c, z.\nSee also: chegv , zhegv . Module Procedures public pure subroutine mfi_chegv (a, b, w, itype, jobz, uplo, info) Modern interface for chegv .\nSee also: mfi_hegv , f77_hegv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) real(kind=REAL32), intent(out) :: w (:) integer, intent(in), optional :: itype character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_zhegv (a, b, w, itype, jobz, uplo, info) Modern interface for zhegv .\nSee also: mfi_hegv , f77_hegv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) real(kind=REAL64), intent(out) :: w (:) integer, intent(in), optional :: itype character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"interface/mfi_hegv.html"},{"title":"mfi_heevd – MFI - Modern Fortran Interfaces","text":"public interface mfi_heevd Generic modern interface for HEEVD.\nSupports c, z.\nSee also: cheevd , zheevd . Module Procedures public pure subroutine mfi_cheevd (a, w, jobz, uplo, info) Modern interface for cheevd .\nSee also: mfi_heevd , f77_heevd . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out) :: w (:) character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_zheevd (a, w, jobz, uplo, info) Modern interface for zheevd .\nSee also: mfi_heevd , f77_heevd . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out) :: w (:) character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"interface/mfi_heevd.html"},{"title":"mfi_gesvd – MFI - Modern Fortran Interfaces","text":"public interface mfi_gesvd Generic modern interface for GESVD.\nSupports s, d, c, z.\nSee also: sgesvd , dgesvd , cgesvd , zgesvd . Module Procedures public pure subroutine mfi_sgesvd (a, s, u, vt, ww, job, info) Modern interface for sgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out) :: s (:) real(kind=REAL32), intent(out), optional, target :: u (:,:) real(kind=REAL32), intent(out), optional, target :: vt (:,:) real(kind=REAL32), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info public pure subroutine mfi_dgesvd (a, s, u, vt, ww, job, info) Modern interface for dgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out) :: s (:) real(kind=REAL64), intent(out), optional, target :: u (:,:) real(kind=REAL64), intent(out), optional, target :: vt (:,:) real(kind=REAL64), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info public pure subroutine mfi_cgesvd (a, s, u, vt, ww, job, info) Modern interface for cgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out) :: s (:) complex(kind=REAL32), intent(out), optional, target :: u (:,:) complex(kind=REAL32), intent(out), optional, target :: vt (:,:) real(kind=REAL32), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info public pure subroutine mfi_zgesvd (a, s, u, vt, ww, job, info) Modern interface for zgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out) :: s (:) complex(kind=REAL64), intent(out), optional, target :: u (:,:) complex(kind=REAL64), intent(out), optional, target :: vt (:,:) real(kind=REAL64), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info","tags":"","loc":"interface/mfi_gesvd.html"},{"title":"mfi_potrf – MFI - Modern Fortran Interfaces","text":"public interface mfi_potrf Generic modern interface for POTRF.\nSupports s, d, c, z.\nSee also: spotrf , dpotrf , cpotrf , zpotrf . Module Procedures public pure subroutine mfi_spotrf (a, info, uplo) Modern interface for spotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_dpotrf (a, info, uplo) Modern interface for dpotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_cpotrf (a, info, uplo) Modern interface for cpotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_zpotrf (a, info, uplo) Modern interface for zpotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo","tags":"","loc":"interface/mfi_potrf.html"},{"title":"mfi_potri – MFI - Modern Fortran Interfaces","text":"public interface mfi_potri Generic modern interface for POTRI.\nSupports s, d, c, z.\nSee also: spotri , dpotri , cpotri , zpotri . Module Procedures public pure subroutine mfi_spotri (a, info, uplo) Modern interface for spotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_dpotri (a, info, uplo) Modern interface for dpotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_cpotri (a, info, uplo) Modern interface for cpotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_zpotri (a, info, uplo) Modern interface for zpotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo","tags":"","loc":"interface/mfi_potri.html"},{"title":"mfi_potrs – MFI - Modern Fortran Interfaces","text":"public interface mfi_potrs Generic modern interface for POTRS.\nSupports s, d, c, z.\nSee also: spotrs , dpotrs , cpotrs , zpotrs . Module Procedures public pure subroutine mfi_spotrs (a, b, uplo, info) Modern interface for spotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_dpotrs (a, b, uplo, info) Modern interface for dpotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_cpotrs (a, b, uplo, info) Modern interface for cpotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_zpotrs (a, b, uplo, info) Modern interface for zpotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"interface/mfi_potrs.html"},{"title":"mfi_pocon – MFI - Modern Fortran Interfaces","text":"public interface mfi_pocon Generic modern interface for POCON.\nSupports s, d, c, z.\nSee also: spocon , dpocon , cpocon , zpocon . Module Procedures public pure subroutine mfi_spocon (a, anorm, rcond, uplo, info) Modern interface for spocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: anorm real(kind=REAL32), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_dpocon (a, anorm, rcond, uplo, info) Modern interface for dpocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: anorm real(kind=REAL64), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_cpocon (a, anorm, rcond, uplo, info) Modern interface for cpocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: anorm real(kind=REAL32), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_zpocon (a, anorm, rcond, uplo, info) Modern interface for zpocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: anorm real(kind=REAL64), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info","tags":"","loc":"interface/mfi_pocon.html"},{"title":"f77_geqrf – MFI - Modern Fortran Interfaces","text":"public interface f77_geqrf Generic old style interface for GEQRF.\nSupports s, d, c, z.\nSee also: mfi_geqrf , sgeqrf , dgeqrf , cgeqrf , zgeqrf . Subroutines public pure subroutine sgeqrf(m, n, a, lda, tau, work, lwork, info) Original interface for SGEQRF\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(out) :: tau (*) real(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgeqrf(m, n, a, lda, tau, work, lwork, info) Original interface for DGEQRF\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(out) :: tau (*) real(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgeqrf(m, n, a, lda, tau, work, lwork, info) Original interface for CGEQRF\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(out) :: tau (*) complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgeqrf(m, n, a, lda, tau, work, lwork, info) Original interface for ZGEQRF\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(out) :: tau (*) complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_geqrf.html"},{"title":"f77_gerqf – MFI - Modern Fortran Interfaces","text":"public interface f77_gerqf Generic old style interface for GERQF.\nSupports s, d, c, z.\nSee also: mfi_gerqf , sgerqf , dgerqf , cgerqf , zgerqf . Subroutines public pure subroutine sgerqf(m, n, a, lda, tau, work, lwork, info) Original interface for SGERQF\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(out) :: tau (*) real(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgerqf(m, n, a, lda, tau, work, lwork, info) Original interface for DGERQF\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(out) :: tau (*) real(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgerqf(m, n, a, lda, tau, work, lwork, info) Original interface for CGERQF\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(out) :: tau (*) complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgerqf(m, n, a, lda, tau, work, lwork, info) Original interface for ZGERQF\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(out) :: tau (*) complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_gerqf.html"},{"title":"f77_getrf – MFI - Modern Fortran Interfaces","text":"public interface f77_getrf Generic old style interface for GETRF.\nSupports s, d, c, z.\nSee also: mfi_getrf , sgetrf , dgetrf , cgetrf , zgetrf . Subroutines public pure subroutine sgetrf(m, n, a, lda, ipiv, info) Original interface for SGETRF\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: ipiv (*) integer, intent(out) :: info public pure subroutine dgetrf(m, n, a, lda, ipiv, info) Original interface for DGETRF\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: ipiv (*) integer, intent(out) :: info public pure subroutine cgetrf(m, n, a, lda, ipiv, info) Original interface for CGETRF\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: ipiv (*) integer, intent(out) :: info public pure subroutine zgetrf(m, n, a, lda, ipiv, info) Original interface for ZGETRF\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: ipiv (*) integer, intent(out) :: info","tags":"","loc":"interface/f77_getrf.html"},{"title":"f77_getri – MFI - Modern Fortran Interfaces","text":"public interface f77_getri Generic old style interface for GETRI.\nSupports s, d, c, z.\nSee also: mfi_getri , sgetri , dgetri , cgetri , zgetri . Subroutines public pure subroutine sgetri(n, a, lda, ipiv, work, lwork, info) Original interface for SGETRI\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) real(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgetri(n, a, lda, ipiv, work, lwork, info) Original interface for DGETRI\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) real(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgetri(n, a, lda, ipiv, work, lwork, info) Original interface for CGETRI\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgetri(n, a, lda, ipiv, work, lwork, info) Original interface for ZGETRI\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_getri.html"},{"title":"f77_getrs – MFI - Modern Fortran Interfaces","text":"public interface f77_getrs Generic old style interface for GETRS.\nSupports s, d, c, z.\nSee also: mfi_getrs , sgetrs , dgetrs , cgetrs , zgetrs . Subroutines public pure subroutine sgetrs(trans, n, nrhs, a, lda, ipiv, b, ldb, info) Original interface for SGETRS\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info public pure subroutine dgetrs(trans, n, nrhs, a, lda, ipiv, b, ldb, info) Original interface for DGETRS\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info public pure subroutine cgetrs(trans, n, nrhs, a, lda, ipiv, b, ldb, info) Original interface for CGETRS\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info public pure subroutine zgetrs(trans, n, nrhs, a, lda, ipiv, b, ldb, info) Original interface for ZGETRS\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info","tags":"","loc":"interface/f77_getrs.html"},{"title":"f77_hetrf – MFI - Modern Fortran Interfaces","text":"public interface f77_hetrf Generic old style interface for HETRF.\nSupports c, z.\nSee also: mfi_hetrf , chetrf , zhetrf . Subroutines public pure subroutine chetrf(uplo, n, a, lda, ipiv, work, lwork, info) Original interface for CHETRF\nSee also: mfi_hetrf , f77_hetrf . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zhetrf(uplo, n, a, lda, ipiv, work, lwork, info) Original interface for ZHETRF\nSee also: mfi_hetrf , f77_hetrf . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_hetrf.html"},{"title":"f77_hegv – MFI - Modern Fortran Interfaces","text":"public interface f77_hegv Generic old style interface for HEGV.\nSupports c, z.\nSee also: mfi_hegv , chegv , zhegv . Subroutines public pure subroutine chegv(itype, jobz, uplo, n, a, lda, b, ldb, w, work, lwork, rwork, info) Original interface for CHEGV\nSee also: mfi_hegv , f77_hegv . Arguments Type Intent Optional Attributes Name integer, intent(in) :: itype character(len=1), intent(in) :: jobz character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(out) :: w (*) complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL32), intent(in) :: rwork (*) integer, intent(out) :: info public pure subroutine zhegv(itype, jobz, uplo, n, a, lda, b, ldb, w, work, lwork, rwork, info) Original interface for ZHEGV\nSee also: mfi_hegv , f77_hegv . Arguments Type Intent Optional Attributes Name integer, intent(in) :: itype character(len=1), intent(in) :: jobz character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(out) :: w (*) complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL64), intent(in) :: rwork (*) integer, intent(out) :: info","tags":"","loc":"interface/f77_hegv.html"},{"title":"f77_heevd – MFI - Modern Fortran Interfaces","text":"public interface f77_heevd Generic old style interface for HEEVD.\nSupports c, z.\nSee also: mfi_heevd , cheevd , zheevd . Subroutines public pure subroutine cheevd(jobz, uplo, n, a, lda, w, work, lwork, rwork, lrwork, iwork, liwork, info) Original interface for CHEEVD\nSee also: mfi_heevd , f77_heevd . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobz character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(out) :: w (*) complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL32), intent(inout) :: rwork (*) integer, intent(in) :: lrwork integer, intent(inout) :: iwork (*) integer, intent(in) :: liwork integer, intent(out) :: info public pure subroutine zheevd(jobz, uplo, n, a, lda, w, work, lwork, rwork, lrwork, iwork, liwork, info) Original interface for ZHEEVD\nSee also: mfi_heevd , f77_heevd . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobz character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(out) :: w (*) complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL64), intent(inout) :: rwork (*) integer, intent(in) :: lrwork integer, intent(inout) :: iwork (*) integer, intent(in) :: liwork integer, intent(out) :: info","tags":"","loc":"interface/f77_heevd.html"},{"title":"f77_gesvd – MFI - Modern Fortran Interfaces","text":"public interface f77_gesvd Generic old style interface for GESVD.\nSupports s, d, c, z.\nSee also: mfi_gesvd , sgesvd , dgesvd , cgesvd , zgesvd . Subroutines public pure subroutine sgesvd(jobu, jobvt, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, info) Original interface for SGESVD\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobu character(len=1), intent(in) :: jobvt integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(out) :: s (*) real(kind=REAL32), intent(out) :: u (ldu,*) integer, intent(in) :: ldu real(kind=REAL32), intent(out) :: vt (ldvt,*) integer, intent(in) :: ldvt real(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgesvd(jobu, jobvt, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, info) Original interface for DGESVD\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobu character(len=1), intent(in) :: jobvt integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(out) :: s (*) real(kind=REAL64), intent(out) :: u (ldu,*) integer, intent(in) :: ldu real(kind=REAL64), intent(out) :: vt (ldvt,*) integer, intent(in) :: ldvt real(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgesvd(jobu, jobvt, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, rwork, info) Original interface for CGESVD\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobu character(len=1), intent(in) :: jobvt integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(out) :: s (*) complex(kind=REAL32), intent(out) :: u (ldu,*) integer, intent(in) :: ldu complex(kind=REAL32), intent(out) :: vt (ldvt,*) integer, intent(in) :: ldvt complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL32), intent(in) :: rwork (*) integer, intent(out) :: info public pure subroutine zgesvd(jobu, jobvt, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, rwork, info) Original interface for ZGESVD\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobu character(len=1), intent(in) :: jobvt integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(out) :: s (*) complex(kind=REAL64), intent(out) :: u (ldu,*) integer, intent(in) :: ldu complex(kind=REAL64), intent(out) :: vt (ldvt,*) integer, intent(in) :: ldvt complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL64), intent(in) :: rwork (*) integer, intent(out) :: info","tags":"","loc":"interface/f77_gesvd.html"},{"title":"f77_potrf – MFI - Modern Fortran Interfaces","text":"public interface f77_potrf Generic old style interface for POTRF.\nSupports s, d, c, z.\nSee also: mfi_potrf , spotrf , dpotrf , cpotrf , zpotrf . Subroutines public pure subroutine spotrf(uplo, n, a, lda, info) Original interface for SPOTRF\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info public pure subroutine dpotrf(uplo, n, a, lda, info) Original interface for DPOTRF\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info public pure subroutine cpotrf(uplo, n, a, lda, info) Original interface for CPOTRF\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info public pure subroutine zpotrf(uplo, n, a, lda, info) Original interface for ZPOTRF\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info","tags":"","loc":"interface/f77_potrf.html"},{"title":"f77_potri – MFI - Modern Fortran Interfaces","text":"public interface f77_potri Generic old style interface for POTRI.\nSupports s, d, c, z.\nSee also: mfi_potri , spotri , dpotri , cpotri , zpotri . Subroutines public pure subroutine spotri(uplo, n, a, lda, info) Original interface for SPOTRI\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info public pure subroutine dpotri(uplo, n, a, lda, info) Original interface for DPOTRI\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info public pure subroutine cpotri(uplo, n, a, lda, info) Original interface for CPOTRI\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info public pure subroutine zpotri(uplo, n, a, lda, info) Original interface for ZPOTRI\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info","tags":"","loc":"interface/f77_potri.html"},{"title":"f77_potrs – MFI - Modern Fortran Interfaces","text":"public interface f77_potrs Generic old style interface for POTRS.\nSupports s, d, c, z.\nSee also: mfi_potrs , spotrs , dpotrs , cpotrs , zpotrs . Subroutines public pure subroutine spotrs(uplo, n, nrhs, a, lda, b, ldb, info) Original interface for SPOTRS\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info public pure subroutine dpotrs(uplo, n, nrhs, a, lda, b, ldb, info) Original interface for DPOTRS\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info public pure subroutine cpotrs(uplo, n, nrhs, a, lda, b, ldb, info) Original interface for CPOTRS\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info public pure subroutine zpotrs(uplo, n, nrhs, a, lda, b, ldb, info) Original interface for ZPOTRS\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info","tags":"","loc":"interface/f77_potrs.html"},{"title":"f77_pocon – MFI - Modern Fortran Interfaces","text":"public interface f77_pocon Generic old style interface for POCON.\nSupports s, d, c, z.\nSee also: mfi_pocon , spocon , dpocon , cpocon , zpocon . Subroutines public pure subroutine spocon(uplo, n, a, lda, anorm, rcond, work, iwork, info) Original interface for SPOCON\nSee also: mfi_pocon , f77_pocon .\nspocon estimates the reciprocal of the condition number (in the\n1-norm) of a real(REAL32) Hermitian positive definite matrix using the\nCholesky factorization or ( A = LL&#94;\\dagger |) computed by sPOTRF.\nAn estimate is obtained for norm(inv(A)), and the reciprocal of the\ncondition number is computed as RCOND = 1 / (ANORM * norm(inv(A))). Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: anorm real(kind=REAL32), intent(out) :: rcond real(kind=REAL32), intent(inout) :: work (*) integer, intent(inout) :: iwork (*) integer, intent(out) :: info public pure subroutine dpocon(uplo, n, a, lda, anorm, rcond, work, iwork, info) Original interface for DPOCON\nSee also: mfi_pocon , f77_pocon .\ndpocon estimates the reciprocal of the condition number (in the\n1-norm) of a real(REAL64) Hermitian positive definite matrix using the\nCholesky factorization or ( A = LL&#94;\\dagger |) computed by dPOTRF.\nAn estimate is obtained for norm(inv(A)), and the reciprocal of the\ncondition number is computed as RCOND = 1 / (ANORM * norm(inv(A))). Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: anorm real(kind=REAL64), intent(out) :: rcond real(kind=REAL64), intent(inout) :: work (*) integer, intent(inout) :: iwork (*) integer, intent(out) :: info public pure subroutine cpocon(uplo, n, a, lda, anorm, rcond, work, rwork, info) Original interface for CPOCON\nSee also: mfi_pocon , f77_pocon .\ncpocon estimates the reciprocal of the condition number (in the\n1-norm) of a complex(REAL32) Hermitian positive definite matrix using the\nCholesky factorization or ( A = LL&#94;\\dagger |) computed by cPOTRF.\nAn estimate is obtained for norm(inv(A)), and the reciprocal of the\ncondition number is computed as RCOND = 1 / (ANORM * norm(inv(A))). Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: anorm real(kind=REAL32), intent(out) :: rcond complex(kind=REAL32), intent(inout) :: work (*) real(kind=REAL32), intent(inout) :: rwork (*) integer, intent(out) :: info public pure subroutine zpocon(uplo, n, a, lda, anorm, rcond, work, rwork, info) Original interface for ZPOCON\nSee also: mfi_pocon , f77_pocon .\nzpocon estimates the reciprocal of the condition number (in the\n1-norm) of a complex(REAL64) Hermitian positive definite matrix using the\nCholesky factorization or ( A = LL&#94;\\dagger |) computed by zPOTRF.\nAn estimate is obtained for norm(inv(A)), and the reciprocal of the\ncondition number is computed as RCOND = 1 / (ANORM * norm(inv(A))). Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: anorm real(kind=REAL64), intent(out) :: rcond complex(kind=REAL64), intent(inout) :: work (*) real(kind=REAL64), intent(inout) :: rwork (*) integer, intent(out) :: info","tags":"","loc":"interface/f77_pocon.html"},{"title":"f77_heevx – MFI - Modern Fortran Interfaces","text":"public interface f77_heevx Generic old style interface for HEEVX.\nSupports c, z.\nSee also: mfi_heevx , cheevx , zheevx . Subroutines public pure subroutine cheevx(jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, work, lwork, rwork, lrwork, iwork, liwork, ifail, info) Original interface for CHEEVX\nSee also: mfi_heevx , f77_heevx . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobz character(len=1), intent(in) :: range character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: vl real(kind=REAL32), intent(in) :: vu integer, intent(in) :: il integer, intent(in) :: iu real(kind=REAL32), intent(in) :: abstol integer, intent(in) :: m real(kind=REAL32), intent(out) :: w (*) complex(kind=REAL32), intent(inout) :: z (ldz,*) integer, intent(in) :: ldz complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL32), intent(inout) :: rwork (*) integer, intent(in) :: lrwork integer, intent(inout) :: iwork (*) integer, intent(in) :: liwork integer, intent(in) :: ifail integer, intent(out) :: info public pure subroutine zheevx(jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, work, lwork, rwork, lrwork, iwork, liwork, ifail, info) Original interface for ZHEEVX\nSee also: mfi_heevx , f77_heevx . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobz character(len=1), intent(in) :: range character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: vl real(kind=REAL64), intent(in) :: vu integer, intent(in) :: il integer, intent(in) :: iu real(kind=REAL64), intent(in) :: abstol integer, intent(in) :: m real(kind=REAL64), intent(out) :: w (*) complex(kind=REAL64), intent(inout) :: z (ldz,*) integer, intent(in) :: ldz complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL64), intent(inout) :: rwork (*) integer, intent(in) :: lrwork integer, intent(inout) :: iwork (*) integer, intent(in) :: liwork integer, intent(in) :: ifail integer, intent(out) :: info","tags":"","loc":"interface/f77_heevx.html"},{"title":"f77_heevr – MFI - Modern Fortran Interfaces","text":"public interface f77_heevr Generic old style interface for HEEVR.\nSupports c, z.\nSee also: mfi_heevr , cheevr , zheevr . Subroutines public pure subroutine cheevr(jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, isuppz, work, lwork, rwork, lrwork, iwork, liwork, info) Original interface for CHEEVR\nSee also: mfi_heevr , f77_heevr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobz character(len=1), intent(in) :: range character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: vl real(kind=REAL32), intent(in) :: vu integer, intent(in) :: il integer, intent(in) :: iu real(kind=REAL32), intent(in) :: abstol integer, intent(in) :: m real(kind=REAL32), intent(out) :: w (*) complex(kind=REAL32), intent(inout) :: z (ldz,*) integer, intent(in) :: ldz integer, intent(in) :: isuppz (*) complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL32), intent(inout) :: rwork (*) integer, intent(in) :: lrwork integer, intent(inout) :: iwork (*) integer, intent(in) :: liwork integer, intent(out) :: info public pure subroutine zheevr(jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, isuppz, work, lwork, rwork, lrwork, iwork, liwork, info) Original interface for ZHEEVR\nSee also: mfi_heevr , f77_heevr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobz character(len=1), intent(in) :: range character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: vl real(kind=REAL64), intent(in) :: vu integer, intent(in) :: il integer, intent(in) :: iu real(kind=REAL64), intent(in) :: abstol integer, intent(in) :: m real(kind=REAL64), intent(out) :: w (*) complex(kind=REAL64), intent(inout) :: z (ldz,*) integer, intent(in) :: ldz integer, intent(in) :: isuppz (*) complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL64), intent(inout) :: rwork (*) integer, intent(in) :: lrwork integer, intent(inout) :: iwork (*) integer, intent(in) :: liwork integer, intent(out) :: info","tags":"","loc":"interface/f77_heevr.html"},{"title":"f77_gels – MFI - Modern Fortran Interfaces","text":"public interface f77_gels Generic old style interface for GELS.\nSupports s, d, c, z.\nSee also: mfi_gels , sgels , dgels , cgels , zgels . Subroutines public pure subroutine sgels(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for SGELS\nSee also: mfi_gels , f77_gels .\nSGELS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgels(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for DGELS\nSee also: mfi_gels , f77_gels .\nDGELS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgels(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for CGELS\nSee also: mfi_gels , f77_gels .\nCGELS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgels(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for ZGELS\nSee also: mfi_gels , f77_gels .\nZGELS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_gels.html"},{"title":"f77_gelst – MFI - Modern Fortran Interfaces","text":"public interface f77_gelst Generic old style interface for GELST.\nSupports s, d, c, z.\nSee also: mfi_gelst , sgelst , dgelst , cgelst , zgelst . Subroutines public pure subroutine sgelst(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for SGELST\nSee also: mfi_gelst , f77_gelst .\nSGELST solves overdetermined or underdetermined systems for GE matrices\nusing QR or LQ factorization with compact WY representation of Q. Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgelst(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for DGELST\nSee also: mfi_gelst , f77_gelst .\nDGELST solves overdetermined or underdetermined systems for GE matrices\nusing QR or LQ factorization with compact WY representation of Q. Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgelst(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for CGELST\nSee also: mfi_gelst , f77_gelst .\nCGELST solves overdetermined or underdetermined systems for GE matrices\nusing QR or LQ factorization with compact WY representation of Q. Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgelst(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for ZGELST\nSee also: mfi_gelst , f77_gelst .\nZGELST solves overdetermined or underdetermined systems for GE matrices\nusing QR or LQ factorization with compact WY representation of Q. Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_gelst.html"},{"title":"f77_getsls – MFI - Modern Fortran Interfaces","text":"public interface f77_getsls Generic old style interface for GETSLS.\nSupports s, d, c, z.\nSee also: mfi_getsls , sgetsls , dgetsls , cgetsls , zgetsls . Subroutines public pure subroutine sgetsls(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for SGETSLS\nSee also: mfi_getsls , f77_getsls .\nSGETSLS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgetsls(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for DGETSLS\nSee also: mfi_getsls , f77_getsls .\nDGETSLS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgetsls(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for CGETSLS\nSee also: mfi_getsls , f77_getsls .\nCGETSLS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgetsls(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for ZGETSLS\nSee also: mfi_getsls , f77_getsls .\nZGETSLS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_getsls.html"},{"title":"f77_gelsd – MFI - Modern Fortran Interfaces","text":"public interface f77_gelsd Generic old style interface for GELSD.\nSupports s, d, c, z.\nSee also: mfi_gelsd , sgelsd , dgelsd , cgelsd , zgelsd . Subroutines public pure subroutine sgelsd(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, iwork, info) Original interface for SGELSD\nSee also: mfi_gelsd , f77_gelsd .\nSGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(out) :: s (*) real(kind=REAL32), intent(in) :: rcond integer, intent(out) :: rank real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: iwork (*) integer, intent(out) :: info public pure subroutine dgelsd(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, iwork, info) Original interface for DGELSD\nSee also: mfi_gelsd , f77_gelsd .\nDGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(out) :: s (*) real(kind=REAL64), intent(in) :: rcond integer, intent(out) :: rank real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: iwork (*) integer, intent(out) :: info public pure subroutine cgelsd(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, iwork, info) Original interface for CGELSD\nSee also: mfi_gelsd , f77_gelsd .\nCGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(out) :: s (*) complex(kind=REAL32), intent(in) :: rcond integer, intent(out) :: rank complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: iwork (*) integer, intent(out) :: info public pure subroutine zgelsd(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, iwork, info) Original interface for ZGELSD\nSee also: mfi_gelsd , f77_gelsd .\nZGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(out) :: s (*) complex(kind=REAL64), intent(in) :: rcond integer, intent(out) :: rank complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: iwork (*) integer, intent(out) :: info","tags":"","loc":"interface/f77_gelsd.html"},{"title":"f77_gelss – MFI - Modern Fortran Interfaces","text":"public interface f77_gelss Generic old style interface for GELSS.\nSupports s, d, c, z.\nSee also: mfi_gelss , sgelss , dgelss , cgelss , zgelss . Subroutines public pure subroutine sgelss(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, info) Original interface for SGELSS\nSee also: mfi_gelss , f77_gelss .\nSGELSS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(out) :: s (*) real(kind=REAL32), intent(in) :: rcond integer, intent(out) :: rank real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgelss(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, info) Original interface for DGELSS\nSee also: mfi_gelss , f77_gelss .\nDGELSS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(out) :: s (*) real(kind=REAL64), intent(in) :: rcond integer, intent(out) :: rank real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgelss(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, info) Original interface for CGELSS\nSee also: mfi_gelss , f77_gelss .\nCGELSS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(out) :: s (*) complex(kind=REAL32), intent(in) :: rcond integer, intent(out) :: rank complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgelss(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, info) Original interface for ZGELSS\nSee also: mfi_gelss , f77_gelss .\nZGELSS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(out) :: s (*) complex(kind=REAL64), intent(in) :: rcond integer, intent(out) :: rank complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_gelss.html"},{"title":"f77_gelsy – MFI - Modern Fortran Interfaces","text":"public interface f77_gelsy Generic old style interface for GELSY.\nSupports s, d, c, z.\nSee also: mfi_gelsy , sgelsy , dgelsy , cgelsy , zgelsy . Subroutines public pure subroutine sgelsy(m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, work, lwork, info) Original interface for SGELSY\nSee also: mfi_gelsy , f77_gelsy .\nSGELSY solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(inout) :: jpvt (*) real(kind=REAL32), intent(in) :: rcond integer, intent(out) :: rank real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgelsy(m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, work, lwork, info) Original interface for DGELSY\nSee also: mfi_gelsy , f77_gelsy .\nDGELSY solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(inout) :: jpvt (*) real(kind=REAL64), intent(in) :: rcond integer, intent(out) :: rank real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgelsy(m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, work, lwork, info) Original interface for CGELSY\nSee also: mfi_gelsy , f77_gelsy .\nCGELSY solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(inout) :: jpvt (*) complex(kind=REAL32), intent(in) :: rcond integer, intent(out) :: rank complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgelsy(m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, work, lwork, info) Original interface for ZGELSY\nSee also: mfi_gelsy , f77_gelsy .\nZGELSY solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(inout) :: jpvt (*) complex(kind=REAL64), intent(in) :: rcond integer, intent(out) :: rank complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_gelsy.html"},{"title":"f77_gglse – MFI - Modern Fortran Interfaces","text":"public interface f77_gglse Generic old style interface for GGLSE.\nSupports s, d, c, z.\nSee also: mfi_gglse , sgglse , dgglse , cgglse , zgglse . Subroutines public pure subroutine sgglse(m, n, p, a, lda, b, ldb, c, d, x, work, lwork, info) Original interface for SGGLSE\nSee also: mfi_gglse , f77_gglse . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: p real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(inout) :: c (*) real(kind=REAL32), intent(inout) :: d (*) real(kind=REAL32), intent(out) :: x (*) real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgglse(m, n, p, a, lda, b, ldb, c, d, x, work, lwork, info) Original interface for DGGLSE\nSee also: mfi_gglse , f77_gglse . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: p real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(inout) :: c (*) real(kind=REAL64), intent(inout) :: d (*) real(kind=REAL64), intent(out) :: x (*) real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgglse(m, n, p, a, lda, b, ldb, c, d, x, work, lwork, info) Original interface for CGGLSE\nSee also: mfi_gglse , f77_gglse . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: p complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(inout) :: c (*) complex(kind=REAL32), intent(inout) :: d (*) complex(kind=REAL32), intent(out) :: x (*) complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgglse(m, n, p, a, lda, b, ldb, c, d, x, work, lwork, info) Original interface for ZGGLSE\nSee also: mfi_gglse , f77_gglse . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: p complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(inout) :: c (*) complex(kind=REAL64), intent(inout) :: d (*) complex(kind=REAL64), intent(out) :: x (*) complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_gglse.html"},{"title":"f77_gglsm – MFI - Modern Fortran Interfaces","text":"public interface f77_gglsm Generic old style interface for GGLSM.\nSupports s, d, c, z.\nSee also: mfi_gglsm , sgglsm , dgglsm , cgglsm , zgglsm . Subroutines public pure subroutine sgglsm(n, m, p, a, lda, b, ldb, d, x, y, work, lwork, info) Original interface for SGGLSM\nSee also: mfi_gglsm , f77_gglsm . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n integer, intent(in) :: m integer, intent(in) :: p real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(inout) :: d (*) real(kind=REAL32), intent(out) :: x (*) real(kind=REAL32), intent(out) :: y (*) real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgglsm(n, m, p, a, lda, b, ldb, d, x, y, work, lwork, info) Original interface for DGGLSM\nSee also: mfi_gglsm , f77_gglsm . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n integer, intent(in) :: m integer, intent(in) :: p real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(inout) :: d (*) real(kind=REAL64), intent(out) :: x (*) real(kind=REAL64), intent(out) :: y (*) real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgglsm(n, m, p, a, lda, b, ldb, d, x, y, work, lwork, info) Original interface for CGGLSM\nSee also: mfi_gglsm , f77_gglsm . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n integer, intent(in) :: m integer, intent(in) :: p complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(inout) :: d (*) complex(kind=REAL32), intent(out) :: x (*) complex(kind=REAL32), intent(out) :: y (*) complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgglsm(n, m, p, a, lda, b, ldb, d, x, y, work, lwork, info) Original interface for ZGGLSM\nSee also: mfi_gglsm , f77_gglsm . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n integer, intent(in) :: m integer, intent(in) :: p complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(inout) :: d (*) complex(kind=REAL64), intent(out) :: x (*) complex(kind=REAL64), intent(out) :: y (*) complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_gglsm.html"},{"title":"f77_org2r – MFI - Modern Fortran Interfaces","text":"public interface f77_org2r Generic old style interface for ORG2R.\nSupports s, d.\nSee also: mfi_org2r , sorg2r , dorg2r . Subroutines public pure subroutine sorg2r(m, n, k, a, lda, tau, work, info) Original interface for SORG2R\nSee also: mfi_org2r , f77_org2r .\nThis routine generates an real(REAL32)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by sgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine dorg2r(m, n, k, a, lda, tau, work, info) Original interface for DORG2R\nSee also: mfi_org2r , f77_org2r .\nThis routine generates an real(REAL64)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by dgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info","tags":"","loc":"interface/f77_org2r.html"},{"title":"f77_orgr2 – MFI - Modern Fortran Interfaces","text":"public interface f77_orgr2 Generic old style interface for ORGR2.\nSupports s, d.\nSee also: mfi_orgr2 , sorgr2 , dorgr2 . Subroutines public pure subroutine sorgr2(m, n, k, a, lda, tau, work, info) Original interface for SORGR2\nSee also: mfi_orgr2 , f77_orgr2 .\nThis routine generates an real(REAL32)\nmatrix with orthonormal rows,\nwhich is defined as the last rows of a product of elementary\nreflectors of order . as returned by sgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine dorgr2(m, n, k, a, lda, tau, work, info) Original interface for DORGR2\nSee also: mfi_orgr2 , f77_orgr2 .\nThis routine generates an real(REAL64)\nmatrix with orthonormal rows,\nwhich is defined as the last rows of a product of elementary\nreflectors of order . as returned by dgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info","tags":"","loc":"interface/f77_orgr2.html"},{"title":"f77_orm2r – MFI - Modern Fortran Interfaces","text":"public interface f77_orm2r Generic old style interface for ORM2R.\nSupports s, d.\nSee also: mfi_orm2r , sorm2r , dorm2r . Subroutines public pure subroutine sorm2r(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for SORM2R\n See also: mfi_orm2r , f77_orm2r .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by sgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine dorm2r(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for DORM2R\n See also: mfi_orm2r , f77_orm2r .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by dgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info","tags":"","loc":"interface/f77_orm2r.html"},{"title":"f77_ormr2 – MFI - Modern Fortran Interfaces","text":"public interface f77_ormr2 Generic old style interface for ORMR2.\nSupports s, d.\nSee also: mfi_ormr2 , sormr2 , dormr2 . Subroutines public pure subroutine sormr2(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for SORMR2\n See also: mfi_ormr2 , f77_ormr2 .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by sgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine dormr2(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for DORMR2\n See also: mfi_ormr2 , f77_ormr2 .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by dgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info","tags":"","loc":"interface/f77_ormr2.html"},{"title":"f77_ormqr – MFI - Modern Fortran Interfaces","text":"public interface f77_ormqr Generic old style interface for ORMQR.\nSupports s, d.\nSee also: mfi_ormqr , sormqr , dormqr . Subroutines public pure subroutine sormqr(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for SORMQR\n See also: mfi_ormqr , f77_ormqr .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by sgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dormqr(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for DORMQR\n See also: mfi_ormqr , f77_ormqr .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by dgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_ormqr.html"},{"title":"f77_ormrq – MFI - Modern Fortran Interfaces","text":"public interface f77_ormrq Generic old style interface for ORMRQ.\nSupports s, d.\nSee also: mfi_ormrq , sormrq , dormrq . Subroutines public pure subroutine sormrq(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for SORMRQ\n See also: mfi_ormrq , f77_ormrq .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by sgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dormrq(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for DORMRQ\n See also: mfi_ormrq , f77_ormrq .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by dgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_ormrq.html"},{"title":"f77_orgqr – MFI - Modern Fortran Interfaces","text":"public interface f77_orgqr Generic old style interface for ORGQR.\nSupports s, d.\nSee also: mfi_orgqr , sorgqr , dorgqr . Subroutines public pure subroutine sorgqr(m, n, k, a, lda, tau, work, lwork, info) Original interface for SORGQR\nSee also: mfi_orgqr , f77_orgqr .\nThis routine generates an real(REAL32)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by sgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dorgqr(m, n, k, a, lda, tau, work, lwork, info) Original interface for DORGQR\nSee also: mfi_orgqr , f77_orgqr .\nThis routine generates an real(REAL64)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by dgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_orgqr.html"},{"title":"f77_orgrq – MFI - Modern Fortran Interfaces","text":"public interface f77_orgrq Generic old style interface for ORGRQ.\nSupports s, d.\nSee also: mfi_orgrq , sorgrq , dorgrq . Subroutines public pure subroutine sorgrq(m, n, k, a, lda, tau, work, lwork, info) Original interface for SORGRQ\nSee also: mfi_orgrq , f77_orgrq .\nThis routine generates an real(REAL32)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by sgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dorgrq(m, n, k, a, lda, tau, work, lwork, info) Original interface for DORGRQ\nSee also: mfi_orgrq , f77_orgrq .\nThis routine generates an real(REAL64)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by dgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_orgrq.html"},{"title":"f77_ung2r – MFI - Modern Fortran Interfaces","text":"public interface f77_ung2r Generic old style interface for UNG2R.\nSupports c, z.\nSee also: mfi_ung2r , cung2r , zung2r . Subroutines public pure subroutine cung2r(m, n, k, a, lda, tau, work, info) Original interface for CUNG2R\nSee also: mfi_ung2r , f77_ung2r .\nThis routine generates an complex(REAL32)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by cgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine zung2r(m, n, k, a, lda, tau, work, info) Original interface for ZUNG2R\nSee also: mfi_ung2r , f77_ung2r .\nThis routine generates an complex(REAL64)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by zgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info","tags":"","loc":"interface/f77_ung2r.html"},{"title":"f77_ungr2 – MFI - Modern Fortran Interfaces","text":"public interface f77_ungr2 Generic old style interface for UNGR2.\nSupports c, z.\nSee also: mfi_ungr2 , cungr2 , zungr2 . Subroutines public pure subroutine cungr2(m, n, k, a, lda, tau, work, info) Original interface for CUNGR2\nSee also: mfi_ungr2 , f77_ungr2 .\nThis routine generates an complex(REAL32)\nmatrix with orthonormal rows,\nwhich is defined as the last rows of a product of elementary\nreflectors of order . as returned by cgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine zungr2(m, n, k, a, lda, tau, work, info) Original interface for ZUNGR2\nSee also: mfi_ungr2 , f77_ungr2 .\nThis routine generates an complex(REAL64)\nmatrix with orthonormal rows,\nwhich is defined as the last rows of a product of elementary\nreflectors of order . as returned by zgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info","tags":"","loc":"interface/f77_ungr2.html"},{"title":"f77_unm2r – MFI - Modern Fortran Interfaces","text":"public interface f77_unm2r Generic old style interface for UNM2R.\nSupports c, z.\nSee also: mfi_unm2r , cunm2r , zunm2r . Subroutines public pure subroutine cunm2r(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for CUNM2R\n See also: mfi_unm2r , f77_unm2r .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by cgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine zunm2r(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for ZUNM2R\n See also: mfi_unm2r , f77_unm2r .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by zgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info","tags":"","loc":"interface/f77_unm2r.html"},{"title":"f77_unmr2 – MFI - Modern Fortran Interfaces","text":"public interface f77_unmr2 Generic old style interface for UNMR2.\nSupports c, z.\nSee also: mfi_unmr2 , cunmr2 , zunmr2 . Subroutines public pure subroutine cunmr2(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for CUNMR2\n See also: mfi_unmr2 , f77_unmr2 .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by cgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine zunmr2(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for ZUNMR2\n See also: mfi_unmr2 , f77_unmr2 .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by zgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info","tags":"","loc":"interface/f77_unmr2.html"},{"title":"f77_unmqr – MFI - Modern Fortran Interfaces","text":"public interface f77_unmqr Generic old style interface for UNMQR.\nSupports c, z.\nSee also: mfi_unmqr , cunmqr , zunmqr . Subroutines public pure subroutine cunmqr(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for CUNMQR\n See also: mfi_unmqr , f77_unmqr .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by cgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zunmqr(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for ZUNMQR\n See also: mfi_unmqr , f77_unmqr .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by zgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_unmqr.html"},{"title":"f77_unmrq – MFI - Modern Fortran Interfaces","text":"public interface f77_unmrq Generic old style interface for UNMRQ.\nSupports c, z.\nSee also: mfi_unmrq , cunmrq , zunmrq . Subroutines public pure subroutine cunmrq(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for CUNMRQ\n See also: mfi_unmrq , f77_unmrq .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by cgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zunmrq(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for ZUNMRQ\n See also: mfi_unmrq , f77_unmrq .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by zgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_unmrq.html"},{"title":"f77_ungqr – MFI - Modern Fortran Interfaces","text":"public interface f77_ungqr Generic old style interface for UNGQR.\nSupports c, z.\nSee also: mfi_ungqr , cungqr , zungqr . Subroutines public pure subroutine cungqr(m, n, k, a, lda, tau, work, lwork, info) Original interface for CUNGQR\nSee also: mfi_ungqr , f77_ungqr .\nThis routine generates an complex(REAL32)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by cgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zungqr(m, n, k, a, lda, tau, work, lwork, info) Original interface for ZUNGQR\nSee also: mfi_ungqr , f77_ungqr .\nThis routine generates an complex(REAL64)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by zgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_ungqr.html"},{"title":"f77_ungrq – MFI - Modern Fortran Interfaces","text":"public interface f77_ungrq Generic old style interface for UNGRQ.\nSupports c, z.\nSee also: mfi_ungrq , cungrq , zungrq . Subroutines public pure subroutine cungrq(m, n, k, a, lda, tau, work, lwork, info) Original interface for CUNGRQ\nSee also: mfi_ungrq , f77_ungrq .\nThis routine generates an complex(REAL32)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by cgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zungrq(m, n, k, a, lda, tau, work, lwork, info) Original interface for ZUNGRQ\nSee also: mfi_ungrq , f77_ungrq .\nThis routine generates an complex(REAL64)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by zgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info","tags":"","loc":"interface/f77_ungrq.html"},{"title":"f77_lartg – MFI - Modern Fortran Interfaces","text":"public interface f77_lartg Generic old style interface for LARTG.\nSupports s, d, c, z.\nSee also: mfi_lartg , slartg , dlartg , clartg , zlartg . Subroutines public pure subroutine slartg(f, g, c, s, r) Original interface for SLARTG\nSee also: mfi_lartg , f77_lartg . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: f real(kind=REAL32), intent(inout) :: g real(kind=wp), intent(inout) :: c real(kind=REAL32), intent(inout) :: s real(kind=REAL32), intent(inout) :: r public pure subroutine dlartg(f, g, c, s, r) Original interface for DLARTG\nSee also: mfi_lartg , f77_lartg . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: f real(kind=REAL64), intent(inout) :: g real(kind=wp), intent(inout) :: c real(kind=REAL64), intent(inout) :: s real(kind=REAL64), intent(inout) :: r public pure subroutine clartg(f, g, c, s, r) Original interface for CLARTG\nSee also: mfi_lartg , f77_lartg . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: f complex(kind=REAL32), intent(inout) :: g real(kind=wp), intent(inout) :: c complex(kind=REAL32), intent(inout) :: s complex(kind=REAL32), intent(inout) :: r public pure subroutine zlartg(f, g, c, s, r) Original interface for ZLARTG\nSee also: mfi_lartg , f77_lartg . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: f complex(kind=REAL64), intent(inout) :: g real(kind=wp), intent(inout) :: c complex(kind=REAL64), intent(inout) :: s complex(kind=REAL64), intent(inout) :: r","tags":"","loc":"interface/f77_lartg.html"},{"title":"f77_xerbla – MFI - Modern Fortran Interfaces","text":"public interface f77_xerbla Subroutines public pure subroutine xerbla(name, info) Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: name integer, intent(in) :: info","tags":"","loc":"interface/f77_xerbla.html"},{"title":"mfi_blas – MFI - Modern Fortran Interfaces","text":"Modern fortran interfaces for BLAS Uses iso_fortran_env f77_blas Interfaces public        interface mfi_copy Generic modern interface for COPY.\nSupports s, d, c, z.\nSee also: scopy , dcopy , ccopy , zcopy . public pure subroutine mfi_scopy (x, y, incx, incy) Modern interface for scopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dcopy (x, y, incx, incy) Modern interface for dcopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_ccopy (x, y, incx, incy) Modern interface for ccopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zcopy (x, y, incx, incy) Modern interface for zcopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_swap Generic modern interface for SWAP.\nSupports s, d, c, z.\nSee also: sswap , dswap , cswap , zswap . public pure subroutine mfi_sswap (x, y, incx, incy) Modern interface for sswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dswap (x, y, incx, incy) Modern interface for dswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_cswap (x, y, incx, incy) Modern interface for cswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zswap (x, y, incx, incy) Modern interface for zswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_axpy Generic modern interface for AXPY.\nSupports s, d, c, z.\nSee also: saxpy , daxpy , caxpy , zaxpy . public pure subroutine mfi_saxpy (x, y, a, incx, incy) Modern interface for saxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_daxpy (x, y, a, incx, incy) Modern interface for daxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_caxpy (x, y, a, incx, incy) Modern interface for caxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) complex(kind=REAL32), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zaxpy (x, y, a, incx, incy) Modern interface for zaxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) complex(kind=REAL64), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_dot Generic modern interface for DOT.\nSupports s, d.\nSee also: sdot , ddot . public pure function mfi_sdot (x, y, incx, incy) Modern interface for sdot .\nSee also: mfi_dot , f77_dot . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value real(kind=REAL32) public pure function mfi_ddot (x, y, incx, incy) Modern interface for ddot .\nSee also: mfi_dot , f77_dot . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value real(kind=REAL64) public        interface mfi_dotc Generic modern interface for DOTC.\nSupports c, z.\nSee also: cdotc , zdotc . public pure function mfi_cdotc (x, y, incx, incy) Modern interface for cdotc .\nSee also: mfi_dotc , f77_dotc . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL32) public pure function mfi_zdotc (x, y, incx, incy) Modern interface for zdotc .\nSee also: mfi_dotc , f77_dotc . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL64) public        interface mfi_dotu Generic modern interface for DOTU.\nSupports c, z.\nSee also: cdotu , zdotu . public pure function mfi_cdotu (x, y, incx, incy) Modern interface for cdotu .\nSee also: mfi_dotu , f77_dotu . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL32) public pure function mfi_zdotu (x, y, incx, incy) Modern interface for zdotu .\nSee also: mfi_dotu , f77_dotu . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL64) public        interface mfi_asum Generic modern interface for ASUM.\nSupports s, d, sc, dz.\nSee also: sasum , dasum , scasum , dzasum . public pure function mfi_sasum (x, incx) Modern interface for sasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32) public pure function mfi_dasum (x, incx) Modern interface for dasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64) public pure function mfi_scasum (x, incx) Modern interface for scasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32) public pure function mfi_dzasum (x, incx) Modern interface for dzasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64) public        interface mfi_nrm2 Generic modern interface for NRM2.\nSupports s, d, sc, dz.\nSee also: snrm2 , dnrm2 , scnrm2 , dznrm2 . public pure function mfi_snrm2 (x, incx) Modern interface for snrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32) public pure function mfi_dnrm2 (x, incx) Modern interface for dnrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64) public pure function mfi_scnrm2 (x, incx) Modern interface for scnrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32) public pure function mfi_dznrm2 (x, incx) Modern interface for dznrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64) public        interface mfi_rot Generic modern interface for ROT.\nSupports s, d, c, z, cs, zd.\nSee also: srot , drot , crot , zrot , csrot , zdrot . public pure subroutine mfi_srot (x, y, c, s, incx, incy) Modern interface for srot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: xi = c * xi + s * yi yi = c * yi - s * xi Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: x (:) real(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: c real(kind=REAL32), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_drot (x, y, c, s, incx, incy) Modern interface for drot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: xi = c * xi + s * yi yi = c * yi - s * xi Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: x (:) real(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: c real(kind=REAL64), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_crot (x, y, c, s, incx, incy) Modern interface for crot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: xi = c * xi + s * yi yi = c * yi - conj ( s ) * xi Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: c complex(kind=REAL32), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zrot (x, y, c, s, incx, incy) Modern interface for zrot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: xi = c * xi + s * yi yi = c * yi - conj ( s ) * xi Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: c complex(kind=REAL64), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_csrot (x, y, c, s, incx, incy) Modern interface for csrot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: xi = c * xi + s * yi yi = c * yi - conj ( s ) * xi Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: c real(kind=REAL32), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zdrot (x, y, c, s, incx, incy) Modern interface for zdrot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: xi = c * xi + s * yi yi = c * yi - conj ( s ) * xi Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: c real(kind=REAL64), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_rotm Generic modern interface for ROTM.\nSupports s, d.\nSee also: srotm , drotm . public pure subroutine mfi_srotm (x, y, param, incx, incy) Modern interface for srotm .\nSee also: mfi_rotm , f77_rotm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: x (:) real(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: param (5) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_drotm (x, y, param, incx, incy) Modern interface for drotm .\nSee also: mfi_rotm , f77_rotm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: x (:) real(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: param (5) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_scal Generic modern interface for SCAL.\nSupports s, d, c, z, cs, zd.\nSee also: sscal , dscal , cscal , zscal , csscal , zdscal . public pure subroutine mfi_sscal (a, x, incx) Modern interface for sscal .\nSee also: mfi_scal , f77_scal .\nMFI_SSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a real(kind=REAL32), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_dscal (a, x, incx) Modern interface for dscal .\nSee also: mfi_scal , f77_scal .\nMFI_DSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a real(kind=REAL64), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_cscal (a, x, incx) Modern interface for cscal .\nSee also: mfi_scal , f77_scal .\nMFI_CSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_zscal (a, x, incx) Modern interface for zscal .\nSee also: mfi_scal , f77_scal .\nMFI_ZSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_csscal (a, x, incx) Modern interface for csscal .\nSee also: mfi_scal , f77_scal .\nMFI_CSSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_zdscal (a, x, incx) Modern interface for zdscal .\nSee also: mfi_scal , f77_scal .\nMFI_ZDSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(inout) :: x (:) integer, intent(in), optional :: incx public        interface mfi_gbmv Generic modern interface for GBMV.\nSupports s, d, c, z.\nSee also: sgbmv , dgbmv , cgbmv , zgbmv . public pure subroutine mfi_sgbmv (a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for sgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dgbmv (a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for dgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_cgbmv (a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for cgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zgbmv (a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for zgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_gemv Generic modern interface for GEMV.\nSupports s, d, c, z.\nSee also: sgemv , dgemv , cgemv , zgemv . public pure subroutine mfi_sgemv (a, x, y, trans, alpha, beta, incx, incy) Modern interface for sgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dgemv (a, x, y, trans, alpha, beta, incx, incy) Modern interface for dgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_cgemv (a, x, y, trans, alpha, beta, incx, incy) Modern interface for cgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zgemv (a, x, y, trans, alpha, beta, incx, incy) Modern interface for zgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_ger Generic modern interface for GER.\nSupports s, d.\nSee also: sger , dger . public pure subroutine mfi_sger (a, x, y, alpha, incx, incy) Modern interface for sger .\nSee also: mfi_ger , f77_ger . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dger (a, x, y, alpha, incx, incy) Modern interface for dger .\nSee also: mfi_ger , f77_ger . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_gerc Generic modern interface for GERC.\nSupports c, z.\nSee also: cgerc , zgerc . public pure subroutine mfi_cgerc (a, x, y, alpha, incx, incy) Modern interface for cgerc .\nSee also: mfi_gerc , f77_gerc . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zgerc (a, x, y, alpha, incx, incy) Modern interface for zgerc .\nSee also: mfi_gerc , f77_gerc . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_geru Generic modern interface for GERU.\nSupports c, z.\nSee also: cgeru , zgeru . public pure subroutine mfi_cgeru (a, x, y, alpha, incx, incy) Modern interface for cgeru .\nSee also: mfi_geru , f77_geru . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zgeru (a, x, y, alpha, incx, incy) Modern interface for zgeru .\nSee also: mfi_geru , f77_geru . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_hbmv Generic modern interface for HBMV.\nSupports c, z.\nSee also: chbmv , zhbmv . public pure subroutine mfi_chbmv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for chbmv .\nSee also: mfi_hbmv , f77_hbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zhbmv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for zhbmv .\nSee also: mfi_hbmv , f77_hbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_hemv Generic modern interface for HEMV.\nSupports c, z.\nSee also: chemv , zhemv . public pure subroutine mfi_chemv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for chemv .\nSee also: mfi_hemv , f77_hemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zhemv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for zhemv .\nSee also: mfi_hemv , f77_hemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_her Generic modern interface for HER.\nSupports c, z.\nSee also: cher , zher . public pure subroutine mfi_cher (a, x, uplo, alpha, incx) Modern interface for cher .\nSee also: mfi_her , f77_her . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_zher (a, x, uplo, alpha, incx) Modern interface for zher .\nSee also: mfi_her , f77_her . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx public        interface mfi_her2 Generic modern interface for HER2.\nSupports c, z.\nSee also: cher2 , zher2 . public pure subroutine mfi_cher2 (a, x, y, uplo, alpha, incx, incy) Modern interface for cher2 .\nSee also: mfi_her2 , f77_her2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zher2 (a, x, y, uplo, alpha, incx, incy) Modern interface for zher2 .\nSee also: mfi_her2 , f77_her2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_hpmv Generic modern interface for HPMV.\nSupports c, z.\nSee also: chpmv , zhpmv . public pure subroutine mfi_chpmv (ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for chpmv .\nSee also: mfi_hpmv , f77_hpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: ap (:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zhpmv (ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for zhpmv .\nSee also: mfi_hpmv , f77_hpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: ap (:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_hpr Generic modern interface for HPR.\nSupports c, z.\nSee also: chpr , zhpr . public pure subroutine mfi_chpr (ap, x, uplo, alpha, incx) Modern interface for chpr .\nSee also: mfi_hpr , f77_hpr . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: ap (:) complex(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_zhpr (ap, x, uplo, alpha, incx) Modern interface for zhpr .\nSee also: mfi_hpr , f77_hpr . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: ap (:) complex(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx public        interface mfi_hpr2 Generic modern interface for HPR2.\nSupports c, z.\nSee also: chpr2 , zhpr2 . public pure subroutine mfi_chpr2 (ap, x, y, uplo, alpha, incx, incy) Modern interface for chpr2 .\nSee also: mfi_hpr2 , f77_hpr2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: ap (:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zhpr2 (ap, x, y, uplo, alpha, incx, incy) Modern interface for zhpr2 .\nSee also: mfi_hpr2 , f77_hpr2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: ap (:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_sbmv Generic modern interface for SBMV.\nSupports s, d.\nSee also: ssbmv , dsbmv . public pure subroutine mfi_ssbmv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for ssbmv .\nSee also: mfi_sbmv , f77_sbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dsbmv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for dsbmv .\nSee also: mfi_sbmv , f77_sbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_spmv Generic modern interface for SPMV.\nSupports s, d.\nSee also: sspmv , dspmv . public pure subroutine mfi_sspmv (ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for sspmv .\nSee also: mfi_spmv , f77_spmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: ap (:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dspmv (ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for dspmv .\nSee also: mfi_spmv , f77_spmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: ap (:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_spr Generic modern interface for SPR.\nSupports s, d.\nSee also: sspr , dspr . public pure subroutine mfi_sspr (ap, x, uplo, alpha, incx) Modern interface for sspr .\nSee also: mfi_spr , f77_spr . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: ap (:) real(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_dspr (ap, x, uplo, alpha, incx) Modern interface for dspr .\nSee also: mfi_spr , f77_spr . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: ap (:) real(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx public        interface mfi_spr2 Generic modern interface for SPR2.\nSupports s, d.\nSee also: sspr2 , dspr2 . public pure subroutine mfi_sspr2 (ap, x, y, uplo, alpha, incx, incy) Modern interface for sspr2 .\nSee also: mfi_spr2 , f77_spr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: ap (:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dspr2 (ap, x, y, uplo, alpha, incx, incy) Modern interface for dspr2 .\nSee also: mfi_spr2 , f77_spr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: ap (:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_symv Generic modern interface for SYMV.\nSupports s, d.\nSee also: ssymv , dsymv . public pure subroutine mfi_ssymv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for ssymv .\nSee also: mfi_symv , f77_symv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dsymv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for dsymv .\nSee also: mfi_symv , f77_symv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_syr Generic modern interface for SYR.\nSupports s, d.\nSee also: ssyr , dsyr . public pure subroutine mfi_ssyr (a, x, uplo, alpha, incx) Modern interface for ssyr .\nSee also: mfi_syr , f77_syr . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_dsyr (a, x, uplo, alpha, incx) Modern interface for dsyr .\nSee also: mfi_syr , f77_syr . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx public        interface mfi_syr2 Generic modern interface for SYR2.\nSupports s, d.\nSee also: ssyr2 , dsyr2 . public pure subroutine mfi_ssyr2 (a, x, y, uplo, alpha, incx, incy) Modern interface for ssyr2 .\nSee also: mfi_syr2 , f77_syr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dsyr2 (a, x, y, uplo, alpha, incx, incy) Modern interface for dsyr2 .\nSee also: mfi_syr2 , f77_syr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public        interface mfi_tbmv Generic modern interface for TBMV.\nSupports s, d, c, z.\nSee also: stbmv , dtbmv , ctbmv , ztbmv . public pure subroutine mfi_stbmv (a, x, uplo, trans, diag, incx) Modern interface for stbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtbmv (a, x, uplo, trans, diag, incx) Modern interface for dtbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctbmv (a, x, uplo, trans, diag, incx) Modern interface for ctbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztbmv (a, x, uplo, trans, diag, incx) Modern interface for ztbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public        interface mfi_tbsv Generic modern interface for TBSV.\nSupports s, d, c, z.\nSee also: stbsv , dtbsv , ctbsv , ztbsv . public pure subroutine mfi_stbsv (a, x, uplo, trans, diag, incx) Modern interface for stbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtbsv (a, x, uplo, trans, diag, incx) Modern interface for dtbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctbsv (a, x, uplo, trans, diag, incx) Modern interface for ctbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztbsv (a, x, uplo, trans, diag, incx) Modern interface for ztbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public        interface mfi_tpmv Generic modern interface for TPMV.\nSupports s, d, c, z.\nSee also: stpmv , dtpmv , ctpmv , ztpmv . public pure subroutine mfi_stpmv (ap, x, uplo, trans, diag, incx) Modern interface for stpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: ap (:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtpmv (ap, x, uplo, trans, diag, incx) Modern interface for dtpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: ap (:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctpmv (ap, x, uplo, trans, diag, incx) Modern interface for ctpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: ap (:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztpmv (ap, x, uplo, trans, diag, incx) Modern interface for ztpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: ap (:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public        interface mfi_tpsv Generic modern interface for TPSV.\nSupports s, d, c, z.\nSee also: stpsv , dtpsv , ctpsv , ztpsv . public pure subroutine mfi_stpsv (ap, x, uplo, trans, diag, incx) Modern interface for stpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: ap (:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtpsv (ap, x, uplo, trans, diag, incx) Modern interface for dtpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: ap (:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctpsv (ap, x, uplo, trans, diag, incx) Modern interface for ctpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: ap (:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztpsv (ap, x, uplo, trans, diag, incx) Modern interface for ztpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: ap (:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public        interface mfi_trmv Generic modern interface for TRMV.\nSupports s, d, c, z.\nSee also: strmv , dtrmv , ctrmv , ztrmv . public pure subroutine mfi_strmv (a, x, uplo, trans, diag, incx) Modern interface for strmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtrmv (a, x, uplo, trans, diag, incx) Modern interface for dtrmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctrmv (a, x, uplo, trans, diag, incx) Modern interface for ctrmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztrmv (a, x, uplo, trans, diag, incx) Modern interface for ztrmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public        interface mfi_trsv Generic modern interface for TRSV.\nSupports s, d, c, z.\nSee also: strsv , dtrsv , ctrsv , ztrsv . public pure subroutine mfi_strsv (a, x, uplo, trans, diag, incx) Modern interface for strsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtrsv (a, x, uplo, trans, diag, incx) Modern interface for dtrsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctrsv (a, x, uplo, trans, diag, incx) Modern interface for ctrsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztrsv (a, x, uplo, trans, diag, incx) Modern interface for ztrsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public        interface mfi_gemm Generic modern interface for GEMM.\nSupports s, d, c, z.\nSee also: sgemm , dgemm , cgemm , zgemm . public pure subroutine mfi_sgemm (a, b, c, transa, transb, alpha, beta) Modern interface for sgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: b (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_dgemm (a, b, c, transa, transb, alpha, beta) Modern interface for dgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: b (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta public pure subroutine mfi_cgemm (a, b, c, transa, transb, alpha, beta) Modern interface for cgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: b (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_zgemm (a, b, c, transa, transb, alpha, beta) Modern interface for zgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: b (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta public        interface mfi_hemm Generic modern interface for HEMM.\nSupports c, z.\nSee also: chemm , zhemm . public pure subroutine mfi_chemm (a, b, c, side, uplo, alpha, beta) Modern interface for chemm .\nSee also: mfi_hemm , f77_hemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: b (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_zhemm (a, b, c, side, uplo, alpha, beta) Modern interface for zhemm .\nSee also: mfi_hemm , f77_hemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: b (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta public        interface mfi_herk Generic modern interface for HERK.\nSupports c, z.\nSee also: cherk , zherk . public pure subroutine mfi_cherk (a, c, uplo, trans, alpha, beta) Modern interface for cherk .\nSee also: mfi_herk , f77_herk . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=wp), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta public pure subroutine mfi_zherk (a, c, uplo, trans, alpha, beta) Modern interface for zherk .\nSee also: mfi_herk , f77_herk . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=wp), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta public        interface mfi_her2k Generic modern interface for HER2K.\nSupports c, z.\nSee also: cher2k , zher2k . public pure subroutine mfi_cher2k (a, b, c, uplo, trans, alpha, beta) Modern interface for cher2k .\nSee also: mfi_her2k , f77_her2k . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: b (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans complex(kind=REAL32), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta public pure subroutine mfi_zher2k (a, b, c, uplo, trans, alpha, beta) Modern interface for zher2k .\nSee also: mfi_her2k , f77_her2k . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: b (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans complex(kind=REAL64), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta public        interface mfi_symm Generic modern interface for SYMM.\nSupports s, d.\nSee also: ssymm , dsymm . public pure subroutine mfi_ssymm (a, b, c, side, uplo, alpha, beta) Modern interface for ssymm .\nSee also: mfi_symm , f77_symm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: b (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_dsymm (a, b, c, side, uplo, alpha, beta) Modern interface for dsymm .\nSee also: mfi_symm , f77_symm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: b (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta public        interface mfi_syrk Generic modern interface for SYRK.\nSupports s, d.\nSee also: ssyrk , dsyrk . public pure subroutine mfi_ssyrk (a, c, uplo, trans, alpha, beta) Modern interface for ssyrk .\nSee also: mfi_syrk , f77_syrk . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_dsyrk (a, c, uplo, trans, alpha, beta) Modern interface for dsyrk .\nSee also: mfi_syrk , f77_syrk . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta public        interface mfi_syr2k Generic modern interface for SYR2K.\nSupports s, d.\nSee also: ssyr2k , dsyr2k . public pure subroutine mfi_ssyr2k (a, b, c, uplo, trans, alpha, beta) Modern interface for ssyr2k .\nSee also: mfi_syr2k , f77_syr2k . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: b (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_dsyr2k (a, b, c, uplo, trans, alpha, beta) Modern interface for dsyr2k .\nSee also: mfi_syr2k , f77_syr2k . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: b (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta public        interface mfi_trmm Generic modern interface for TRMM.\nSupports s, d, c, z.\nSee also: strmm , dtrmm , ctrmm , ztrmm . public pure subroutine mfi_strmm (a, b, side, uplo, transa, diag, alpha) Modern interface for strmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL32), intent(in), optional :: alpha public pure subroutine mfi_dtrmm (a, b, side, uplo, transa, diag, alpha) Modern interface for dtrmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL64), intent(in), optional :: alpha public pure subroutine mfi_ctrmm (a, b, side, uplo, transa, diag, alpha) Modern interface for ctrmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL32), intent(in), optional :: alpha public pure subroutine mfi_ztrmm (a, b, side, uplo, transa, diag, alpha) Modern interface for ztrmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL64), intent(in), optional :: alpha public        interface mfi_trsm Generic modern interface for TRSM.\nSupports s, d, c, z.\nSee also: strsm , dtrsm , ctrsm , ztrsm . public pure subroutine mfi_strsm (a, b, side, uplo, transa, diag, alpha) Modern interface for strsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL32), intent(in), optional :: alpha public pure subroutine mfi_dtrsm (a, b, side, uplo, transa, diag, alpha) Modern interface for dtrsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL64), intent(in), optional :: alpha public pure subroutine mfi_ctrsm (a, b, side, uplo, transa, diag, alpha) Modern interface for ctrsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL32), intent(in), optional :: alpha public pure subroutine mfi_ztrsm (a, b, side, uplo, transa, diag, alpha) Modern interface for ztrsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL64), intent(in), optional :: alpha public        interface mfi_lamch Generic modern interface for LAMCH.\nSupports s, d.\nSee also: f77_lamch , f77_lamch . public pure function mfi_slamch (cmach, kind) result(res) Modern interface for f77_lamch .\nSee also: mfi_lamch , f77_lamch . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: cmach real(kind=REAL32), intent(in) :: kind Just a kind placeholder Return Value real(kind=REAL32) public pure function mfi_dlamch (cmach, kind) result(res) Modern interface for f77_lamch .\nSee also: mfi_lamch , f77_lamch . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: cmach real(kind=REAL64), intent(in) :: kind Just a kind placeholder Return Value real(kind=REAL64) public        interface mfi_iamax Generic modern interface for IAMAX.\nSupports s, d, c, z.\nSee also: f77_iamax , f77_iamax , f77_iamax , f77_iamax . public pure function mfi_isamax (x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_idamax (x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_icamax (x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_izamax (x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public        interface mfi_iamin Generic modern interface for IAMIN.\nSupports s, d, c, z.\nSee also: f77_iamin , f77_iamin , f77_iamin , f77_iamin . public pure function mfi_isamin (x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_idamin (x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_icamin (x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_izamin (x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer Functions public pure function mfi_cdotc (x, y, incx, incy) Modern interface for cdotc .\nSee also: mfi_dotc , f77_dotc . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL32) public pure function mfi_cdotu (x, y, incx, incy) Modern interface for cdotu .\nSee also: mfi_dotu , f77_dotu . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL32) public pure function mfi_zdotc (x, y, incx, incy) Modern interface for zdotc .\nSee also: mfi_dotc , f77_dotc . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL64) public pure function mfi_zdotu (x, y, incx, incy) Modern interface for zdotu .\nSee also: mfi_dotu , f77_dotu . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value complex(kind=REAL64) public pure function mfi_isamax (x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_idamax (x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_icamax (x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_izamax (x, incx) Modern interface for f77_iamax .\nSee also: mfi_iamax , f77_iamax . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_isamin (x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_idamin (x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_icamin (x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_izamin (x, incx) Modern interface for f77_iamin .\nSee also: mfi_iamin , f77_iamin . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value integer public pure function mfi_sdot (x, y, incx, incy) Modern interface for sdot .\nSee also: mfi_dot , f77_dot . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value real(kind=REAL32) public pure function mfi_sasum (x, incx) Modern interface for sasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32) public pure function mfi_scasum (x, incx) Modern interface for scasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32) public pure function mfi_snrm2 (x, incx) Modern interface for snrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32) public pure function mfi_scnrm2 (x, incx) Modern interface for scnrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL32) public pure function mfi_slamch (cmach, kind) result(res) Modern interface for f77_lamch .\nSee also: mfi_lamch , f77_lamch . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: cmach real(kind=REAL32), intent(in) :: kind Just a kind placeholder Return Value real(kind=REAL32) public pure function mfi_ddot (x, y, incx, incy) Modern interface for ddot .\nSee also: mfi_dot , f77_dot . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy Return Value real(kind=REAL64) public pure function mfi_dasum (x, incx) Modern interface for dasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64) public pure function mfi_dzasum (x, incx) Modern interface for dzasum .\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64) public pure function mfi_dnrm2 (x, incx) Modern interface for dnrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64) public pure function mfi_dznrm2 (x, incx) Modern interface for dznrm2 .\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) integer, intent(in), optional :: incx Return Value real(kind=REAL64) public pure function mfi_dlamch (cmach, kind) result(res) Modern interface for f77_lamch .\nSee also: mfi_lamch , f77_lamch . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: cmach real(kind=REAL64), intent(in) :: kind Just a kind placeholder Return Value real(kind=REAL64) Subroutines public pure subroutine mfi_scopy (x, y, incx, incy) Modern interface for scopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dcopy (x, y, incx, incy) Modern interface for dcopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_ccopy (x, y, incx, incy) Modern interface for ccopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zcopy (x, y, incx, incy) Modern interface for zcopy .\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_sswap (x, y, incx, incy) Modern interface for sswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dswap (x, y, incx, incy) Modern interface for dswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_cswap (x, y, incx, incy) Modern interface for cswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zswap (x, y, incx, incy) Modern interface for zswap .\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_saxpy (x, y, a, incx, incy) Modern interface for saxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_daxpy (x, y, a, incx, incy) Modern interface for daxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_caxpy (x, y, a, incx, incy) Modern interface for caxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) complex(kind=REAL32), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zaxpy (x, y, a, incx, incy) Modern interface for zaxpy .\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) complex(kind=REAL64), intent(in), optional :: a integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_srot (x, y, c, s, incx, incy) Modern interface for srot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: Read more… Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: x (:) real(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: c real(kind=REAL32), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_drot (x, y, c, s, incx, incy) Modern interface for drot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: Read more… Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: x (:) real(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: c real(kind=REAL64), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_crot (x, y, c, s, incx, incy) Modern interface for crot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: Read more… Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: c complex(kind=REAL32), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zrot (x, y, c, s, incx, incy) Modern interface for zrot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: Read more… Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: c complex(kind=REAL64), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_csrot (x, y, c, s, incx, incy) Modern interface for csrot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: Read more… Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: c real(kind=REAL32), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zdrot (x, y, c, s, incx, incy) Modern interface for zdrot .\n See also: mfi_rot , f77_rot .\n Given two vectors x and y,\n each vector element of these vectors is replaced as follows: Read more… Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: c real(kind=REAL64), intent(in) :: s integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_srotm (x, y, param, incx, incy) Modern interface for srotm .\nSee also: mfi_rotm , f77_rotm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: x (:) real(kind=REAL32), intent(inout) :: y (:) real(kind=REAL32), intent(in) :: param (5) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_drotm (x, y, param, incx, incy) Modern interface for drotm .\nSee also: mfi_rotm , f77_rotm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: x (:) real(kind=REAL64), intent(inout) :: y (:) real(kind=REAL64), intent(in) :: param (5) integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_sscal (a, x, incx) Modern interface for sscal .\nSee also: mfi_scal , f77_scal .\nMFI_SSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a real(kind=REAL32), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_dscal (a, x, incx) Modern interface for dscal .\nSee also: mfi_scal , f77_scal .\nMFI_DSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a real(kind=REAL64), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_cscal (a, x, incx) Modern interface for cscal .\nSee also: mfi_scal , f77_scal .\nMFI_CSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_zscal (a, x, incx) Modern interface for zscal .\nSee also: mfi_scal , f77_scal .\nMFI_ZSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_csscal (a, x, incx) Modern interface for csscal .\nSee also: mfi_scal , f77_scal .\nMFI_CSSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_zdscal (a, x, incx) Modern interface for zdscal .\nSee also: mfi_scal , f77_scal .\nMFI_ZDSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(inout) :: x (:) integer, intent(in), optional :: incx public pure subroutine mfi_sgbmv (a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for sgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dgbmv (a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for dgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_cgbmv (a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for cgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zgbmv (a, x, y, kl, m, alpha, beta, trans, incx, incy) Modern interface for zgbmv .\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) integer, intent(in), optional :: kl integer, intent(in), optional :: m complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta character(len=1), intent(in), optional :: trans integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_sgemv (a, x, y, trans, alpha, beta, incx, incy) Modern interface for sgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dgemv (a, x, y, trans, alpha, beta, incx, incy) Modern interface for dgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_cgemv (a, x, y, trans, alpha, beta, incx, incy) Modern interface for cgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zgemv (a, x, y, trans, alpha, beta, incx, incy) Modern interface for zgemv .\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: trans complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_sger (a, x, y, alpha, incx, incy) Modern interface for sger .\nSee also: mfi_ger , f77_ger . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dger (a, x, y, alpha, incx, incy) Modern interface for dger .\nSee also: mfi_ger , f77_ger . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_cgerc (a, x, y, alpha, incx, incy) Modern interface for cgerc .\nSee also: mfi_gerc , f77_gerc . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zgerc (a, x, y, alpha, incx, incy) Modern interface for zgerc .\nSee also: mfi_gerc , f77_gerc . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_cgeru (a, x, y, alpha, incx, incy) Modern interface for cgeru .\nSee also: mfi_geru , f77_geru . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zgeru (a, x, y, alpha, incx, incy) Modern interface for zgeru .\nSee also: mfi_geru , f77_geru . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_chbmv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for chbmv .\nSee also: mfi_hbmv , f77_hbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zhbmv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for zhbmv .\nSee also: mfi_hbmv , f77_hbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_chemv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for chemv .\nSee also: mfi_hemv , f77_hemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zhemv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for zhemv .\nSee also: mfi_hemv , f77_hemv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_cher (a, x, uplo, alpha, incx) Modern interface for cher .\nSee also: mfi_her , f77_her . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_zher (a, x, uplo, alpha, incx) Modern interface for zher .\nSee also: mfi_her , f77_her . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_cher2 (a, x, y, uplo, alpha, incx, incy) Modern interface for cher2 .\nSee also: mfi_her2 , f77_her2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zher2 (a, x, y, uplo, alpha, incx, incy) Modern interface for zher2 .\nSee also: mfi_her2 , f77_her2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_chpmv (ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for chpmv .\nSee also: mfi_hpmv , f77_hpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: ap (:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zhpmv (ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for zhpmv .\nSee also: mfi_hpmv , f77_hpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: ap (:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_chpr (ap, x, uplo, alpha, incx) Modern interface for chpr .\nSee also: mfi_hpr , f77_hpr . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: ap (:) complex(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_zhpr (ap, x, uplo, alpha, incx) Modern interface for zhpr .\nSee also: mfi_hpr , f77_hpr . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: ap (:) complex(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=wp), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_chpr2 (ap, x, y, uplo, alpha, incx, incy) Modern interface for chpr2 .\nSee also: mfi_hpr2 , f77_hpr2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: ap (:) complex(kind=REAL32), intent(in) :: x (:) complex(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_zhpr2 (ap, x, y, uplo, alpha, incx, incy) Modern interface for zhpr2 .\nSee also: mfi_hpr2 , f77_hpr2 . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: ap (:) complex(kind=REAL64), intent(in) :: x (:) complex(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_ssbmv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for ssbmv .\nSee also: mfi_sbmv , f77_sbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dsbmv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for dsbmv .\nSee also: mfi_sbmv , f77_sbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_sspmv (ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for sspmv .\nSee also: mfi_spmv , f77_spmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: ap (:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dspmv (ap, x, y, uplo, alpha, beta, incx, incy) Modern interface for dspmv .\nSee also: mfi_spmv , f77_spmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: ap (:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_sspr (ap, x, uplo, alpha, incx) Modern interface for sspr .\nSee also: mfi_spr , f77_spr . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: ap (:) real(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_dspr (ap, x, uplo, alpha, incx) Modern interface for dspr .\nSee also: mfi_spr , f77_spr . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: ap (:) real(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_sspr2 (ap, x, y, uplo, alpha, incx, incy) Modern interface for sspr2 .\nSee also: mfi_spr2 , f77_spr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: ap (:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dspr2 (ap, x, y, uplo, alpha, incx, incy) Modern interface for dspr2 .\nSee also: mfi_spr2 , f77_spr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: ap (:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_ssymv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for ssymv .\nSee also: mfi_symv , f77_symv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dsymv (a, x, y, uplo, alpha, beta, incx, incy) Modern interface for dsymv .\nSee also: mfi_symv , f77_symv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(inout) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_ssyr (a, x, uplo, alpha, incx) Modern interface for ssyr .\nSee also: mfi_syr , f77_syr . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_dsyr (a, x, uplo, alpha, incx) Modern interface for dsyr .\nSee also: mfi_syr , f77_syr . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx public pure subroutine mfi_ssyr2 (a, x, y, uplo, alpha, incx, incy) Modern interface for ssyr2 .\nSee also: mfi_syr2 , f77_syr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: x (:) real(kind=REAL32), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_dsyr2 (a, x, y, uplo, alpha, incx, incy) Modern interface for dsyr2 .\nSee also: mfi_syr2 , f77_syr2 . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: x (:) real(kind=REAL64), intent(in) :: y (:) character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha integer, intent(in), optional :: incx integer, intent(in), optional :: incy public pure subroutine mfi_stbmv (a, x, uplo, trans, diag, incx) Modern interface for stbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtbmv (a, x, uplo, trans, diag, incx) Modern interface for dtbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctbmv (a, x, uplo, trans, diag, incx) Modern interface for ctbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztbmv (a, x, uplo, trans, diag, incx) Modern interface for ztbmv .\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_stbsv (a, x, uplo, trans, diag, incx) Modern interface for stbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtbsv (a, x, uplo, trans, diag, incx) Modern interface for dtbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctbsv (a, x, uplo, trans, diag, incx) Modern interface for ctbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztbsv (a, x, uplo, trans, diag, incx) Modern interface for ztbsv .\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_stpmv (ap, x, uplo, trans, diag, incx) Modern interface for stpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: ap (:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtpmv (ap, x, uplo, trans, diag, incx) Modern interface for dtpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: ap (:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctpmv (ap, x, uplo, trans, diag, incx) Modern interface for ctpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: ap (:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztpmv (ap, x, uplo, trans, diag, incx) Modern interface for ztpmv .\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: ap (:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_stpsv (ap, x, uplo, trans, diag, incx) Modern interface for stpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: ap (:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtpsv (ap, x, uplo, trans, diag, incx) Modern interface for dtpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: ap (:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctpsv (ap, x, uplo, trans, diag, incx) Modern interface for ctpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: ap (:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztpsv (ap, x, uplo, trans, diag, incx) Modern interface for ztpsv .\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: ap (:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_strmv (a, x, uplo, trans, diag, incx) Modern interface for strmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtrmv (a, x, uplo, trans, diag, incx) Modern interface for dtrmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctrmv (a, x, uplo, trans, diag, incx) Modern interface for ctrmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztrmv (a, x, uplo, trans, diag, incx) Modern interface for ztrmv .\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_strsv (a, x, uplo, trans, diag, incx) Modern interface for strsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_dtrsv (a, x, uplo, trans, diag, incx) Modern interface for dtrsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ctrsv (a, x, uplo, trans, diag, incx) Modern interface for ctrsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_ztrsv (a, x, uplo, trans, diag, incx) Modern interface for ztrsv .\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: x (:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans character(len=1), intent(in), optional :: diag integer, intent(in), optional :: incx public pure subroutine mfi_sgemm (a, b, c, transa, transb, alpha, beta) Modern interface for sgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: b (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_dgemm (a, b, c, transa, transb, alpha, beta) Modern interface for dgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: b (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta public pure subroutine mfi_cgemm (a, b, c, transa, transb, alpha, beta) Modern interface for cgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: b (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_zgemm (a, b, c, transa, transb, alpha, beta) Modern interface for zgemm .\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: b (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: transb complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta public pure subroutine mfi_chemm (a, b, c, side, uplo, alpha, beta) Modern interface for chemm .\nSee also: mfi_hemm , f77_hemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: b (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo complex(kind=REAL32), intent(in), optional :: alpha complex(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_zhemm (a, b, c, side, uplo, alpha, beta) Modern interface for zhemm .\nSee also: mfi_hemm , f77_hemm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: b (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo complex(kind=REAL64), intent(in), optional :: alpha complex(kind=REAL64), intent(in), optional :: beta public pure subroutine mfi_cherk (a, c, uplo, trans, alpha, beta) Modern interface for cherk .\nSee also: mfi_herk , f77_herk . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=wp), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta public pure subroutine mfi_zherk (a, c, uplo, trans, alpha, beta) Modern interface for zherk .\nSee also: mfi_herk , f77_herk . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=wp), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta public pure subroutine mfi_cher2k (a, b, c, uplo, trans, alpha, beta) Modern interface for cher2k .\nSee also: mfi_her2k , f77_her2k . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(in) :: b (:,:) complex(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans complex(kind=REAL32), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta public pure subroutine mfi_zher2k (a, b, c, uplo, trans, alpha, beta) Modern interface for zher2k .\nSee also: mfi_her2k , f77_her2k . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(in) :: b (:,:) complex(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans complex(kind=REAL64), intent(in), optional :: alpha real(kind=wp), intent(in), optional :: beta public pure subroutine mfi_ssymm (a, b, c, side, uplo, alpha, beta) Modern interface for ssymm .\nSee also: mfi_symm , f77_symm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: b (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_dsymm (a, b, c, side, uplo, alpha, beta) Modern interface for dsymm .\nSee also: mfi_symm , f77_symm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: b (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta public pure subroutine mfi_ssyrk (a, c, uplo, trans, alpha, beta) Modern interface for ssyrk .\nSee also: mfi_syrk , f77_syrk . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_dsyrk (a, c, uplo, trans, alpha, beta) Modern interface for dsyrk .\nSee also: mfi_syrk , f77_syrk . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta public pure subroutine mfi_ssyr2k (a, b, c, uplo, trans, alpha, beta) Modern interface for ssyr2k .\nSee also: mfi_syr2k , f77_syr2k . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(in) :: b (:,:) real(kind=REAL32), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL32), intent(in), optional :: alpha real(kind=REAL32), intent(in), optional :: beta public pure subroutine mfi_dsyr2k (a, b, c, uplo, trans, alpha, beta) Modern interface for dsyr2k .\nSee also: mfi_syr2k , f77_syr2k . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(in) :: b (:,:) real(kind=REAL64), intent(inout) :: c (:,:) character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: trans real(kind=REAL64), intent(in), optional :: alpha real(kind=REAL64), intent(in), optional :: beta public pure subroutine mfi_strmm (a, b, side, uplo, transa, diag, alpha) Modern interface for strmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL32), intent(in), optional :: alpha public pure subroutine mfi_dtrmm (a, b, side, uplo, transa, diag, alpha) Modern interface for dtrmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL64), intent(in), optional :: alpha public pure subroutine mfi_ctrmm (a, b, side, uplo, transa, diag, alpha) Modern interface for ctrmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL32), intent(in), optional :: alpha public pure subroutine mfi_ztrmm (a, b, side, uplo, transa, diag, alpha) Modern interface for ztrmm .\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL64), intent(in), optional :: alpha public pure subroutine mfi_strsm (a, b, side, uplo, transa, diag, alpha) Modern interface for strsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL32), intent(in), optional :: alpha public pure subroutine mfi_dtrsm (a, b, side, uplo, transa, diag, alpha) Modern interface for dtrsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag real(kind=REAL64), intent(in), optional :: alpha public pure subroutine mfi_ctrsm (a, b, side, uplo, transa, diag, alpha) Modern interface for ctrsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL32), intent(in), optional :: alpha public pure subroutine mfi_ztrsm (a, b, side, uplo, transa, diag, alpha) Modern interface for ztrsm .\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: side character(len=1), intent(in), optional :: uplo character(len=1), intent(in), optional :: transa character(len=1), intent(in), optional :: diag complex(kind=REAL64), intent(in), optional :: alpha","tags":"","loc":"module/mfi_blas.html"},{"title":"f77_blas – MFI - Modern Fortran Interfaces","text":"Improved and original F77 interfaces for BLAS Uses iso_fortran_env Interfaces public        interface f77_copy Generic old style interface for COPY.\nSupports s, d, c, z.\nSee also: mfi_copy , scopy , dcopy , ccopy , zcopy . public pure subroutine scopy(n, x, incx, y, incy) Original interface for SCOPY\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine dcopy(n, x, incx, y, incy) Original interface for DCOPY\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine ccopy(n, x, incx, y, incy) Original interface for CCOPY\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zcopy(n, x, incx, y, incy) Original interface for ZCOPY\nSee also: mfi_copy , f77_copy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public        interface f77_swap Generic old style interface for SWAP.\nSupports s, d, c, z.\nSee also: mfi_swap , sswap , dswap , cswap , zswap . public pure subroutine sswap(n, x, incx, y, incy) Original interface for SSWAP\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine dswap(n, x, incx, y, incy) Original interface for DSWAP\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine cswap(n, x, incx, y, incy) Original interface for CSWAP\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zswap(n, x, incx, y, incy) Original interface for ZSWAP\nSee also: mfi_swap , f77_swap . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public        interface f77_axpy Generic old style interface for AXPY.\nSupports s, d, c, z.\nSee also: mfi_axpy , saxpy , daxpy , caxpy , zaxpy . public pure subroutine saxpy(n, a, x, incx, y, incy) Original interface for SAXPY\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: a real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine daxpy(n, a, x, incx, y, incy) Original interface for DAXPY\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: a real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine caxpy(n, a, x, incx, y, incy) Original interface for CAXPY\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zaxpy(n, a, x, incx, y, incy) Original interface for ZAXPY\nSee also: mfi_axpy , f77_axpy . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public        interface f77_dot Generic old style interface for DOT.\nSupports s, d.\nSee also: mfi_dot , sdot , ddot . public pure function sdot(n, x, incx, y, incy) Original interface for SDOT\nSee also: mfi_dot , f77_dot . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy Return Value real(kind=REAL32) public pure function ddot(n, x, incx, y, incy) Original interface for DDOT\nSee also: mfi_dot , f77_dot . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy Return Value real(kind=REAL64) public        interface f77_dotc Generic old style interface for DOTC.\nSupports c, z.\nSee also: mfi_dotc , cdotc , zdotc . public pure function cdotc(n, x, incx, y, incy) Original interface for CDOTC\nSee also: mfi_dotc , f77_dotc . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy Return Value complex(kind=REAL32) public pure function zdotc(n, x, incx, y, incy) Original interface for ZDOTC\nSee also: mfi_dotc , f77_dotc . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy Return Value complex(kind=REAL64) public        interface f77_dotu Generic old style interface for DOTU.\nSupports c, z.\nSee also: mfi_dotu , cdotu , zdotu . public pure function cdotu(n, x, incx, y, incy) Original interface for CDOTU\nSee also: mfi_dotu , f77_dotu . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy Return Value complex(kind=REAL32) public pure function zdotu(n, x, incx, y, incy) Original interface for ZDOTU\nSee also: mfi_dotu , f77_dotu . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy Return Value complex(kind=REAL64) public        interface f77_asum Generic old style interface for ASUM.\nSupports s, d, sc, dz.\nSee also: mfi_asum , sasum , dasum , scasum , dzasum . public pure function sasum(n, x, incx) Original interface for SASUM\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL32) public pure function scasum(n, x, incx) Original interface for SCASUM\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL32) public pure function dasum(n, x, incx) Original interface for DASUM\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL64) public pure function dzasum(n, x, incx) Original interface for DZASUM\nSee also: mfi_asum , f77_asum . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL64) public        interface f77_nrm2 Generic old style interface for NRM2.\nSupports s, d, sc, dz.\nSee also: mfi_nrm2 , snrm2 , dnrm2 , scnrm2 , dznrm2 . public pure function snrm2(n, x, incx) Original interface for SNRM2\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL32) public pure function scnrm2(n, x, incx) Original interface for SCNRM2\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL32) public pure function dnrm2(n, x, incx) Original interface for DNRM2\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL64) public pure function dznrm2(n, x, incx) Original interface for DZNRM2\nSee also: mfi_nrm2 , f77_nrm2 . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value real(kind=REAL64) public        interface f77_rot Generic old style interface for ROT.\nSupports s, d, c, z, cs, zd.\nSee also: mfi_rot , srot , drot , crot , zrot , csrot , zdrot . public pure subroutine srot(n, x, incx, y, incy, c, s) Original interface for SROT\nSee also: mfi_rot , f77_rot .\nSROT applies a plane rotation. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL32), intent(in) :: c real(kind=REAL32), intent(in) :: s public pure subroutine drot(n, x, incx, y, incy, c, s) Original interface for DROT\nSee also: mfi_rot , f77_rot .\nDROT applies a plane rotation. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL64), intent(in) :: c real(kind=REAL64), intent(in) :: s public pure subroutine crot(n, x, incx, y, incy, c, s) Original interface for CROT\nSee also: mfi_rot , f77_rot .\nCROT applies a plane rotation. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL32), intent(in) :: c complex(kind=REAL32), intent(in) :: s public pure subroutine zrot(n, x, incx, y, incy, c, s) Original interface for ZROT\nSee also: mfi_rot , f77_rot .\nZROT applies a plane rotation. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL64), intent(in) :: c complex(kind=REAL64), intent(in) :: s public pure subroutine csrot(n, x, incx, y, incy, c, s) Original interface for CSROT\nSee also: mfi_rot , f77_rot .\nCSROT applies a plane rotation. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL32), intent(in) :: c real(kind=REAL32), intent(in) :: s public pure subroutine zdrot(n, x, incx, y, incy, c, s) Original interface for ZDROT\nSee also: mfi_rot , f77_rot .\nZDROT applies a plane rotation. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL64), intent(in) :: c real(kind=REAL64), intent(in) :: s public        interface f77_rotg Generic old style interface for ROTG.\nSupports s, d, c, z.\nSee also: mfi_rotg , srotg , drotg , crotg , zrotg . public pure subroutine srotg(a, b, c, s) Original interface for SROTG\n See also: mfi_rotg , f77_rotg .\nsrotg generates a Givens rotation with real cosine and complex sine: [ c s ] [ a ] = [ r ] [ - s c ] [ b ] [ 0 ] satisfying c**2 + s**2 = 1 . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a real(kind=REAL32), intent(inout) :: b real(kind=REAL32), intent(out) :: c real(kind=REAL32), intent(out) :: s public pure subroutine drotg(a, b, c, s) Original interface for DROTG\n See also: mfi_rotg , f77_rotg .\ndrotg generates a Givens rotation with real cosine and complex sine: [ c s ] [ a ] = [ r ] [ - s c ] [ b ] [ 0 ] satisfying c**2 + s**2 = 1 . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a real(kind=REAL64), intent(inout) :: b real(kind=REAL64), intent(out) :: c real(kind=REAL64), intent(out) :: s public pure subroutine crotg(a, b, c, s) Original interface for CROTG\n See also: mfi_rotg , f77_rotg .\ncrotg generates a Givens rotation with real cosine and complex sine: [ c s ] [ a ] = [ r ] [ - conjg ( s ) c ] [ b ] [ 0 ] where c is real, s is complex, and c**2 + conjg(s)*s = 1 . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a complex(kind=REAL32), intent(inout) :: b real(kind=REAL32), intent(out) :: c complex(kind=REAL32), intent(out) :: s public pure subroutine zrotg(a, b, c, s) Original interface for ZROTG\n See also: mfi_rotg , f77_rotg .\nzrotg generates a Givens rotation with real cosine and complex sine: [ c s ] [ a ] = [ r ] [ - conjg ( s ) c ] [ b ] [ 0 ] where c is real, s is complex, and c**2 + conjg(s)*s = 1 . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a complex(kind=REAL64), intent(inout) :: b real(kind=REAL64), intent(out) :: c complex(kind=REAL64), intent(out) :: s public        interface f77_rotm Generic old style interface for ROTM.\nSupports s, d.\nSee also: mfi_rotm , srotm , drotm . public pure subroutine srotm(n, x, incx, y, incy, param) Original interface for SROTM\nSee also: mfi_rotm , f77_rotm . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy real(kind=REAL32), intent(in) :: param (5) public pure subroutine drotm(n, x, incx, y, incy, param) Original interface for DROTM\nSee also: mfi_rotm , f77_rotm . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy real(kind=REAL64), intent(in) :: param (5) public        interface f77_rotmg Generic old style interface for ROTMG.\nSupports s, d.\nSee also: mfi_rotmg , srotmg , drotmg . public pure subroutine srotmg(d1, d2, x1, y1, param) Original interface for SROTMG\nSee also: mfi_rotmg , f77_rotmg . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: d1 real(kind=REAL32), intent(inout) :: d2 real(kind=REAL32), intent(inout) :: x1 real(kind=REAL32), intent(in) :: y1 real(kind=REAL32), intent(out) :: param (5) public pure subroutine drotmg(d1, d2, x1, y1, param) Original interface for DROTMG\nSee also: mfi_rotmg , f77_rotmg . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: d1 real(kind=REAL64), intent(inout) :: d2 real(kind=REAL64), intent(inout) :: x1 real(kind=REAL64), intent(in) :: y1 real(kind=REAL64), intent(out) :: param (5) public        interface f77_scal Generic old style interface for SCAL.\nSupports s, d, c, z, cs, zd.\nSee also: mfi_scal , sscal , dscal , cscal , zscal , csscal , zdscal . public pure subroutine sscal(n, a, x, incx) Original interface for SSCAL\nSee also: mfi_scal , f77_scal .\nSSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: a real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine dscal(n, a, x, incx) Original interface for DSCAL\nSee also: mfi_scal , f77_scal .\nDSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: a real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine cscal(n, a, x, incx) Original interface for CSCAL\nSee also: mfi_scal , f77_scal .\nCSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine zscal(n, a, x, incx) Original interface for ZSCAL\nSee also: mfi_scal , f77_scal .\nZSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine csscal(n, a, x, incx) Original interface for CSSCAL\nSee also: mfi_scal , f77_scal .\nCSSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine zdscal(n, a, x, incx) Original interface for ZDSCAL\nSee also: mfi_scal , f77_scal .\nZDSCAL scales a vector by a constant. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public        interface f77_gbmv Generic old style interface for GBMV.\nSupports s, d, c, z.\nSee also: mfi_gbmv , sgbmv , dgbmv , cgbmv , zgbmv . public pure subroutine sgbmv(trans, m, n, kl, ku, alpha, a, lda, x, incx, beta, y, incy) Original interface for SGBMV\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: kl integer, intent(in) :: ku real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine dgbmv(trans, m, n, kl, ku, alpha, a, lda, x, incx, beta, y, incy) Original interface for DGBMV\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: kl integer, intent(in) :: ku real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine cgbmv(trans, m, n, kl, ku, alpha, a, lda, x, incx, beta, y, incy) Original interface for CGBMV\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: kl integer, intent(in) :: ku complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zgbmv(trans, m, n, kl, ku, alpha, a, lda, x, incx, beta, y, incy) Original interface for ZGBMV\nSee also: mfi_gbmv , f77_gbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: kl integer, intent(in) :: ku complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public        interface f77_gemv Generic old style interface for GEMV.\nSupports s, d, c, z.\nSee also: mfi_gemv , sgemv , dgemv , cgemv , zgemv . public pure subroutine sgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for SGEMV\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine dgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for DGEMV\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine cgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for CGEMV\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for ZGEMV\nSee also: mfi_gemv , f77_gemv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public        interface f77_ger Generic old style interface for GER.\nSupports s, d.\nSee also: mfi_ger , sger , dger . public pure subroutine sger(m, n, alpha, x, incx, y, incy, a, lda) Original interface for SGER\nSee also: mfi_ger , f77_ger . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda public pure subroutine dger(m, n, alpha, x, incx, y, incy, a, lda) Original interface for DGER\nSee also: mfi_ger , f77_ger . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda public        interface f77_gerc Generic old style interface for GERC.\nSupports c, z.\nSee also: mfi_gerc , cgerc , zgerc . public pure subroutine cgerc(m, n, alpha, x, incx, y, incy, a, lda) Original interface for CGERC\nSee also: mfi_gerc , f77_gerc . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda public pure subroutine zgerc(m, n, alpha, x, incx, y, incy, a, lda) Original interface for ZGERC\nSee also: mfi_gerc , f77_gerc . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda public        interface f77_geru Generic old style interface for GERU.\nSupports c, z.\nSee also: mfi_geru , cgeru , zgeru . public pure subroutine cgeru(m, n, alpha, x, incx, y, incy, a, lda) Original interface for CGERU\nSee also: mfi_geru , f77_geru . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda public pure subroutine zgeru(m, n, alpha, x, incx, y, incy, a, lda) Original interface for ZGERU\nSee also: mfi_geru , f77_geru . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda public        interface f77_hbmv Generic old style interface for HBMV.\nSupports c, z.\nSee also: mfi_hbmv , chbmv , zhbmv . public pure subroutine chbmv(uplo, n, k, alpha, a, lda, x, incx, beta, y, incy) Original interface for CHBMV\nSee also: mfi_hbmv , f77_hbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zhbmv(uplo, n, k, alpha, a, lda, x, incx, beta, y, incy) Original interface for ZHBMV\nSee also: mfi_hbmv , f77_hbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public        interface f77_hemv Generic old style interface for HEMV.\nSupports c, z.\nSee also: mfi_hemv , chemv , zhemv . public pure subroutine chemv(uplo, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for CHEMV\nSee also: mfi_hemv , f77_hemv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zhemv(uplo, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for ZHEMV\nSee also: mfi_hemv , f77_hemv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public        interface f77_her Generic old style interface for HER.\nSupports c, z.\nSee also: mfi_her , cher , zher . public pure subroutine cher(uplo, n, alpha, x, incx, a, lda) Original interface for CHER\nSee also: mfi_her , f77_her . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=wp), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda public pure subroutine zher(uplo, n, alpha, x, incx, a, lda) Original interface for ZHER\nSee also: mfi_her , f77_her . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=wp), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda public        interface f77_her2 Generic old style interface for HER2.\nSupports c, z.\nSee also: mfi_her2 , cher2 , zher2 . public pure subroutine cher2(uplo, n, alpha, x, incx, y, incy, a, lda) Original interface for CHER2\nSee also: mfi_her2 , f77_her2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda public pure subroutine zher2(uplo, n, alpha, x, incx, y, incy, a, lda) Original interface for ZHER2\nSee also: mfi_her2 , f77_her2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda public        interface f77_hpmv Generic old style interface for HPMV.\nSupports c, z.\nSee also: mfi_hpmv , chpmv , zhpmv . public pure subroutine chpmv(uplo, n, alpha, ap, x, incx, beta, y, incy) Original interface for CHPMV\nSee also: mfi_hpmv , f77_hpmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: ap (*) complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine zhpmv(uplo, n, alpha, ap, x, incx, beta, y, incy) Original interface for ZHPMV\nSee also: mfi_hpmv , f77_hpmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: ap (*) complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public        interface f77_hpr Generic old style interface for HPR.\nSupports c, z.\nSee also: mfi_hpr , chpr , zhpr . public pure subroutine chpr(uplo, n, alpha, x, incx, ap) Original interface for CHPR\nSee also: mfi_hpr , f77_hpr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=wp), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(inout) :: ap (*) public pure subroutine zhpr(uplo, n, alpha, x, incx, ap) Original interface for ZHPR\nSee also: mfi_hpr , f77_hpr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=wp), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(inout) :: ap (*) public        interface f77_hpr2 Generic old style interface for HPR2.\nSupports c, z.\nSee also: mfi_hpr2 , chpr2 , zhpr2 . public pure subroutine chpr2(uplo, n, alpha, x, incx, y, incy, ap) Original interface for CHPR2\nSee also: mfi_hpr2 , f77_hpr2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL32), intent(inout) :: ap (*) public pure subroutine zhpr2(uplo, n, alpha, x, incx, y, incy, ap) Original interface for ZHPR2\nSee also: mfi_hpr2 , f77_hpr2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy complex(kind=REAL64), intent(inout) :: ap (*) public        interface f77_sbmv Generic old style interface for SBMV.\nSupports s, d.\nSee also: mfi_sbmv , ssbmv , dsbmv . public pure subroutine ssbmv(uplo, n, k, alpha, a, lda, x, incx, beta, y, incy) Original interface for SSBMV\nSee also: mfi_sbmv , f77_sbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine dsbmv(uplo, n, k, alpha, a, lda, x, incx, beta, y, incy) Original interface for DSBMV\nSee also: mfi_sbmv , f77_sbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public        interface f77_spmv Generic old style interface for SPMV.\nSupports s, d.\nSee also: mfi_spmv , sspmv , dspmv . public pure subroutine sspmv(uplo, n, alpha, ap, x, incx, beta, y, incy) Original interface for SSPMV\nSee also: mfi_spmv , f77_spmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: ap (*) real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine dspmv(uplo, n, alpha, ap, x, incx, beta, y, incy) Original interface for DSPMV\nSee also: mfi_spmv , f77_spmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: ap (*) real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public        interface f77_spr Generic old style interface for SPR.\nSupports s, d.\nSee also: mfi_spr , sspr , dspr . public pure subroutine sspr(uplo, n, alpha, x, incx, ap) Original interface for SSPR\nSee also: mfi_spr , f77_spr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: ap (*) public pure subroutine dspr(uplo, n, alpha, x, incx, ap) Original interface for DSPR\nSee also: mfi_spr , f77_spr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: ap (*) public        interface f77_spr2 Generic old style interface for SPR2.\nSupports s, d.\nSee also: mfi_spr2 , sspr2 , dspr2 . public pure subroutine sspr2(uplo, n, alpha, x, incx, y, incy, ap) Original interface for SSPR2\nSee also: mfi_spr2 , f77_spr2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL32), intent(inout) :: ap (*) public pure subroutine dspr2(uplo, n, alpha, x, incx, y, incy, ap) Original interface for DSPR2\nSee also: mfi_spr2 , f77_spr2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL64), intent(inout) :: ap (*) public        interface f77_symv Generic old style interface for SYMV.\nSupports s, d.\nSee also: mfi_symv , ssymv , dsymv . public pure subroutine ssymv(uplo, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for SSYMV\nSee also: mfi_symv , f77_symv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: y (*) integer, intent(in) :: incy public pure subroutine dsymv(uplo, n, alpha, a, lda, x, incx, beta, y, incy) Original interface for DSYMV\nSee also: mfi_symv , f77_symv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: y (*) integer, intent(in) :: incy public        interface f77_syr Generic old style interface for SYR.\nSupports s, d.\nSee also: mfi_syr , ssyr , dsyr . public pure subroutine ssyr(uplo, n, alpha, x, incx, a, lda) Original interface for SSYR\nSee also: mfi_syr , f77_syr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda public pure subroutine dsyr(uplo, n, alpha, x, incx, a, lda) Original interface for DSYR\nSee also: mfi_syr , f77_syr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda public        interface f77_syr2 Generic old style interface for SYR2.\nSupports s, d.\nSee also: mfi_syr2 , ssyr2 , dsyr2 . public pure subroutine ssyr2(uplo, n, alpha, x, incx, y, incy, a, lda) Original interface for SSYR2\nSee also: mfi_syr2 , f77_syr2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda public pure subroutine dsyr2(uplo, n, alpha, x, incx, y, incy, a, lda) Original interface for DSYR2\nSee also: mfi_syr2 , f77_syr2 . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: y (*) integer, intent(in) :: incy real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda public        interface f77_tbmv Generic old style interface for TBMV.\nSupports s, d, c, z.\nSee also: mfi_tbmv , stbmv , dtbmv , ctbmv , ztbmv . public pure subroutine stbmv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for STBMV\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine dtbmv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for DTBMV\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ctbmv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for CTBMV\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ztbmv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for ZTBMV\nSee also: mfi_tbmv , f77_tbmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public        interface f77_tbsv Generic old style interface for TBSV.\nSupports s, d, c, z.\nSee also: mfi_tbsv , stbsv , dtbsv , ctbsv , ztbsv . public pure subroutine stbsv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for STBSV\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine dtbsv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for DTBSV\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ctbsv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for CTBSV\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ztbsv(uplo, trans, diag, n, k, a, lda, x, incx) Original interface for ZTBSV\nSee also: mfi_tbsv , f77_tbsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public        interface f77_tpmv Generic old style interface for TPMV.\nSupports s, d, c, z.\nSee also: mfi_tpmv , stpmv , dtpmv , ctpmv , ztpmv . public pure subroutine stpmv(uplo, trans, diag, n, ap, x, incx) Original interface for STPMV\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL32), intent(in) :: ap (*) real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine dtpmv(uplo, trans, diag, n, ap, x, incx) Original interface for DTPMV\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL64), intent(in) :: ap (*) real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ctpmv(uplo, trans, diag, n, ap, x, incx) Original interface for CTPMV\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL32), intent(in) :: ap (*) complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ztpmv(uplo, trans, diag, n, ap, x, incx) Original interface for ZTPMV\nSee also: mfi_tpmv , f77_tpmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL64), intent(in) :: ap (*) complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public        interface f77_tpsv Generic old style interface for TPSV.\nSupports s, d, c, z.\nSee also: mfi_tpsv , stpsv , dtpsv , ctpsv , ztpsv . public pure subroutine stpsv(uplo, trans, diag, n, ap, x, incx) Original interface for STPSV\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL32), intent(in) :: ap (*) real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine dtpsv(uplo, trans, diag, n, ap, x, incx) Original interface for DTPSV\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL64), intent(in) :: ap (*) real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ctpsv(uplo, trans, diag, n, ap, x, incx) Original interface for CTPSV\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL32), intent(in) :: ap (*) complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ztpsv(uplo, trans, diag, n, ap, x, incx) Original interface for ZTPSV\nSee also: mfi_tpsv , f77_tpsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL64), intent(in) :: ap (*) complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public        interface f77_trmv Generic old style interface for TRMV.\nSupports s, d, c, z.\nSee also: mfi_trmv , strmv , dtrmv , ctrmv , ztrmv . public pure subroutine strmv(uplo, trans, diag, n, a, lda, x, incx) Original interface for STRMV\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine dtrmv(uplo, trans, diag, n, a, lda, x, incx) Original interface for DTRMV\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ctrmv(uplo, trans, diag, n, a, lda, x, incx) Original interface for CTRMV\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ztrmv(uplo, trans, diag, n, a, lda, x, incx) Original interface for ZTRMV\nSee also: mfi_trmv , f77_trmv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public        interface f77_trsv Generic old style interface for TRSV.\nSupports s, d, c, z.\nSee also: mfi_trsv , strsv , dtrsv , ctrsv , ztrsv . public pure subroutine strsv(uplo, trans, diag, n, a, lda, x, incx) Original interface for STRSV\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine dtrsv(uplo, trans, diag, n, a, lda, x, incx) Original interface for DTRSV\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ctrsv(uplo, trans, diag, n, a, lda, x, incx) Original interface for CTRSV\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: x (*) integer, intent(in) :: incx public pure subroutine ztrsv(uplo, trans, diag, n, a, lda, x, incx) Original interface for ZTRSV\nSee also: mfi_trsv , f77_trsv . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: x (*) integer, intent(in) :: incx public        interface f77_gemm Generic old style interface for GEMM.\nSupports s, d, c, z.\nSee also: mfi_gemm , sgemm , dgemm , cgemm , zgemm . public pure subroutine sgemm(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for SGEMM\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: transa character(len=1), intent(in) :: transb integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine dgemm(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for DGEMM\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: transa character(len=1), intent(in) :: transb integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine cgemm(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for CGEMM\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: transa character(len=1), intent(in) :: transb integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine zgemm(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for ZGEMM\nSee also: mfi_gemm , f77_gemm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: transa character(len=1), intent(in) :: transb integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public        interface f77_hemm Generic old style interface for HEMM.\nSupports c, z.\nSee also: mfi_hemm , chemm , zhemm . public pure subroutine chemm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for CHEMM\nSee also: mfi_hemm , f77_hemm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine zhemm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for ZHEMM\nSee also: mfi_hemm , f77_hemm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public        interface f77_herk Generic old style interface for HERK.\nSupports c, z.\nSee also: mfi_herk , cherk , zherk . public pure subroutine cherk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc) Original interface for CHERK\nSee also: mfi_herk , f77_herk . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=wp), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=wp), intent(in) :: beta complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine zherk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc) Original interface for ZHERK\nSee also: mfi_herk , f77_herk . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=wp), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=wp), intent(in) :: beta complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public        interface f77_her2k Generic old style interface for HER2K.\nSupports c, z.\nSee also: mfi_her2k , cher2k , zher2k . public pure subroutine cher2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for CHER2K\nSee also: mfi_her2k , f77_her2k . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=wp), intent(in) :: beta complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine zher2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for ZHER2K\nSee also: mfi_her2k , f77_her2k . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=wp), intent(in) :: beta complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public        interface f77_symm Generic old style interface for SYMM.\nSupports s, d.\nSee also: mfi_symm , ssymm , dsymm . public pure subroutine ssymm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for SSYMM\nSee also: mfi_symm , f77_symm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine dsymm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for DSYMM\nSee also: mfi_symm , f77_symm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public        interface f77_syrk Generic old style interface for SYRK.\nSupports s, d.\nSee also: mfi_syrk , ssyrk , dsyrk . public pure subroutine ssyrk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc) Original interface for SSYRK\nSee also: mfi_syrk , f77_syrk . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine dsyrk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc) Original interface for DSYRK\nSee also: mfi_syrk , f77_syrk . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public        interface f77_syr2k Generic old style interface for SYR2K.\nSupports s, d.\nSee also: mfi_syr2k , ssyr2k , dsyr2k . public pure subroutine ssyr2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for SSYR2K\nSee also: mfi_syr2k , f77_syr2k . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public pure subroutine dsyr2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc) Original interface for DSYR2K\nSee also: mfi_syr2k , f77_syr2k . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc public        interface f77_trmm Generic old style interface for TRMM.\nSupports s, d, c, z.\nSee also: mfi_trmm , strmm , dtrmm , ctrmm , ztrmm . public pure subroutine strmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for STRMM\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb public pure subroutine dtrmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for DTRMM\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb public pure subroutine ctrmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for CTRMM\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb public pure subroutine ztrmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for ZTRMM\nSee also: mfi_trmm , f77_trmm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb public        interface f77_trsm Generic old style interface for TRSM.\nSupports s, d, c, z.\nSee also: mfi_trsm , strsm , dtrsm , ctrsm , ztrsm . public pure subroutine strsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for STRSM\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb public pure subroutine dtrsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for DTRSM\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb public pure subroutine ctrsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for CTRSM\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb public pure subroutine ztrsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) Original interface for ZTRSM\nSee also: mfi_trsm , f77_trsm . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb interface ?lamch supports s, d. See mfi_lamch for the modern version. public pure function slamch(cmach) SLAMCH determines single precision machine parameters. Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: cmach Return Value real(kind=real32) interface ?lamch supports s, d. See mfi_lamch for the modern version. public pure function dlamch(cmach) DLAMCH determines double precision machine parameters. Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: cmach Return Value real(kind=real64) interface public pure function sdsdot(n, sb, sx, incx, sy, incy) Compute the inner product of two vectors with extended\nprecision accumulation. Returns S.P. result with dot product accumulated in D.P.\nSDSDOT = SB + sum for I = 0 to N-1 of SX(LX+I INCX) SY(LY+I INCY),\nwhere LX = 1 if INCX .GE. 0, else LX = 1+(1-N) INCX, and LY is\ndefined in a similar way using INCY. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=wp), intent(in) :: sb real(kind=wp), intent(in) :: sx (*) integer, intent(in) :: incx real(kind=wp), intent(in) :: sy (*) integer, intent(in) :: incy Return Value real(kind=wp) interface public pure function dsdot(n, sx, incx, sy, incy) Compute the inner product of two vectors with extended\nprecision accumulation and result. Returns D.P. dot product accumulated in D.P., for S.P. SX and SY\nDSDOT = sum for I = 0 to N-1 of  SX(LX+I INCX) * SY(LY+I INCY),\nwhere LX = 1 if INCX .GE. 0, else LX = 1+(1-N)*INCX, and LY is\ndefined in a similar way using INCY. Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=sp), intent(in) :: sx (*) integer, intent(in) :: incx real(kind=sp), intent(in) :: sy (*) integer, intent(in) :: incy Return Value real(kind=dp) public        interface f77_iamax public pure function isamax (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function idamax (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function icamax (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function izamax (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public        interface f77_iamin public pure function isamin (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function idamin (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function icamin (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function izamin (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer Functions public pure function isamax (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function idamax (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function icamax (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function izamax (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function isamin (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function idamin (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function icamin (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer public pure function izamin (n, x, incx) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x (*) integer, intent(in) :: incx Return Value integer","tags":"","loc":"module/f77_blas.html"},{"title":"mfi_lapack – MFI - Modern Fortran Interfaces","text":"Modern fortran interfaces for LAPACK Uses iso_fortran_env f77_lapack Interfaces public        interface mfi_geqrf Generic modern interface for GEQRF.\nSupports s, d, c, z.\nSee also: sgeqrf , dgeqrf , cgeqrf , zgeqrf . public pure subroutine mfi_sgeqrf (a, tau, info) Modern interface for sgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_dgeqrf (a, tau, info) Modern interface for dgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_cgeqrf (a, tau, info) Modern interface for cgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_zgeqrf (a, tau, info) Modern interface for zgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public        interface mfi_gerqf Generic modern interface for GERQF.\nSupports s, d, c, z.\nSee also: sgerqf , dgerqf , cgerqf , zgerqf . public pure subroutine mfi_sgerqf (a, tau, info) Modern interface for sgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_dgerqf (a, tau, info) Modern interface for dgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_cgerqf (a, tau, info) Modern interface for cgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_zgerqf (a, tau, info) Modern interface for zgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public        interface mfi_getrf Generic modern interface for GETRF.\nSupports s, d, c, z.\nSee also: sgetrf , dgetrf , cgetrf , zgetrf . public pure subroutine mfi_sgetrf (a, ipiv, info) Modern interface for sgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_dgetrf (a, ipiv, info) Modern interface for dgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_cgetrf (a, ipiv, info) Modern interface for cgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_zgetrf (a, ipiv, info) Modern interface for zgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public        interface mfi_getri Generic modern interface for GETRI.\nSupports s, d, c, z.\nSee also: sgetri , dgetri , cgetri , zgetri . public pure subroutine mfi_sgetri (a, ipiv, info) Modern interface for sgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_dgetri (a, ipiv, info) Modern interface for dgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_cgetri (a, ipiv, info) Modern interface for cgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_zgetri (a, ipiv, info) Modern interface for zgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info public        interface mfi_getrs Generic modern interface for GETRS.\nSupports s, d, c, z.\nSee also: sgetrs , dgetrs , cgetrs , zgetrs . public pure subroutine mfi_sgetrs (a, ipiv, b, trans, info) Modern interface for sgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info public pure subroutine mfi_dgetrs (a, ipiv, b, trans, info) Modern interface for dgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info public pure subroutine mfi_cgetrs (a, ipiv, b, trans, info) Modern interface for cgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info public pure subroutine mfi_zgetrs (a, ipiv, b, trans, info) Modern interface for zgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info public        interface mfi_hetrf Generic modern interface for HETRF.\nSupports c, z.\nSee also: chetrf , zhetrf . public pure subroutine mfi_chetrf (a, uplo, ipiv, info) Modern interface for chetrf .\nSee also: mfi_hetrf , f77_hetrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_zhetrf (a, uplo, ipiv, info) Modern interface for zhetrf .\nSee also: mfi_hetrf , f77_hetrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public        interface mfi_hegv Generic modern interface for HEGV.\nSupports c, z.\nSee also: chegv , zhegv . public pure subroutine mfi_chegv (a, b, w, itype, jobz, uplo, info) Modern interface for chegv .\nSee also: mfi_hegv , f77_hegv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) real(kind=REAL32), intent(out) :: w (:) integer, intent(in), optional :: itype character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_zhegv (a, b, w, itype, jobz, uplo, info) Modern interface for zhegv .\nSee also: mfi_hegv , f77_hegv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) real(kind=REAL64), intent(out) :: w (:) integer, intent(in), optional :: itype character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public        interface mfi_heevd Generic modern interface for HEEVD.\nSupports c, z.\nSee also: cheevd , zheevd . public pure subroutine mfi_cheevd (a, w, jobz, uplo, info) Modern interface for cheevd .\nSee also: mfi_heevd , f77_heevd . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out) :: w (:) character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_zheevd (a, w, jobz, uplo, info) Modern interface for zheevd .\nSee also: mfi_heevd , f77_heevd . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out) :: w (:) character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public        interface mfi_gesvd Generic modern interface for GESVD.\nSupports s, d, c, z.\nSee also: sgesvd , dgesvd , cgesvd , zgesvd . public pure subroutine mfi_sgesvd (a, s, u, vt, ww, job, info) Modern interface for sgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out) :: s (:) real(kind=REAL32), intent(out), optional, target :: u (:,:) real(kind=REAL32), intent(out), optional, target :: vt (:,:) real(kind=REAL32), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info public pure subroutine mfi_dgesvd (a, s, u, vt, ww, job, info) Modern interface for dgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out) :: s (:) real(kind=REAL64), intent(out), optional, target :: u (:,:) real(kind=REAL64), intent(out), optional, target :: vt (:,:) real(kind=REAL64), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info public pure subroutine mfi_cgesvd (a, s, u, vt, ww, job, info) Modern interface for cgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out) :: s (:) complex(kind=REAL32), intent(out), optional, target :: u (:,:) complex(kind=REAL32), intent(out), optional, target :: vt (:,:) real(kind=REAL32), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info public pure subroutine mfi_zgesvd (a, s, u, vt, ww, job, info) Modern interface for zgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out) :: s (:) complex(kind=REAL64), intent(out), optional, target :: u (:,:) complex(kind=REAL64), intent(out), optional, target :: vt (:,:) real(kind=REAL64), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info public        interface mfi_potrf Generic modern interface for POTRF.\nSupports s, d, c, z.\nSee also: spotrf , dpotrf , cpotrf , zpotrf . public pure subroutine mfi_spotrf (a, info, uplo) Modern interface for spotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_dpotrf (a, info, uplo) Modern interface for dpotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_cpotrf (a, info, uplo) Modern interface for cpotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_zpotrf (a, info, uplo) Modern interface for zpotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public        interface mfi_potri Generic modern interface for POTRI.\nSupports s, d, c, z.\nSee also: spotri , dpotri , cpotri , zpotri . public pure subroutine mfi_spotri (a, info, uplo) Modern interface for spotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_dpotri (a, info, uplo) Modern interface for dpotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_cpotri (a, info, uplo) Modern interface for cpotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_zpotri (a, info, uplo) Modern interface for zpotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public        interface mfi_potrs Generic modern interface for POTRS.\nSupports s, d, c, z.\nSee also: spotrs , dpotrs , cpotrs , zpotrs . public pure subroutine mfi_spotrs (a, b, uplo, info) Modern interface for spotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_dpotrs (a, b, uplo, info) Modern interface for dpotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_cpotrs (a, b, uplo, info) Modern interface for cpotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_zpotrs (a, b, uplo, info) Modern interface for zpotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public        interface mfi_pocon Generic modern interface for POCON.\nSupports s, d, c, z.\nSee also: spocon , dpocon , cpocon , zpocon . public pure subroutine mfi_spocon (a, anorm, rcond, uplo, info) Modern interface for spocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: anorm real(kind=REAL32), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_dpocon (a, anorm, rcond, uplo, info) Modern interface for dpocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: anorm real(kind=REAL64), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_cpocon (a, anorm, rcond, uplo, info) Modern interface for cpocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: anorm real(kind=REAL32), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_zpocon (a, anorm, rcond, uplo, info) Modern interface for zpocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: anorm real(kind=REAL64), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info Subroutines public pure subroutine mfi_sgeqrf (a, tau, info) Modern interface for sgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_dgeqrf (a, tau, info) Modern interface for dgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_cgeqrf (a, tau, info) Modern interface for cgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_zgeqrf (a, tau, info) Modern interface for zgeqrf .\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_sgerqf (a, tau, info) Modern interface for sgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_dgerqf (a, tau, info) Modern interface for dgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_cgerqf (a, tau, info) Modern interface for cgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_zgerqf (a, tau, info) Modern interface for zgerqf .\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(out), optional, target :: tau (:) integer, intent(out), optional :: info public pure subroutine mfi_sgetrf (a, ipiv, info) Modern interface for sgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_dgetrf (a, ipiv, info) Modern interface for dgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_cgetrf (a, ipiv, info) Modern interface for cgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_zgetrf (a, ipiv, info) Modern interface for zgetrf .\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_sgetri (a, ipiv, info) Modern interface for sgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_dgetri (a, ipiv, info) Modern interface for dgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_cgetri (a, ipiv, info) Modern interface for cgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_zgetri (a, ipiv, info) Modern interface for zgetri .\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_sgetrs (a, ipiv, b, trans, info) Modern interface for sgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info public pure subroutine mfi_dgetrs (a, ipiv, b, trans, info) Modern interface for dgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info public pure subroutine mfi_cgetrs (a, ipiv, b, trans, info) Modern interface for cgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info public pure subroutine mfi_zgetrs (a, ipiv, b, trans, info) Modern interface for zgetrs .\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(in) :: ipiv (:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: trans integer, intent(out), optional :: info public pure subroutine mfi_chetrf (a, uplo, ipiv, info) Modern interface for chetrf .\nSee also: mfi_hetrf , f77_hetrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_zhetrf (a, uplo, ipiv, info) Modern interface for zhetrf .\nSee also: mfi_hetrf , f77_hetrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional, target :: ipiv (:) integer, intent(out), optional :: info public pure subroutine mfi_chegv (a, b, w, itype, jobz, uplo, info) Modern interface for chegv .\nSee also: mfi_hegv , f77_hegv . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) real(kind=REAL32), intent(out) :: w (:) integer, intent(in), optional :: itype character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_zhegv (a, b, w, itype, jobz, uplo, info) Modern interface for zhegv .\nSee also: mfi_hegv , f77_hegv . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) real(kind=REAL64), intent(out) :: w (:) integer, intent(in), optional :: itype character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_cheevd (a, w, jobz, uplo, info) Modern interface for cheevd .\nSee also: mfi_heevd , f77_heevd . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out) :: w (:) character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_zheevd (a, w, jobz, uplo, info) Modern interface for zheevd .\nSee also: mfi_heevd , f77_heevd . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out) :: w (:) character(len=1), intent(in), optional :: jobz character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_sgesvd (a, s, u, vt, ww, job, info) Modern interface for sgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out) :: s (:) real(kind=REAL32), intent(out), optional, target :: u (:,:) real(kind=REAL32), intent(out), optional, target :: vt (:,:) real(kind=REAL32), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info public pure subroutine mfi_dgesvd (a, s, u, vt, ww, job, info) Modern interface for dgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out) :: s (:) real(kind=REAL64), intent(out), optional, target :: u (:,:) real(kind=REAL64), intent(out), optional, target :: vt (:,:) real(kind=REAL64), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info public pure subroutine mfi_cgesvd (a, s, u, vt, ww, job, info) Modern interface for cgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(out) :: s (:) complex(kind=REAL32), intent(out), optional, target :: u (:,:) complex(kind=REAL32), intent(out), optional, target :: vt (:,:) real(kind=REAL32), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info public pure subroutine mfi_zgesvd (a, s, u, vt, ww, job, info) Modern interface for zgesvd .\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(out) :: s (:) complex(kind=REAL64), intent(out), optional, target :: u (:,:) complex(kind=REAL64), intent(out), optional, target :: vt (:,:) real(kind=REAL64), intent(out), optional, target :: ww (:) character(len=1), intent(in), optional :: job integer, intent(out), optional :: info public pure subroutine mfi_spotrf (a, info, uplo) Modern interface for spotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_dpotrf (a, info, uplo) Modern interface for dpotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_cpotrf (a, info, uplo) Modern interface for cpotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_zpotrf (a, info, uplo) Modern interface for zpotrf .\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_spotri (a, info, uplo) Modern interface for spotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_dpotri (a, info, uplo) Modern interface for dpotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_cpotri (a, info, uplo) Modern interface for cpotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_zpotri (a, info, uplo) Modern interface for zpotri .\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) integer, intent(out), optional :: info character(len=1), intent(in), optional :: uplo public pure subroutine mfi_spotrs (a, b, uplo, info) Modern interface for spotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(in) :: a (:,:) real(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_dpotrs (a, b, uplo, info) Modern interface for dpotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(in) :: a (:,:) real(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_cpotrs (a, b, uplo, info) Modern interface for cpotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(in) :: a (:,:) complex(kind=REAL32), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_zpotrs (a, b, uplo, info) Modern interface for zpotrs .\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(in) :: a (:,:) complex(kind=REAL64), intent(inout) :: b (:,:) character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_spocon (a, anorm, rcond, uplo, info) Modern interface for spocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: anorm real(kind=REAL32), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_dpocon (a, anorm, rcond, uplo, info) Modern interface for dpocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: anorm real(kind=REAL64), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_cpocon (a, anorm, rcond, uplo, info) Modern interface for cpocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a (:,:) real(kind=REAL32), intent(in) :: anorm real(kind=REAL32), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_zpocon (a, anorm, rcond, uplo, info) Modern interface for zpocon .\nSee also: mfi_pocon , f77_pocon .\nEstimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a (:,:) real(kind=REAL64), intent(in) :: anorm real(kind=REAL64), intent(out) :: rcond character(len=1), intent(in), optional :: uplo integer, intent(out), optional :: info public pure subroutine mfi_error (name, info) Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: name integer, intent(in) :: info","tags":"","loc":"module/mfi_lapack.html"},{"title":"f77_lapack – MFI - Modern Fortran Interfaces","text":"Improved and original F77 interfaces for LAPACK Uses iso_fortran_env Interfaces public        interface f77_geqrf Generic old style interface for GEQRF.\nSupports s, d, c, z.\nSee also: mfi_geqrf , sgeqrf , dgeqrf , cgeqrf , zgeqrf . public pure subroutine sgeqrf(m, n, a, lda, tau, work, lwork, info) Original interface for SGEQRF\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(out) :: tau (*) real(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgeqrf(m, n, a, lda, tau, work, lwork, info) Original interface for DGEQRF\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(out) :: tau (*) real(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgeqrf(m, n, a, lda, tau, work, lwork, info) Original interface for CGEQRF\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(out) :: tau (*) complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgeqrf(m, n, a, lda, tau, work, lwork, info) Original interface for ZGEQRF\nSee also: mfi_geqrf , f77_geqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(out) :: tau (*) complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_gerqf Generic old style interface for GERQF.\nSupports s, d, c, z.\nSee also: mfi_gerqf , sgerqf , dgerqf , cgerqf , zgerqf . public pure subroutine sgerqf(m, n, a, lda, tau, work, lwork, info) Original interface for SGERQF\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(out) :: tau (*) real(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgerqf(m, n, a, lda, tau, work, lwork, info) Original interface for DGERQF\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(out) :: tau (*) real(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgerqf(m, n, a, lda, tau, work, lwork, info) Original interface for CGERQF\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(out) :: tau (*) complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgerqf(m, n, a, lda, tau, work, lwork, info) Original interface for ZGERQF\nSee also: mfi_gerqf , f77_gerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(out) :: tau (*) complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_getrf Generic old style interface for GETRF.\nSupports s, d, c, z.\nSee also: mfi_getrf , sgetrf , dgetrf , cgetrf , zgetrf . public pure subroutine sgetrf(m, n, a, lda, ipiv, info) Original interface for SGETRF\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: ipiv (*) integer, intent(out) :: info public pure subroutine dgetrf(m, n, a, lda, ipiv, info) Original interface for DGETRF\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: ipiv (*) integer, intent(out) :: info public pure subroutine cgetrf(m, n, a, lda, ipiv, info) Original interface for CGETRF\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: ipiv (*) integer, intent(out) :: info public pure subroutine zgetrf(m, n, a, lda, ipiv, info) Original interface for ZGETRF\nSee also: mfi_getrf , f77_getrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: ipiv (*) integer, intent(out) :: info public        interface f77_getri Generic old style interface for GETRI.\nSupports s, d, c, z.\nSee also: mfi_getri , sgetri , dgetri , cgetri , zgetri . public pure subroutine sgetri(n, a, lda, ipiv, work, lwork, info) Original interface for SGETRI\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) real(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgetri(n, a, lda, ipiv, work, lwork, info) Original interface for DGETRI\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) real(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgetri(n, a, lda, ipiv, work, lwork, info) Original interface for CGETRI\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgetri(n, a, lda, ipiv, work, lwork, info) Original interface for ZGETRI\nSee also: mfi_getri , f77_getri . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_getrs Generic old style interface for GETRS.\nSupports s, d, c, z.\nSee also: mfi_getrs , sgetrs , dgetrs , cgetrs , zgetrs . public pure subroutine sgetrs(trans, n, nrhs, a, lda, ipiv, b, ldb, info) Original interface for SGETRS\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info public pure subroutine dgetrs(trans, n, nrhs, a, lda, ipiv, b, ldb, info) Original interface for DGETRS\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info public pure subroutine cgetrs(trans, n, nrhs, a, lda, ipiv, b, ldb, info) Original interface for CGETRS\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info public pure subroutine zgetrs(trans, n, nrhs, a, lda, ipiv, b, ldb, info) Original interface for ZGETRS\nSee also: mfi_getrs , f77_getrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info public        interface f77_hetrf Generic old style interface for HETRF.\nSupports c, z.\nSee also: mfi_hetrf , chetrf , zhetrf . public pure subroutine chetrf(uplo, n, a, lda, ipiv, work, lwork, info) Original interface for CHETRF\nSee also: mfi_hetrf , f77_hetrf . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zhetrf(uplo, n, a, lda, ipiv, work, lwork, info) Original interface for ZHETRF\nSee also: mfi_hetrf , f77_hetrf . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda integer, intent(in) :: ipiv (*) complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_hegv Generic old style interface for HEGV.\nSupports c, z.\nSee also: mfi_hegv , chegv , zhegv . public pure subroutine chegv(itype, jobz, uplo, n, a, lda, b, ldb, w, work, lwork, rwork, info) Original interface for CHEGV\nSee also: mfi_hegv , f77_hegv . Arguments Type Intent Optional Attributes Name integer, intent(in) :: itype character(len=1), intent(in) :: jobz character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(out) :: w (*) complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL32), intent(in) :: rwork (*) integer, intent(out) :: info public pure subroutine zhegv(itype, jobz, uplo, n, a, lda, b, ldb, w, work, lwork, rwork, info) Original interface for ZHEGV\nSee also: mfi_hegv , f77_hegv . Arguments Type Intent Optional Attributes Name integer, intent(in) :: itype character(len=1), intent(in) :: jobz character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(out) :: w (*) complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL64), intent(in) :: rwork (*) integer, intent(out) :: info public        interface f77_heevd Generic old style interface for HEEVD.\nSupports c, z.\nSee also: mfi_heevd , cheevd , zheevd . public pure subroutine cheevd(jobz, uplo, n, a, lda, w, work, lwork, rwork, lrwork, iwork, liwork, info) Original interface for CHEEVD\nSee also: mfi_heevd , f77_heevd . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobz character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(out) :: w (*) complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL32), intent(inout) :: rwork (*) integer, intent(in) :: lrwork integer, intent(inout) :: iwork (*) integer, intent(in) :: liwork integer, intent(out) :: info public pure subroutine zheevd(jobz, uplo, n, a, lda, w, work, lwork, rwork, lrwork, iwork, liwork, info) Original interface for ZHEEVD\nSee also: mfi_heevd , f77_heevd . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobz character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(out) :: w (*) complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL64), intent(inout) :: rwork (*) integer, intent(in) :: lrwork integer, intent(inout) :: iwork (*) integer, intent(in) :: liwork integer, intent(out) :: info public        interface f77_gesvd Generic old style interface for GESVD.\nSupports s, d, c, z.\nSee also: mfi_gesvd , sgesvd , dgesvd , cgesvd , zgesvd . public pure subroutine sgesvd(jobu, jobvt, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, info) Original interface for SGESVD\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobu character(len=1), intent(in) :: jobvt integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(out) :: s (*) real(kind=REAL32), intent(out) :: u (ldu,*) integer, intent(in) :: ldu real(kind=REAL32), intent(out) :: vt (ldvt,*) integer, intent(in) :: ldvt real(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgesvd(jobu, jobvt, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, info) Original interface for DGESVD\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobu character(len=1), intent(in) :: jobvt integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(out) :: s (*) real(kind=REAL64), intent(out) :: u (ldu,*) integer, intent(in) :: ldu real(kind=REAL64), intent(out) :: vt (ldvt,*) integer, intent(in) :: ldvt real(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgesvd(jobu, jobvt, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, rwork, info) Original interface for CGESVD\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobu character(len=1), intent(in) :: jobvt integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(out) :: s (*) complex(kind=REAL32), intent(out) :: u (ldu,*) integer, intent(in) :: ldu complex(kind=REAL32), intent(out) :: vt (ldvt,*) integer, intent(in) :: ldvt complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL32), intent(in) :: rwork (*) integer, intent(out) :: info public pure subroutine zgesvd(jobu, jobvt, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, rwork, info) Original interface for ZGESVD\nSee also: mfi_gesvd , f77_gesvd . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobu character(len=1), intent(in) :: jobvt integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(out) :: s (*) complex(kind=REAL64), intent(out) :: u (ldu,*) integer, intent(in) :: ldu complex(kind=REAL64), intent(out) :: vt (ldvt,*) integer, intent(in) :: ldvt complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL64), intent(in) :: rwork (*) integer, intent(out) :: info public        interface f77_potrf Generic old style interface for POTRF.\nSupports s, d, c, z.\nSee also: mfi_potrf , spotrf , dpotrf , cpotrf , zpotrf . public pure subroutine spotrf(uplo, n, a, lda, info) Original interface for SPOTRF\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info public pure subroutine dpotrf(uplo, n, a, lda, info) Original interface for DPOTRF\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info public pure subroutine cpotrf(uplo, n, a, lda, info) Original interface for CPOTRF\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info public pure subroutine zpotrf(uplo, n, a, lda, info) Original interface for ZPOTRF\nSee also: mfi_potrf , f77_potrf . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info public        interface f77_potri Generic old style interface for POTRI.\nSupports s, d, c, z.\nSee also: mfi_potri , spotri , dpotri , cpotri , zpotri . public pure subroutine spotri(uplo, n, a, lda, info) Original interface for SPOTRI\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info public pure subroutine dpotri(uplo, n, a, lda, info) Original interface for DPOTRI\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info public pure subroutine cpotri(uplo, n, a, lda, info) Original interface for CPOTRI\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info public pure subroutine zpotri(uplo, n, a, lda, info) Original interface for ZPOTRI\nSee also: mfi_potri , f77_potri . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda integer, intent(out) :: info public        interface f77_potrs Generic old style interface for POTRS.\nSupports s, d, c, z.\nSee also: mfi_potrs , spotrs , dpotrs , cpotrs , zpotrs . public pure subroutine spotrs(uplo, n, nrhs, a, lda, b, ldb, info) Original interface for SPOTRS\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info public pure subroutine dpotrs(uplo, n, nrhs, a, lda, b, ldb, info) Original interface for DPOTRS\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info public pure subroutine cpotrs(uplo, n, nrhs, a, lda, b, ldb, info) Original interface for CPOTRS\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info public pure subroutine zpotrs(uplo, n, nrhs, a, lda, b, ldb, info) Original interface for ZPOTRS\nSee also: mfi_potrs , f77_potrs . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(in) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info public        interface f77_pocon Generic old style interface for POCON.\nSupports s, d, c, z.\nSee also: mfi_pocon , spocon , dpocon , cpocon , zpocon . public pure subroutine spocon(uplo, n, a, lda, anorm, rcond, work, iwork, info) Original interface for SPOCON\nSee also: mfi_pocon , f77_pocon .\nspocon estimates the reciprocal of the condition number (in the\n1-norm) of a real(REAL32) Hermitian positive definite matrix using the\nCholesky factorization or ( A = LL&#94;\\dagger |) computed by sPOTRF.\nAn estimate is obtained for norm(inv(A)), and the reciprocal of the\ncondition number is computed as RCOND = 1 / (ANORM * norm(inv(A))). Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: anorm real(kind=REAL32), intent(out) :: rcond real(kind=REAL32), intent(inout) :: work (*) integer, intent(inout) :: iwork (*) integer, intent(out) :: info public pure subroutine dpocon(uplo, n, a, lda, anorm, rcond, work, iwork, info) Original interface for DPOCON\nSee also: mfi_pocon , f77_pocon .\ndpocon estimates the reciprocal of the condition number (in the\n1-norm) of a real(REAL64) Hermitian positive definite matrix using the\nCholesky factorization or ( A = LL&#94;\\dagger |) computed by dPOTRF.\nAn estimate is obtained for norm(inv(A)), and the reciprocal of the\ncondition number is computed as RCOND = 1 / (ANORM * norm(inv(A))). Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: anorm real(kind=REAL64), intent(out) :: rcond real(kind=REAL64), intent(inout) :: work (*) integer, intent(inout) :: iwork (*) integer, intent(out) :: info public pure subroutine cpocon(uplo, n, a, lda, anorm, rcond, work, rwork, info) Original interface for CPOCON\nSee also: mfi_pocon , f77_pocon .\ncpocon estimates the reciprocal of the condition number (in the\n1-norm) of a complex(REAL32) Hermitian positive definite matrix using the\nCholesky factorization or ( A = LL&#94;\\dagger |) computed by cPOTRF.\nAn estimate is obtained for norm(inv(A)), and the reciprocal of the\ncondition number is computed as RCOND = 1 / (ANORM * norm(inv(A))). Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: anorm real(kind=REAL32), intent(out) :: rcond complex(kind=REAL32), intent(inout) :: work (*) real(kind=REAL32), intent(inout) :: rwork (*) integer, intent(out) :: info public pure subroutine zpocon(uplo, n, a, lda, anorm, rcond, work, rwork, info) Original interface for ZPOCON\nSee also: mfi_pocon , f77_pocon .\nzpocon estimates the reciprocal of the condition number (in the\n1-norm) of a complex(REAL64) Hermitian positive definite matrix using the\nCholesky factorization or ( A = LL&#94;\\dagger |) computed by zPOTRF.\nAn estimate is obtained for norm(inv(A)), and the reciprocal of the\ncondition number is computed as RCOND = 1 / (ANORM * norm(inv(A))). Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: anorm real(kind=REAL64), intent(out) :: rcond complex(kind=REAL64), intent(inout) :: work (*) real(kind=REAL64), intent(inout) :: rwork (*) integer, intent(out) :: info public        interface f77_heevx Generic old style interface for HEEVX.\nSupports c, z.\nSee also: mfi_heevx , cheevx , zheevx . public pure subroutine cheevx(jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, work, lwork, rwork, lrwork, iwork, liwork, ifail, info) Original interface for CHEEVX\nSee also: mfi_heevx , f77_heevx . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobz character(len=1), intent(in) :: range character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: vl real(kind=REAL32), intent(in) :: vu integer, intent(in) :: il integer, intent(in) :: iu real(kind=REAL32), intent(in) :: abstol integer, intent(in) :: m real(kind=REAL32), intent(out) :: w (*) complex(kind=REAL32), intent(inout) :: z (ldz,*) integer, intent(in) :: ldz complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL32), intent(inout) :: rwork (*) integer, intent(in) :: lrwork integer, intent(inout) :: iwork (*) integer, intent(in) :: liwork integer, intent(in) :: ifail integer, intent(out) :: info public pure subroutine zheevx(jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, work, lwork, rwork, lrwork, iwork, liwork, ifail, info) Original interface for ZHEEVX\nSee also: mfi_heevx , f77_heevx . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobz character(len=1), intent(in) :: range character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: vl real(kind=REAL64), intent(in) :: vu integer, intent(in) :: il integer, intent(in) :: iu real(kind=REAL64), intent(in) :: abstol integer, intent(in) :: m real(kind=REAL64), intent(out) :: w (*) complex(kind=REAL64), intent(inout) :: z (ldz,*) integer, intent(in) :: ldz complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL64), intent(inout) :: rwork (*) integer, intent(in) :: lrwork integer, intent(inout) :: iwork (*) integer, intent(in) :: liwork integer, intent(in) :: ifail integer, intent(out) :: info public        interface f77_heevr Generic old style interface for HEEVR.\nSupports c, z.\nSee also: mfi_heevr , cheevr , zheevr . public pure subroutine cheevr(jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, isuppz, work, lwork, rwork, lrwork, iwork, liwork, info) Original interface for CHEEVR\nSee also: mfi_heevr , f77_heevr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobz character(len=1), intent(in) :: range character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: vl real(kind=REAL32), intent(in) :: vu integer, intent(in) :: il integer, intent(in) :: iu real(kind=REAL32), intent(in) :: abstol integer, intent(in) :: m real(kind=REAL32), intent(out) :: w (*) complex(kind=REAL32), intent(inout) :: z (ldz,*) integer, intent(in) :: ldz integer, intent(in) :: isuppz (*) complex(kind=REAL32), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL32), intent(inout) :: rwork (*) integer, intent(in) :: lrwork integer, intent(inout) :: iwork (*) integer, intent(in) :: liwork integer, intent(out) :: info public pure subroutine zheevr(jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, isuppz, work, lwork, rwork, lrwork, iwork, liwork, info) Original interface for ZHEEVR\nSee also: mfi_heevr , f77_heevr . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: jobz character(len=1), intent(in) :: range character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: vl real(kind=REAL64), intent(in) :: vu integer, intent(in) :: il integer, intent(in) :: iu real(kind=REAL64), intent(in) :: abstol integer, intent(in) :: m real(kind=REAL64), intent(out) :: w (*) complex(kind=REAL64), intent(inout) :: z (ldz,*) integer, intent(in) :: ldz integer, intent(in) :: isuppz (*) complex(kind=REAL64), intent(inout) :: work (*) integer, intent(in) :: lwork real(kind=REAL64), intent(inout) :: rwork (*) integer, intent(in) :: lrwork integer, intent(inout) :: iwork (*) integer, intent(in) :: liwork integer, intent(out) :: info public        interface f77_gels Generic old style interface for GELS.\nSupports s, d, c, z.\nSee also: mfi_gels , sgels , dgels , cgels , zgels . public pure subroutine sgels(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for SGELS\nSee also: mfi_gels , f77_gels .\nSGELS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgels(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for DGELS\nSee also: mfi_gels , f77_gels .\nDGELS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgels(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for CGELS\nSee also: mfi_gels , f77_gels .\nCGELS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgels(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for ZGELS\nSee also: mfi_gels , f77_gels .\nZGELS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_gelst Generic old style interface for GELST.\nSupports s, d, c, z.\nSee also: mfi_gelst , sgelst , dgelst , cgelst , zgelst . public pure subroutine sgelst(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for SGELST\nSee also: mfi_gelst , f77_gelst .\nSGELST solves overdetermined or underdetermined systems for GE matrices\nusing QR or LQ factorization with compact WY representation of Q. Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgelst(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for DGELST\nSee also: mfi_gelst , f77_gelst .\nDGELST solves overdetermined or underdetermined systems for GE matrices\nusing QR or LQ factorization with compact WY representation of Q. Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgelst(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for CGELST\nSee also: mfi_gelst , f77_gelst .\nCGELST solves overdetermined or underdetermined systems for GE matrices\nusing QR or LQ factorization with compact WY representation of Q. Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgelst(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for ZGELST\nSee also: mfi_gelst , f77_gelst .\nZGELST solves overdetermined or underdetermined systems for GE matrices\nusing QR or LQ factorization with compact WY representation of Q. Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_getsls Generic old style interface for GETSLS.\nSupports s, d, c, z.\nSee also: mfi_getsls , sgetsls , dgetsls , cgetsls , zgetsls . public pure subroutine sgetsls(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for SGETSLS\nSee also: mfi_getsls , f77_getsls .\nSGETSLS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgetsls(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for DGETSLS\nSee also: mfi_getsls , f77_getsls .\nDGETSLS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgetsls(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for CGETSLS\nSee also: mfi_getsls , f77_getsls .\nCGETSLS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgetsls(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info) Original interface for ZGETSLS\nSee also: mfi_getsls , f77_getsls .\nZGETSLS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_gelsd Generic old style interface for GELSD.\nSupports s, d, c, z.\nSee also: mfi_gelsd , sgelsd , dgelsd , cgelsd , zgelsd . public pure subroutine sgelsd(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, iwork, info) Original interface for SGELSD\nSee also: mfi_gelsd , f77_gelsd .\nSGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(out) :: s (*) real(kind=REAL32), intent(in) :: rcond integer, intent(out) :: rank real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: iwork (*) integer, intent(out) :: info public pure subroutine dgelsd(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, iwork, info) Original interface for DGELSD\nSee also: mfi_gelsd , f77_gelsd .\nDGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(out) :: s (*) real(kind=REAL64), intent(in) :: rcond integer, intent(out) :: rank real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: iwork (*) integer, intent(out) :: info public pure subroutine cgelsd(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, iwork, info) Original interface for CGELSD\nSee also: mfi_gelsd , f77_gelsd .\nCGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(out) :: s (*) complex(kind=REAL32), intent(in) :: rcond integer, intent(out) :: rank complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: iwork (*) integer, intent(out) :: info public pure subroutine zgelsd(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, iwork, info) Original interface for ZGELSD\nSee also: mfi_gelsd , f77_gelsd .\nZGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(out) :: s (*) complex(kind=REAL64), intent(in) :: rcond integer, intent(out) :: rank complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: iwork (*) integer, intent(out) :: info public        interface f77_gelss Generic old style interface for GELSS.\nSupports s, d, c, z.\nSee also: mfi_gelss , sgelss , dgelss , cgelss , zgelss . public pure subroutine sgelss(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, info) Original interface for SGELSS\nSee also: mfi_gelss , f77_gelss .\nSGELSS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(out) :: s (*) real(kind=REAL32), intent(in) :: rcond integer, intent(out) :: rank real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgelss(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, info) Original interface for DGELSS\nSee also: mfi_gelss , f77_gelss .\nDGELSS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(out) :: s (*) real(kind=REAL64), intent(in) :: rcond integer, intent(out) :: rank real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgelss(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, info) Original interface for CGELSS\nSee also: mfi_gelss , f77_gelss .\nCGELSS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(out) :: s (*) complex(kind=REAL32), intent(in) :: rcond integer, intent(out) :: rank complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgelss(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, info) Original interface for ZGELSS\nSee also: mfi_gelss , f77_gelss .\nZGELSS solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(out) :: s (*) complex(kind=REAL64), intent(in) :: rcond integer, intent(out) :: rank complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_gelsy Generic old style interface for GELSY.\nSupports s, d, c, z.\nSee also: mfi_gelsy , sgelsy , dgelsy , cgelsy , zgelsy . public pure subroutine sgelsy(m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, work, lwork, info) Original interface for SGELSY\nSee also: mfi_gelsy , f77_gelsy .\nSGELSY solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(inout) :: jpvt (*) real(kind=REAL32), intent(in) :: rcond integer, intent(out) :: rank real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgelsy(m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, work, lwork, info) Original interface for DGELSY\nSee also: mfi_gelsy , f77_gelsy .\nDGELSY solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(inout) :: jpvt (*) real(kind=REAL64), intent(in) :: rcond integer, intent(out) :: rank real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgelsy(m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, work, lwork, info) Original interface for CGELSY\nSee also: mfi_gelsy , f77_gelsy .\nCGELSY solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(inout) :: jpvt (*) complex(kind=REAL32), intent(in) :: rcond integer, intent(out) :: rank complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgelsy(m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, work, lwork, info) Original interface for ZGELSY\nSee also: mfi_gelsy , f77_gelsy .\nZGELSY solves overdetermined or underdetermined systems for GE matrices Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb integer, intent(inout) :: jpvt (*) complex(kind=REAL64), intent(in) :: rcond integer, intent(out) :: rank complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_gglse Generic old style interface for GGLSE.\nSupports s, d, c, z.\nSee also: mfi_gglse , sgglse , dgglse , cgglse , zgglse . public pure subroutine sgglse(m, n, p, a, lda, b, ldb, c, d, x, work, lwork, info) Original interface for SGGLSE\nSee also: mfi_gglse , f77_gglse . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: p real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(inout) :: c (*) real(kind=REAL32), intent(inout) :: d (*) real(kind=REAL32), intent(out) :: x (*) real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgglse(m, n, p, a, lda, b, ldb, c, d, x, work, lwork, info) Original interface for DGGLSE\nSee also: mfi_gglse , f77_gglse . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: p real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(inout) :: c (*) real(kind=REAL64), intent(inout) :: d (*) real(kind=REAL64), intent(out) :: x (*) real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgglse(m, n, p, a, lda, b, ldb, c, d, x, work, lwork, info) Original interface for CGGLSE\nSee also: mfi_gglse , f77_gglse . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: p complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(inout) :: c (*) complex(kind=REAL32), intent(inout) :: d (*) complex(kind=REAL32), intent(out) :: x (*) complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgglse(m, n, p, a, lda, b, ldb, c, d, x, work, lwork, info) Original interface for ZGGLSE\nSee also: mfi_gglse , f77_gglse . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: p complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(inout) :: c (*) complex(kind=REAL64), intent(inout) :: d (*) complex(kind=REAL64), intent(out) :: x (*) complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_gglsm Generic old style interface for GGLSM.\nSupports s, d, c, z.\nSee also: mfi_gglsm , sgglsm , dgglsm , cgglsm , zgglsm . public pure subroutine sgglsm(n, m, p, a, lda, b, ldb, d, x, y, work, lwork, info) Original interface for SGGLSM\nSee also: mfi_gglsm , f77_gglsm . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n integer, intent(in) :: m integer, intent(in) :: p real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(inout) :: d (*) real(kind=REAL32), intent(out) :: x (*) real(kind=REAL32), intent(out) :: y (*) real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dgglsm(n, m, p, a, lda, b, ldb, d, x, y, work, lwork, info) Original interface for DGGLSM\nSee also: mfi_gglsm , f77_gglsm . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n integer, intent(in) :: m integer, intent(in) :: p real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(inout) :: d (*) real(kind=REAL64), intent(out) :: x (*) real(kind=REAL64), intent(out) :: y (*) real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine cgglsm(n, m, p, a, lda, b, ldb, d, x, y, work, lwork, info) Original interface for CGGLSM\nSee also: mfi_gglsm , f77_gglsm . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n integer, intent(in) :: m integer, intent(in) :: p complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(inout) :: d (*) complex(kind=REAL32), intent(out) :: x (*) complex(kind=REAL32), intent(out) :: y (*) complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zgglsm(n, m, p, a, lda, b, ldb, d, x, y, work, lwork, info) Original interface for ZGGLSM\nSee also: mfi_gglsm , f77_gglsm . Arguments Type Intent Optional Attributes Name integer, intent(in) :: n integer, intent(in) :: m integer, intent(in) :: p complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b (ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(inout) :: d (*) complex(kind=REAL64), intent(out) :: x (*) complex(kind=REAL64), intent(out) :: y (*) complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_org2r Generic old style interface for ORG2R.\nSupports s, d.\nSee also: mfi_org2r , sorg2r , dorg2r . public pure subroutine sorg2r(m, n, k, a, lda, tau, work, info) Original interface for SORG2R\nSee also: mfi_org2r , f77_org2r .\nThis routine generates an real(REAL32)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by sgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine dorg2r(m, n, k, a, lda, tau, work, info) Original interface for DORG2R\nSee also: mfi_org2r , f77_org2r .\nThis routine generates an real(REAL64)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by dgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info public        interface f77_orgr2 Generic old style interface for ORGR2.\nSupports s, d.\nSee also: mfi_orgr2 , sorgr2 , dorgr2 . public pure subroutine sorgr2(m, n, k, a, lda, tau, work, info) Original interface for SORGR2\nSee also: mfi_orgr2 , f77_orgr2 .\nThis routine generates an real(REAL32)\nmatrix with orthonormal rows,\nwhich is defined as the last rows of a product of elementary\nreflectors of order . as returned by sgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine dorgr2(m, n, k, a, lda, tau, work, info) Original interface for DORGR2\nSee also: mfi_orgr2 , f77_orgr2 .\nThis routine generates an real(REAL64)\nmatrix with orthonormal rows,\nwhich is defined as the last rows of a product of elementary\nreflectors of order . as returned by dgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info public        interface f77_orm2r Generic old style interface for ORM2R.\nSupports s, d.\nSee also: mfi_orm2r , sorm2r , dorm2r . public pure subroutine sorm2r(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for SORM2R\n See also: mfi_orm2r , f77_orm2r .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by sgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine dorm2r(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for DORM2R\n See also: mfi_orm2r , f77_orm2r .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by dgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info public        interface f77_ormr2 Generic old style interface for ORMR2.\nSupports s, d.\nSee also: mfi_ormr2 , sormr2 , dormr2 . public pure subroutine sormr2(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for SORMR2\n See also: mfi_ormr2 , f77_ormr2 .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by sgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine dormr2(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for DORMR2\n See also: mfi_ormr2 , f77_ormr2 .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by dgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info public        interface f77_ormqr Generic old style interface for ORMQR.\nSupports s, d.\nSee also: mfi_ormqr , sormqr , dormqr . public pure subroutine sormqr(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for SORMQR\n See also: mfi_ormqr , f77_ormqr .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by sgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dormqr(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for DORMQR\n See also: mfi_ormqr , f77_ormqr .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by dgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_ormrq Generic old style interface for ORMRQ.\nSupports s, d.\nSee also: mfi_ormrq , sormrq , dormrq . public pure subroutine sormrq(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for SORMRQ\n See also: mfi_ormrq , f77_ormrq .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by sgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dormrq(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for DORMRQ\n See also: mfi_ormrq , f77_ormrq .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by dgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_orgqr Generic old style interface for ORGQR.\nSupports s, d.\nSee also: mfi_orgqr , sorgqr , dorgqr . public pure subroutine sorgqr(m, n, k, a, lda, tau, work, lwork, info) Original interface for SORGQR\nSee also: mfi_orgqr , f77_orgqr .\nThis routine generates an real(REAL32)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by sgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dorgqr(m, n, k, a, lda, tau, work, lwork, info) Original interface for DORGQR\nSee also: mfi_orgqr , f77_orgqr .\nThis routine generates an real(REAL64)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by dgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_orgrq Generic old style interface for ORGRQ.\nSupports s, d.\nSee also: mfi_orgrq , sorgrq , dorgrq . public pure subroutine sorgrq(m, n, k, a, lda, tau, work, lwork, info) Original interface for SORGRQ\nSee also: mfi_orgrq , f77_orgrq .\nThis routine generates an real(REAL32)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by sgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: tau (*) real(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine dorgrq(m, n, k, a, lda, tau, work, lwork, info) Original interface for DORGRQ\nSee also: mfi_orgrq , f77_orgrq .\nThis routine generates an real(REAL64)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by dgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: tau (*) real(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_ung2r Generic old style interface for UNG2R.\nSupports c, z.\nSee also: mfi_ung2r , cung2r , zung2r . public pure subroutine cung2r(m, n, k, a, lda, tau, work, info) Original interface for CUNG2R\nSee also: mfi_ung2r , f77_ung2r .\nThis routine generates an complex(REAL32)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by cgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine zung2r(m, n, k, a, lda, tau, work, info) Original interface for ZUNG2R\nSee also: mfi_ung2r , f77_ung2r .\nThis routine generates an complex(REAL64)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by zgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info public        interface f77_ungr2 Generic old style interface for UNGR2.\nSupports c, z.\nSee also: mfi_ungr2 , cungr2 , zungr2 . public pure subroutine cungr2(m, n, k, a, lda, tau, work, info) Original interface for CUNGR2\nSee also: mfi_ungr2 , f77_ungr2 .\nThis routine generates an complex(REAL32)\nmatrix with orthonormal rows,\nwhich is defined as the last rows of a product of elementary\nreflectors of order . as returned by cgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine zungr2(m, n, k, a, lda, tau, work, info) Original interface for ZUNGR2\nSee also: mfi_ungr2 , f77_ungr2 .\nThis routine generates an complex(REAL64)\nmatrix with orthonormal rows,\nwhich is defined as the last rows of a product of elementary\nreflectors of order . as returned by zgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info public        interface f77_unm2r Generic old style interface for UNM2R.\nSupports c, z.\nSee also: mfi_unm2r , cunm2r , zunm2r . public pure subroutine cunm2r(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for CUNM2R\n See also: mfi_unm2r , f77_unm2r .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by cgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine zunm2r(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for ZUNM2R\n See also: mfi_unm2r , f77_unm2r .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by zgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info public        interface f77_unmr2 Generic old style interface for UNMR2.\nSupports c, z.\nSee also: mfi_unmr2 , cunmr2 , zunmr2 . public pure subroutine cunmr2(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for CUNMR2\n See also: mfi_unmr2 , f77_unmr2 .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by cgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL32), intent(out) :: work (*) integer, intent(out) :: info public pure subroutine zunmr2(side, trans, m, n, k, a, lda, tau, c, ldc, work, info) Original interface for ZUNMR2\n See also: mfi_unmr2 , f77_unmr2 .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by zgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL64), intent(out) :: work (*) integer, intent(out) :: info public        interface f77_unmqr Generic old style interface for UNMQR.\nSupports c, z.\nSee also: mfi_unmqr , cunmqr , zunmqr . public pure subroutine cunmqr(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for CUNMQR\n See also: mfi_unmqr , f77_unmqr .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by cgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zunmqr(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for ZUNMQR\n See also: mfi_unmqr , f77_unmqr .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by zgeqrf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_unmrq Generic old style interface for UNMRQ.\nSupports c, z.\nSee also: mfi_unmrq , cunmrq , zunmrq . public pure subroutine cunmrq(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for CUNMRQ\n See also: mfi_unmrq , f77_unmrq .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by cgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zunmrq(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info) Original interface for ZUNMRQ\n See also: mfi_unmrq , f77_unmrq .\n This routine overwrites the general complex matrix with SIDE = 'L' SIDE = 'R' TRANS = 'N' : Q * C C * Q TRANS = 'C' : Q ** H * C C * Q ** H where Q is a complex unitary matrix defined as the product of k\n elementary reflectors as returned by zgerqf . is of order if SIDE = 'L' and of order if SIDE = 'R' . Arguments Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(inout) :: c (ldc,*) integer, intent(in) :: ldc complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_ungqr Generic old style interface for UNGQR.\nSupports c, z.\nSee also: mfi_ungqr , cungqr , zungqr . public pure subroutine cungqr(m, n, k, a, lda, tau, work, lwork, info) Original interface for CUNGQR\nSee also: mfi_ungqr , f77_ungqr .\nThis routine generates an complex(REAL32)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by cgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zungqr(m, n, k, a, lda, tau, work, lwork, info) Original interface for ZUNGQR\nSee also: mfi_ungqr , f77_ungqr .\nThis routine generates an complex(REAL64)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by zgeqrf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_ungrq Generic old style interface for UNGRQ.\nSupports c, z.\nSee also: mfi_ungrq , cungrq , zungrq . public pure subroutine cungrq(m, n, k, a, lda, tau, work, lwork, info) Original interface for CUNGRQ\nSee also: mfi_ungrq , f77_ungrq .\nThis routine generates an complex(REAL32)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by cgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: tau (*) complex(kind=REAL32), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public pure subroutine zungrq(m, n, k, a, lda, tau, work, lwork, info) Original interface for ZUNGRQ\nSee also: mfi_ungrq , f77_ungrq .\nThis routine generates an complex(REAL64)\nmatrix with orthonormal columns,\nwhich is defined as the first columns of a product of elementary\nreflectors of order . as returned by zgerqf . Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(inout) :: a (lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: tau (*) complex(kind=REAL64), intent(out) :: work (*) integer, intent(in) :: lwork integer, intent(out) :: info public        interface f77_lartg Generic old style interface for LARTG.\nSupports s, d, c, z.\nSee also: mfi_lartg , slartg , dlartg , clartg , zlartg . public pure subroutine slartg(f, g, c, s, r) Original interface for SLARTG\nSee also: mfi_lartg , f77_lartg . Arguments Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: f real(kind=REAL32), intent(inout) :: g real(kind=wp), intent(inout) :: c real(kind=REAL32), intent(inout) :: s real(kind=REAL32), intent(inout) :: r public pure subroutine dlartg(f, g, c, s, r) Original interface for DLARTG\nSee also: mfi_lartg , f77_lartg . Arguments Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: f real(kind=REAL64), intent(inout) :: g real(kind=wp), intent(inout) :: c real(kind=REAL64), intent(inout) :: s real(kind=REAL64), intent(inout) :: r public pure subroutine clartg(f, g, c, s, r) Original interface for CLARTG\nSee also: mfi_lartg , f77_lartg . Arguments Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: f complex(kind=REAL32), intent(inout) :: g real(kind=wp), intent(inout) :: c complex(kind=REAL32), intent(inout) :: s complex(kind=REAL32), intent(inout) :: r public pure subroutine zlartg(f, g, c, s, r) Original interface for ZLARTG\nSee also: mfi_lartg , f77_lartg . Arguments Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: f complex(kind=REAL64), intent(inout) :: g real(kind=wp), intent(inout) :: c complex(kind=REAL64), intent(inout) :: s complex(kind=REAL64), intent(inout) :: r public        interface f77_xerbla public pure subroutine xerbla(name, info) Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: name integer, intent(in) :: info","tags":"","loc":"module/f77_lapack.html"},{"title":"blas.f90 – MFI - Modern Fortran Interfaces","text":"Source Code !> Modern fortran interfaces for BLAS module mfi_blas use iso_fortran_env use f77_blas use f77_blas , only : mfi_rotg => f77_rotg use f77_blas , only : mfi_rotmg => f77_rotmg implicit none !> Generic modern interface for COPY. !> Supports s, d, c, z. !> See also: !> [[f77_copy:scopy]],[[f77_copy:dcopy]],[[f77_copy:ccopy]],[[f77_copy:zcopy]]. interface mfi_copy module procedure :: mfi_scopy module procedure :: mfi_dcopy module procedure :: mfi_ccopy module procedure :: mfi_zcopy end interface !> Generic modern interface for SWAP. !> Supports s, d, c, z. !> See also: !> [[f77_swap:sswap]],[[f77_swap:dswap]],[[f77_swap:cswap]],[[f77_swap:zswap]]. interface mfi_swap module procedure :: mfi_sswap module procedure :: mfi_dswap module procedure :: mfi_cswap module procedure :: mfi_zswap end interface !> Generic modern interface for AXPY. !> Supports s, d, c, z. !> See also: !> [[f77_axpy:saxpy]],[[f77_axpy:daxpy]],[[f77_axpy:caxpy]],[[f77_axpy:zaxpy]]. interface mfi_axpy module procedure :: mfi_saxpy module procedure :: mfi_daxpy module procedure :: mfi_caxpy module procedure :: mfi_zaxpy end interface !> Generic modern interface for DOT. !> Supports s, d. !> See also: !> [[f77_dot:sdot]],[[f77_dot:ddot]]. interface mfi_dot module procedure :: mfi_sdot module procedure :: mfi_ddot end interface !> Generic modern interface for DOTC. !> Supports c, z. !> See also: !> [[f77_dotc:cdotc]],[[f77_dotc:zdotc]]. interface mfi_dotc module procedure :: mfi_cdotc module procedure :: mfi_zdotc end interface !> Generic modern interface for DOTU. !> Supports c, z. !> See also: !> [[f77_dotu:cdotu]],[[f77_dotu:zdotu]]. interface mfi_dotu module procedure :: mfi_cdotu module procedure :: mfi_zdotu end interface !> Generic modern interface for ASUM. !> Supports s, d, sc, dz. !> See also: !> [[f77_asum:sasum]],[[f77_asum:dasum]],[[f77_asum:scasum]],[[f77_asum:dzasum]]. interface mfi_asum module procedure :: mfi_sasum module procedure :: mfi_dasum module procedure :: mfi_scasum module procedure :: mfi_dzasum end interface !> Generic modern interface for NRM2. !> Supports s, d, sc, dz. !> See also: !> [[f77_nrm2:snrm2]],[[f77_nrm2:dnrm2]],[[f77_nrm2:scnrm2]],[[f77_nrm2:dznrm2]]. interface mfi_nrm2 module procedure :: mfi_snrm2 module procedure :: mfi_dnrm2 module procedure :: mfi_scnrm2 module procedure :: mfi_dznrm2 end interface !> Generic modern interface for ROT. !> Supports s, d, c, z, cs, zd. !> See also: !> [[f77_rot:srot]],[[f77_rot:drot]],[[f77_rot:crot]],[[f77_rot:zrot]],[[f77_rot:csrot]],[[f77_rot:zdrot]]. interface mfi_rot module procedure :: mfi_srot module procedure :: mfi_drot module procedure :: mfi_crot module procedure :: mfi_zrot module procedure :: mfi_csrot module procedure :: mfi_zdrot end interface !> Generic modern interface for ROTM. !> Supports s, d. !> See also: !> [[f77_rotm:srotm]],[[f77_rotm:drotm]]. interface mfi_rotm module procedure :: mfi_srotm module procedure :: mfi_drotm end interface !> Generic modern interface for SCAL. !> Supports s, d, c, z, cs, zd. !> See also: !> [[f77_scal:sscal]],[[f77_scal:dscal]],[[f77_scal:cscal]],[[f77_scal:zscal]],[[f77_scal:csscal]],[[f77_scal:zdscal]]. interface mfi_scal module procedure :: mfi_sscal module procedure :: mfi_dscal module procedure :: mfi_cscal module procedure :: mfi_zscal module procedure :: mfi_csscal module procedure :: mfi_zdscal end interface !> Generic modern interface for GBMV. !> Supports s, d, c, z. !> See also: !> [[f77_gbmv:sgbmv]],[[f77_gbmv:dgbmv]],[[f77_gbmv:cgbmv]],[[f77_gbmv:zgbmv]]. interface mfi_gbmv module procedure :: mfi_sgbmv module procedure :: mfi_dgbmv module procedure :: mfi_cgbmv module procedure :: mfi_zgbmv end interface !> Generic modern interface for GEMV. !> Supports s, d, c, z. !> See also: !> [[f77_gemv:sgemv]],[[f77_gemv:dgemv]],[[f77_gemv:cgemv]],[[f77_gemv:zgemv]]. interface mfi_gemv module procedure :: mfi_sgemv module procedure :: mfi_dgemv module procedure :: mfi_cgemv module procedure :: mfi_zgemv end interface !> Generic modern interface for GER. !> Supports s, d. !> See also: !> [[f77_ger:sger]],[[f77_ger:dger]]. interface mfi_ger module procedure :: mfi_sger module procedure :: mfi_dger end interface !> Generic modern interface for GERC. !> Supports c, z. !> See also: !> [[f77_gerc:cgerc]],[[f77_gerc:zgerc]]. interface mfi_gerc module procedure :: mfi_cgerc module procedure :: mfi_zgerc end interface !> Generic modern interface for GERU. !> Supports c, z. !> See also: !> [[f77_geru:cgeru]],[[f77_geru:zgeru]]. interface mfi_geru module procedure :: mfi_cgeru module procedure :: mfi_zgeru end interface !> Generic modern interface for HBMV. !> Supports c, z. !> See also: !> [[f77_hbmv:chbmv]],[[f77_hbmv:zhbmv]]. interface mfi_hbmv module procedure :: mfi_chbmv module procedure :: mfi_zhbmv end interface !> Generic modern interface for HEMV. !> Supports c, z. !> See also: !> [[f77_hemv:chemv]],[[f77_hemv:zhemv]]. interface mfi_hemv module procedure :: mfi_chemv module procedure :: mfi_zhemv end interface !> Generic modern interface for HER. !> Supports c, z. !> See also: !> [[f77_her:cher]],[[f77_her:zher]]. interface mfi_her module procedure :: mfi_cher module procedure :: mfi_zher end interface !> Generic modern interface for HER2. !> Supports c, z. !> See also: !> [[f77_her2:cher2]],[[f77_her2:zher2]]. interface mfi_her2 module procedure :: mfi_cher2 module procedure :: mfi_zher2 end interface !> Generic modern interface for HPMV. !> Supports c, z. !> See also: !> [[f77_hpmv:chpmv]],[[f77_hpmv:zhpmv]]. interface mfi_hpmv module procedure :: mfi_chpmv module procedure :: mfi_zhpmv end interface !> Generic modern interface for HPR. !> Supports c, z. !> See also: !> [[f77_hpr:chpr]],[[f77_hpr:zhpr]]. interface mfi_hpr module procedure :: mfi_chpr module procedure :: mfi_zhpr end interface !> Generic modern interface for HPR2. !> Supports c, z. !> See also: !> [[f77_hpr2:chpr2]],[[f77_hpr2:zhpr2]]. interface mfi_hpr2 module procedure :: mfi_chpr2 module procedure :: mfi_zhpr2 end interface !> Generic modern interface for SBMV. !> Supports s, d. !> See also: !> [[f77_sbmv:ssbmv]],[[f77_sbmv:dsbmv]]. interface mfi_sbmv module procedure :: mfi_ssbmv module procedure :: mfi_dsbmv end interface !> Generic modern interface for SPMV. !> Supports s, d. !> See also: !> [[f77_spmv:sspmv]],[[f77_spmv:dspmv]]. interface mfi_spmv module procedure :: mfi_sspmv module procedure :: mfi_dspmv end interface !> Generic modern interface for SPR. !> Supports s, d. !> See also: !> [[f77_spr:sspr]],[[f77_spr:dspr]]. interface mfi_spr module procedure :: mfi_sspr module procedure :: mfi_dspr end interface !> Generic modern interface for SPR2. !> Supports s, d. !> See also: !> [[f77_spr2:sspr2]],[[f77_spr2:dspr2]]. interface mfi_spr2 module procedure :: mfi_sspr2 module procedure :: mfi_dspr2 end interface !> Generic modern interface for SYMV. !> Supports s, d. !> See also: !> [[f77_symv:ssymv]],[[f77_symv:dsymv]]. interface mfi_symv module procedure :: mfi_ssymv module procedure :: mfi_dsymv end interface !> Generic modern interface for SYR. !> Supports s, d. !> See also: !> [[f77_syr:ssyr]],[[f77_syr:dsyr]]. interface mfi_syr module procedure :: mfi_ssyr module procedure :: mfi_dsyr end interface !> Generic modern interface for SYR2. !> Supports s, d. !> See also: !> [[f77_syr2:ssyr2]],[[f77_syr2:dsyr2]]. interface mfi_syr2 module procedure :: mfi_ssyr2 module procedure :: mfi_dsyr2 end interface !> Generic modern interface for TBMV. !> Supports s, d, c, z. !> See also: !> [[f77_tbmv:stbmv]],[[f77_tbmv:dtbmv]],[[f77_tbmv:ctbmv]],[[f77_tbmv:ztbmv]]. interface mfi_tbmv module procedure :: mfi_stbmv module procedure :: mfi_dtbmv module procedure :: mfi_ctbmv module procedure :: mfi_ztbmv end interface !> Generic modern interface for TBSV. !> Supports s, d, c, z. !> See also: !> [[f77_tbsv:stbsv]],[[f77_tbsv:dtbsv]],[[f77_tbsv:ctbsv]],[[f77_tbsv:ztbsv]]. interface mfi_tbsv module procedure :: mfi_stbsv module procedure :: mfi_dtbsv module procedure :: mfi_ctbsv module procedure :: mfi_ztbsv end interface !> Generic modern interface for TPMV. !> Supports s, d, c, z. !> See also: !> [[f77_tpmv:stpmv]],[[f77_tpmv:dtpmv]],[[f77_tpmv:ctpmv]],[[f77_tpmv:ztpmv]]. interface mfi_tpmv module procedure :: mfi_stpmv module procedure :: mfi_dtpmv module procedure :: mfi_ctpmv module procedure :: mfi_ztpmv end interface !> Generic modern interface for TPSV. !> Supports s, d, c, z. !> See also: !> [[f77_tpsv:stpsv]],[[f77_tpsv:dtpsv]],[[f77_tpsv:ctpsv]],[[f77_tpsv:ztpsv]]. interface mfi_tpsv module procedure :: mfi_stpsv module procedure :: mfi_dtpsv module procedure :: mfi_ctpsv module procedure :: mfi_ztpsv end interface !> Generic modern interface for TRMV. !> Supports s, d, c, z. !> See also: !> [[f77_trmv:strmv]],[[f77_trmv:dtrmv]],[[f77_trmv:ctrmv]],[[f77_trmv:ztrmv]]. interface mfi_trmv module procedure :: mfi_strmv module procedure :: mfi_dtrmv module procedure :: mfi_ctrmv module procedure :: mfi_ztrmv end interface !> Generic modern interface for TRSV. !> Supports s, d, c, z. !> See also: !> [[f77_trsv:strsv]],[[f77_trsv:dtrsv]],[[f77_trsv:ctrsv]],[[f77_trsv:ztrsv]]. interface mfi_trsv module procedure :: mfi_strsv module procedure :: mfi_dtrsv module procedure :: mfi_ctrsv module procedure :: mfi_ztrsv end interface !> Generic modern interface for GEMM. !> Supports s, d, c, z. !> See also: !> [[f77_gemm:sgemm]],[[f77_gemm:dgemm]],[[f77_gemm:cgemm]],[[f77_gemm:zgemm]]. interface mfi_gemm module procedure :: mfi_sgemm module procedure :: mfi_dgemm module procedure :: mfi_cgemm module procedure :: mfi_zgemm end interface !> Generic modern interface for HEMM. !> Supports c, z. !> See also: !> [[f77_hemm:chemm]],[[f77_hemm:zhemm]]. interface mfi_hemm module procedure :: mfi_chemm module procedure :: mfi_zhemm end interface !> Generic modern interface for HERK. !> Supports c, z. !> See also: !> [[f77_herk:cherk]],[[f77_herk:zherk]]. interface mfi_herk module procedure :: mfi_cherk module procedure :: mfi_zherk end interface !> Generic modern interface for HER2K. !> Supports c, z. !> See also: !> [[f77_her2k:cher2k]],[[f77_her2k:zher2k]]. interface mfi_her2k module procedure :: mfi_cher2k module procedure :: mfi_zher2k end interface !> Generic modern interface for SYMM. !> Supports s, d. !> See also: !> [[f77_symm:ssymm]],[[f77_symm:dsymm]]. interface mfi_symm module procedure :: mfi_ssymm module procedure :: mfi_dsymm end interface !> Generic modern interface for SYRK. !> Supports s, d. !> See also: !> [[f77_syrk:ssyrk]],[[f77_syrk:dsyrk]]. interface mfi_syrk module procedure :: mfi_ssyrk module procedure :: mfi_dsyrk end interface !> Generic modern interface for SYR2K. !> Supports s, d. !> See also: !> [[f77_syr2k:ssyr2k]],[[f77_syr2k:dsyr2k]]. interface mfi_syr2k module procedure :: mfi_ssyr2k module procedure :: mfi_dsyr2k end interface !> Generic modern interface for TRMM. !> Supports s, d, c, z. !> See also: !> [[f77_trmm:strmm]],[[f77_trmm:dtrmm]],[[f77_trmm:ctrmm]],[[f77_trmm:ztrmm]]. interface mfi_trmm module procedure :: mfi_strmm module procedure :: mfi_dtrmm module procedure :: mfi_ctrmm module procedure :: mfi_ztrmm end interface !> Generic modern interface for TRSM. !> Supports s, d, c, z. !> See also: !> [[f77_trsm:strsm]],[[f77_trsm:dtrsm]],[[f77_trsm:ctrsm]],[[f77_trsm:ztrsm]]. interface mfi_trsm module procedure :: mfi_strsm module procedure :: mfi_dtrsm module procedure :: mfi_ctrsm module procedure :: mfi_ztrsm end interface !> Generic modern interface for LAMCH. !> Supports s, d. !> See also: !> [[f77_lamch:slamch]],[[f77_lamch:dlamch]]. interface mfi_lamch module procedure :: mfi_slamch module procedure :: mfi_dlamch end interface ! Extensions ! BLAS level 1 - Utils / Extensions !> Generic modern interface for IAMAX. !> Supports s, d, c, z. !> See also: !> [[f77_iamax:isamax]],[[f77_iamax:idamax]],[[f77_iamax:icamax]],[[f77_iamax:izamax]]. interface mfi_iamax module procedure :: mfi_isamax module procedure :: mfi_idamax module procedure :: mfi_icamax module procedure :: mfi_izamax end interface !> Generic modern interface for IAMIN. !> Supports s, d, c, z. !> See also: !> [[f77_iamin:isamin]],[[f77_iamin:idamin]],[[f77_iamin:icamin]],[[f77_iamin:izamin]]. interface mfi_iamin module procedure :: mfi_isamin module procedure :: mfi_idamin module procedure :: mfi_icamin module procedure :: mfi_izamin end interface contains !> Modern interface for [[f77_copy:scopy]]. !> See also: [[mfi_copy]], [[f77_copy]]. pure subroutine mfi_scopy ( x , y , incx , incy ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x (:) real ( REAL32 ), intent ( inout ) :: y (:) integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) call scopy ( n , x , local_incx , y , local_incy ) end subroutine !> Modern interface for [[f77_copy:dcopy]]. !> See also: [[mfi_copy]], [[f77_copy]]. pure subroutine mfi_dcopy ( x , y , incx , incy ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x (:) real ( REAL64 ), intent ( inout ) :: y (:) integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) call dcopy ( n , x , local_incx , y , local_incy ) end subroutine !> Modern interface for [[f77_copy:ccopy]]. !> See also: [[mfi_copy]], [[f77_copy]]. pure subroutine mfi_ccopy ( x , y , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( inout ) :: y (:) integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) call ccopy ( n , x , local_incx , y , local_incy ) end subroutine !> Modern interface for [[f77_copy:zcopy]]. !> See also: [[mfi_copy]], [[f77_copy]]. pure subroutine mfi_zcopy ( x , y , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( inout ) :: y (:) integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) call zcopy ( n , x , local_incx , y , local_incy ) end subroutine !> Modern interface for [[f77_swap:sswap]]. !> See also: [[mfi_swap]], [[f77_swap]]. pure subroutine mfi_sswap ( x , y , incx , incy ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x (:) real ( REAL32 ), intent ( inout ) :: y (:) integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) call sswap ( n , x , local_incx , y , local_incy ) end subroutine !> Modern interface for [[f77_swap:dswap]]. !> See also: [[mfi_swap]], [[f77_swap]]. pure subroutine mfi_dswap ( x , y , incx , incy ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x (:) real ( REAL64 ), intent ( inout ) :: y (:) integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) call dswap ( n , x , local_incx , y , local_incy ) end subroutine !> Modern interface for [[f77_swap:cswap]]. !> See also: [[mfi_swap]], [[f77_swap]]. pure subroutine mfi_cswap ( x , y , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( inout ) :: y (:) integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) call cswap ( n , x , local_incx , y , local_incy ) end subroutine !> Modern interface for [[f77_swap:zswap]]. !> See also: [[mfi_swap]], [[f77_swap]]. pure subroutine mfi_zswap ( x , y , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( inout ) :: y (:) integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) call zswap ( n , x , local_incx , y , local_incy ) end subroutine !> Modern interface for [[f77_axpy:saxpy]]. !> See also: [[mfi_axpy]], [[f77_axpy]]. pure subroutine mfi_saxpy ( x , y , a , incx , incy ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x (:) real ( REAL32 ), intent ( inout ) :: y (:) real ( REAL32 ), intent ( in ), optional :: a real ( REAL32 ) :: local_a integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( a )) then local_a = a else local_a = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) call saxpy ( n , local_a , x , local_incx , y , local_incy ) end subroutine !> Modern interface for [[f77_axpy:daxpy]]. !> See also: [[mfi_axpy]], [[f77_axpy]]. pure subroutine mfi_daxpy ( x , y , a , incx , incy ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x (:) real ( REAL64 ), intent ( inout ) :: y (:) real ( REAL64 ), intent ( in ), optional :: a real ( REAL64 ) :: local_a integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( a )) then local_a = a else local_a = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) call daxpy ( n , local_a , x , local_incx , y , local_incy ) end subroutine !> Modern interface for [[f77_axpy:caxpy]]. !> See also: [[mfi_axpy]], [[f77_axpy]]. pure subroutine mfi_caxpy ( x , y , a , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( inout ) :: y (:) complex ( REAL32 ), intent ( in ), optional :: a complex ( REAL32 ) :: local_a integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( a )) then local_a = a else local_a = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) call caxpy ( n , local_a , x , local_incx , y , local_incy ) end subroutine !> Modern interface for [[f77_axpy:zaxpy]]. !> See also: [[mfi_axpy]], [[f77_axpy]]. pure subroutine mfi_zaxpy ( x , y , a , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( inout ) :: y (:) complex ( REAL64 ), intent ( in ), optional :: a complex ( REAL64 ) :: local_a integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( a )) then local_a = a else local_a = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) call zaxpy ( n , local_a , x , local_incx , y , local_incy ) end subroutine !> Modern interface for [[f77_dot:sdot]]. !> See also: [[mfi_dot]], [[f77_dot]]. pure function mfi_sdot ( x , y , incx , incy ) integer , parameter :: wp = REAL32 real ( REAL32 ) :: mfi_sdot real ( REAL32 ), intent ( in ) :: x (:) real ( REAL32 ), intent ( in ) :: y (:) integer :: n integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) mfi_sdot = sdot ( n , x , local_incx , y , local_incy ) end function !> Modern interface for [[f77_dot:ddot]]. !> See also: [[mfi_dot]], [[f77_dot]]. pure function mfi_ddot ( x , y , incx , incy ) integer , parameter :: wp = REAL64 real ( REAL64 ) :: mfi_ddot real ( REAL64 ), intent ( in ) :: x (:) real ( REAL64 ), intent ( in ) :: y (:) integer :: n integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) mfi_ddot = ddot ( n , x , local_incx , y , local_incy ) end function !> Modern interface for [[f77_dotc:cdotc]]. !> See also: [[mfi_dotc]], [[f77_dotc]]. pure function mfi_cdotc ( x , y , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ) :: mfi_cdotc complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( in ) :: y (:) integer :: n integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) mfi_cdotc = cdotc ( n , x , local_incx , y , local_incy ) end function !> Modern interface for [[f77_dotc:zdotc]]. !> See also: [[mfi_dotc]], [[f77_dotc]]. pure function mfi_zdotc ( x , y , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ) :: mfi_zdotc complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( in ) :: y (:) integer :: n integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) mfi_zdotc = zdotc ( n , x , local_incx , y , local_incy ) end function !> Modern interface for [[f77_dotu:cdotu]]. !> See also: [[mfi_dotu]], [[f77_dotu]]. pure function mfi_cdotu ( x , y , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ) :: mfi_cdotu complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( in ) :: y (:) integer :: n integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) mfi_cdotu = cdotu ( n , x , local_incx , y , local_incy ) end function !> Modern interface for [[f77_dotu:zdotu]]. !> See also: [[mfi_dotu]], [[f77_dotu]]. pure function mfi_zdotu ( x , y , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ) :: mfi_zdotu complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( in ) :: y (:) integer :: n integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) mfi_zdotu = zdotu ( n , x , local_incx , y , local_incy ) end function !> Modern interface for [[f77_asum:sasum]]. !> See also: [[mfi_asum]], [[f77_asum]]. pure function mfi_sasum ( x , incx ) real ( REAL32 ) :: mfi_sasum real ( REAL32 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_sasum = sasum ( n , x , local_incx ) end function !> Modern interface for [[f77_asum:dasum]]. !> See also: [[mfi_asum]], [[f77_asum]]. pure function mfi_dasum ( x , incx ) real ( REAL64 ) :: mfi_dasum real ( REAL64 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_dasum = dasum ( n , x , local_incx ) end function !> Modern interface for [[f77_asum:scasum]]. !> See also: [[mfi_asum]], [[f77_asum]]. pure function mfi_scasum ( x , incx ) real ( REAL32 ) :: mfi_scasum complex ( REAL32 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_scasum = scasum ( n , x , local_incx ) end function !> Modern interface for [[f77_asum:dzasum]]. !> See also: [[mfi_asum]], [[f77_asum]]. pure function mfi_dzasum ( x , incx ) real ( REAL64 ) :: mfi_dzasum complex ( REAL64 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_dzasum = dzasum ( n , x , local_incx ) end function !> Modern interface for [[f77_nrm2:snrm2]]. !> See also: [[mfi_nrm2]], [[f77_nrm2]]. pure function mfi_snrm2 ( x , incx ) real ( REAL32 ) :: mfi_snrm2 real ( REAL32 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_snrm2 = snrm2 ( n , x , local_incx ) end function !> Modern interface for [[f77_nrm2:dnrm2]]. !> See also: [[mfi_nrm2]], [[f77_nrm2]]. pure function mfi_dnrm2 ( x , incx ) real ( REAL64 ) :: mfi_dnrm2 real ( REAL64 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_dnrm2 = dnrm2 ( n , x , local_incx ) end function !> Modern interface for [[f77_nrm2:scnrm2]]. !> See also: [[mfi_nrm2]], [[f77_nrm2]]. pure function mfi_scnrm2 ( x , incx ) real ( REAL32 ) :: mfi_scnrm2 complex ( REAL32 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_scnrm2 = scnrm2 ( n , x , local_incx ) end function !> Modern interface for [[f77_nrm2:dznrm2]]. !> See also: [[mfi_nrm2]], [[f77_nrm2]]. pure function mfi_dznrm2 ( x , incx ) real ( REAL64 ) :: mfi_dznrm2 complex ( REAL64 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_dznrm2 = dznrm2 ( n , x , local_incx ) end function !> Modern interface for [[f77_rot:srot]]. !> See also: [[mfi_rot]], [[f77_rot]]. !> Given two vectors x and y, !> each vector element of these vectors is replaced as follows: !>```fortran !> xi = c*xi + s*yi !> yi = c*yi - s*xi !>``` pure subroutine mfi_srot ( x , y , c , s , incx , incy ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: x (:) real ( REAL32 ), intent ( inout ) :: y (:) real ( REAL32 ), intent ( in ) :: c real ( REAL32 ), intent ( in ) :: s integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if n = size ( x ) call srot ( n , x , local_incx , y , local_incy , c , s ) end subroutine !> Modern interface for [[f77_rot:drot]]. !> See also: [[mfi_rot]], [[f77_rot]]. !> Given two vectors x and y, !> each vector element of these vectors is replaced as follows: !>```fortran !> xi = c*xi + s*yi !> yi = c*yi - s*xi !>``` pure subroutine mfi_drot ( x , y , c , s , incx , incy ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: x (:) real ( REAL64 ), intent ( inout ) :: y (:) real ( REAL64 ), intent ( in ) :: c real ( REAL64 ), intent ( in ) :: s integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if n = size ( x ) call drot ( n , x , local_incx , y , local_incy , c , s ) end subroutine !> Modern interface for [[f77_rot:crot]]. !> See also: [[mfi_rot]], [[f77_rot]]. !> Given two vectors x and y, !> each vector element of these vectors is replaced as follows: !>```fortran !> xi = c*xi + s*yi !> yi = c*yi - conj(s)*xi !>``` pure subroutine mfi_crot ( x , y , c , s , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: x (:) complex ( REAL32 ), intent ( inout ) :: y (:) real ( REAL32 ), intent ( in ) :: c complex ( REAL32 ), intent ( in ) :: s integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if n = size ( x ) call crot ( n , x , local_incx , y , local_incy , c , s ) end subroutine !> Modern interface for [[f77_rot:zrot]]. !> See also: [[mfi_rot]], [[f77_rot]]. !> Given two vectors x and y, !> each vector element of these vectors is replaced as follows: !>```fortran !> xi = c*xi + s*yi !> yi = c*yi - conj(s)*xi !>``` pure subroutine mfi_zrot ( x , y , c , s , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: x (:) complex ( REAL64 ), intent ( inout ) :: y (:) real ( REAL64 ), intent ( in ) :: c complex ( REAL64 ), intent ( in ) :: s integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if n = size ( x ) call zrot ( n , x , local_incx , y , local_incy , c , s ) end subroutine !> Modern interface for [[f77_rot:csrot]]. !> See also: [[mfi_rot]], [[f77_rot]]. !> Given two vectors x and y, !> each vector element of these vectors is replaced as follows: !>```fortran !> xi = c*xi + s*yi !> yi = c*yi - conj(s)*xi !>``` pure subroutine mfi_csrot ( x , y , c , s , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: x (:) complex ( REAL32 ), intent ( inout ) :: y (:) real ( REAL32 ), intent ( in ) :: c real ( REAL32 ), intent ( in ) :: s integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if n = size ( x ) call csrot ( n , x , local_incx , y , local_incy , c , s ) end subroutine !> Modern interface for [[f77_rot:zdrot]]. !> See also: [[mfi_rot]], [[f77_rot]]. !> Given two vectors x and y, !> each vector element of these vectors is replaced as follows: !>```fortran !> xi = c*xi + s*yi !> yi = c*yi - conj(s)*xi !>``` pure subroutine mfi_zdrot ( x , y , c , s , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: x (:) complex ( REAL64 ), intent ( inout ) :: y (:) real ( REAL64 ), intent ( in ) :: c real ( REAL64 ), intent ( in ) :: s integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if n = size ( x ) call zdrot ( n , x , local_incx , y , local_incy , c , s ) end subroutine !> Modern interface for [[f77_rotm:srotm]]. !> See also: [[mfi_rotm]], [[f77_rotm]]. pure subroutine mfi_srotm ( x , y , param , incx , incy ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: x (:) real ( REAL32 ), intent ( inout ) :: y (:) real ( REAL32 ), intent ( in ) :: param ( 5 ) integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) call srotm ( n , x , local_incx , y , local_incy , param ) end subroutine !> Modern interface for [[f77_rotm:drotm]]. !> See also: [[mfi_rotm]], [[f77_rotm]]. pure subroutine mfi_drotm ( x , y , param , incx , incy ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: x (:) real ( REAL64 ), intent ( inout ) :: y (:) real ( REAL64 ), intent ( in ) :: param ( 5 ) integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if N = size ( X ) call drotm ( n , x , local_incx , y , local_incy , param ) end subroutine !> Modern interface for [[f77_scal:sscal]]. !> See also: [[mfi_scal]], [[f77_scal]]. !> MFI_SSCAL scales a vector by a constant. pure subroutine mfi_sscal ( a , x , incx ) real ( REAL32 ), intent ( inout ) :: x (:) real ( REAL32 ), intent ( in ) :: a integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call sscal ( n , a , x , local_incx ) end subroutine !> Modern interface for [[f77_scal:dscal]]. !> See also: [[mfi_scal]], [[f77_scal]]. !> MFI_DSCAL scales a vector by a constant. pure subroutine mfi_dscal ( a , x , incx ) real ( REAL64 ), intent ( inout ) :: x (:) real ( REAL64 ), intent ( in ) :: a integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call dscal ( n , a , x , local_incx ) end subroutine !> Modern interface for [[f77_scal:cscal]]. !> See also: [[mfi_scal]], [[f77_scal]]. !> MFI_CSCAL scales a vector by a constant. pure subroutine mfi_cscal ( a , x , incx ) complex ( REAL32 ), intent ( inout ) :: x (:) complex ( REAL32 ), intent ( in ) :: a integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call cscal ( n , a , x , local_incx ) end subroutine !> Modern interface for [[f77_scal:zscal]]. !> See also: [[mfi_scal]], [[f77_scal]]. !> MFI_ZSCAL scales a vector by a constant. pure subroutine mfi_zscal ( a , x , incx ) complex ( REAL64 ), intent ( inout ) :: x (:) complex ( REAL64 ), intent ( in ) :: a integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call zscal ( n , a , x , local_incx ) end subroutine !> Modern interface for [[f77_scal:csscal]]. !> See also: [[mfi_scal]], [[f77_scal]]. !> MFI_CSSCAL scales a vector by a constant. pure subroutine mfi_csscal ( a , x , incx ) complex ( REAL32 ), intent ( inout ) :: x (:) real ( REAL32 ), intent ( in ) :: a integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call csscal ( n , a , x , local_incx ) end subroutine !> Modern interface for [[f77_scal:zdscal]]. !> See also: [[mfi_scal]], [[f77_scal]]. !> MFI_ZDSCAL scales a vector by a constant. pure subroutine mfi_zdscal ( a , x , incx ) complex ( REAL64 ), intent ( inout ) :: x (:) real ( REAL64 ), intent ( in ) :: a integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call zdscal ( n , a , x , local_incx ) end subroutine !> Modern interface for [[f77_gbmv:sgbmv]]. !> See also: [[mfi_gbmv]], [[f77_gbmv]]. pure subroutine mfi_sgbmv ( a , x , y , kl , m , alpha , beta , trans , incx , incy ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( in ) :: x (:) real ( REAL32 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: trans character :: local_trans real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha real ( REAL32 ), intent ( in ), optional :: beta real ( REAL32 ) :: local_beta integer , intent ( in ), optional :: kl integer :: local_kl integer , intent ( in ), optional :: m integer :: local_m integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , ku , lda n = size ( a , 2 ) lda = max ( 1 , size ( a , 1 )) if ( present ( kl )) then local_kl = kl else local_kl = ( lda - 1 ) / 2 end if if ( present ( m )) then local_m = m else local_m = n end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if ku = lda - local_kl - 1 call sgbmv ( local_trans , local_m , n , local_kl , ku , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_gbmv:dgbmv]]. !> See also: [[mfi_gbmv]], [[f77_gbmv]]. pure subroutine mfi_dgbmv ( a , x , y , kl , m , alpha , beta , trans , incx , incy ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( in ) :: x (:) real ( REAL64 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: trans character :: local_trans real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha real ( REAL64 ), intent ( in ), optional :: beta real ( REAL64 ) :: local_beta integer , intent ( in ), optional :: kl integer :: local_kl integer , intent ( in ), optional :: m integer :: local_m integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , ku , lda n = size ( a , 2 ) lda = max ( 1 , size ( a , 1 )) if ( present ( kl )) then local_kl = kl else local_kl = ( lda - 1 ) / 2 end if if ( present ( m )) then local_m = m else local_m = n end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if ku = lda - local_kl - 1 call dgbmv ( local_trans , local_m , n , local_kl , ku , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_gbmv:cgbmv]]. !> See also: [[mfi_gbmv]], [[f77_gbmv]]. pure subroutine mfi_cgbmv ( a , x , y , kl , m , alpha , beta , trans , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: trans character :: local_trans complex ( REAL32 ), intent ( in ), optional :: alpha complex ( REAL32 ) :: local_alpha complex ( REAL32 ), intent ( in ), optional :: beta complex ( REAL32 ) :: local_beta integer , intent ( in ), optional :: kl integer :: local_kl integer , intent ( in ), optional :: m integer :: local_m integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , ku , lda n = size ( a , 2 ) lda = max ( 1 , size ( a , 1 )) if ( present ( kl )) then local_kl = kl else local_kl = ( lda - 1 ) / 2 end if if ( present ( m )) then local_m = m else local_m = n end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if ku = lda - local_kl - 1 call cgbmv ( local_trans , local_m , n , local_kl , ku , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_gbmv:zgbmv]]. !> See also: [[mfi_gbmv]], [[f77_gbmv]]. pure subroutine mfi_zgbmv ( a , x , y , kl , m , alpha , beta , trans , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: trans character :: local_trans complex ( REAL64 ), intent ( in ), optional :: alpha complex ( REAL64 ) :: local_alpha complex ( REAL64 ), intent ( in ), optional :: beta complex ( REAL64 ) :: local_beta integer , intent ( in ), optional :: kl integer :: local_kl integer , intent ( in ), optional :: m integer :: local_m integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , ku , lda n = size ( a , 2 ) lda = max ( 1 , size ( a , 1 )) if ( present ( kl )) then local_kl = kl else local_kl = ( lda - 1 ) / 2 end if if ( present ( m )) then local_m = m else local_m = n end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if ku = lda - local_kl - 1 call zgbmv ( local_trans , local_m , n , local_kl , ku , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_gemv:sgemv]]. !> See also: [[mfi_gemv]], [[f77_gemv]]. pure subroutine mfi_sgemv ( a , x , y , trans , alpha , beta , incx , incy ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( in ) :: x (:) real ( REAL32 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: trans character :: local_trans real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha real ( REAL32 ), intent ( in ), optional :: beta real ( REAL32 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: m , n , lda if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if m = size ( a , 1 ) n = size ( a , 2 ) lda = max ( 1 , m ) call sgemv ( local_trans , m , n , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_gemv:dgemv]]. !> See also: [[mfi_gemv]], [[f77_gemv]]. pure subroutine mfi_dgemv ( a , x , y , trans , alpha , beta , incx , incy ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( in ) :: x (:) real ( REAL64 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: trans character :: local_trans real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha real ( REAL64 ), intent ( in ), optional :: beta real ( REAL64 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: m , n , lda if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if m = size ( a , 1 ) n = size ( a , 2 ) lda = max ( 1 , m ) call dgemv ( local_trans , m , n , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_gemv:cgemv]]. !> See also: [[mfi_gemv]], [[f77_gemv]]. pure subroutine mfi_cgemv ( a , x , y , trans , alpha , beta , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: trans character :: local_trans complex ( REAL32 ), intent ( in ), optional :: alpha complex ( REAL32 ) :: local_alpha complex ( REAL32 ), intent ( in ), optional :: beta complex ( REAL32 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: m , n , lda if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if m = size ( a , 1 ) n = size ( a , 2 ) lda = max ( 1 , m ) call cgemv ( local_trans , m , n , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_gemv:zgemv]]. !> See also: [[mfi_gemv]], [[f77_gemv]]. pure subroutine mfi_zgemv ( a , x , y , trans , alpha , beta , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: trans character :: local_trans complex ( REAL64 ), intent ( in ), optional :: alpha complex ( REAL64 ) :: local_alpha complex ( REAL64 ), intent ( in ), optional :: beta complex ( REAL64 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: m , n , lda if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if m = size ( a , 1 ) n = size ( a , 2 ) lda = max ( 1 , m ) call zgemv ( local_trans , m , n , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_ger:sger]]. !> See also: [[mfi_ger]], [[f77_ger]]. pure subroutine mfi_sger ( a , x , y , alpha , incx , incy ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x (:) real ( REAL32 ), intent ( in ) :: y (:) real ( REAL32 ), intent ( inout ) :: a (:,:) real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: m , n , lda if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if m = size ( a , 1 ) n = size ( a , 2 ) lda = max ( 1 , m ) call sger ( m , n , local_alpha , x , local_incx , y , local_incy , a , lda ) end subroutine !> Modern interface for [[f77_ger:dger]]. !> See also: [[mfi_ger]], [[f77_ger]]. pure subroutine mfi_dger ( a , x , y , alpha , incx , incy ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x (:) real ( REAL64 ), intent ( in ) :: y (:) real ( REAL64 ), intent ( inout ) :: a (:,:) real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: m , n , lda if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if m = size ( a , 1 ) n = size ( a , 2 ) lda = max ( 1 , m ) call dger ( m , n , local_alpha , x , local_incx , y , local_incy , a , lda ) end subroutine !> Modern interface for [[f77_gerc:cgerc]]. !> See also: [[mfi_gerc]], [[f77_gerc]]. pure subroutine mfi_cgerc ( a , x , y , alpha , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( in ) :: y (:) complex ( REAL32 ), intent ( inout ) :: a (:,:) complex ( REAL32 ), intent ( in ), optional :: alpha complex ( REAL32 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: m , n , lda if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if m = size ( a , 1 ) n = size ( a , 2 ) lda = max ( 1 , m ) call cgerc ( m , n , local_alpha , x , local_incx , y , local_incy , a , lda ) end subroutine !> Modern interface for [[f77_gerc:zgerc]]. !> See also: [[mfi_gerc]], [[f77_gerc]]. pure subroutine mfi_zgerc ( a , x , y , alpha , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( in ) :: y (:) complex ( REAL64 ), intent ( inout ) :: a (:,:) complex ( REAL64 ), intent ( in ), optional :: alpha complex ( REAL64 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: m , n , lda if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if m = size ( a , 1 ) n = size ( a , 2 ) lda = max ( 1 , m ) call zgerc ( m , n , local_alpha , x , local_incx , y , local_incy , a , lda ) end subroutine !> Modern interface for [[f77_geru:cgeru]]. !> See also: [[mfi_geru]], [[f77_geru]]. pure subroutine mfi_cgeru ( a , x , y , alpha , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( in ) :: y (:) complex ( REAL32 ), intent ( inout ) :: a (:,:) complex ( REAL32 ), intent ( in ), optional :: alpha complex ( REAL32 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: m , n , lda if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if m = size ( a , 1 ) n = size ( a , 2 ) lda = max ( 1 , m ) call cgeru ( m , n , local_alpha , x , local_incx , y , local_incy , a , lda ) end subroutine !> Modern interface for [[f77_geru:zgeru]]. !> See also: [[mfi_geru]], [[f77_geru]]. pure subroutine mfi_zgeru ( a , x , y , alpha , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( in ) :: y (:) complex ( REAL64 ), intent ( inout ) :: a (:,:) complex ( REAL64 ), intent ( in ), optional :: alpha complex ( REAL64 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: m , n , lda if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if m = size ( a , 1 ) n = size ( a , 2 ) lda = max ( 1 , m ) call zgeru ( m , n , local_alpha , x , local_incx , y , local_incy , a , lda ) end subroutine !> Modern interface for [[f77_hbmv:chbmv]]. !> See also: [[mfi_hbmv]], [[f77_hbmv]]. pure subroutine mfi_chbmv ( a , x , y , uplo , alpha , beta , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL32 ), intent ( in ), optional :: alpha complex ( REAL32 ) :: local_alpha complex ( REAL32 ), intent ( in ), optional :: beta complex ( REAL32 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , k , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if k = size ( a , 1 ) - 1 lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call chbmv ( local_uplo , n , k , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_hbmv:zhbmv]]. !> See also: [[mfi_hbmv]], [[f77_hbmv]]. pure subroutine mfi_zhbmv ( a , x , y , uplo , alpha , beta , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL64 ), intent ( in ), optional :: alpha complex ( REAL64 ) :: local_alpha complex ( REAL64 ), intent ( in ), optional :: beta complex ( REAL64 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , k , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if k = size ( a , 1 ) - 1 lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call zhbmv ( local_uplo , n , k , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_hemv:chemv]]. !> See also: [[mfi_hemv]], [[f77_hemv]]. pure subroutine mfi_chemv ( a , x , y , uplo , alpha , beta , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL32 ), intent ( in ), optional :: alpha complex ( REAL32 ) :: local_alpha complex ( REAL32 ), intent ( in ), optional :: beta complex ( REAL32 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call chemv ( local_uplo , n , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_hemv:zhemv]]. !> See also: [[mfi_hemv]], [[f77_hemv]]. pure subroutine mfi_zhemv ( a , x , y , uplo , alpha , beta , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL64 ), intent ( in ), optional :: alpha complex ( REAL64 ) :: local_alpha complex ( REAL64 ), intent ( in ), optional :: beta complex ( REAL64 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call zhemv ( local_uplo , n , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_her:cher]]. !> See also: [[mfi_her]], [[f77_her]]. pure subroutine mfi_cher ( a , x , uplo , alpha , incx ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo real ( wp ), intent ( in ), optional :: alpha real ( wp ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call cher ( local_uplo , n , local_alpha , x , local_incx , a , lda ) end subroutine !> Modern interface for [[f77_her:zher]]. !> See also: [[mfi_her]], [[f77_her]]. pure subroutine mfi_zher ( a , x , uplo , alpha , incx ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo real ( wp ), intent ( in ), optional :: alpha real ( wp ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call zher ( local_uplo , n , local_alpha , x , local_incx , a , lda ) end subroutine !> Modern interface for [[f77_her2:cher2]]. !> See also: [[mfi_her2]], [[f77_her2]]. pure subroutine mfi_cher2 ( a , x , y , uplo , alpha , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( in ) :: y (:) complex ( REAL32 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL32 ), intent ( in ), optional :: alpha complex ( REAL32 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call cher2 ( local_uplo , n , local_alpha , x , local_incx , y , local_incy , a , lda ) end subroutine !> Modern interface for [[f77_her2:zher2]]. !> See also: [[mfi_her2]], [[f77_her2]]. pure subroutine mfi_zher2 ( a , x , y , uplo , alpha , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( in ) :: y (:) complex ( REAL64 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL64 ), intent ( in ), optional :: alpha complex ( REAL64 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call zher2 ( local_uplo , n , local_alpha , x , local_incx , y , local_incy , a , lda ) end subroutine !> Modern interface for [[f77_hpmv:chpmv]]. !> See also: [[mfi_hpmv]], [[f77_hpmv]]. pure subroutine mfi_chpmv ( ap , x , y , uplo , alpha , beta , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( in ) :: ap (:) complex ( REAL32 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL32 ), intent ( in ), optional :: alpha complex ( REAL32 ) :: local_alpha complex ( REAL32 ), intent ( in ), optional :: beta complex ( REAL32 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if n = size ( x ) call chpmv ( local_uplo , n , local_alpha , ap , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_hpmv:zhpmv]]. !> See also: [[mfi_hpmv]], [[f77_hpmv]]. pure subroutine mfi_zhpmv ( ap , x , y , uplo , alpha , beta , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( in ) :: ap (:) complex ( REAL64 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL64 ), intent ( in ), optional :: alpha complex ( REAL64 ) :: local_alpha complex ( REAL64 ), intent ( in ), optional :: beta complex ( REAL64 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if n = size ( x ) call zhpmv ( local_uplo , n , local_alpha , ap , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_hpr:chpr]]. !> See also: [[mfi_hpr]], [[f77_hpr]]. pure subroutine mfi_chpr ( ap , x , uplo , alpha , incx ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( inout ) :: ap (:) character , intent ( in ), optional :: uplo character :: local_uplo real ( wp ), intent ( in ), optional :: alpha real ( wp ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call chpr ( local_uplo , n , local_alpha , x , local_incx , ap ) end subroutine !> Modern interface for [[f77_hpr:zhpr]]. !> See also: [[mfi_hpr]], [[f77_hpr]]. pure subroutine mfi_zhpr ( ap , x , uplo , alpha , incx ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( inout ) :: ap (:) character , intent ( in ), optional :: uplo character :: local_uplo real ( wp ), intent ( in ), optional :: alpha real ( wp ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call zhpr ( local_uplo , n , local_alpha , x , local_incx , ap ) end subroutine !> Modern interface for [[f77_hpr2:chpr2]]. !> See also: [[mfi_hpr2]], [[f77_hpr2]]. pure subroutine mfi_chpr2 ( ap , x , y , uplo , alpha , incx , incy ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x (:) complex ( REAL32 ), intent ( in ) :: y (:) complex ( REAL32 ), intent ( inout ) :: ap (:) character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL32 ), intent ( in ), optional :: alpha complex ( REAL32 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if n = size ( x ) call chpr2 ( local_uplo , n , local_alpha , x , local_incx , y , local_incy , ap ) end subroutine !> Modern interface for [[f77_hpr2:zhpr2]]. !> See also: [[mfi_hpr2]], [[f77_hpr2]]. pure subroutine mfi_zhpr2 ( ap , x , y , uplo , alpha , incx , incy ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x (:) complex ( REAL64 ), intent ( in ) :: y (:) complex ( REAL64 ), intent ( inout ) :: ap (:) character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL64 ), intent ( in ), optional :: alpha complex ( REAL64 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if n = size ( x ) call zhpr2 ( local_uplo , n , local_alpha , x , local_incx , y , local_incy , ap ) end subroutine !> Modern interface for [[f77_sbmv:ssbmv]]. !> See also: [[mfi_sbmv]], [[f77_sbmv]]. pure subroutine mfi_ssbmv ( a , x , y , uplo , alpha , beta , incx , incy ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x (:) real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha real ( REAL32 ), intent ( in ), optional :: beta real ( REAL32 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , k , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if k = size ( a , 1 ) - 1 lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call ssbmv ( local_uplo , n , k , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_sbmv:dsbmv]]. !> See also: [[mfi_sbmv]], [[f77_sbmv]]. pure subroutine mfi_dsbmv ( a , x , y , uplo , alpha , beta , incx , incy ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x (:) real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha real ( REAL64 ), intent ( in ), optional :: beta real ( REAL64 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , k , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if k = size ( a , 1 ) - 1 lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call dsbmv ( local_uplo , n , k , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_spmv:sspmv]]. !> See also: [[mfi_spmv]], [[f77_spmv]]. pure subroutine mfi_sspmv ( ap , x , y , uplo , alpha , beta , incx , incy ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x (:) real ( REAL32 ), intent ( in ) :: ap (:) real ( REAL32 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha real ( REAL32 ), intent ( in ), optional :: beta real ( REAL32 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if n = size ( x ) call sspmv ( local_uplo , n , local_alpha , ap , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_spmv:dspmv]]. !> See also: [[mfi_spmv]], [[f77_spmv]]. pure subroutine mfi_dspmv ( ap , x , y , uplo , alpha , beta , incx , incy ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x (:) real ( REAL64 ), intent ( in ) :: ap (:) real ( REAL64 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha real ( REAL64 ), intent ( in ), optional :: beta real ( REAL64 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if n = size ( x ) call dspmv ( local_uplo , n , local_alpha , ap , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_spr:sspr]]. !> See also: [[mfi_spr]], [[f77_spr]]. pure subroutine mfi_sspr ( ap , x , uplo , alpha , incx ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x (:) real ( REAL32 ), intent ( inout ) :: ap (:) character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call sspr ( local_uplo , n , local_alpha , x , local_incx , ap ) end subroutine !> Modern interface for [[f77_spr:dspr]]. !> See also: [[mfi_spr]], [[f77_spr]]. pure subroutine mfi_dspr ( ap , x , uplo , alpha , incx ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x (:) real ( REAL64 ), intent ( inout ) :: ap (:) character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call dspr ( local_uplo , n , local_alpha , x , local_incx , ap ) end subroutine !> Modern interface for [[f77_spr2:sspr2]]. !> See also: [[mfi_spr2]], [[f77_spr2]]. pure subroutine mfi_sspr2 ( ap , x , y , uplo , alpha , incx , incy ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x (:) real ( REAL32 ), intent ( in ) :: y (:) real ( REAL32 ), intent ( inout ) :: ap (:) character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if n = size ( x ) call sspr2 ( local_uplo , n , local_alpha , x , local_incx , y , local_incy , ap ) end subroutine !> Modern interface for [[f77_spr2:dspr2]]. !> See also: [[mfi_spr2]], [[f77_spr2]]. pure subroutine mfi_dspr2 ( ap , x , y , uplo , alpha , incx , incy ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x (:) real ( REAL64 ), intent ( in ) :: y (:) real ( REAL64 ), intent ( inout ) :: ap (:) character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if n = size ( x ) call dspr2 ( local_uplo , n , local_alpha , x , local_incx , y , local_incy , ap ) end subroutine !> Modern interface for [[f77_symv:ssymv]]. !> See also: [[mfi_symv]], [[f77_symv]]. pure subroutine mfi_ssymv ( a , x , y , uplo , alpha , beta , incx , incy ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x (:) real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha real ( REAL32 ), intent ( in ), optional :: beta real ( REAL32 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call ssymv ( local_uplo , n , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_symv:dsymv]]. !> See also: [[mfi_symv]], [[f77_symv]]. pure subroutine mfi_dsymv ( a , x , y , uplo , alpha , beta , incx , incy ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x (:) real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( inout ) :: y (:) character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha real ( REAL64 ), intent ( in ), optional :: beta real ( REAL64 ) :: local_beta integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call dsymv ( local_uplo , n , local_alpha , a , lda , x , local_incx , local_beta , y , local_incy ) end subroutine !> Modern interface for [[f77_syr:ssyr]]. !> See also: [[mfi_syr]], [[f77_syr]]. pure subroutine mfi_ssyr ( a , x , uplo , alpha , incx ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x (:) real ( REAL32 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call ssyr ( local_uplo , n , local_alpha , x , local_incx , a , lda ) end subroutine !> Modern interface for [[f77_syr:dsyr]]. !> See also: [[mfi_syr]], [[f77_syr]]. pure subroutine mfi_dsyr ( a , x , uplo , alpha , incx ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x (:) real ( REAL64 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call dsyr ( local_uplo , n , local_alpha , x , local_incx , a , lda ) end subroutine !> Modern interface for [[f77_syr2:ssyr2]]. !> See also: [[mfi_syr2]], [[f77_syr2]]. pure subroutine mfi_ssyr2 ( a , x , y , uplo , alpha , incx , incy ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x (:) real ( REAL32 ), intent ( in ) :: y (:) real ( REAL32 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call ssyr2 ( local_uplo , n , local_alpha , x , local_incx , y , local_incy , a , lda ) end subroutine !> Modern interface for [[f77_syr2:dsyr2]]. !> See also: [[mfi_syr2]], [[f77_syr2]]. pure subroutine mfi_dsyr2 ( a , x , y , uplo , alpha , incx , incy ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x (:) real ( REAL64 ), intent ( in ) :: y (:) real ( REAL64 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha integer , intent ( in ), optional :: incx integer :: local_incx integer , intent ( in ), optional :: incy integer :: local_incy integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if if ( present ( incy )) then local_incy = incy else local_incy = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call dsyr2 ( local_uplo , n , local_alpha , x , local_incx , y , local_incy , a , lda ) end subroutine !> Modern interface for [[f77_tbmv:stbmv]]. !> See also: [[mfi_tbmv]], [[f77_tbmv]]. pure subroutine mfi_stbmv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , k , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if k = size ( a , 1 ) - 1 lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call stbmv ( local_uplo , local_trans , local_diag , n , k , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_tbmv:dtbmv]]. !> See also: [[mfi_tbmv]], [[f77_tbmv]]. pure subroutine mfi_dtbmv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , k , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if k = size ( a , 1 ) - 1 lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call dtbmv ( local_uplo , local_trans , local_diag , n , k , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_tbmv:ctbmv]]. !> See also: [[mfi_tbmv]], [[f77_tbmv]]. pure subroutine mfi_ctbmv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , k , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if k = size ( a , 1 ) - 1 lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call ctbmv ( local_uplo , local_trans , local_diag , n , k , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_tbmv:ztbmv]]. !> See also: [[mfi_tbmv]], [[f77_tbmv]]. pure subroutine mfi_ztbmv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , k , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if k = size ( a , 1 ) - 1 lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call ztbmv ( local_uplo , local_trans , local_diag , n , k , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_tbsv:stbsv]]. !> See also: [[mfi_tbsv]], [[f77_tbsv]]. pure subroutine mfi_stbsv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , k , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if k = size ( a , 1 ) - 1 lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call stbsv ( local_uplo , local_trans , local_diag , n , k , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_tbsv:dtbsv]]. !> See also: [[mfi_tbsv]], [[f77_tbsv]]. pure subroutine mfi_dtbsv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , k , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if k = size ( a , 1 ) - 1 lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call dtbsv ( local_uplo , local_trans , local_diag , n , k , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_tbsv:ctbsv]]. !> See also: [[mfi_tbsv]], [[f77_tbsv]]. pure subroutine mfi_ctbsv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , k , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if k = size ( a , 1 ) - 1 lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call ctbsv ( local_uplo , local_trans , local_diag , n , k , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_tbsv:ztbsv]]. !> See also: [[mfi_tbsv]], [[f77_tbsv]]. pure subroutine mfi_ztbsv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , k , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if k = size ( a , 1 ) - 1 lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call ztbsv ( local_uplo , local_trans , local_diag , n , k , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_tpmv:stpmv]]. !> See also: [[mfi_tpmv]], [[f77_tpmv]]. pure subroutine mfi_stpmv ( ap , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: ap (:) real ( REAL32 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call stpmv ( local_uplo , local_trans , local_diag , n , ap , x , local_incx ) end subroutine !> Modern interface for [[f77_tpmv:dtpmv]]. !> See also: [[mfi_tpmv]], [[f77_tpmv]]. pure subroutine mfi_dtpmv ( ap , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: ap (:) real ( REAL64 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call dtpmv ( local_uplo , local_trans , local_diag , n , ap , x , local_incx ) end subroutine !> Modern interface for [[f77_tpmv:ctpmv]]. !> See also: [[mfi_tpmv]], [[f77_tpmv]]. pure subroutine mfi_ctpmv ( ap , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: ap (:) complex ( REAL32 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call ctpmv ( local_uplo , local_trans , local_diag , n , ap , x , local_incx ) end subroutine !> Modern interface for [[f77_tpmv:ztpmv]]. !> See also: [[mfi_tpmv]], [[f77_tpmv]]. pure subroutine mfi_ztpmv ( ap , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: ap (:) complex ( REAL64 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call ztpmv ( local_uplo , local_trans , local_diag , n , ap , x , local_incx ) end subroutine !> Modern interface for [[f77_tpsv:stpsv]]. !> See also: [[mfi_tpsv]], [[f77_tpsv]]. pure subroutine mfi_stpsv ( ap , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: ap (:) real ( REAL32 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call stpsv ( local_uplo , local_trans , local_diag , n , ap , x , local_incx ) end subroutine !> Modern interface for [[f77_tpsv:dtpsv]]. !> See also: [[mfi_tpsv]], [[f77_tpsv]]. pure subroutine mfi_dtpsv ( ap , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: ap (:) real ( REAL64 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call dtpsv ( local_uplo , local_trans , local_diag , n , ap , x , local_incx ) end subroutine !> Modern interface for [[f77_tpsv:ctpsv]]. !> See also: [[mfi_tpsv]], [[f77_tpsv]]. pure subroutine mfi_ctpsv ( ap , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: ap (:) complex ( REAL32 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call ctpsv ( local_uplo , local_trans , local_diag , n , ap , x , local_incx ) end subroutine !> Modern interface for [[f77_tpsv:ztpsv]]. !> See also: [[mfi_tpsv]], [[f77_tpsv]]. pure subroutine mfi_ztpsv ( ap , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: ap (:) complex ( REAL64 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) call ztpsv ( local_uplo , local_trans , local_diag , n , ap , x , local_incx ) end subroutine !> Modern interface for [[f77_trmv:strmv]]. !> See also: [[mfi_trmv]], [[f77_trmv]]. pure subroutine mfi_strmv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call strmv ( local_uplo , local_trans , local_diag , n , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_trmv:dtrmv]]. !> See also: [[mfi_trmv]], [[f77_trmv]]. pure subroutine mfi_dtrmv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call dtrmv ( local_uplo , local_trans , local_diag , n , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_trmv:ctrmv]]. !> See also: [[mfi_trmv]], [[f77_trmv]]. pure subroutine mfi_ctrmv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call ctrmv ( local_uplo , local_trans , local_diag , n , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_trmv:ztrmv]]. !> See also: [[mfi_trmv]], [[f77_trmv]]. pure subroutine mfi_ztrmv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call ztrmv ( local_uplo , local_trans , local_diag , n , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_trsv:strsv]]. !> See also: [[mfi_trsv]], [[f77_trsv]]. pure subroutine mfi_strsv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call strsv ( local_uplo , local_trans , local_diag , n , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_trsv:dtrsv]]. !> See also: [[mfi_trsv]], [[f77_trsv]]. pure subroutine mfi_dtrsv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call dtrsv ( local_uplo , local_trans , local_diag , n , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_trsv:ctrsv]]. !> See also: [[mfi_trsv]], [[f77_trsv]]. pure subroutine mfi_ctrsv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call ctrsv ( local_uplo , local_trans , local_diag , n , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_trsv:ztrsv]]. !> See also: [[mfi_trsv]], [[f77_trsv]]. pure subroutine mfi_ztrsv ( a , x , uplo , trans , diag , incx ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( inout ) :: x (:) character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: diag character :: local_diag integer , intent ( in ), optional :: incx integer :: local_incx integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( incx )) then local_incx = incx else local_incx = 1 end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call ztrsv ( local_uplo , local_trans , local_diag , n , a , lda , x , local_incx ) end subroutine !> Modern interface for [[f77_gemm:sgemm]]. !> See also: [[mfi_gemm]], [[f77_gemm]]. pure subroutine mfi_sgemm ( a , b , c , transa , transb , alpha , beta ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( in ) :: b (:,:) real ( REAL32 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: transa character :: local_transa character , intent ( in ), optional :: transb character :: local_transb real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha real ( REAL32 ), intent ( in ), optional :: beta real ( REAL32 ) :: local_beta integer :: m , n , k , lda , ldb , ldc if ( present ( transa )) then local_transa = transa else local_transa = 'N' end if if ( present ( transb )) then local_transb = transb else local_transb = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) ldc = max ( 1 , size ( c , 1 )) m = size ( c , 1 ) n = size ( c , 2 ) if ( local_transa == 'N' . or . local_transa == 'n' ) then k = size ( a , 2 ) else k = size ( a , 1 ) end if call sgemm ( local_transa , local_transb , m , n , k , local_alpha , a , lda , b , ldb , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_gemm:dgemm]]. !> See also: [[mfi_gemm]], [[f77_gemm]]. pure subroutine mfi_dgemm ( a , b , c , transa , transb , alpha , beta ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( in ) :: b (:,:) real ( REAL64 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: transa character :: local_transa character , intent ( in ), optional :: transb character :: local_transb real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha real ( REAL64 ), intent ( in ), optional :: beta real ( REAL64 ) :: local_beta integer :: m , n , k , lda , ldb , ldc if ( present ( transa )) then local_transa = transa else local_transa = 'N' end if if ( present ( transb )) then local_transb = transb else local_transb = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) ldc = max ( 1 , size ( c , 1 )) m = size ( c , 1 ) n = size ( c , 2 ) if ( local_transa == 'N' . or . local_transa == 'n' ) then k = size ( a , 2 ) else k = size ( a , 1 ) end if call dgemm ( local_transa , local_transb , m , n , k , local_alpha , a , lda , b , ldb , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_gemm:cgemm]]. !> See also: [[mfi_gemm]], [[f77_gemm]]. pure subroutine mfi_cgemm ( a , b , c , transa , transb , alpha , beta ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( in ) :: b (:,:) complex ( REAL32 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: transa character :: local_transa character , intent ( in ), optional :: transb character :: local_transb complex ( REAL32 ), intent ( in ), optional :: alpha complex ( REAL32 ) :: local_alpha complex ( REAL32 ), intent ( in ), optional :: beta complex ( REAL32 ) :: local_beta integer :: m , n , k , lda , ldb , ldc if ( present ( transa )) then local_transa = transa else local_transa = 'N' end if if ( present ( transb )) then local_transb = transb else local_transb = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) ldc = max ( 1 , size ( c , 1 )) m = size ( c , 1 ) n = size ( c , 2 ) if ( local_transa == 'N' . or . local_transa == 'n' ) then k = size ( a , 2 ) else k = size ( a , 1 ) end if call cgemm ( local_transa , local_transb , m , n , k , local_alpha , a , lda , b , ldb , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_gemm:zgemm]]. !> See also: [[mfi_gemm]], [[f77_gemm]]. pure subroutine mfi_zgemm ( a , b , c , transa , transb , alpha , beta ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( in ) :: b (:,:) complex ( REAL64 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: transa character :: local_transa character , intent ( in ), optional :: transb character :: local_transb complex ( REAL64 ), intent ( in ), optional :: alpha complex ( REAL64 ) :: local_alpha complex ( REAL64 ), intent ( in ), optional :: beta complex ( REAL64 ) :: local_beta integer :: m , n , k , lda , ldb , ldc if ( present ( transa )) then local_transa = transa else local_transa = 'N' end if if ( present ( transb )) then local_transb = transb else local_transb = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) ldc = max ( 1 , size ( c , 1 )) m = size ( c , 1 ) n = size ( c , 2 ) if ( local_transa == 'N' . or . local_transa == 'n' ) then k = size ( a , 2 ) else k = size ( a , 1 ) end if call zgemm ( local_transa , local_transb , m , n , k , local_alpha , a , lda , b , ldb , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_hemm:chemm]]. !> See also: [[mfi_hemm]], [[f77_hemm]]. pure subroutine mfi_chemm ( a , b , c , side , uplo , alpha , beta ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( in ) :: b (:,:) complex ( REAL32 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: side character :: local_side character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL32 ), intent ( in ), optional :: alpha complex ( REAL32 ) :: local_alpha complex ( REAL32 ), intent ( in ), optional :: beta complex ( REAL32 ) :: local_beta integer :: m , n , lda , ldb , ldc if ( present ( side )) then local_side = side else local_side = 'L' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) ldc = max ( 1 , size ( c , 1 )) m = size ( c , 1 ) n = size ( c , 2 ) call chemm ( local_side , local_uplo , m , n , local_alpha , a , lda , b , ldb , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_hemm:zhemm]]. !> See also: [[mfi_hemm]], [[f77_hemm]]. pure subroutine mfi_zhemm ( a , b , c , side , uplo , alpha , beta ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( in ) :: b (:,:) complex ( REAL64 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: side character :: local_side character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL64 ), intent ( in ), optional :: alpha complex ( REAL64 ) :: local_alpha complex ( REAL64 ), intent ( in ), optional :: beta complex ( REAL64 ) :: local_beta integer :: m , n , lda , ldb , ldc if ( present ( side )) then local_side = side else local_side = 'L' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) ldc = max ( 1 , size ( c , 1 )) m = size ( c , 1 ) n = size ( c , 2 ) call zhemm ( local_side , local_uplo , m , n , local_alpha , a , lda , b , ldb , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_herk:cherk]]. !> See also: [[mfi_herk]], [[f77_herk]]. pure subroutine mfi_cherk ( a , c , uplo , trans , alpha , beta ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: uplo character :: local_uplo real ( wp ), intent ( in ), optional :: alpha real ( wp ) :: local_alpha real ( wp ), intent ( in ), optional :: beta real ( wp ) :: local_beta integer :: n , k , lda , ldc if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if n = size ( c , 2 ) if ( local_trans == 'N' . or . local_trans == 'n' ) then k = size ( a , 2 ) else k = size ( a , 1 ) end if lda = max ( 1 , size ( a , 1 )) ldc = max ( 1 , size ( c , 1 )) call cherk ( local_uplo , local_trans , n , k , local_alpha , a , lda , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_herk:zherk]]. !> See also: [[mfi_herk]], [[f77_herk]]. pure subroutine mfi_zherk ( a , c , uplo , trans , alpha , beta ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: uplo character :: local_uplo real ( wp ), intent ( in ), optional :: alpha real ( wp ) :: local_alpha real ( wp ), intent ( in ), optional :: beta real ( wp ) :: local_beta integer :: n , k , lda , ldc if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if n = size ( c , 2 ) if ( local_trans == 'N' . or . local_trans == 'n' ) then k = size ( a , 2 ) else k = size ( a , 1 ) end if lda = max ( 1 , size ( a , 1 )) ldc = max ( 1 , size ( c , 1 )) call zherk ( local_uplo , local_trans , n , k , local_alpha , a , lda , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_her2k:cher2k]]. !> See also: [[mfi_her2k]], [[f77_her2k]]. pure subroutine mfi_cher2k ( a , b , c , uplo , trans , alpha , beta ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( in ) :: b (:,:) complex ( REAL32 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL32 ), intent ( in ), optional :: alpha complex ( REAL32 ) :: local_alpha real ( wp ), intent ( in ), optional :: beta real ( wp ) :: local_beta integer :: n , k , lda , ldb , ldc if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if n = size ( c , 2 ) if ( local_trans == 'N' . or . local_trans == 'n' ) then k = size ( a , 2 ) else k = size ( a , 1 ) end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) ldc = max ( 1 , size ( c , 1 )) call cher2k ( local_uplo , local_trans , n , k , local_alpha , a , lda , b , ldb , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_her2k:zher2k]]. !> See also: [[mfi_her2k]], [[f77_her2k]]. pure subroutine mfi_zher2k ( a , b , c , uplo , trans , alpha , beta ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( in ) :: b (:,:) complex ( REAL64 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL64 ), intent ( in ), optional :: alpha complex ( REAL64 ) :: local_alpha real ( wp ), intent ( in ), optional :: beta real ( wp ) :: local_beta integer :: n , k , lda , ldb , ldc if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if n = size ( c , 2 ) if ( local_trans == 'N' . or . local_trans == 'n' ) then k = size ( a , 2 ) else k = size ( a , 1 ) end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) ldc = max ( 1 , size ( c , 1 )) call zher2k ( local_uplo , local_trans , n , k , local_alpha , a , lda , b , ldb , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_symm:ssymm]]. !> See also: [[mfi_symm]], [[f77_symm]]. pure subroutine mfi_ssymm ( a , b , c , side , uplo , alpha , beta ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( in ) :: b (:,:) real ( REAL32 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: side character :: local_side character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha real ( REAL32 ), intent ( in ), optional :: beta real ( REAL32 ) :: local_beta integer :: m , n , lda , ldb , ldc if ( present ( side )) then local_side = side else local_side = 'L' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) ldc = max ( 1 , size ( c , 1 )) m = size ( c , 1 ) n = size ( c , 2 ) call ssymm ( local_side , local_uplo , m , n , local_alpha , a , lda , b , ldb , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_symm:dsymm]]. !> See also: [[mfi_symm]], [[f77_symm]]. pure subroutine mfi_dsymm ( a , b , c , side , uplo , alpha , beta ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( in ) :: b (:,:) real ( REAL64 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: side character :: local_side character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha real ( REAL64 ), intent ( in ), optional :: beta real ( REAL64 ) :: local_beta integer :: m , n , lda , ldb , ldc if ( present ( side )) then local_side = side else local_side = 'L' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) ldc = max ( 1 , size ( c , 1 )) m = size ( c , 1 ) n = size ( c , 2 ) call dsymm ( local_side , local_uplo , m , n , local_alpha , a , lda , b , ldb , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_syrk:ssyrk]]. !> See also: [[mfi_syrk]], [[f77_syrk]]. pure subroutine mfi_ssyrk ( a , c , uplo , trans , alpha , beta ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha real ( REAL32 ), intent ( in ), optional :: beta real ( REAL32 ) :: local_beta integer :: n , k , lda , ldc if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if n = size ( c , 2 ) if ( local_trans == 'N' . or . local_trans == 'n' ) then k = size ( a , 2 ) else k = size ( a , 1 ) end if lda = max ( 1 , size ( a , 1 )) ldc = max ( 1 , size ( c , 1 )) call ssyrk ( local_uplo , local_trans , n , k , local_alpha , a , lda , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_syrk:dsyrk]]. !> See also: [[mfi_syrk]], [[f77_syrk]]. pure subroutine mfi_dsyrk ( a , c , uplo , trans , alpha , beta ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha real ( REAL64 ), intent ( in ), optional :: beta real ( REAL64 ) :: local_beta integer :: n , k , lda , ldc if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if n = size ( c , 2 ) if ( local_trans == 'N' . or . local_trans == 'n' ) then k = size ( a , 2 ) else k = size ( a , 1 ) end if lda = max ( 1 , size ( a , 1 )) ldc = max ( 1 , size ( c , 1 )) call dsyrk ( local_uplo , local_trans , n , k , local_alpha , a , lda , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_syr2k:ssyr2k]]. !> See also: [[mfi_syr2k]], [[f77_syr2k]]. pure subroutine mfi_ssyr2k ( a , b , c , uplo , trans , alpha , beta ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( in ) :: b (:,:) real ( REAL32 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha real ( REAL32 ), intent ( in ), optional :: beta real ( REAL32 ) :: local_beta integer :: n , k , lda , ldb , ldc if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if n = size ( c , 2 ) if ( local_trans == 'N' . or . local_trans == 'n' ) then k = size ( a , 2 ) else k = size ( a , 1 ) end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) ldc = max ( 1 , size ( c , 1 )) call ssyr2k ( local_uplo , local_trans , n , k , local_alpha , a , lda , b , ldb , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_syr2k:dsyr2k]]. !> See also: [[mfi_syr2k]], [[f77_syr2k]]. pure subroutine mfi_dsyr2k ( a , b , c , uplo , trans , alpha , beta ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( in ) :: b (:,:) real ( REAL64 ), intent ( inout ) :: c (:,:) character , intent ( in ), optional :: trans character :: local_trans character , intent ( in ), optional :: uplo character :: local_uplo real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha real ( REAL64 ), intent ( in ), optional :: beta real ( REAL64 ) :: local_beta integer :: n , k , lda , ldb , ldc if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if if ( present ( beta )) then local_beta = beta else local_beta = 0.0_wp end if n = size ( c , 2 ) if ( local_trans == 'N' . or . local_trans == 'n' ) then k = size ( a , 2 ) else k = size ( a , 1 ) end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) ldc = max ( 1 , size ( c , 1 )) call dsyr2k ( local_uplo , local_trans , n , k , local_alpha , a , lda , b , ldb , local_beta , c , ldc ) end subroutine !> Modern interface for [[f77_trmm:strmm]]. !> See also: [[mfi_trmm]], [[f77_trmm]]. pure subroutine mfi_strmm ( a , b , side , uplo , transa , diag , alpha ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( inout ) :: b (:,:) character , intent ( in ), optional :: side character :: local_side character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: transa character :: local_transa character , intent ( in ), optional :: diag character :: local_diag real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha integer :: m , n , lda , ldb if ( present ( side )) then local_side = side else local_side = 'L' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( transa )) then local_transa = transa else local_transa = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if m = size ( b , 1 ) n = size ( b , 2 ) lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) call strmm ( local_side , local_uplo , local_transa , local_diag , m , n , local_alpha , a , lda , b , ldb ) end subroutine !> Modern interface for [[f77_trmm:dtrmm]]. !> See also: [[mfi_trmm]], [[f77_trmm]]. pure subroutine mfi_dtrmm ( a , b , side , uplo , transa , diag , alpha ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( inout ) :: b (:,:) character , intent ( in ), optional :: side character :: local_side character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: transa character :: local_transa character , intent ( in ), optional :: diag character :: local_diag real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha integer :: m , n , lda , ldb if ( present ( side )) then local_side = side else local_side = 'L' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( transa )) then local_transa = transa else local_transa = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if m = size ( b , 1 ) n = size ( b , 2 ) lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) call dtrmm ( local_side , local_uplo , local_transa , local_diag , m , n , local_alpha , a , lda , b , ldb ) end subroutine !> Modern interface for [[f77_trmm:ctrmm]]. !> See also: [[mfi_trmm]], [[f77_trmm]]. pure subroutine mfi_ctrmm ( a , b , side , uplo , transa , diag , alpha ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( inout ) :: b (:,:) character , intent ( in ), optional :: side character :: local_side character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: transa character :: local_transa character , intent ( in ), optional :: diag character :: local_diag complex ( REAL32 ), intent ( in ), optional :: alpha complex ( REAL32 ) :: local_alpha integer :: m , n , lda , ldb if ( present ( side )) then local_side = side else local_side = 'L' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( transa )) then local_transa = transa else local_transa = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if m = size ( b , 1 ) n = size ( b , 2 ) lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) call ctrmm ( local_side , local_uplo , local_transa , local_diag , m , n , local_alpha , a , lda , b , ldb ) end subroutine !> Modern interface for [[f77_trmm:ztrmm]]. !> See also: [[mfi_trmm]], [[f77_trmm]]. pure subroutine mfi_ztrmm ( a , b , side , uplo , transa , diag , alpha ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( inout ) :: b (:,:) character , intent ( in ), optional :: side character :: local_side character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: transa character :: local_transa character , intent ( in ), optional :: diag character :: local_diag complex ( REAL64 ), intent ( in ), optional :: alpha complex ( REAL64 ) :: local_alpha integer :: m , n , lda , ldb if ( present ( side )) then local_side = side else local_side = 'L' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( transa )) then local_transa = transa else local_transa = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if m = size ( b , 1 ) n = size ( b , 2 ) lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) call ztrmm ( local_side , local_uplo , local_transa , local_diag , m , n , local_alpha , a , lda , b , ldb ) end subroutine !> Modern interface for [[f77_trsm:strsm]]. !> See also: [[mfi_trsm]], [[f77_trsm]]. pure subroutine mfi_strsm ( a , b , side , uplo , transa , diag , alpha ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( inout ) :: b (:,:) character , intent ( in ), optional :: side character :: local_side character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: transa character :: local_transa character , intent ( in ), optional :: diag character :: local_diag real ( REAL32 ), intent ( in ), optional :: alpha real ( REAL32 ) :: local_alpha integer :: m , n , lda , ldb if ( present ( side )) then local_side = side else local_side = 'L' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( transa )) then local_transa = transa else local_transa = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if m = size ( b , 1 ) n = size ( b , 2 ) lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) call strsm ( local_side , local_uplo , local_transa , local_diag , m , n , local_alpha , a , lda , b , ldb ) end subroutine !> Modern interface for [[f77_trsm:dtrsm]]. !> See also: [[mfi_trsm]], [[f77_trsm]]. pure subroutine mfi_dtrsm ( a , b , side , uplo , transa , diag , alpha ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( inout ) :: b (:,:) character , intent ( in ), optional :: side character :: local_side character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: transa character :: local_transa character , intent ( in ), optional :: diag character :: local_diag real ( REAL64 ), intent ( in ), optional :: alpha real ( REAL64 ) :: local_alpha integer :: m , n , lda , ldb if ( present ( side )) then local_side = side else local_side = 'L' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( transa )) then local_transa = transa else local_transa = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if m = size ( b , 1 ) n = size ( b , 2 ) lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) call dtrsm ( local_side , local_uplo , local_transa , local_diag , m , n , local_alpha , a , lda , b , ldb ) end subroutine !> Modern interface for [[f77_trsm:ctrsm]]. !> See also: [[mfi_trsm]], [[f77_trsm]]. pure subroutine mfi_ctrsm ( a , b , side , uplo , transa , diag , alpha ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( inout ) :: b (:,:) character , intent ( in ), optional :: side character :: local_side character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: transa character :: local_transa character , intent ( in ), optional :: diag character :: local_diag complex ( REAL32 ), intent ( in ), optional :: alpha complex ( REAL32 ) :: local_alpha integer :: m , n , lda , ldb if ( present ( side )) then local_side = side else local_side = 'L' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( transa )) then local_transa = transa else local_transa = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if m = size ( b , 1 ) n = size ( b , 2 ) lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) call ctrsm ( local_side , local_uplo , local_transa , local_diag , m , n , local_alpha , a , lda , b , ldb ) end subroutine !> Modern interface for [[f77_trsm:ztrsm]]. !> See also: [[mfi_trsm]], [[f77_trsm]]. pure subroutine mfi_ztrsm ( a , b , side , uplo , transa , diag , alpha ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( inout ) :: b (:,:) character , intent ( in ), optional :: side character :: local_side character , intent ( in ), optional :: uplo character :: local_uplo character , intent ( in ), optional :: transa character :: local_transa character , intent ( in ), optional :: diag character :: local_diag complex ( REAL64 ), intent ( in ), optional :: alpha complex ( REAL64 ) :: local_alpha integer :: m , n , lda , ldb if ( present ( side )) then local_side = side else local_side = 'L' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if if ( present ( transa )) then local_transa = transa else local_transa = 'N' end if if ( present ( diag )) then local_diag = diag else local_diag = 'N' end if if ( present ( alpha )) then local_alpha = alpha else local_alpha = 1.0_wp end if m = size ( b , 1 ) n = size ( b , 2 ) lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) call ztrsm ( local_side , local_uplo , local_transa , local_diag , m , n , local_alpha , a , lda , b , ldb ) end subroutine !> Modern interface for [[f77_lamch:slamch]]. !> See also: [[mfi_lamch]], [[f77_lamch]]. pure function mfi_slamch ( cmach , kind ) result ( res ) integer , parameter :: wp = REAL32 character , intent ( in ) :: cmach real ( REAL32 ), intent ( in ) :: kind !! Just a kind placeholder real ( REAL32 ) :: res res = slamch ( cmach ) end function !> Modern interface for [[f77_lamch:dlamch]]. !> See also: [[mfi_lamch]], [[f77_lamch]]. pure function mfi_dlamch ( cmach , kind ) result ( res ) integer , parameter :: wp = REAL64 character , intent ( in ) :: cmach real ( REAL64 ), intent ( in ) :: kind !! Just a kind placeholder real ( REAL64 ) :: res res = dlamch ( cmach ) end function ! Extensions ! BLAS level 1 - Utils / Extensions !> Modern interface for [[f77_iamax:isamax]]. !> See also: [[mfi_iamax]], [[f77_iamax]]. pure function mfi_isamax ( x , incx ) integer , parameter :: wp = REAL32 integer :: mfi_isamax real ( REAL32 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_isamax = isamax ( n , x , local_incx ) end function !> Modern interface for [[f77_iamax:idamax]]. !> See also: [[mfi_iamax]], [[f77_iamax]]. pure function mfi_idamax ( x , incx ) integer , parameter :: wp = REAL64 integer :: mfi_idamax real ( REAL64 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_idamax = idamax ( n , x , local_incx ) end function !> Modern interface for [[f77_iamax:icamax]]. !> See also: [[mfi_iamax]], [[f77_iamax]]. pure function mfi_icamax ( x , incx ) integer , parameter :: wp = REAL32 integer :: mfi_icamax complex ( REAL32 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_icamax = icamax ( n , x , local_incx ) end function !> Modern interface for [[f77_iamax:izamax]]. !> See also: [[mfi_iamax]], [[f77_iamax]]. pure function mfi_izamax ( x , incx ) integer , parameter :: wp = REAL64 integer :: mfi_izamax complex ( REAL64 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_izamax = izamax ( n , x , local_incx ) end function !> Modern interface for [[f77_iamin:isamin]]. !> See also: [[mfi_iamin]], [[f77_iamin]]. pure function mfi_isamin ( x , incx ) integer , parameter :: wp = REAL32 integer :: mfi_isamin real ( REAL32 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_isamin = isamin ( n , x , local_incx ) end function !> Modern interface for [[f77_iamin:idamin]]. !> See also: [[mfi_iamin]], [[f77_iamin]]. pure function mfi_idamin ( x , incx ) integer , parameter :: wp = REAL64 integer :: mfi_idamin real ( REAL64 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_idamin = idamin ( n , x , local_incx ) end function !> Modern interface for [[f77_iamin:icamin]]. !> See also: [[mfi_iamin]], [[f77_iamin]]. pure function mfi_icamin ( x , incx ) integer , parameter :: wp = REAL32 integer :: mfi_icamin complex ( REAL32 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_icamin = icamin ( n , x , local_incx ) end function !> Modern interface for [[f77_iamin:izamin]]. !> See also: [[mfi_iamin]], [[f77_iamin]]. pure function mfi_izamin ( x , incx ) integer , parameter :: wp = REAL64 integer :: mfi_izamin complex ( REAL64 ), intent ( in ) :: x (:) integer , intent ( in ), optional :: incx integer :: local_incx integer :: n if ( present ( incx )) then local_incx = incx else local_incx = 1 end if n = size ( x ) mfi_izamin = izamin ( n , x , local_incx ) end function end module","tags":"","loc":"sourcefile/blas.f90.html"},{"title":"blas.f90 – MFI - Modern Fortran Interfaces","text":"Source Code !> Improved and original F77 interfaces for BLAS module f77_blas use iso_fortran_env implicit none !> Generic old style interface for COPY. !> Supports s, d, c, z. !> See also: [[mfi_copy]], [[scopy]],[[dcopy]],[[ccopy]],[[zcopy]]. interface f77_copy !> Original interface for SCOPY !> See also: [[mfi_copy]], [[f77_copy]]. pure subroutine scopy ( n , x , incx , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( inout ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for DCOPY !> See also: [[mfi_copy]], [[f77_copy]]. pure subroutine dcopy ( n , x , incx , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( inout ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for CCOPY !> See also: [[mfi_copy]], [[f77_copy]]. pure subroutine ccopy ( n , x , incx , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( inout ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for ZCOPY !> See also: [[mfi_copy]], [[f77_copy]]. pure subroutine zcopy ( n , x , incx , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( inout ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for SWAP. !> Supports s, d, c, z. !> See also: [[mfi_swap]], [[sswap]],[[dswap]],[[cswap]],[[zswap]]. interface f77_swap !> Original interface for SSWAP !> See also: [[mfi_swap]], [[f77_swap]]. pure subroutine sswap ( n , x , incx , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( inout ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for DSWAP !> See also: [[mfi_swap]], [[f77_swap]]. pure subroutine dswap ( n , x , incx , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( inout ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for CSWAP !> See also: [[mfi_swap]], [[f77_swap]]. pure subroutine cswap ( n , x , incx , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( inout ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for ZSWAP !> See also: [[mfi_swap]], [[f77_swap]]. pure subroutine zswap ( n , x , incx , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( inout ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for AXPY. !> Supports s, d, c, z. !> See also: [[mfi_axpy]], [[saxpy]],[[daxpy]],[[caxpy]],[[zaxpy]]. interface f77_axpy !> Original interface for SAXPY !> See also: [[mfi_axpy]], [[f77_axpy]]. pure subroutine saxpy ( n , a , x , incx , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( in ) :: a real ( REAL32 ), intent ( inout ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for DAXPY !> See also: [[mfi_axpy]], [[f77_axpy]]. pure subroutine daxpy ( n , a , x , incx , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( in ) :: a real ( REAL64 ), intent ( inout ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for CAXPY !> See also: [[mfi_axpy]], [[f77_axpy]]. pure subroutine caxpy ( n , a , x , incx , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( in ) :: a complex ( REAL32 ), intent ( inout ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for ZAXPY !> See also: [[mfi_axpy]], [[f77_axpy]]. pure subroutine zaxpy ( n , a , x , incx , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( in ) :: a complex ( REAL64 ), intent ( inout ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for DOT. !> Supports s, d. !> See also: [[mfi_dot]], [[sdot]],[[ddot]]. interface f77_dot !> Original interface for SDOT !> See also: [[mfi_dot]], [[f77_dot]]. pure function sdot ( n , x , incx , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ) :: sdot real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( in ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end function !> Original interface for DDOT !> See also: [[mfi_dot]], [[f77_dot]]. pure function ddot ( n , x , incx , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ) :: ddot real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( in ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end function end interface !> Generic old style interface for DOTC. !> Supports c, z. !> See also: [[mfi_dotc]], [[cdotc]],[[zdotc]]. interface f77_dotc !> Original interface for CDOTC !> See also: [[mfi_dotc]], [[f77_dotc]]. pure function cdotc ( n , x , incx , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ) :: cdotc complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( in ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end function !> Original interface for ZDOTC !> See also: [[mfi_dotc]], [[f77_dotc]]. pure function zdotc ( n , x , incx , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ) :: zdotc complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( in ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end function end interface !> Generic old style interface for DOTU. !> Supports c, z. !> See also: [[mfi_dotu]], [[cdotu]],[[zdotu]]. interface f77_dotu !> Original interface for CDOTU !> See also: [[mfi_dotu]], [[f77_dotu]]. pure function cdotu ( n , x , incx , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ) :: cdotu complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( in ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end function !> Original interface for ZDOTU !> See also: [[mfi_dotu]], [[f77_dotu]]. pure function zdotu ( n , x , incx , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ) :: zdotu complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( in ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end function end interface !> Generic old style interface for ASUM. !> Supports s, d, sc, dz. !> See also: [[mfi_asum]], [[sasum]],[[dasum]],[[scasum]],[[dzasum]]. interface f77_asum !> Original interface for SASUM !> See also: [[mfi_asum]], [[f77_asum]]. pure function sasum ( n , x , incx ) import :: REAL32 real ( REAL32 ) :: sasum real ( REAL32 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx end function !> Original interface for DASUM !> See also: [[mfi_asum]], [[f77_asum]]. pure function dasum ( n , x , incx ) import :: REAL64 real ( REAL64 ) :: dasum real ( REAL64 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx end function !> Original interface for SCASUM !> See also: [[mfi_asum]], [[f77_asum]]. pure function scasum ( n , x , incx ) import :: REAL32 real ( REAL32 ) :: scasum complex ( REAL32 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx end function !> Original interface for DZASUM !> See also: [[mfi_asum]], [[f77_asum]]. pure function dzasum ( n , x , incx ) import :: REAL64 real ( REAL64 ) :: dzasum complex ( REAL64 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx end function end interface !> Generic old style interface for NRM2. !> Supports s, d, sc, dz. !> See also: [[mfi_nrm2]], [[snrm2]],[[dnrm2]],[[scnrm2]],[[dznrm2]]. interface f77_nrm2 !> Original interface for SNRM2 !> See also: [[mfi_nrm2]], [[f77_nrm2]]. pure function snrm2 ( n , x , incx ) import :: REAL32 real ( REAL32 ) :: snrm2 real ( REAL32 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx end function !> Original interface for DNRM2 !> See also: [[mfi_nrm2]], [[f77_nrm2]]. pure function dnrm2 ( n , x , incx ) import :: REAL64 real ( REAL64 ) :: dnrm2 real ( REAL64 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx end function !> Original interface for SCNRM2 !> See also: [[mfi_nrm2]], [[f77_nrm2]]. pure function scnrm2 ( n , x , incx ) import :: REAL32 real ( REAL32 ) :: scnrm2 complex ( REAL32 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx end function !> Original interface for DZNRM2 !> See also: [[mfi_nrm2]], [[f77_nrm2]]. pure function dznrm2 ( n , x , incx ) import :: REAL64 real ( REAL64 ) :: dznrm2 complex ( REAL64 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx end function end interface !> Generic old style interface for ROT. !> Supports s, d, c, z, cs, zd. !> See also: [[mfi_rot]], [[srot]],[[drot]],[[crot]],[[zrot]],[[csrot]],[[zdrot]]. interface f77_rot !> Original interface for SROT !> See also: [[mfi_rot]], [[f77_rot]]. !> SROT applies a plane rotation. pure subroutine srot ( n , x , incx , y , incy , c , s ) import :: REAL32 real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( in ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy real ( REAL32 ), intent ( in ) :: c real ( REAL32 ), intent ( in ) :: s end subroutine !> Original interface for DROT !> See also: [[mfi_rot]], [[f77_rot]]. !> DROT applies a plane rotation. pure subroutine drot ( n , x , incx , y , incy , c , s ) import :: REAL64 real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( in ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy real ( REAL64 ), intent ( in ) :: c real ( REAL64 ), intent ( in ) :: s end subroutine !> Original interface for CROT !> See also: [[mfi_rot]], [[f77_rot]]. !> CROT applies a plane rotation. pure subroutine crot ( n , x , incx , y , incy , c , s ) import :: REAL32 complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( in ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy real ( REAL32 ), intent ( in ) :: c complex ( REAL32 ), intent ( in ) :: s end subroutine !> Original interface for ZROT !> See also: [[mfi_rot]], [[f77_rot]]. !> ZROT applies a plane rotation. pure subroutine zrot ( n , x , incx , y , incy , c , s ) import :: REAL64 complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( in ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy real ( REAL64 ), intent ( in ) :: c complex ( REAL64 ), intent ( in ) :: s end subroutine !> Original interface for CSROT !> See also: [[mfi_rot]], [[f77_rot]]. !> CSROT applies a plane rotation. pure subroutine csrot ( n , x , incx , y , incy , c , s ) import :: REAL32 complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( in ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy real ( REAL32 ), intent ( in ) :: c real ( REAL32 ), intent ( in ) :: s end subroutine !> Original interface for ZDROT !> See also: [[mfi_rot]], [[f77_rot]]. !> ZDROT applies a plane rotation. pure subroutine zdrot ( n , x , incx , y , incy , c , s ) import :: REAL64 complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( in ) :: y ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy real ( REAL64 ), intent ( in ) :: c real ( REAL64 ), intent ( in ) :: s end subroutine end interface !> Generic old style interface for ROTG. !> Supports s, d, c, z. !> See also: [[mfi_rotg]], [[srotg]],[[drotg]],[[crotg]],[[zrotg]]. interface f77_rotg !> Original interface for SROTG !> See also: [[mfi_rotg]], [[f77_rotg]]. !>srotg generates a Givens rotation with real cosine and complex sine: !>``` !> [  c  s ] [ a ] = [ r ] !> [ -s  c ] [ b ]   [ 0 ] !>``` !> satisfying `c**2 + s**2 = 1`. pure subroutine srotg ( a , b , c , s ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a real ( REAL32 ), intent ( inout ) :: b real ( REAL32 ), intent ( out ) :: c real ( REAL32 ), intent ( out ) :: s end subroutine !> Original interface for DROTG !> See also: [[mfi_rotg]], [[f77_rotg]]. !>drotg generates a Givens rotation with real cosine and complex sine: !>``` !> [  c  s ] [ a ] = [ r ] !> [ -s  c ] [ b ]   [ 0 ] !>``` !> satisfying `c**2 + s**2 = 1`. pure subroutine drotg ( a , b , c , s ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a real ( REAL64 ), intent ( inout ) :: b real ( REAL64 ), intent ( out ) :: c real ( REAL64 ), intent ( out ) :: s end subroutine !> Original interface for CROTG !> See also: [[mfi_rotg]], [[f77_rotg]]. !>crotg generates a Givens rotation with real cosine and complex sine: !>``` !>  [  c         s ] [ a ] = [ r ] !>  [ -conjg(s)  c ] [ b ]   [ 0 ] !>``` !> where c is real, s is complex, and `c**2 + conjg(s)*s = 1`. pure subroutine crotg ( a , b , c , s ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a complex ( REAL32 ), intent ( inout ) :: b real ( REAL32 ), intent ( out ) :: c complex ( REAL32 ), intent ( out ) :: s end subroutine !> Original interface for ZROTG !> See also: [[mfi_rotg]], [[f77_rotg]]. !>zrotg generates a Givens rotation with real cosine and complex sine: !>``` !>  [  c         s ] [ a ] = [ r ] !>  [ -conjg(s)  c ] [ b ]   [ 0 ] !>``` !> where c is real, s is complex, and `c**2 + conjg(s)*s = 1`. pure subroutine zrotg ( a , b , c , s ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a complex ( REAL64 ), intent ( inout ) :: b real ( REAL64 ), intent ( out ) :: c complex ( REAL64 ), intent ( out ) :: s end subroutine end interface !> Generic old style interface for ROTM. !> Supports s, d. !> See also: [[mfi_rotm]], [[srotm]],[[drotm]]. interface f77_rotm !> Original interface for SROTM !> See also: [[mfi_rotm]], [[f77_rotm]]. pure subroutine srotm ( n , x , incx , y , incy , param ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: x ( * ) real ( REAL32 ), intent ( inout ) :: y ( * ) real ( REAL32 ), intent ( in ) :: param ( 5 ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for DROTM !> See also: [[mfi_rotm]], [[f77_rotm]]. pure subroutine drotm ( n , x , incx , y , incy , param ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: x ( * ) real ( REAL64 ), intent ( inout ) :: y ( * ) real ( REAL64 ), intent ( in ) :: param ( 5 ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for ROTMG. !> Supports s, d. !> See also: [[mfi_rotmg]], [[srotmg]],[[drotmg]]. interface f77_rotmg !> Original interface for SROTMG !> See also: [[mfi_rotmg]], [[f77_rotmg]]. pure subroutine srotmg ( d1 , d2 , x1 , y1 , param ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: y1 real ( REAL32 ), intent ( out ) :: param ( 5 ) real ( REAL32 ), intent ( inout ) :: d1 real ( REAL32 ), intent ( inout ) :: d2 real ( REAL32 ), intent ( inout ) :: x1 end subroutine !> Original interface for DROTMG !> See also: [[mfi_rotmg]], [[f77_rotmg]]. pure subroutine drotmg ( d1 , d2 , x1 , y1 , param ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: y1 real ( REAL64 ), intent ( out ) :: param ( 5 ) real ( REAL64 ), intent ( inout ) :: d1 real ( REAL64 ), intent ( inout ) :: d2 real ( REAL64 ), intent ( inout ) :: x1 end subroutine end interface !> Generic old style interface for SCAL. !> Supports s, d, c, z, cs, zd. !> See also: [[mfi_scal]], [[sscal]],[[dscal]],[[cscal]],[[zscal]],[[csscal]],[[zdscal]]. interface f77_scal !> Original interface for SSCAL !> See also: [[mfi_scal]], [[f77_scal]]. !> SSCAL scales a vector by a constant. pure subroutine sscal ( n , a , x , incx ) import :: REAL32 real ( REAL32 ), intent ( inout ) :: x ( * ) real ( REAL32 ), intent ( in ) :: a integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine !> Original interface for DSCAL !> See also: [[mfi_scal]], [[f77_scal]]. !> DSCAL scales a vector by a constant. pure subroutine dscal ( n , a , x , incx ) import :: REAL64 real ( REAL64 ), intent ( inout ) :: x ( * ) real ( REAL64 ), intent ( in ) :: a integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine !> Original interface for CSCAL !> See also: [[mfi_scal]], [[f77_scal]]. !> CSCAL scales a vector by a constant. pure subroutine cscal ( n , a , x , incx ) import :: REAL32 complex ( REAL32 ), intent ( inout ) :: x ( * ) complex ( REAL32 ), intent ( in ) :: a integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine !> Original interface for ZSCAL !> See also: [[mfi_scal]], [[f77_scal]]. !> ZSCAL scales a vector by a constant. pure subroutine zscal ( n , a , x , incx ) import :: REAL64 complex ( REAL64 ), intent ( inout ) :: x ( * ) complex ( REAL64 ), intent ( in ) :: a integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine !> Original interface for CSSCAL !> See also: [[mfi_scal]], [[f77_scal]]. !> CSSCAL scales a vector by a constant. pure subroutine csscal ( n , a , x , incx ) import :: REAL32 complex ( REAL32 ), intent ( inout ) :: x ( * ) real ( REAL32 ), intent ( in ) :: a integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine !> Original interface for ZDSCAL !> See also: [[mfi_scal]], [[f77_scal]]. !> ZDSCAL scales a vector by a constant. pure subroutine zdscal ( n , a , x , incx ) import :: REAL64 complex ( REAL64 ), intent ( inout ) :: x ( * ) real ( REAL64 ), intent ( in ) :: a integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine end interface !> Generic old style interface for GBMV. !> Supports s, d, c, z. !> See also: [[mfi_gbmv]], [[sgbmv]],[[dgbmv]],[[cgbmv]],[[zgbmv]]. interface f77_gbmv !> Original interface for SGBMV !> See also: [[mfi_gbmv]], [[f77_gbmv]]. pure subroutine sgbmv ( trans , m , n , kl , ku , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: trans real ( REAL32 ), intent ( in ) :: alpha real ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: kl integer , intent ( in ) :: ku integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for DGBMV !> See also: [[mfi_gbmv]], [[f77_gbmv]]. pure subroutine dgbmv ( trans , m , n , kl , ku , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: trans real ( REAL64 ), intent ( in ) :: alpha real ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: kl integer , intent ( in ) :: ku integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for CGBMV !> See also: [[mfi_gbmv]], [[f77_gbmv]]. pure subroutine cgbmv ( trans , m , n , kl , ku , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: trans complex ( REAL32 ), intent ( in ) :: alpha complex ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: kl integer , intent ( in ) :: ku integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for ZGBMV !> See also: [[mfi_gbmv]], [[f77_gbmv]]. pure subroutine zgbmv ( trans , m , n , kl , ku , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: trans complex ( REAL64 ), intent ( in ) :: alpha complex ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: kl integer , intent ( in ) :: ku integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for GEMV. !> Supports s, d, c, z. !> See also: [[mfi_gemv]], [[sgemv]],[[dgemv]],[[cgemv]],[[zgemv]]. interface f77_gemv !> Original interface for SGEMV !> See also: [[mfi_gemv]], [[f77_gemv]]. pure subroutine sgemv ( trans , m , n , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: trans real ( REAL32 ), intent ( in ) :: alpha real ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for DGEMV !> See also: [[mfi_gemv]], [[f77_gemv]]. pure subroutine dgemv ( trans , m , n , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: trans real ( REAL64 ), intent ( in ) :: alpha real ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for CGEMV !> See also: [[mfi_gemv]], [[f77_gemv]]. pure subroutine cgemv ( trans , m , n , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: trans complex ( REAL32 ), intent ( in ) :: alpha complex ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for ZGEMV !> See also: [[mfi_gemv]], [[f77_gemv]]. pure subroutine zgemv ( trans , m , n , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: trans complex ( REAL64 ), intent ( in ) :: alpha complex ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for GER. !> Supports s, d. !> See also: [[mfi_ger]], [[sger]],[[dger]]. interface f77_ger !> Original interface for SGER !> See also: [[mfi_ger]], [[f77_ger]]. pure subroutine sger ( m , n , alpha , x , incx , y , incy , a , lda ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( in ) :: y ( * ) real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( in ) :: alpha integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for DGER !> See also: [[mfi_ger]], [[f77_ger]]. pure subroutine dger ( m , n , alpha , x , incx , y , incy , a , lda ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( in ) :: y ( * ) real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( in ) :: alpha integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for GERC. !> Supports c, z. !> See also: [[mfi_gerc]], [[cgerc]],[[zgerc]]. interface f77_gerc !> Original interface for CGERC !> See also: [[mfi_gerc]], [[f77_gerc]]. pure subroutine cgerc ( m , n , alpha , x , incx , y , incy , a , lda ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( in ) :: y ( * ) complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( in ) :: alpha integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for ZGERC !> See also: [[mfi_gerc]], [[f77_gerc]]. pure subroutine zgerc ( m , n , alpha , x , incx , y , incy , a , lda ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( in ) :: y ( * ) complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( in ) :: alpha integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for GERU. !> Supports c, z. !> See also: [[mfi_geru]], [[cgeru]],[[zgeru]]. interface f77_geru !> Original interface for CGERU !> See also: [[mfi_geru]], [[f77_geru]]. pure subroutine cgeru ( m , n , alpha , x , incx , y , incy , a , lda ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( in ) :: y ( * ) complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( in ) :: alpha integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for ZGERU !> See also: [[mfi_geru]], [[f77_geru]]. pure subroutine zgeru ( m , n , alpha , x , incx , y , incy , a , lda ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( in ) :: y ( * ) complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( in ) :: alpha integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for HBMV. !> Supports c, z. !> See also: [[mfi_hbmv]], [[chbmv]],[[zhbmv]]. interface f77_hbmv !> Original interface for CHBMV !> See also: [[mfi_hbmv]], [[f77_hbmv]]. pure subroutine chbmv ( uplo , n , k , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: uplo complex ( REAL32 ), intent ( in ) :: alpha complex ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for ZHBMV !> See also: [[mfi_hbmv]], [[f77_hbmv]]. pure subroutine zhbmv ( uplo , n , k , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: uplo complex ( REAL64 ), intent ( in ) :: alpha complex ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for HEMV. !> Supports c, z. !> See also: [[mfi_hemv]], [[chemv]],[[zhemv]]. interface f77_hemv !> Original interface for CHEMV !> See also: [[mfi_hemv]], [[f77_hemv]]. pure subroutine chemv ( uplo , n , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: uplo complex ( REAL32 ), intent ( in ) :: alpha complex ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for ZHEMV !> See also: [[mfi_hemv]], [[f77_hemv]]. pure subroutine zhemv ( uplo , n , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: uplo complex ( REAL64 ), intent ( in ) :: alpha complex ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for HER. !> Supports c, z. !> See also: [[mfi_her]], [[cher]],[[zher]]. interface f77_her !> Original interface for CHER !> See also: [[mfi_her]], [[f77_her]]. pure subroutine cher ( uplo , n , alpha , x , incx , a , lda ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) character , intent ( in ) :: uplo real ( wp ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine !> Original interface for ZHER !> See also: [[mfi_her]], [[f77_her]]. pure subroutine zher ( uplo , n , alpha , x , incx , a , lda ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) character , intent ( in ) :: uplo real ( wp ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine end interface !> Generic old style interface for HER2. !> Supports c, z. !> See also: [[mfi_her2]], [[cher2]],[[zher2]]. interface f77_her2 !> Original interface for CHER2 !> See also: [[mfi_her2]], [[f77_her2]]. pure subroutine cher2 ( uplo , n , alpha , x , incx , y , incy , a , lda ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( in ) :: y ( * ) complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) character , intent ( in ) :: uplo complex ( REAL32 ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for ZHER2 !> See also: [[mfi_her2]], [[f77_her2]]. pure subroutine zher2 ( uplo , n , alpha , x , incx , y , incy , a , lda ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( in ) :: y ( * ) complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) character , intent ( in ) :: uplo complex ( REAL64 ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for HPMV. !> Supports c, z. !> See also: [[mfi_hpmv]], [[chpmv]],[[zhpmv]]. interface f77_hpmv !> Original interface for CHPMV !> See also: [[mfi_hpmv]], [[f77_hpmv]]. pure subroutine chpmv ( uplo , n , alpha , ap , x , incx , beta , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: ap ( * ) complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: uplo complex ( REAL32 ), intent ( in ) :: alpha complex ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for ZHPMV !> See also: [[mfi_hpmv]], [[f77_hpmv]]. pure subroutine zhpmv ( uplo , n , alpha , ap , x , incx , beta , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: ap ( * ) complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: uplo complex ( REAL64 ), intent ( in ) :: alpha complex ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for HPR. !> Supports c, z. !> See also: [[mfi_hpr]], [[chpr]],[[zhpr]]. interface f77_hpr !> Original interface for CHPR !> See also: [[mfi_hpr]], [[f77_hpr]]. pure subroutine chpr ( uplo , n , alpha , x , incx , ap ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( inout ) :: ap ( * ) character , intent ( in ) :: uplo real ( wp ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine !> Original interface for ZHPR !> See also: [[mfi_hpr]], [[f77_hpr]]. pure subroutine zhpr ( uplo , n , alpha , x , incx , ap ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( inout ) :: ap ( * ) character , intent ( in ) :: uplo real ( wp ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine end interface !> Generic old style interface for HPR2. !> Supports c, z. !> See also: [[mfi_hpr2]], [[chpr2]],[[zhpr2]]. interface f77_hpr2 !> Original interface for CHPR2 !> See also: [[mfi_hpr2]], [[f77_hpr2]]. pure subroutine chpr2 ( uplo , n , alpha , x , incx , y , incy , ap ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: x ( * ) complex ( REAL32 ), intent ( in ) :: y ( * ) complex ( REAL32 ), intent ( inout ) :: ap ( * ) character , intent ( in ) :: uplo complex ( REAL32 ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for ZHPR2 !> See also: [[mfi_hpr2]], [[f77_hpr2]]. pure subroutine zhpr2 ( uplo , n , alpha , x , incx , y , incy , ap ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: x ( * ) complex ( REAL64 ), intent ( in ) :: y ( * ) complex ( REAL64 ), intent ( inout ) :: ap ( * ) character , intent ( in ) :: uplo complex ( REAL64 ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for SBMV. !> Supports s, d. !> See also: [[mfi_sbmv]], [[ssbmv]],[[dsbmv]]. interface f77_sbmv !> Original interface for SSBMV !> See also: [[mfi_sbmv]], [[f77_sbmv]]. pure subroutine ssbmv ( uplo , n , k , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: uplo real ( REAL32 ), intent ( in ) :: alpha real ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for DSBMV !> See also: [[mfi_sbmv]], [[f77_sbmv]]. pure subroutine dsbmv ( uplo , n , k , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: uplo real ( REAL64 ), intent ( in ) :: alpha real ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for SPMV. !> Supports s, d. !> See also: [[mfi_spmv]], [[sspmv]],[[dspmv]]. interface f77_spmv !> Original interface for SSPMV !> See also: [[mfi_spmv]], [[f77_spmv]]. pure subroutine sspmv ( uplo , n , alpha , ap , x , incx , beta , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: ap ( * ) real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: uplo real ( REAL32 ), intent ( in ) :: alpha real ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for DSPMV !> See also: [[mfi_spmv]], [[f77_spmv]]. pure subroutine dspmv ( uplo , n , alpha , ap , x , incx , beta , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: ap ( * ) real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: uplo real ( REAL64 ), intent ( in ) :: alpha real ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for SPR. !> Supports s, d. !> See also: [[mfi_spr]], [[sspr]],[[dspr]]. interface f77_spr !> Original interface for SSPR !> See also: [[mfi_spr]], [[f77_spr]]. pure subroutine sspr ( uplo , n , alpha , x , incx , ap ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( inout ) :: ap ( * ) character , intent ( in ) :: uplo real ( REAL32 ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine !> Original interface for DSPR !> See also: [[mfi_spr]], [[f77_spr]]. pure subroutine dspr ( uplo , n , alpha , x , incx , ap ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( inout ) :: ap ( * ) character , intent ( in ) :: uplo real ( REAL64 ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine end interface !> Generic old style interface for SPR2. !> Supports s, d. !> See also: [[mfi_spr2]], [[sspr2]],[[dspr2]]. interface f77_spr2 !> Original interface for SSPR2 !> See also: [[mfi_spr2]], [[f77_spr2]]. pure subroutine sspr2 ( uplo , n , alpha , x , incx , y , incy , ap ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( in ) :: y ( * ) real ( REAL32 ), intent ( inout ) :: ap ( * ) character , intent ( in ) :: uplo real ( REAL32 ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for DSPR2 !> See also: [[mfi_spr2]], [[f77_spr2]]. pure subroutine dspr2 ( uplo , n , alpha , x , incx , y , incy , ap ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( in ) :: y ( * ) real ( REAL64 ), intent ( inout ) :: ap ( * ) character , intent ( in ) :: uplo real ( REAL64 ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for SYMV. !> Supports s, d. !> See also: [[mfi_symv]], [[ssymv]],[[dsymv]]. interface f77_symv !> Original interface for SSYMV !> See also: [[mfi_symv]], [[f77_symv]]. pure subroutine ssymv ( uplo , n , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: uplo real ( REAL32 ), intent ( in ) :: alpha real ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for DSYMV !> See also: [[mfi_symv]], [[f77_symv]]. pure subroutine dsymv ( uplo , n , alpha , a , lda , x , incx , beta , y , incy ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( inout ) :: y ( * ) character , intent ( in ) :: uplo real ( REAL64 ), intent ( in ) :: alpha real ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for SYR. !> Supports s, d. !> See also: [[mfi_syr]], [[ssyr]],[[dsyr]]. interface f77_syr !> Original interface for SSYR !> See also: [[mfi_syr]], [[f77_syr]]. pure subroutine ssyr ( uplo , n , alpha , x , incx , a , lda ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( inout ) :: a ( lda , * ) character , intent ( in ) :: uplo real ( REAL32 ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine !> Original interface for DSYR !> See also: [[mfi_syr]], [[f77_syr]]. pure subroutine dsyr ( uplo , n , alpha , x , incx , a , lda ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( inout ) :: a ( lda , * ) character , intent ( in ) :: uplo real ( REAL64 ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine end interface !> Generic old style interface for SYR2. !> Supports s, d. !> See also: [[mfi_syr2]], [[ssyr2]],[[dsyr2]]. interface f77_syr2 !> Original interface for SSYR2 !> See also: [[mfi_syr2]], [[f77_syr2]]. pure subroutine ssyr2 ( uplo , n , alpha , x , incx , y , incy , a , lda ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: x ( * ) real ( REAL32 ), intent ( in ) :: y ( * ) real ( REAL32 ), intent ( inout ) :: a ( lda , * ) character , intent ( in ) :: uplo real ( REAL32 ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine !> Original interface for DSYR2 !> See also: [[mfi_syr2]], [[f77_syr2]]. pure subroutine dsyr2 ( uplo , n , alpha , x , incx , y , incy , a , lda ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: x ( * ) real ( REAL64 ), intent ( in ) :: y ( * ) real ( REAL64 ), intent ( inout ) :: a ( lda , * ) character , intent ( in ) :: uplo real ( REAL64 ), intent ( in ) :: alpha integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx integer , intent ( in ) :: incy end subroutine end interface !> Generic old style interface for TBMV. !> Supports s, d, c, z. !> See also: [[mfi_tbmv]], [[stbmv]],[[dtbmv]],[[ctbmv]],[[ztbmv]]. interface f77_tbmv !> Original interface for STBMV !> See also: [[mfi_tbmv]], [[f77_tbmv]]. pure subroutine stbmv ( uplo , trans , diag , n , k , a , lda , x , incx ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine !> Original interface for DTBMV !> See also: [[mfi_tbmv]], [[f77_tbmv]]. pure subroutine dtbmv ( uplo , trans , diag , n , k , a , lda , x , incx ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine !> Original interface for CTBMV !> See also: [[mfi_tbmv]], [[f77_tbmv]]. pure subroutine ctbmv ( uplo , trans , diag , n , k , a , lda , x , incx ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine !> Original interface for ZTBMV !> See also: [[mfi_tbmv]], [[f77_tbmv]]. pure subroutine ztbmv ( uplo , trans , diag , n , k , a , lda , x , incx ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine end interface !> Generic old style interface for TBSV. !> Supports s, d, c, z. !> See also: [[mfi_tbsv]], [[stbsv]],[[dtbsv]],[[ctbsv]],[[ztbsv]]. interface f77_tbsv !> Original interface for STBSV !> See also: [[mfi_tbsv]], [[f77_tbsv]]. pure subroutine stbsv ( uplo , trans , diag , n , k , a , lda , x , incx ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine !> Original interface for DTBSV !> See also: [[mfi_tbsv]], [[f77_tbsv]]. pure subroutine dtbsv ( uplo , trans , diag , n , k , a , lda , x , incx ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine !> Original interface for CTBSV !> See also: [[mfi_tbsv]], [[f77_tbsv]]. pure subroutine ctbsv ( uplo , trans , diag , n , k , a , lda , x , incx ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine !> Original interface for ZTBSV !> See also: [[mfi_tbsv]], [[f77_tbsv]]. pure subroutine ztbsv ( uplo , trans , diag , n , k , a , lda , x , incx ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine end interface !> Generic old style interface for TPMV. !> Supports s, d, c, z. !> See also: [[mfi_tpmv]], [[stpmv]],[[dtpmv]],[[ctpmv]],[[ztpmv]]. interface f77_tpmv !> Original interface for STPMV !> See also: [[mfi_tpmv]], [[f77_tpmv]]. pure subroutine stpmv ( uplo , trans , diag , n , ap , x , incx ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: ap ( * ) real ( REAL32 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine !> Original interface for DTPMV !> See also: [[mfi_tpmv]], [[f77_tpmv]]. pure subroutine dtpmv ( uplo , trans , diag , n , ap , x , incx ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: ap ( * ) real ( REAL64 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine !> Original interface for CTPMV !> See also: [[mfi_tpmv]], [[f77_tpmv]]. pure subroutine ctpmv ( uplo , trans , diag , n , ap , x , incx ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: ap ( * ) complex ( REAL32 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine !> Original interface for ZTPMV !> See also: [[mfi_tpmv]], [[f77_tpmv]]. pure subroutine ztpmv ( uplo , trans , diag , n , ap , x , incx ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: ap ( * ) complex ( REAL64 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine end interface !> Generic old style interface for TPSV. !> Supports s, d, c, z. !> See also: [[mfi_tpsv]], [[stpsv]],[[dtpsv]],[[ctpsv]],[[ztpsv]]. interface f77_tpsv !> Original interface for STPSV !> See also: [[mfi_tpsv]], [[f77_tpsv]]. pure subroutine stpsv ( uplo , trans , diag , n , ap , x , incx ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: ap ( * ) real ( REAL32 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine !> Original interface for DTPSV !> See also: [[mfi_tpsv]], [[f77_tpsv]]. pure subroutine dtpsv ( uplo , trans , diag , n , ap , x , incx ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: ap ( * ) real ( REAL64 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine !> Original interface for CTPSV !> See also: [[mfi_tpsv]], [[f77_tpsv]]. pure subroutine ctpsv ( uplo , trans , diag , n , ap , x , incx ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: ap ( * ) complex ( REAL32 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine !> Original interface for ZTPSV !> See also: [[mfi_tpsv]], [[f77_tpsv]]. pure subroutine ztpsv ( uplo , trans , diag , n , ap , x , incx ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: ap ( * ) complex ( REAL64 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: incx end subroutine end interface !> Generic old style interface for TRMV. !> Supports s, d, c, z. !> See also: [[mfi_trmv]], [[strmv]],[[dtrmv]],[[ctrmv]],[[ztrmv]]. interface f77_trmv !> Original interface for STRMV !> See also: [[mfi_trmv]], [[f77_trmv]]. pure subroutine strmv ( uplo , trans , diag , n , a , lda , x , incx ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine !> Original interface for DTRMV !> See also: [[mfi_trmv]], [[f77_trmv]]. pure subroutine dtrmv ( uplo , trans , diag , n , a , lda , x , incx ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine !> Original interface for CTRMV !> See also: [[mfi_trmv]], [[f77_trmv]]. pure subroutine ctrmv ( uplo , trans , diag , n , a , lda , x , incx ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine !> Original interface for ZTRMV !> See also: [[mfi_trmv]], [[f77_trmv]]. pure subroutine ztrmv ( uplo , trans , diag , n , a , lda , x , incx ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine end interface !> Generic old style interface for TRSV. !> Supports s, d, c, z. !> See also: [[mfi_trsv]], [[strsv]],[[dtrsv]],[[ctrsv]],[[ztrsv]]. interface f77_trsv !> Original interface for STRSV !> See also: [[mfi_trsv]], [[f77_trsv]]. pure subroutine strsv ( uplo , trans , diag , n , a , lda , x , incx ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine !> Original interface for DTRSV !> See also: [[mfi_trsv]], [[f77_trsv]]. pure subroutine dtrsv ( uplo , trans , diag , n , a , lda , x , incx ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine !> Original interface for CTRSV !> See also: [[mfi_trsv]], [[f77_trsv]]. pure subroutine ctrsv ( uplo , trans , diag , n , a , lda , x , incx ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine !> Original interface for ZTRSV !> See also: [[mfi_trsv]], [[f77_trsv]]. pure subroutine ztrsv ( uplo , trans , diag , n , a , lda , x , incx ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: x ( * ) character , intent ( in ) :: uplo character , intent ( in ) :: trans character , intent ( in ) :: diag integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: incx end subroutine end interface !> Generic old style interface for GEMM. !> Supports s, d, c, z. !> See also: [[mfi_gemm]], [[sgemm]],[[dgemm]],[[cgemm]],[[zgemm]]. interface f77_gemm !> Original interface for SGEMM !> See also: [[mfi_gemm]], [[f77_gemm]]. pure subroutine sgemm ( transa , transb , m , n , k , alpha , a , lda , b , ldb , beta , c , ldc ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( in ) :: b ( ldb , * ) real ( REAL32 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: transa character , intent ( in ) :: transb real ( REAL32 ), intent ( in ) :: alpha real ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: ldc end subroutine !> Original interface for DGEMM !> See also: [[mfi_gemm]], [[f77_gemm]]. pure subroutine dgemm ( transa , transb , m , n , k , alpha , a , lda , b , ldb , beta , c , ldc ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( in ) :: b ( ldb , * ) real ( REAL64 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: transa character , intent ( in ) :: transb real ( REAL64 ), intent ( in ) :: alpha real ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: ldc end subroutine !> Original interface for CGEMM !> See also: [[mfi_gemm]], [[f77_gemm]]. pure subroutine cgemm ( transa , transb , m , n , k , alpha , a , lda , b , ldb , beta , c , ldc ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( in ) :: b ( ldb , * ) complex ( REAL32 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: transa character , intent ( in ) :: transb complex ( REAL32 ), intent ( in ) :: alpha complex ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: ldc end subroutine !> Original interface for ZGEMM !> See also: [[mfi_gemm]], [[f77_gemm]]. pure subroutine zgemm ( transa , transb , m , n , k , alpha , a , lda , b , ldb , beta , c , ldc ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( in ) :: b ( ldb , * ) complex ( REAL64 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: transa character , intent ( in ) :: transb complex ( REAL64 ), intent ( in ) :: alpha complex ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: ldc end subroutine end interface !> Generic old style interface for HEMM. !> Supports c, z. !> See also: [[mfi_hemm]], [[chemm]],[[zhemm]]. interface f77_hemm !> Original interface for CHEMM !> See also: [[mfi_hemm]], [[f77_hemm]]. pure subroutine chemm ( side , uplo , m , n , alpha , a , lda , b , ldb , beta , c , ldc ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( in ) :: b ( ldb , * ) complex ( REAL32 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: side character , intent ( in ) :: uplo complex ( REAL32 ), intent ( in ) :: alpha complex ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: ldc end subroutine !> Original interface for ZHEMM !> See also: [[mfi_hemm]], [[f77_hemm]]. pure subroutine zhemm ( side , uplo , m , n , alpha , a , lda , b , ldb , beta , c , ldc ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( in ) :: b ( ldb , * ) complex ( REAL64 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: side character , intent ( in ) :: uplo complex ( REAL64 ), intent ( in ) :: alpha complex ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: ldc end subroutine end interface !> Generic old style interface for HERK. !> Supports c, z. !> See also: [[mfi_herk]], [[cherk]],[[zherk]]. interface f77_herk !> Original interface for CHERK !> See also: [[mfi_herk]], [[f77_herk]]. pure subroutine cherk ( uplo , trans , n , k , alpha , a , lda , beta , c , ldc ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: trans character , intent ( in ) :: uplo real ( wp ), intent ( in ) :: alpha real ( wp ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc end subroutine !> Original interface for ZHERK !> See also: [[mfi_herk]], [[f77_herk]]. pure subroutine zherk ( uplo , trans , n , k , alpha , a , lda , beta , c , ldc ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: trans character , intent ( in ) :: uplo real ( wp ), intent ( in ) :: alpha real ( wp ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc end subroutine end interface !> Generic old style interface for HER2K. !> Supports c, z. !> See also: [[mfi_her2k]], [[cher2k]],[[zher2k]]. interface f77_her2k !> Original interface for CHER2K !> See also: [[mfi_her2k]], [[f77_her2k]]. pure subroutine cher2k ( uplo , trans , n , k , alpha , a , lda , b , ldb , beta , c , ldc ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( in ) :: b ( ldb , * ) complex ( REAL32 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: trans character , intent ( in ) :: uplo complex ( REAL32 ), intent ( in ) :: alpha real ( wp ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: ldc end subroutine !> Original interface for ZHER2K !> See also: [[mfi_her2k]], [[f77_her2k]]. pure subroutine zher2k ( uplo , trans , n , k , alpha , a , lda , b , ldb , beta , c , ldc ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( in ) :: b ( ldb , * ) complex ( REAL64 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: trans character , intent ( in ) :: uplo complex ( REAL64 ), intent ( in ) :: alpha real ( wp ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: ldc end subroutine end interface !> Generic old style interface for SYMM. !> Supports s, d. !> See also: [[mfi_symm]], [[ssymm]],[[dsymm]]. interface f77_symm !> Original interface for SSYMM !> See also: [[mfi_symm]], [[f77_symm]]. pure subroutine ssymm ( side , uplo , m , n , alpha , a , lda , b , ldb , beta , c , ldc ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( in ) :: b ( ldb , * ) real ( REAL32 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: side character , intent ( in ) :: uplo real ( REAL32 ), intent ( in ) :: alpha real ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: ldc end subroutine !> Original interface for DSYMM !> See also: [[mfi_symm]], [[f77_symm]]. pure subroutine dsymm ( side , uplo , m , n , alpha , a , lda , b , ldb , beta , c , ldc ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( in ) :: b ( ldb , * ) real ( REAL64 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: side character , intent ( in ) :: uplo real ( REAL64 ), intent ( in ) :: alpha real ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: ldc end subroutine end interface !> Generic old style interface for SYRK. !> Supports s, d. !> See also: [[mfi_syrk]], [[ssyrk]],[[dsyrk]]. interface f77_syrk !> Original interface for SSYRK !> See also: [[mfi_syrk]], [[f77_syrk]]. pure subroutine ssyrk ( uplo , trans , n , k , alpha , a , lda , beta , c , ldc ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: trans character , intent ( in ) :: uplo real ( REAL32 ), intent ( in ) :: alpha real ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc end subroutine !> Original interface for DSYRK !> See also: [[mfi_syrk]], [[f77_syrk]]. pure subroutine dsyrk ( uplo , trans , n , k , alpha , a , lda , beta , c , ldc ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: trans character , intent ( in ) :: uplo real ( REAL64 ), intent ( in ) :: alpha real ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc end subroutine end interface !> Generic old style interface for SYR2K. !> Supports s, d. !> See also: [[mfi_syr2k]], [[ssyr2k]],[[dsyr2k]]. interface f77_syr2k !> Original interface for SSYR2K !> See also: [[mfi_syr2k]], [[f77_syr2k]]. pure subroutine ssyr2k ( uplo , trans , n , k , alpha , a , lda , b , ldb , beta , c , ldc ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( in ) :: b ( ldb , * ) real ( REAL32 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: trans character , intent ( in ) :: uplo real ( REAL32 ), intent ( in ) :: alpha real ( REAL32 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: ldc end subroutine !> Original interface for DSYR2K !> See also: [[mfi_syr2k]], [[f77_syr2k]]. pure subroutine dsyr2k ( uplo , trans , n , k , alpha , a , lda , b , ldb , beta , c , ldc ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( in ) :: b ( ldb , * ) real ( REAL64 ), intent ( inout ) :: c ( ldc , * ) character , intent ( in ) :: trans character , intent ( in ) :: uplo real ( REAL64 ), intent ( in ) :: alpha real ( REAL64 ), intent ( in ) :: beta integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: ldc end subroutine end interface !> Generic old style interface for TRMM. !> Supports s, d, c, z. !> See also: [[mfi_trmm]], [[strmm]],[[dtrmm]],[[ctrmm]],[[ztrmm]]. interface f77_trmm !> Original interface for STRMM !> See also: [[mfi_trmm]], [[f77_trmm]]. pure subroutine strmm ( side , uplo , transa , diag , m , n , alpha , a , lda , b , ldb ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: b ( ldb , * ) character , intent ( in ) :: side character , intent ( in ) :: uplo character , intent ( in ) :: transa character , intent ( in ) :: diag real ( REAL32 ), intent ( in ) :: alpha integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb end subroutine !> Original interface for DTRMM !> See also: [[mfi_trmm]], [[f77_trmm]]. pure subroutine dtrmm ( side , uplo , transa , diag , m , n , alpha , a , lda , b , ldb ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: b ( ldb , * ) character , intent ( in ) :: side character , intent ( in ) :: uplo character , intent ( in ) :: transa character , intent ( in ) :: diag real ( REAL64 ), intent ( in ) :: alpha integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb end subroutine !> Original interface for CTRMM !> See also: [[mfi_trmm]], [[f77_trmm]]. pure subroutine ctrmm ( side , uplo , transa , diag , m , n , alpha , a , lda , b , ldb ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: b ( ldb , * ) character , intent ( in ) :: side character , intent ( in ) :: uplo character , intent ( in ) :: transa character , intent ( in ) :: diag complex ( REAL32 ), intent ( in ) :: alpha integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb end subroutine !> Original interface for ZTRMM !> See also: [[mfi_trmm]], [[f77_trmm]]. pure subroutine ztrmm ( side , uplo , transa , diag , m , n , alpha , a , lda , b , ldb ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: b ( ldb , * ) character , intent ( in ) :: side character , intent ( in ) :: uplo character , intent ( in ) :: transa character , intent ( in ) :: diag complex ( REAL64 ), intent ( in ) :: alpha integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb end subroutine end interface !> Generic old style interface for TRSM. !> Supports s, d, c, z. !> See also: [[mfi_trsm]], [[strsm]],[[dtrsm]],[[ctrsm]],[[ztrsm]]. interface f77_trsm !> Original interface for STRSM !> See also: [[mfi_trsm]], [[f77_trsm]]. pure subroutine strsm ( side , uplo , transa , diag , m , n , alpha , a , lda , b , ldb ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: b ( ldb , * ) character , intent ( in ) :: side character , intent ( in ) :: uplo character , intent ( in ) :: transa character , intent ( in ) :: diag real ( REAL32 ), intent ( in ) :: alpha integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb end subroutine !> Original interface for DTRSM !> See also: [[mfi_trsm]], [[f77_trsm]]. pure subroutine dtrsm ( side , uplo , transa , diag , m , n , alpha , a , lda , b , ldb ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: b ( ldb , * ) character , intent ( in ) :: side character , intent ( in ) :: uplo character , intent ( in ) :: transa character , intent ( in ) :: diag real ( REAL64 ), intent ( in ) :: alpha integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb end subroutine !> Original interface for CTRSM !> See also: [[mfi_trsm]], [[f77_trsm]]. pure subroutine ctrsm ( side , uplo , transa , diag , m , n , alpha , a , lda , b , ldb ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: b ( ldb , * ) character , intent ( in ) :: side character , intent ( in ) :: uplo character , intent ( in ) :: transa character , intent ( in ) :: diag complex ( REAL32 ), intent ( in ) :: alpha integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb end subroutine !> Original interface for ZTRSM !> See also: [[mfi_trsm]], [[f77_trsm]]. pure subroutine ztrsm ( side , uplo , transa , diag , m , n , alpha , a , lda , b , ldb ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: b ( ldb , * ) character , intent ( in ) :: side character , intent ( in ) :: uplo character , intent ( in ) :: transa character , intent ( in ) :: diag complex ( REAL64 ), intent ( in ) :: alpha integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb end subroutine end interface !> ?lamch supports s, d. See [[mfi_lamch]] for the modern version. interface !> SLAMCH determines single precision machine parameters. pure real ( REAL32 ) function slamch ( cmach ) import :: REAL32 character , intent ( in ) :: cmach end function !> DLAMCH determines double precision machine parameters. pure real ( REAL64 ) function dlamch ( cmach ) import :: REAL64 character , intent ( in ) :: cmach end function end interface interface !> Compute the inner product of two vectors with extended !> precision accumulation. !> !> Returns S.P. result with dot product accumulated in D.P. !> SDSDOT = SB + sum for I = 0 to N-1 of SX(LX+I*INCX)*SY(LY+I*INCY), !> where LX = 1 if INCX .GE. 0, else LX = 1+(1-N)*INCX, and LY is !> defined in a similar way using INCY. pure function sdsdot ( n , sb , sx , incx , sy , incy ) import :: REAL32 integer , parameter :: wp = REAL32 real ( wp ) :: sdsdot real ( wp ), intent ( in ) :: sx ( * ) real ( wp ), intent ( in ) :: sy ( * ) real ( wp ), intent ( in ) :: sb integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end function !> Compute the inner product of two vectors with extended !> precision accumulation and result. !> !> Returns D.P. dot product accumulated in D.P., for S.P. SX and SY !> DSDOT = sum for I = 0 to N-1 of  SX(LX+I*INCX) * SY(LY+I*INCY), !> where LX = 1 if INCX .GE. 0, else LX = 1+(1-N)*INCX, and LY is !> defined in a similar way using INCY. pure function dsdot ( n , sx , incx , sy , incy ) import :: REAL32 , REAL64 integer , parameter :: sp = REAL32 integer , parameter :: dp = REAL64 real ( dp ) :: dsdot real ( sp ), intent ( in ) :: sx ( * ) real ( sp ), intent ( in ) :: sy ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx integer , intent ( in ) :: incy end function end interface ! Extensions ! BLAS Level 1 - Utils / Extensions ! Implement the blas extensions in interface f77_iamax procedure :: isamax procedure :: idamax procedure :: icamax procedure :: izamax end interface interface f77_iamin procedure :: isamin procedure :: idamin procedure :: icamin procedure :: izamin end interface contains pure function isamax ( n , x , incx ) integer , parameter :: wp = REAL32 integer :: isamax real ( REAL32 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx !If either n or incx are not positive, the routine returns 0. if ( n <= 0 . or . incx <= 0 ) then isamax = 0 return end if isamax = minloc ( x ( 1 : n : incx ), dim = 1 ) end function pure function idamax ( n , x , incx ) integer , parameter :: wp = REAL64 integer :: idamax real ( REAL64 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx !If either n or incx are not positive, the routine returns 0. if ( n <= 0 . or . incx <= 0 ) then idamax = 0 return end if idamax = minloc ( x ( 1 : n : incx ), dim = 1 ) end function pure function icamax ( n , x , incx ) integer , parameter :: wp = REAL32 integer :: icamax complex ( REAL32 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx !If either n or incx are not positive, the routine returns 0. if ( n <= 0 . or . incx <= 0 ) then icamax = 0 return end if icamax = minloc ( abs ( real ( x ( 1 : n : incx ))) + abs ( aimag ( x ( 1 : n : incx ))), dim = 1 ) end function pure function izamax ( n , x , incx ) integer , parameter :: wp = REAL64 integer :: izamax complex ( REAL64 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx !If either n or incx are not positive, the routine returns 0. if ( n <= 0 . or . incx <= 0 ) then izamax = 0 return end if izamax = minloc ( abs ( real ( x ( 1 : n : incx ))) + abs ( aimag ( x ( 1 : n : incx ))), dim = 1 ) end function pure function isamin ( n , x , incx ) integer , parameter :: wp = REAL32 integer :: isamin real ( REAL32 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx !If either n or incx are not positive, the routine returns 0. if ( n <= 0 . or . incx <= 0 ) then isamin = 0 return end if isamin = minloc ( x ( 1 : n : incx ), dim = 1 ) end function pure function idamin ( n , x , incx ) integer , parameter :: wp = REAL64 integer :: idamin real ( REAL64 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx !If either n or incx are not positive, the routine returns 0. if ( n <= 0 . or . incx <= 0 ) then idamin = 0 return end if idamin = minloc ( x ( 1 : n : incx ), dim = 1 ) end function pure function icamin ( n , x , incx ) integer , parameter :: wp = REAL32 integer :: icamin complex ( REAL32 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx !If either n or incx are not positive, the routine returns 0. if ( n <= 0 . or . incx <= 0 ) then icamin = 0 return end if icamin = minloc ( abs ( real ( x ( 1 : n : incx ))) + abs ( aimag ( x ( 1 : n : incx ))), dim = 1 ) end function pure function izamin ( n , x , incx ) integer , parameter :: wp = REAL64 integer :: izamin complex ( REAL64 ), intent ( in ) :: x ( * ) integer , intent ( in ) :: n integer , intent ( in ) :: incx !If either n or incx are not positive, the routine returns 0. if ( n <= 0 . or . incx <= 0 ) then izamin = 0 return end if izamin = minloc ( abs ( real ( x ( 1 : n : incx ))) + abs ( aimag ( x ( 1 : n : incx ))), dim = 1 ) end function end module","tags":"","loc":"sourcefile/blas.f90~2.html"},{"title":"lapack.f90 – MFI - Modern Fortran Interfaces","text":"Source Code !> Modern fortran interfaces for LAPACK module mfi_lapack use iso_fortran_env use f77_lapack use f77_lapack , only : mfi_lartg => f77_lartg implicit none !> Generic modern interface for GEQRF. !> Supports s, d, c, z. !> See also: !> [[f77_geqrf:sgeqrf]],[[f77_geqrf:dgeqrf]],[[f77_geqrf:cgeqrf]],[[f77_geqrf:zgeqrf]]. interface mfi_geqrf module procedure :: mfi_sgeqrf module procedure :: mfi_dgeqrf module procedure :: mfi_cgeqrf module procedure :: mfi_zgeqrf end interface !> Generic modern interface for GERQF. !> Supports s, d, c, z. !> See also: !> [[f77_gerqf:sgerqf]],[[f77_gerqf:dgerqf]],[[f77_gerqf:cgerqf]],[[f77_gerqf:zgerqf]]. interface mfi_gerqf module procedure :: mfi_sgerqf module procedure :: mfi_dgerqf module procedure :: mfi_cgerqf module procedure :: mfi_zgerqf end interface !> Generic modern interface for GETRF. !> Supports s, d, c, z. !> See also: !> [[f77_getrf:sgetrf]],[[f77_getrf:dgetrf]],[[f77_getrf:cgetrf]],[[f77_getrf:zgetrf]]. interface mfi_getrf module procedure :: mfi_sgetrf module procedure :: mfi_dgetrf module procedure :: mfi_cgetrf module procedure :: mfi_zgetrf end interface !> Generic modern interface for GETRI. !> Supports s, d, c, z. !> See also: !> [[f77_getri:sgetri]],[[f77_getri:dgetri]],[[f77_getri:cgetri]],[[f77_getri:zgetri]]. interface mfi_getri module procedure :: mfi_sgetri module procedure :: mfi_dgetri module procedure :: mfi_cgetri module procedure :: mfi_zgetri end interface !> Generic modern interface for GETRS. !> Supports s, d, c, z. !> See also: !> [[f77_getrs:sgetrs]],[[f77_getrs:dgetrs]],[[f77_getrs:cgetrs]],[[f77_getrs:zgetrs]]. interface mfi_getrs module procedure :: mfi_sgetrs module procedure :: mfi_dgetrs module procedure :: mfi_cgetrs module procedure :: mfi_zgetrs end interface !> Generic modern interface for HETRF. !> Supports c, z. !> See also: !> [[f77_hetrf:chetrf]],[[f77_hetrf:zhetrf]]. interface mfi_hetrf module procedure :: mfi_chetrf module procedure :: mfi_zhetrf end interface !> Generic modern interface for HEGV. !> Supports c, z. !> See also: !> [[f77_hegv:chegv]],[[f77_hegv:zhegv]]. interface mfi_hegv module procedure :: mfi_chegv module procedure :: mfi_zhegv end interface !> Generic modern interface for HEEVD. !> Supports c, z. !> See also: !> [[f77_heevd:cheevd]],[[f77_heevd:zheevd]]. interface mfi_heevd module procedure :: mfi_cheevd module procedure :: mfi_zheevd end interface !> Generic modern interface for GESVD. !> Supports s, d, c, z. !> See also: !> [[f77_gesvd:sgesvd]],[[f77_gesvd:dgesvd]],[[f77_gesvd:cgesvd]],[[f77_gesvd:zgesvd]]. interface mfi_gesvd module procedure :: mfi_sgesvd module procedure :: mfi_dgesvd module procedure :: mfi_cgesvd module procedure :: mfi_zgesvd end interface !> Generic modern interface for POTRF. !> Supports s, d, c, z. !> See also: !> [[f77_potrf:spotrf]],[[f77_potrf:dpotrf]],[[f77_potrf:cpotrf]],[[f77_potrf:zpotrf]]. interface mfi_potrf module procedure :: mfi_spotrf module procedure :: mfi_dpotrf module procedure :: mfi_cpotrf module procedure :: mfi_zpotrf end interface !> Generic modern interface for POTRI. !> Supports s, d, c, z. !> See also: !> [[f77_potri:spotri]],[[f77_potri:dpotri]],[[f77_potri:cpotri]],[[f77_potri:zpotri]]. interface mfi_potri module procedure :: mfi_spotri module procedure :: mfi_dpotri module procedure :: mfi_cpotri module procedure :: mfi_zpotri end interface !> Generic modern interface for POTRS. !> Supports s, d, c, z. !> See also: !> [[f77_potrs:spotrs]],[[f77_potrs:dpotrs]],[[f77_potrs:cpotrs]],[[f77_potrs:zpotrs]]. interface mfi_potrs module procedure :: mfi_spotrs module procedure :: mfi_dpotrs module procedure :: mfi_cpotrs module procedure :: mfi_zpotrs end interface !> Generic modern interface for POCON. !> Supports s, d, c, z. !> See also: !> [[f77_pocon:spocon]],[[f77_pocon:dpocon]],[[f77_pocon:cpocon]],[[f77_pocon:zpocon]]. interface mfi_pocon module procedure :: mfi_spocon module procedure :: mfi_dpocon module procedure :: mfi_cpocon module procedure :: mfi_zpocon end interface contains !> Modern interface for [[f77_geqrf:sgeqrf]]. !> See also: [[mfi_geqrf]], [[f77_geqrf]]. pure subroutine mfi_sgeqrf ( a , tau , info ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a (:,:) real ( REAL32 ), intent ( out ), optional , target :: tau (:) integer , intent ( out ), optional :: info integer :: local_info integer :: m , n , lda , lwork , allocation_status , deallocation_status real ( REAL32 ), pointer :: local_tau (:), work (:) real ( REAL32 ), target :: s_work ( 1 ) lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) allocation_status = 0 if ( present ( tau )) then local_tau => tau else allocate ( local_tau ( min ( m , n )), stat = allocation_status ) end if ! Retrieve work array size lwork = - 1 call sgeqrf ( m , n , a , lda , local_tau , s_work , lwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) if ( allocation_status == 0 ) then allocate ( work ( lwork ), stat = allocation_status ) end if if ( allocation_status == 0 ) then call sgeqrf ( m , n , a , lda , local_tau , work , lwork , local_info ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) ! Error handling 404 continue if (. not . present ( tau )) then deallocate ( local_tau , stat = deallocation_status ) end if if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'sgeqrf' , - local_info ) end if end subroutine !> Modern interface for [[f77_geqrf:dgeqrf]]. !> See also: [[mfi_geqrf]], [[f77_geqrf]]. pure subroutine mfi_dgeqrf ( a , tau , info ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a (:,:) real ( REAL64 ), intent ( out ), optional , target :: tau (:) integer , intent ( out ), optional :: info integer :: local_info integer :: m , n , lda , lwork , allocation_status , deallocation_status real ( REAL64 ), pointer :: local_tau (:), work (:) real ( REAL64 ), target :: s_work ( 1 ) lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) allocation_status = 0 if ( present ( tau )) then local_tau => tau else allocate ( local_tau ( min ( m , n )), stat = allocation_status ) end if ! Retrieve work array size lwork = - 1 call dgeqrf ( m , n , a , lda , local_tau , s_work , lwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) if ( allocation_status == 0 ) then allocate ( work ( lwork ), stat = allocation_status ) end if if ( allocation_status == 0 ) then call dgeqrf ( m , n , a , lda , local_tau , work , lwork , local_info ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) ! Error handling 404 continue if (. not . present ( tau )) then deallocate ( local_tau , stat = deallocation_status ) end if if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'dgeqrf' , - local_info ) end if end subroutine !> Modern interface for [[f77_geqrf:cgeqrf]]. !> See also: [[mfi_geqrf]], [[f77_geqrf]]. pure subroutine mfi_cgeqrf ( a , tau , info ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a (:,:) complex ( REAL32 ), intent ( out ), optional , target :: tau (:) integer , intent ( out ), optional :: info integer :: local_info integer :: m , n , lda , lwork , allocation_status , deallocation_status complex ( REAL32 ), pointer :: local_tau (:), work (:) complex ( REAL32 ), target :: s_work ( 1 ) lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) allocation_status = 0 if ( present ( tau )) then local_tau => tau else allocate ( local_tau ( min ( m , n )), stat = allocation_status ) end if ! Retrieve work array size lwork = - 1 call cgeqrf ( m , n , a , lda , local_tau , s_work , lwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) if ( allocation_status == 0 ) then allocate ( work ( lwork ), stat = allocation_status ) end if if ( allocation_status == 0 ) then call cgeqrf ( m , n , a , lda , local_tau , work , lwork , local_info ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) ! Error handling 404 continue if (. not . present ( tau )) then deallocate ( local_tau , stat = deallocation_status ) end if if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'cgeqrf' , - local_info ) end if end subroutine !> Modern interface for [[f77_geqrf:zgeqrf]]. !> See also: [[mfi_geqrf]], [[f77_geqrf]]. pure subroutine mfi_zgeqrf ( a , tau , info ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a (:,:) complex ( REAL64 ), intent ( out ), optional , target :: tau (:) integer , intent ( out ), optional :: info integer :: local_info integer :: m , n , lda , lwork , allocation_status , deallocation_status complex ( REAL64 ), pointer :: local_tau (:), work (:) complex ( REAL64 ), target :: s_work ( 1 ) lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) allocation_status = 0 if ( present ( tau )) then local_tau => tau else allocate ( local_tau ( min ( m , n )), stat = allocation_status ) end if ! Retrieve work array size lwork = - 1 call zgeqrf ( m , n , a , lda , local_tau , s_work , lwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) if ( allocation_status == 0 ) then allocate ( work ( lwork ), stat = allocation_status ) end if if ( allocation_status == 0 ) then call zgeqrf ( m , n , a , lda , local_tau , work , lwork , local_info ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) ! Error handling 404 continue if (. not . present ( tau )) then deallocate ( local_tau , stat = deallocation_status ) end if if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'zgeqrf' , - local_info ) end if end subroutine !> Modern interface for [[f77_gerqf:sgerqf]]. !> See also: [[mfi_gerqf]], [[f77_gerqf]]. pure subroutine mfi_sgerqf ( a , tau , info ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a (:,:) real ( REAL32 ), intent ( out ), optional , target :: tau (:) integer , intent ( out ), optional :: info integer :: local_info integer :: m , n , lda , lwork , allocation_status , deallocation_status real ( REAL32 ), pointer :: local_tau (:), work (:) real ( REAL32 ), target :: s_work ( 1 ) lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) allocation_status = 0 if ( present ( tau )) then local_tau => tau else allocate ( local_tau ( min ( m , n )), stat = allocation_status ) end if ! Retrieve work array size lwork = - 1 call sgerqf ( m , n , a , lda , local_tau , s_work , lwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) if ( allocation_status == 0 ) then allocate ( work ( lwork ), stat = allocation_status ) end if if ( allocation_status == 0 ) then call sgerqf ( m , n , a , lda , local_tau , work , lwork , local_info ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) ! Error handling 404 continue if (. not . present ( tau )) then deallocate ( local_tau , stat = deallocation_status ) end if if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'sgerqf' , - local_info ) end if end subroutine !> Modern interface for [[f77_gerqf:dgerqf]]. !> See also: [[mfi_gerqf]], [[f77_gerqf]]. pure subroutine mfi_dgerqf ( a , tau , info ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a (:,:) real ( REAL64 ), intent ( out ), optional , target :: tau (:) integer , intent ( out ), optional :: info integer :: local_info integer :: m , n , lda , lwork , allocation_status , deallocation_status real ( REAL64 ), pointer :: local_tau (:), work (:) real ( REAL64 ), target :: s_work ( 1 ) lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) allocation_status = 0 if ( present ( tau )) then local_tau => tau else allocate ( local_tau ( min ( m , n )), stat = allocation_status ) end if ! Retrieve work array size lwork = - 1 call dgerqf ( m , n , a , lda , local_tau , s_work , lwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) if ( allocation_status == 0 ) then allocate ( work ( lwork ), stat = allocation_status ) end if if ( allocation_status == 0 ) then call dgerqf ( m , n , a , lda , local_tau , work , lwork , local_info ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) ! Error handling 404 continue if (. not . present ( tau )) then deallocate ( local_tau , stat = deallocation_status ) end if if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'dgerqf' , - local_info ) end if end subroutine !> Modern interface for [[f77_gerqf:cgerqf]]. !> See also: [[mfi_gerqf]], [[f77_gerqf]]. pure subroutine mfi_cgerqf ( a , tau , info ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a (:,:) complex ( REAL32 ), intent ( out ), optional , target :: tau (:) integer , intent ( out ), optional :: info integer :: local_info integer :: m , n , lda , lwork , allocation_status , deallocation_status complex ( REAL32 ), pointer :: local_tau (:), work (:) complex ( REAL32 ), target :: s_work ( 1 ) lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) allocation_status = 0 if ( present ( tau )) then local_tau => tau else allocate ( local_tau ( min ( m , n )), stat = allocation_status ) end if ! Retrieve work array size lwork = - 1 call cgerqf ( m , n , a , lda , local_tau , s_work , lwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) if ( allocation_status == 0 ) then allocate ( work ( lwork ), stat = allocation_status ) end if if ( allocation_status == 0 ) then call cgerqf ( m , n , a , lda , local_tau , work , lwork , local_info ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) ! Error handling 404 continue if (. not . present ( tau )) then deallocate ( local_tau , stat = deallocation_status ) end if if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'cgerqf' , - local_info ) end if end subroutine !> Modern interface for [[f77_gerqf:zgerqf]]. !> See also: [[mfi_gerqf]], [[f77_gerqf]]. pure subroutine mfi_zgerqf ( a , tau , info ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a (:,:) complex ( REAL64 ), intent ( out ), optional , target :: tau (:) integer , intent ( out ), optional :: info integer :: local_info integer :: m , n , lda , lwork , allocation_status , deallocation_status complex ( REAL64 ), pointer :: local_tau (:), work (:) complex ( REAL64 ), target :: s_work ( 1 ) lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) allocation_status = 0 if ( present ( tau )) then local_tau => tau else allocate ( local_tau ( min ( m , n )), stat = allocation_status ) end if ! Retrieve work array size lwork = - 1 call zgerqf ( m , n , a , lda , local_tau , s_work , lwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) if ( allocation_status == 0 ) then allocate ( work ( lwork ), stat = allocation_status ) end if if ( allocation_status == 0 ) then call zgerqf ( m , n , a , lda , local_tau , work , lwork , local_info ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) ! Error handling 404 continue if (. not . present ( tau )) then deallocate ( local_tau , stat = deallocation_status ) end if if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'zgerqf' , - local_info ) end if end subroutine !> Modern interface for [[f77_getrf:sgetrf]]. !> See also: [[mfi_getrf]], [[f77_getrf]]. pure subroutine mfi_sgetrf ( a , ipiv , info ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a (:,:) integer , intent ( out ), optional , target :: ipiv (:) integer , intent ( out ), optional :: info integer :: local_info integer :: m , n , lda , allocation_status , deallocation_status integer , pointer :: local_ipiv (:) lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) allocation_status = 0 if ( present ( ipiv )) then local_ipiv => ipiv else allocate ( local_ipiv ( min ( m , n )), stat = allocation_status ) end if if ( allocation_status == 0 ) then call sgetrf ( m , n , a , lda , local_ipiv , local_info ) else local_info = - 1000 end if if (. not . present ( ipiv )) then deallocate ( local_ipiv , stat = deallocation_status ) end if if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'sgetrf' , - local_info ) end if end subroutine !> Modern interface for [[f77_getrf:dgetrf]]. !> See also: [[mfi_getrf]], [[f77_getrf]]. pure subroutine mfi_dgetrf ( a , ipiv , info ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a (:,:) integer , intent ( out ), optional , target :: ipiv (:) integer , intent ( out ), optional :: info integer :: local_info integer :: m , n , lda , allocation_status , deallocation_status integer , pointer :: local_ipiv (:) lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) allocation_status = 0 if ( present ( ipiv )) then local_ipiv => ipiv else allocate ( local_ipiv ( min ( m , n )), stat = allocation_status ) end if if ( allocation_status == 0 ) then call dgetrf ( m , n , a , lda , local_ipiv , local_info ) else local_info = - 1000 end if if (. not . present ( ipiv )) then deallocate ( local_ipiv , stat = deallocation_status ) end if if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'dgetrf' , - local_info ) end if end subroutine !> Modern interface for [[f77_getrf:cgetrf]]. !> See also: [[mfi_getrf]], [[f77_getrf]]. pure subroutine mfi_cgetrf ( a , ipiv , info ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a (:,:) integer , intent ( out ), optional , target :: ipiv (:) integer , intent ( out ), optional :: info integer :: local_info integer :: m , n , lda , allocation_status , deallocation_status integer , pointer :: local_ipiv (:) lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) allocation_status = 0 if ( present ( ipiv )) then local_ipiv => ipiv else allocate ( local_ipiv ( min ( m , n )), stat = allocation_status ) end if if ( allocation_status == 0 ) then call cgetrf ( m , n , a , lda , local_ipiv , local_info ) else local_info = - 1000 end if if (. not . present ( ipiv )) then deallocate ( local_ipiv , stat = deallocation_status ) end if if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'cgetrf' , - local_info ) end if end subroutine !> Modern interface for [[f77_getrf:zgetrf]]. !> See also: [[mfi_getrf]], [[f77_getrf]]. pure subroutine mfi_zgetrf ( a , ipiv , info ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a (:,:) integer , intent ( out ), optional , target :: ipiv (:) integer , intent ( out ), optional :: info integer :: local_info integer :: m , n , lda , allocation_status , deallocation_status integer , pointer :: local_ipiv (:) lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) allocation_status = 0 if ( present ( ipiv )) then local_ipiv => ipiv else allocate ( local_ipiv ( min ( m , n )), stat = allocation_status ) end if if ( allocation_status == 0 ) then call zgetrf ( m , n , a , lda , local_ipiv , local_info ) else local_info = - 1000 end if if (. not . present ( ipiv )) then deallocate ( local_ipiv , stat = deallocation_status ) end if if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'zgetrf' , - local_info ) end if end subroutine !> Modern interface for [[f77_getri:sgetri]]. !> See also: [[mfi_getri]], [[f77_getri]]. pure subroutine mfi_sgetri ( a , ipiv , info ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a (:,:) integer , intent ( in ) :: ipiv (:) real ( REAL32 ), pointer :: work (:) real ( REAL32 ) :: s_work ( 1 ) integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda , lwork , allocation_status , deallocation_status lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) lwork = - 1 call sgetri ( n , a , lda , ipiv , s_work , lwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) allocate ( work ( lwork ), stat = allocation_status ) if ( allocation_status == 0 ) then call sgetri ( n , a , lda , ipiv , work , lwork , local_info ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) 404 continue if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'sgetri' , - local_info ) end if end subroutine !> Modern interface for [[f77_getri:dgetri]]. !> See also: [[mfi_getri]], [[f77_getri]]. pure subroutine mfi_dgetri ( a , ipiv , info ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a (:,:) integer , intent ( in ) :: ipiv (:) real ( REAL64 ), pointer :: work (:) real ( REAL64 ) :: s_work ( 1 ) integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda , lwork , allocation_status , deallocation_status lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) lwork = - 1 call dgetri ( n , a , lda , ipiv , s_work , lwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) allocate ( work ( lwork ), stat = allocation_status ) if ( allocation_status == 0 ) then call dgetri ( n , a , lda , ipiv , work , lwork , local_info ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) 404 continue if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'dgetri' , - local_info ) end if end subroutine !> Modern interface for [[f77_getri:cgetri]]. !> See also: [[mfi_getri]], [[f77_getri]]. pure subroutine mfi_cgetri ( a , ipiv , info ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a (:,:) integer , intent ( in ) :: ipiv (:) complex ( REAL32 ), pointer :: work (:) complex ( REAL32 ) :: s_work ( 1 ) integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda , lwork , allocation_status , deallocation_status lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) lwork = - 1 call cgetri ( n , a , lda , ipiv , s_work , lwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) allocate ( work ( lwork ), stat = allocation_status ) if ( allocation_status == 0 ) then call cgetri ( n , a , lda , ipiv , work , lwork , local_info ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) 404 continue if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'cgetri' , - local_info ) end if end subroutine !> Modern interface for [[f77_getri:zgetri]]. !> See also: [[mfi_getri]], [[f77_getri]]. pure subroutine mfi_zgetri ( a , ipiv , info ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a (:,:) integer , intent ( in ) :: ipiv (:) complex ( REAL64 ), pointer :: work (:) complex ( REAL64 ) :: s_work ( 1 ) integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda , lwork , allocation_status , deallocation_status lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) lwork = - 1 call zgetri ( n , a , lda , ipiv , s_work , lwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) allocate ( work ( lwork ), stat = allocation_status ) if ( allocation_status == 0 ) then call zgetri ( n , a , lda , ipiv , work , lwork , local_info ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) 404 continue if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'zgetri' , - local_info ) end if end subroutine !> Modern interface for [[f77_getrs:sgetrs]]. !> See also: [[mfi_getrs]], [[f77_getrs]]. pure subroutine mfi_sgetrs ( a , ipiv , b , trans , info ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a (:,:) real ( REAL32 ), intent ( inout ) :: b (:,:) integer , intent ( in ) :: ipiv (:) integer , intent ( out ), optional :: info integer :: local_info character , intent ( in ), optional :: trans character :: local_trans integer :: n , nrhs , lda , ldb if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) n = size ( a , 2 ) nrhs = size ( b , 2 ) call sgetrs ( local_trans , n , nrhs , a , lda , ipiv , b , ldb , local_info ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'sgetrs' , - local_info ) end if end subroutine !> Modern interface for [[f77_getrs:dgetrs]]. !> See also: [[mfi_getrs]], [[f77_getrs]]. pure subroutine mfi_dgetrs ( a , ipiv , b , trans , info ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a (:,:) real ( REAL64 ), intent ( inout ) :: b (:,:) integer , intent ( in ) :: ipiv (:) integer , intent ( out ), optional :: info integer :: local_info character , intent ( in ), optional :: trans character :: local_trans integer :: n , nrhs , lda , ldb if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) n = size ( a , 2 ) nrhs = size ( b , 2 ) call dgetrs ( local_trans , n , nrhs , a , lda , ipiv , b , ldb , local_info ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'dgetrs' , - local_info ) end if end subroutine !> Modern interface for [[f77_getrs:cgetrs]]. !> See also: [[mfi_getrs]], [[f77_getrs]]. pure subroutine mfi_cgetrs ( a , ipiv , b , trans , info ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a (:,:) complex ( REAL32 ), intent ( inout ) :: b (:,:) integer , intent ( in ) :: ipiv (:) integer , intent ( out ), optional :: info integer :: local_info character , intent ( in ), optional :: trans character :: local_trans integer :: n , nrhs , lda , ldb if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) n = size ( a , 2 ) nrhs = size ( b , 2 ) call cgetrs ( local_trans , n , nrhs , a , lda , ipiv , b , ldb , local_info ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'cgetrs' , - local_info ) end if end subroutine !> Modern interface for [[f77_getrs:zgetrs]]. !> See also: [[mfi_getrs]], [[f77_getrs]]. pure subroutine mfi_zgetrs ( a , ipiv , b , trans , info ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a (:,:) complex ( REAL64 ), intent ( inout ) :: b (:,:) integer , intent ( in ) :: ipiv (:) integer , intent ( out ), optional :: info integer :: local_info character , intent ( in ), optional :: trans character :: local_trans integer :: n , nrhs , lda , ldb if ( present ( trans )) then local_trans = trans else local_trans = 'N' end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) n = size ( a , 2 ) nrhs = size ( b , 2 ) call zgetrs ( local_trans , n , nrhs , a , lda , ipiv , b , ldb , local_info ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'zgetrs' , - local_info ) end if end subroutine !> Modern interface for [[f77_hetrf:chetrf]]. !> See also: [[mfi_hetrf]], [[f77_hetrf]]. pure subroutine mfi_chetrf ( a , uplo , ipiv , info ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a (:,:) integer , intent ( out ), optional , target :: ipiv (:) integer , pointer :: local_ipiv (:) character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda , lwork , allocation_status , deallocation_status complex ( REAL32 ), target :: s_work ( 1 ) complex ( REAL32 ), pointer :: work (:) if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) allocation_status = 0 if ( present ( ipiv )) then local_ipiv => ipiv else allocate ( local_ipiv ( n ), stat = allocation_status ) end if lwork = - 1 call chetrf ( local_uplo , n , a , lda , local_ipiv , s_work , lwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) if ( allocation_status == 0 ) then allocate ( work ( lwork ), stat = allocation_status ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) 404 continue if (. not . present ( ipiv )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'chetrf' , - local_info ) end if end subroutine !> Modern interface for [[f77_hetrf:zhetrf]]. !> See also: [[mfi_hetrf]], [[f77_hetrf]]. pure subroutine mfi_zhetrf ( a , uplo , ipiv , info ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a (:,:) integer , intent ( out ), optional , target :: ipiv (:) integer , pointer :: local_ipiv (:) character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda , lwork , allocation_status , deallocation_status complex ( REAL64 ), target :: s_work ( 1 ) complex ( REAL64 ), pointer :: work (:) if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) allocation_status = 0 if ( present ( ipiv )) then local_ipiv => ipiv else allocate ( local_ipiv ( n ), stat = allocation_status ) end if lwork = - 1 call zhetrf ( local_uplo , n , a , lda , local_ipiv , s_work , lwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) if ( allocation_status == 0 ) then allocate ( work ( lwork ), stat = allocation_status ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) 404 continue if (. not . present ( ipiv )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'zhetrf' , - local_info ) end if end subroutine !> Modern interface for [[f77_hegv:chegv]]. !> See also: [[mfi_hegv]], [[f77_hegv]]. pure subroutine mfi_chegv ( a , b , w , itype , jobz , uplo , info ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a (:,:) complex ( REAL32 ), intent ( inout ) :: b (:,:) real ( REAL32 ), intent ( out ) :: w (:) integer , intent ( in ), optional :: itype integer :: local_itype character , intent ( in ), optional :: jobz character :: local_jobz character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info complex ( REAL32 ), pointer :: work (:) real ( REAL32 ), pointer :: rwork (:) complex ( REAL32 ) :: s_work ( 1 ) integer :: n , lda , ldb , lwork , allocation_status , deallocation_status if ( present ( itype )) then local_itype = itype else local_itype = 1 end if if ( present ( jobz )) then local_jobz = jobz else local_jobz = 'N' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) n = size ( a , 2 ) allocation_status = 0 allocate ( rwork ( max ( 1 , 3 * N - 2 )), stat = allocation_status ) lwork = - 1 call chegv ( local_itype , local_jobz , local_uplo , n , a , lda , b , ldb , w , s_work , lwork , rwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) if ( allocation_status == 0 ) then allocate ( work ( lwork ), stat = allocation_status ) end if if ( allocation_status == 0 ) then call chegv ( local_itype , local_jobz , local_uplo , n , a , lda , b , ldb , w , work , lwork , rwork , local_info ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) 404 continue deallocate ( rwork , stat = deallocation_status ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'chegv' , - local_info ) end if end subroutine !> Modern interface for [[f77_hegv:zhegv]]. !> See also: [[mfi_hegv]], [[f77_hegv]]. pure subroutine mfi_zhegv ( a , b , w , itype , jobz , uplo , info ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a (:,:) complex ( REAL64 ), intent ( inout ) :: b (:,:) real ( REAL64 ), intent ( out ) :: w (:) integer , intent ( in ), optional :: itype integer :: local_itype character , intent ( in ), optional :: jobz character :: local_jobz character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info complex ( REAL64 ), pointer :: work (:) real ( REAL64 ), pointer :: rwork (:) complex ( REAL64 ) :: s_work ( 1 ) integer :: n , lda , ldb , lwork , allocation_status , deallocation_status if ( present ( itype )) then local_itype = itype else local_itype = 1 end if if ( present ( jobz )) then local_jobz = jobz else local_jobz = 'N' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) n = size ( a , 2 ) allocation_status = 0 allocate ( rwork ( max ( 1 , 3 * N - 2 )), stat = allocation_status ) lwork = - 1 call zhegv ( local_itype , local_jobz , local_uplo , n , a , lda , b , ldb , w , s_work , lwork , rwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) if ( allocation_status == 0 ) then allocate ( work ( lwork ), stat = allocation_status ) end if if ( allocation_status == 0 ) then call zhegv ( local_itype , local_jobz , local_uplo , n , a , lda , b , ldb , w , work , lwork , rwork , local_info ) else local_info = - 1000 end if deallocate ( work , stat = deallocation_status ) 404 continue deallocate ( rwork , stat = deallocation_status ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'zhegv' , - local_info ) end if end subroutine !> Modern interface for [[f77_heevd:cheevd]]. !> See also: [[mfi_heevd]], [[f77_heevd]]. pure subroutine mfi_cheevd ( a , w , jobz , uplo , info ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a (:,:) real ( REAL32 ), intent ( out ) :: w (:) integer , intent ( out ), optional :: info integer :: local_info character , intent ( in ), optional :: jobz character :: local_jobz character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL32 ), pointer :: work (:) real ( REAL32 ), pointer :: rwork (:) integer , pointer :: iwork (:) complex ( REAL32 ) :: s_work ( 1 ) real ( REAL32 ) :: s_rwork ( 1 ) integer :: s_iwork ( 1 ) integer :: n , lda , lwork , lrwork , liwork , allocation_status , deallocation_status if ( present ( jobz )) then local_jobz = jobz else local_jobz = 'N' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) allocation_status = 0 lwork = - 1 lrwork = - 1 liwork = - 1 call cheevd ( local_jobz , local_uplo , n , a , lda , w , & s_work , lwork , s_rwork , lrwork , s_iwork , liwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) lrwork = int ( s_rwork ( 1 )) liwork = int ( s_iwork ( 1 )) allocate ( iwork ( liwork ), stat = allocation_status ) if ( allocation_status == 0 ) then allocate ( rwork ( lrwork ), stat = allocation_status ) allocate ( work ( lwork ), stat = allocation_status ) call cheevd ( local_jobz , local_uplo , n , a , lda , w , & work , lwork , rwork , lrwork , iwork , liwork , local_info ) else local_info = - 1000 end if deallocate ( iwork , stat = deallocation_status ) deallocate ( rwork , stat = deallocation_status ) deallocate ( work , stat = deallocation_status ) 404 continue if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'cheevd' , - local_info ) end if end subroutine !> Modern interface for [[f77_heevd:zheevd]]. !> See also: [[mfi_heevd]], [[f77_heevd]]. pure subroutine mfi_zheevd ( a , w , jobz , uplo , info ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a (:,:) real ( REAL64 ), intent ( out ) :: w (:) integer , intent ( out ), optional :: info integer :: local_info character , intent ( in ), optional :: jobz character :: local_jobz character , intent ( in ), optional :: uplo character :: local_uplo complex ( REAL64 ), pointer :: work (:) real ( REAL64 ), pointer :: rwork (:) integer , pointer :: iwork (:) complex ( REAL64 ) :: s_work ( 1 ) real ( REAL64 ) :: s_rwork ( 1 ) integer :: s_iwork ( 1 ) integer :: n , lda , lwork , lrwork , liwork , allocation_status , deallocation_status if ( present ( jobz )) then local_jobz = jobz else local_jobz = 'N' end if if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) allocation_status = 0 lwork = - 1 lrwork = - 1 liwork = - 1 call zheevd ( local_jobz , local_uplo , n , a , lda , w , & s_work , lwork , s_rwork , lrwork , s_iwork , liwork , local_info ) if ( local_info /= 0 ) goto 404 lwork = int ( s_work ( 1 )) lrwork = int ( s_rwork ( 1 )) liwork = int ( s_iwork ( 1 )) allocate ( iwork ( liwork ), stat = allocation_status ) if ( allocation_status == 0 ) then allocate ( rwork ( lrwork ), stat = allocation_status ) allocate ( work ( lwork ), stat = allocation_status ) call zheevd ( local_jobz , local_uplo , n , a , lda , w , & work , lwork , rwork , lrwork , iwork , liwork , local_info ) else local_info = - 1000 end if deallocate ( iwork , stat = deallocation_status ) deallocate ( rwork , stat = deallocation_status ) deallocate ( work , stat = deallocation_status ) 404 continue if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'zheevd' , - local_info ) end if end subroutine !> Modern interface for [[f77_gesvd:sgesvd]]. !> See also: [[mfi_gesvd]], [[f77_gesvd]]. pure subroutine mfi_sgesvd ( a , s , u , vt , ww , job , info ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a (:,:) real ( REAL32 ), intent ( out ) :: s (:) real ( REAL32 ), intent ( out ), optional , target :: u (:,:), vt (:,:) real ( REAL32 ), intent ( out ), optional , target :: ww (:) character , intent ( in ), optional :: job character :: local_job integer , intent ( out ), optional :: info integer :: local_info character :: jobu , jobvt integer :: m , n , lda , ldu , ldvt , lwork , allocation_status , deallocation_status real ( REAL32 ), target :: s_work ( 1 ), l_a2 ( 1 , 1 ) real ( REAL32 ), pointer :: local_u (:,:), local_vt (:,:), work (:) if ( present ( job )) then local_job = job else local_job = 'N' end if lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) if ( present ( u )) then ldu = max ( 1 , size ( u , 1 )) else ldu = 1 end if if ( present ( vt )) then ldvt = max ( 1 , size ( vt , 1 )) else ldvt = 1 end if if ( present ( u )) then if ( size ( u , 2 ) == m ) then jobu = 'A' else jobu = 'S' end if local_u => u else if ( local_job == 'u' . or . local_job == 'U' ) then jobu = 'O' else jobu = 'N' end if local_u => l_a2 end if if ( present ( vt )) then if ( size ( vt , 1 ) == n ) then jobvt = 'A' else jobvt = 'S' end if local_vt => vt else if ( local_job == 'v' . or . local_job == 'V' ) then jobvt = 'O' else jobvt = 'N' end if local_vt => l_a2 end if allocation_status = 0 lwork = - 1 call sgesvd ( jobu , jobvt , m , n , a , lda , s , local_u , ldu , local_vt , ldvt , s_work , lwork , local_info ) if ( local_info /= 0 ) then goto 404 end if lwork = int ( s_work ( 1 )) allocate ( work ( lwork ), stat = allocation_status ) if ( allocation_status == 0 ) then call sgesvd ( jobu , jobvt , m , n , a , lda , s , local_u , ldu , local_vt , ldvt , work , lwork , local_info ) else local_info = - 1000 end if if ( present ( ww )) then ww = real ( work ( 2 : min ( m , n ) - 1 )) end if deallocate ( work , stat = deallocation_status ) 404 continue if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'sgesvd' , - local_info ) end if end subroutine !> Modern interface for [[f77_gesvd:dgesvd]]. !> See also: [[mfi_gesvd]], [[f77_gesvd]]. pure subroutine mfi_dgesvd ( a , s , u , vt , ww , job , info ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a (:,:) real ( REAL64 ), intent ( out ) :: s (:) real ( REAL64 ), intent ( out ), optional , target :: u (:,:), vt (:,:) real ( REAL64 ), intent ( out ), optional , target :: ww (:) character , intent ( in ), optional :: job character :: local_job integer , intent ( out ), optional :: info integer :: local_info character :: jobu , jobvt integer :: m , n , lda , ldu , ldvt , lwork , allocation_status , deallocation_status real ( REAL64 ), target :: s_work ( 1 ), l_a2 ( 1 , 1 ) real ( REAL64 ), pointer :: local_u (:,:), local_vt (:,:), work (:) if ( present ( job )) then local_job = job else local_job = 'N' end if lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) if ( present ( u )) then ldu = max ( 1 , size ( u , 1 )) else ldu = 1 end if if ( present ( vt )) then ldvt = max ( 1 , size ( vt , 1 )) else ldvt = 1 end if if ( present ( u )) then if ( size ( u , 2 ) == m ) then jobu = 'A' else jobu = 'S' end if local_u => u else if ( local_job == 'u' . or . local_job == 'U' ) then jobu = 'O' else jobu = 'N' end if local_u => l_a2 end if if ( present ( vt )) then if ( size ( vt , 1 ) == n ) then jobvt = 'A' else jobvt = 'S' end if local_vt => vt else if ( local_job == 'v' . or . local_job == 'V' ) then jobvt = 'O' else jobvt = 'N' end if local_vt => l_a2 end if allocation_status = 0 lwork = - 1 call dgesvd ( jobu , jobvt , m , n , a , lda , s , local_u , ldu , local_vt , ldvt , s_work , lwork , local_info ) if ( local_info /= 0 ) then goto 404 end if lwork = int ( s_work ( 1 )) allocate ( work ( lwork ), stat = allocation_status ) if ( allocation_status == 0 ) then call dgesvd ( jobu , jobvt , m , n , a , lda , s , local_u , ldu , local_vt , ldvt , work , lwork , local_info ) else local_info = - 1000 end if if ( present ( ww )) then ww = real ( work ( 2 : min ( m , n ) - 1 )) end if deallocate ( work , stat = deallocation_status ) 404 continue if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'dgesvd' , - local_info ) end if end subroutine !> Modern interface for [[f77_gesvd:cgesvd]]. !> See also: [[mfi_gesvd]], [[f77_gesvd]]. pure subroutine mfi_cgesvd ( a , s , u , vt , ww , job , info ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a (:,:) real ( REAL32 ), intent ( out ) :: s (:) complex ( REAL32 ), intent ( out ), optional , target :: u (:,:), vt (:,:) real ( REAL32 ), intent ( out ), optional , target :: ww (:) character , intent ( in ), optional :: job character :: local_job integer , intent ( out ), optional :: info integer :: local_info character :: jobu , jobvt integer :: m , n , lda , ldu , ldvt , lwork , allocation_status , deallocation_status complex ( REAL32 ), target :: s_work ( 1 ), l_a2 ( 1 , 1 ) complex ( REAL32 ), pointer :: local_u (:,:), local_vt (:,:), work (:) real ( REAL32 ), pointer :: rwork (:) if ( present ( job )) then local_job = job else local_job = 'N' end if lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) if ( present ( u )) then ldu = max ( 1 , size ( u , 1 )) else ldu = 1 end if if ( present ( vt )) then ldvt = max ( 1 , size ( vt , 1 )) else ldvt = 1 end if if ( present ( u )) then if ( size ( u , 2 ) == m ) then jobu = 'A' else jobu = 'S' end if local_u => u else if ( local_job == 'u' . or . local_job == 'U' ) then jobu = 'O' else jobu = 'N' end if local_u => l_a2 end if if ( present ( vt )) then if ( size ( vt , 1 ) == n ) then jobvt = 'A' else jobvt = 'S' end if local_vt => vt else if ( local_job == 'v' . or . local_job == 'V' ) then jobvt = 'O' else jobvt = 'N' end if local_vt => l_a2 end if allocation_status = 0 lwork = - 1 allocate ( rwork ( 5 * min ( m , n )), stat = allocation_status ) call cgesvd ( jobu , jobvt , m , n , a , lda , s , local_u , ldu , local_vt , ldvt , s_work , lwork , rwork , local_info ) if ( local_info /= 0 ) then goto 404 end if lwork = int ( s_work ( 1 )) allocate ( work ( lwork ), stat = allocation_status ) if ( allocation_status == 0 ) then call cgesvd ( jobu , jobvt , m , n , a , lda , s , local_u , ldu , local_vt , ldvt , work , lwork , rwork , local_info ) else local_info = - 1000 end if if ( present ( ww )) then ww = real ( work ( 2 : min ( m , n ) - 1 )) end if deallocate ( work , stat = deallocation_status ) 404 continue deallocate ( rwork , stat = deallocation_status ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'cgesvd' , - local_info ) end if end subroutine !> Modern interface for [[f77_gesvd:zgesvd]]. !> See also: [[mfi_gesvd]], [[f77_gesvd]]. pure subroutine mfi_zgesvd ( a , s , u , vt , ww , job , info ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a (:,:) real ( REAL64 ), intent ( out ) :: s (:) complex ( REAL64 ), intent ( out ), optional , target :: u (:,:), vt (:,:) real ( REAL64 ), intent ( out ), optional , target :: ww (:) character , intent ( in ), optional :: job character :: local_job integer , intent ( out ), optional :: info integer :: local_info character :: jobu , jobvt integer :: m , n , lda , ldu , ldvt , lwork , allocation_status , deallocation_status complex ( REAL64 ), target :: s_work ( 1 ), l_a2 ( 1 , 1 ) complex ( REAL64 ), pointer :: local_u (:,:), local_vt (:,:), work (:) real ( REAL64 ), pointer :: rwork (:) if ( present ( job )) then local_job = job else local_job = 'N' end if lda = max ( 1 , size ( a , 1 )) m = size ( a , 1 ) n = size ( a , 2 ) if ( present ( u )) then ldu = max ( 1 , size ( u , 1 )) else ldu = 1 end if if ( present ( vt )) then ldvt = max ( 1 , size ( vt , 1 )) else ldvt = 1 end if if ( present ( u )) then if ( size ( u , 2 ) == m ) then jobu = 'A' else jobu = 'S' end if local_u => u else if ( local_job == 'u' . or . local_job == 'U' ) then jobu = 'O' else jobu = 'N' end if local_u => l_a2 end if if ( present ( vt )) then if ( size ( vt , 1 ) == n ) then jobvt = 'A' else jobvt = 'S' end if local_vt => vt else if ( local_job == 'v' . or . local_job == 'V' ) then jobvt = 'O' else jobvt = 'N' end if local_vt => l_a2 end if allocation_status = 0 lwork = - 1 allocate ( rwork ( 5 * min ( m , n )), stat = allocation_status ) call zgesvd ( jobu , jobvt , m , n , a , lda , s , local_u , ldu , local_vt , ldvt , s_work , lwork , rwork , local_info ) if ( local_info /= 0 ) then goto 404 end if lwork = int ( s_work ( 1 )) allocate ( work ( lwork ), stat = allocation_status ) if ( allocation_status == 0 ) then call zgesvd ( jobu , jobvt , m , n , a , lda , s , local_u , ldu , local_vt , ldvt , work , lwork , rwork , local_info ) else local_info = - 1000 end if if ( present ( ww )) then ww = real ( work ( 2 : min ( m , n ) - 1 )) end if deallocate ( work , stat = deallocation_status ) 404 continue deallocate ( rwork , stat = deallocation_status ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'zgesvd' , - local_info ) end if end subroutine !> Modern interface for [[f77_potrf:spotrf]]. !> See also: [[mfi_potrf]], [[f77_potrf]]. pure subroutine mfi_spotrf ( a , info , uplo ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call spotrf ( local_uplo , n , a , lda , local_info ) if ( present ( info )) then info = local_info else if ( local_info /= 0 ) then call mfi_error ( 'spotrf' , local_info ) end if end subroutine !> Modern interface for [[f77_potrf:dpotrf]]. !> See also: [[mfi_potrf]], [[f77_potrf]]. pure subroutine mfi_dpotrf ( a , info , uplo ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call dpotrf ( local_uplo , n , a , lda , local_info ) if ( present ( info )) then info = local_info else if ( local_info /= 0 ) then call mfi_error ( 'dpotrf' , local_info ) end if end subroutine !> Modern interface for [[f77_potrf:cpotrf]]. !> See also: [[mfi_potrf]], [[f77_potrf]]. pure subroutine mfi_cpotrf ( a , info , uplo ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call cpotrf ( local_uplo , n , a , lda , local_info ) if ( present ( info )) then info = local_info else if ( local_info /= 0 ) then call mfi_error ( 'cpotrf' , local_info ) end if end subroutine !> Modern interface for [[f77_potrf:zpotrf]]. !> See also: [[mfi_potrf]], [[f77_potrf]]. pure subroutine mfi_zpotrf ( a , info , uplo ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call zpotrf ( local_uplo , n , a , lda , local_info ) if ( present ( info )) then info = local_info else if ( local_info /= 0 ) then call mfi_error ( 'zpotrf' , local_info ) end if end subroutine !> Modern interface for [[f77_potri:spotri]]. !> See also: [[mfi_potri]], [[f77_potri]]. pure subroutine mfi_spotri ( a , info , uplo ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call spotri ( local_uplo , n , a , lda , local_info ) if ( present ( info )) then info = local_info else if ( local_info /= 0 ) then call mfi_error ( 'spotri' , local_info ) end if end subroutine !> Modern interface for [[f77_potri:dpotri]]. !> See also: [[mfi_potri]], [[f77_potri]]. pure subroutine mfi_dpotri ( a , info , uplo ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call dpotri ( local_uplo , n , a , lda , local_info ) if ( present ( info )) then info = local_info else if ( local_info /= 0 ) then call mfi_error ( 'dpotri' , local_info ) end if end subroutine !> Modern interface for [[f77_potri:cpotri]]. !> See also: [[mfi_potri]], [[f77_potri]]. pure subroutine mfi_cpotri ( a , info , uplo ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call cpotri ( local_uplo , n , a , lda , local_info ) if ( present ( info )) then info = local_info else if ( local_info /= 0 ) then call mfi_error ( 'cpotri' , local_info ) end if end subroutine !> Modern interface for [[f77_potri:zpotri]]. !> See also: [[mfi_potri]], [[f77_potri]]. pure subroutine mfi_zpotri ( a , info , uplo ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a (:,:) character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) call zpotri ( local_uplo , n , a , lda , local_info ) if ( present ( info )) then info = local_info else if ( local_info /= 0 ) then call mfi_error ( 'zpotri' , local_info ) end if end subroutine !> Modern interface for [[f77_potrs:spotrs]]. !> See also: [[mfi_potrs]], [[f77_potrs]]. pure subroutine mfi_spotrs ( a , b , uplo , info ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a (:,:) real ( REAL32 ), intent ( inout ) :: b (:,:) character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , nrhs , lda , ldb if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) n = size ( a , 2 ) nrhs = size ( b , 2 ) call spotrs ( local_uplo , n , nrhs , a , lda , b , ldb , local_info ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'spotrs' , - local_info ) end if end subroutine !> Modern interface for [[f77_potrs:dpotrs]]. !> See also: [[mfi_potrs]], [[f77_potrs]]. pure subroutine mfi_dpotrs ( a , b , uplo , info ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a (:,:) real ( REAL64 ), intent ( inout ) :: b (:,:) character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , nrhs , lda , ldb if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) n = size ( a , 2 ) nrhs = size ( b , 2 ) call dpotrs ( local_uplo , n , nrhs , a , lda , b , ldb , local_info ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'dpotrs' , - local_info ) end if end subroutine !> Modern interface for [[f77_potrs:cpotrs]]. !> See also: [[mfi_potrs]], [[f77_potrs]]. pure subroutine mfi_cpotrs ( a , b , uplo , info ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a (:,:) complex ( REAL32 ), intent ( inout ) :: b (:,:) character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , nrhs , lda , ldb if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) n = size ( a , 2 ) nrhs = size ( b , 2 ) call cpotrs ( local_uplo , n , nrhs , a , lda , b , ldb , local_info ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'cpotrs' , - local_info ) end if end subroutine !> Modern interface for [[f77_potrs:zpotrs]]. !> See also: [[mfi_potrs]], [[f77_potrs]]. pure subroutine mfi_zpotrs ( a , b , uplo , info ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a (:,:) complex ( REAL64 ), intent ( inout ) :: b (:,:) character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , nrhs , lda , ldb if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) ldb = max ( 1 , size ( b , 1 )) n = size ( a , 2 ) nrhs = size ( b , 2 ) call zpotrs ( local_uplo , n , nrhs , a , lda , b , ldb , local_info ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'zpotrs' , - local_info ) end if end subroutine !> Modern interface for [[f77_pocon:spocon]]. !> See also: [[mfi_pocon]], [[f77_pocon]]. !> Estimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF pure subroutine mfi_spocon ( a , anorm , rcond , uplo , info ) integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a (:,:) real ( REAL32 ), intent ( in ) :: anorm real ( REAL32 ), intent ( out ) :: rcond character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda , allocation_status , deallocation_status real ( REAL32 ), pointer :: work (:) integer , pointer :: xwork (:) if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) allocation_status = 0 allocate ( xwork ( n ), stat = allocation_status ) if ( allocation_status == 0 ) allocate ( work ( 3 * n ), stat = allocation_status ) if ( allocation_status == 0 ) then call spocon ( local_uplo , n , a , lda , anorm , rcond , work , xwork , local_info ) else local_info = - 1000 end if deallocate ( xwork , stat = deallocation_status ) deallocate ( work , stat = deallocation_status ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'spocon' , - local_info ) end if end subroutine !> Modern interface for [[f77_pocon:dpocon]]. !> See also: [[mfi_pocon]], [[f77_pocon]]. !> Estimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF pure subroutine mfi_dpocon ( a , anorm , rcond , uplo , info ) integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a (:,:) real ( REAL64 ), intent ( in ) :: anorm real ( REAL64 ), intent ( out ) :: rcond character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda , allocation_status , deallocation_status real ( REAL64 ), pointer :: work (:) integer , pointer :: xwork (:) if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) allocation_status = 0 allocate ( xwork ( n ), stat = allocation_status ) if ( allocation_status == 0 ) allocate ( work ( 3 * n ), stat = allocation_status ) if ( allocation_status == 0 ) then call dpocon ( local_uplo , n , a , lda , anorm , rcond , work , xwork , local_info ) else local_info = - 1000 end if deallocate ( xwork , stat = deallocation_status ) deallocate ( work , stat = deallocation_status ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'dpocon' , - local_info ) end if end subroutine !> Modern interface for [[f77_pocon:cpocon]]. !> See also: [[mfi_pocon]], [[f77_pocon]]. !> Estimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF pure subroutine mfi_cpocon ( a , anorm , rcond , uplo , info ) integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a (:,:) real ( REAL32 ), intent ( in ) :: anorm real ( REAL32 ), intent ( out ) :: rcond character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda , allocation_status , deallocation_status complex ( REAL32 ), pointer :: work (:) real ( REAL32 ), pointer :: xwork (:) if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) allocation_status = 0 allocate ( xwork ( n ), stat = allocation_status ) if ( allocation_status == 0 ) allocate ( work ( 3 * n ), stat = allocation_status ) if ( allocation_status == 0 ) then call cpocon ( local_uplo , n , a , lda , anorm , rcond , work , xwork , local_info ) else local_info = - 1000 end if deallocate ( xwork , stat = deallocation_status ) deallocate ( work , stat = deallocation_status ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'cpocon' , - local_info ) end if end subroutine !> Modern interface for [[f77_pocon:zpocon]]. !> See also: [[mfi_pocon]], [[f77_pocon]]. !> Estimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF pure subroutine mfi_zpocon ( a , anorm , rcond , uplo , info ) integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a (:,:) real ( REAL64 ), intent ( in ) :: anorm real ( REAL64 ), intent ( out ) :: rcond character , intent ( in ), optional :: uplo character :: local_uplo integer , intent ( out ), optional :: info integer :: local_info integer :: n , lda , allocation_status , deallocation_status complex ( REAL64 ), pointer :: work (:) real ( REAL64 ), pointer :: xwork (:) if ( present ( uplo )) then local_uplo = uplo else local_uplo = 'U' end if lda = max ( 1 , size ( a , 1 )) n = size ( a , 2 ) allocation_status = 0 allocate ( xwork ( n ), stat = allocation_status ) if ( allocation_status == 0 ) allocate ( work ( 3 * n ), stat = allocation_status ) if ( allocation_status == 0 ) then call zpocon ( local_uplo , n , a , lda , anorm , rcond , work , xwork , local_info ) else local_info = - 1000 end if deallocate ( xwork , stat = deallocation_status ) deallocate ( work , stat = deallocation_status ) if ( present ( info )) then info = local_info else if ( local_info <= - 1000 ) then call mfi_error ( 'zpocon' , - local_info ) end if end subroutine pure subroutine mfi_error ( name , info ) character ( * ), intent ( in ) :: name integer , intent ( in ) :: info call f77_xerbla ( name , info ) end subroutine end module","tags":"","loc":"sourcefile/lapack.f90.html"},{"title":"lapack.f90 – MFI - Modern Fortran Interfaces","text":"Source Code !> Improved and original F77 interfaces for LAPACK module f77_lapack use iso_fortran_env implicit none !> Generic old style interface for GEQRF. !> Supports s, d, c, z. !> See also: [[mfi_geqrf]], [[sgeqrf]],[[dgeqrf]],[[cgeqrf]],[[zgeqrf]]. interface f77_geqrf !> Original interface for SGEQRF !> See also: [[mfi_geqrf]], [[f77_geqrf]]. pure subroutine sgeqrf ( m , n , a , lda , tau , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( out ) :: tau ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork real ( REAL32 ), intent ( inout ) :: work ( * ) end subroutine !> Original interface for DGEQRF !> See also: [[mfi_geqrf]], [[f77_geqrf]]. pure subroutine dgeqrf ( m , n , a , lda , tau , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( out ) :: tau ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork real ( REAL64 ), intent ( inout ) :: work ( * ) end subroutine !> Original interface for CGEQRF !> See also: [[mfi_geqrf]], [[f77_geqrf]]. pure subroutine cgeqrf ( m , n , a , lda , tau , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( out ) :: tau ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork complex ( REAL32 ), intent ( inout ) :: work ( * ) end subroutine !> Original interface for ZGEQRF !> See also: [[mfi_geqrf]], [[f77_geqrf]]. pure subroutine zgeqrf ( m , n , a , lda , tau , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( out ) :: tau ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork complex ( REAL64 ), intent ( inout ) :: work ( * ) end subroutine end interface !> Generic old style interface for GERQF. !> Supports s, d, c, z. !> See also: [[mfi_gerqf]], [[sgerqf]],[[dgerqf]],[[cgerqf]],[[zgerqf]]. interface f77_gerqf !> Original interface for SGERQF !> See also: [[mfi_gerqf]], [[f77_gerqf]]. pure subroutine sgerqf ( m , n , a , lda , tau , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( out ) :: tau ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork real ( REAL32 ), intent ( inout ) :: work ( * ) end subroutine !> Original interface for DGERQF !> See also: [[mfi_gerqf]], [[f77_gerqf]]. pure subroutine dgerqf ( m , n , a , lda , tau , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( out ) :: tau ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork real ( REAL64 ), intent ( inout ) :: work ( * ) end subroutine !> Original interface for CGERQF !> See also: [[mfi_gerqf]], [[f77_gerqf]]. pure subroutine cgerqf ( m , n , a , lda , tau , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( out ) :: tau ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork complex ( REAL32 ), intent ( inout ) :: work ( * ) end subroutine !> Original interface for ZGERQF !> See also: [[mfi_gerqf]], [[f77_gerqf]]. pure subroutine zgerqf ( m , n , a , lda , tau , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( out ) :: tau ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork complex ( REAL64 ), intent ( inout ) :: work ( * ) end subroutine end interface !> Generic old style interface for GETRF. !> Supports s, d, c, z. !> See also: [[mfi_getrf]], [[sgetrf]],[[dgetrf]],[[cgetrf]],[[zgetrf]]. interface f77_getrf !> Original interface for SGETRF !> See also: [[mfi_getrf]], [[f77_getrf]]. pure subroutine sgetrf ( m , n , a , lda , ipiv , info ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a ( lda , * ) integer , intent ( out ) :: ipiv ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda end subroutine !> Original interface for DGETRF !> See also: [[mfi_getrf]], [[f77_getrf]]. pure subroutine dgetrf ( m , n , a , lda , ipiv , info ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a ( lda , * ) integer , intent ( out ) :: ipiv ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda end subroutine !> Original interface for CGETRF !> See also: [[mfi_getrf]], [[f77_getrf]]. pure subroutine cgetrf ( m , n , a , lda , ipiv , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) integer , intent ( out ) :: ipiv ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda end subroutine !> Original interface for ZGETRF !> See also: [[mfi_getrf]], [[f77_getrf]]. pure subroutine zgetrf ( m , n , a , lda , ipiv , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) integer , intent ( out ) :: ipiv ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda end subroutine end interface !> Generic old style interface for GETRI. !> Supports s, d, c, z. !> See also: [[mfi_getri]], [[sgetri]],[[dgetri]],[[cgetri]],[[zgetri]]. interface f77_getri !> Original interface for SGETRI !> See also: [[mfi_getri]], [[f77_getri]]. pure subroutine sgetri ( n , a , lda , ipiv , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: work ( * ) integer , intent ( in ) :: ipiv ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork end subroutine !> Original interface for DGETRI !> See also: [[mfi_getri]], [[f77_getri]]. pure subroutine dgetri ( n , a , lda , ipiv , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: work ( * ) integer , intent ( in ) :: ipiv ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork end subroutine !> Original interface for CGETRI !> See also: [[mfi_getri]], [[f77_getri]]. pure subroutine cgetri ( n , a , lda , ipiv , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: work ( * ) integer , intent ( in ) :: ipiv ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork end subroutine !> Original interface for ZGETRI !> See also: [[mfi_getri]], [[f77_getri]]. pure subroutine zgetri ( n , a , lda , ipiv , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: work ( * ) integer , intent ( in ) :: ipiv ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork end subroutine end interface !> Generic old style interface for GETRS. !> Supports s, d, c, z. !> See also: [[mfi_getrs]], [[sgetrs]],[[dgetrs]],[[cgetrs]],[[zgetrs]]. interface f77_getrs !> Original interface for SGETRS !> See also: [[mfi_getrs]], [[f77_getrs]]. pure subroutine sgetrs ( trans , n , nrhs , a , lda , ipiv , b , ldb , info ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: b ( ldb , * ) character , intent ( in ) :: trans integer , intent ( in ) :: ipiv ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: n integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb end subroutine !> Original interface for DGETRS !> See also: [[mfi_getrs]], [[f77_getrs]]. pure subroutine dgetrs ( trans , n , nrhs , a , lda , ipiv , b , ldb , info ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: b ( ldb , * ) character , intent ( in ) :: trans integer , intent ( in ) :: ipiv ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: n integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb end subroutine !> Original interface for CGETRS !> See also: [[mfi_getrs]], [[f77_getrs]]. pure subroutine cgetrs ( trans , n , nrhs , a , lda , ipiv , b , ldb , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: b ( ldb , * ) character , intent ( in ) :: trans integer , intent ( in ) :: ipiv ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: n integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb end subroutine !> Original interface for ZGETRS !> See also: [[mfi_getrs]], [[f77_getrs]]. pure subroutine zgetrs ( trans , n , nrhs , a , lda , ipiv , b , ldb , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: b ( ldb , * ) character , intent ( in ) :: trans integer , intent ( in ) :: ipiv ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: n integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb end subroutine end interface !> Generic old style interface for HETRF. !> Supports c, z. !> See also: [[mfi_hetrf]], [[chetrf]],[[zhetrf]]. interface f77_hetrf !> Original interface for CHETRF !> See also: [[mfi_hetrf]], [[f77_hetrf]]. pure subroutine chetrf ( uplo , n , a , lda , ipiv , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) character , intent ( in ) :: uplo integer , intent ( in ) :: ipiv ( * ) complex ( REAL32 ), intent ( inout ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork end subroutine !> Original interface for ZHETRF !> See also: [[mfi_hetrf]], [[f77_hetrf]]. pure subroutine zhetrf ( uplo , n , a , lda , ipiv , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) character , intent ( in ) :: uplo integer , intent ( in ) :: ipiv ( * ) complex ( REAL64 ), intent ( inout ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork end subroutine end interface !> Generic old style interface for HEGV. !> Supports c, z. !> See also: [[mfi_hegv]], [[chegv]],[[zhegv]]. interface f77_hegv !> Original interface for CHEGV !> See also: [[mfi_hegv]], [[f77_hegv]]. pure subroutine chegv ( itype , jobz , uplo , n , a , lda , b , ldb , w , work , lwork , rwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: b ( ldb , * ) real ( REAL32 ), intent ( out ) :: w ( * ) integer , intent ( out ) :: info character , intent ( in ) :: jobz character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: itype integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork complex ( REAL32 ), intent ( inout ) :: work ( * ) real ( REAL32 ), intent ( in ) :: rwork ( * ) end subroutine !> Original interface for ZHEGV !> See also: [[mfi_hegv]], [[f77_hegv]]. pure subroutine zhegv ( itype , jobz , uplo , n , a , lda , b , ldb , w , work , lwork , rwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: b ( ldb , * ) real ( REAL64 ), intent ( out ) :: w ( * ) integer , intent ( out ) :: info character , intent ( in ) :: jobz character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: itype integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork complex ( REAL64 ), intent ( inout ) :: work ( * ) real ( REAL64 ), intent ( in ) :: rwork ( * ) end subroutine end interface !> Generic old style interface for HEEVD. !> Supports c, z. !> See also: [[mfi_heevd]], [[cheevd]],[[zheevd]]. interface f77_heevd !> Original interface for CHEEVD !> See also: [[mfi_heevd]], [[f77_heevd]]. pure subroutine cheevd ( jobz , uplo , n , a , lda , w , work , lwork , rwork , lrwork , iwork , liwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( out ) :: w ( * ) integer , intent ( out ) :: info character , intent ( in ) :: jobz character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork integer , intent ( in ) :: lrwork integer , intent ( in ) :: liwork complex ( REAL32 ), intent ( inout ) :: work ( * ) real ( REAL32 ), intent ( inout ) :: rwork ( * ) integer , intent ( inout ) :: iwork ( * ) end subroutine !> Original interface for ZHEEVD !> See also: [[mfi_heevd]], [[f77_heevd]]. pure subroutine zheevd ( jobz , uplo , n , a , lda , w , work , lwork , rwork , lrwork , iwork , liwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( out ) :: w ( * ) integer , intent ( out ) :: info character , intent ( in ) :: jobz character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: lwork integer , intent ( in ) :: lrwork integer , intent ( in ) :: liwork complex ( REAL64 ), intent ( inout ) :: work ( * ) real ( REAL64 ), intent ( inout ) :: rwork ( * ) integer , intent ( inout ) :: iwork ( * ) end subroutine end interface !> Generic old style interface for GESVD. !> Supports s, d, c, z. !> See also: [[mfi_gesvd]], [[sgesvd]],[[dgesvd]],[[cgesvd]],[[zgesvd]]. interface f77_gesvd !> Original interface for SGESVD !> See also: [[mfi_gesvd]], [[f77_gesvd]]. pure subroutine sgesvd ( jobu , jobvt , m , n , a , lda , s , u , ldu , vt , ldvt , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( out ) :: s ( * ) real ( REAL32 ), intent ( out ) :: u ( ldu , * ) real ( REAL32 ), intent ( out ) :: vt ( ldvt , * ) integer , intent ( out ) :: info character , intent ( in ) :: jobu character , intent ( in ) :: jobvt integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldu integer , intent ( in ) :: ldvt integer , intent ( in ) :: lwork real ( REAL32 ), intent ( inout ) :: work ( * ) end subroutine !> Original interface for DGESVD !> See also: [[mfi_gesvd]], [[f77_gesvd]]. pure subroutine dgesvd ( jobu , jobvt , m , n , a , lda , s , u , ldu , vt , ldvt , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( out ) :: s ( * ) real ( REAL64 ), intent ( out ) :: u ( ldu , * ) real ( REAL64 ), intent ( out ) :: vt ( ldvt , * ) integer , intent ( out ) :: info character , intent ( in ) :: jobu character , intent ( in ) :: jobvt integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldu integer , intent ( in ) :: ldvt integer , intent ( in ) :: lwork real ( REAL64 ), intent ( inout ) :: work ( * ) end subroutine !> Original interface for CGESVD !> See also: [[mfi_gesvd]], [[f77_gesvd]]. pure subroutine cgesvd ( jobu , jobvt , m , n , a , lda , s , u , ldu , vt , ldvt , work , lwork , rwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( out ) :: s ( * ) complex ( REAL32 ), intent ( out ) :: u ( ldu , * ) complex ( REAL32 ), intent ( out ) :: vt ( ldvt , * ) integer , intent ( out ) :: info character , intent ( in ) :: jobu character , intent ( in ) :: jobvt integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldu integer , intent ( in ) :: ldvt integer , intent ( in ) :: lwork complex ( REAL32 ), intent ( inout ) :: work ( * ) real ( REAL32 ), intent ( in ) :: rwork ( * ) end subroutine !> Original interface for ZGESVD !> See also: [[mfi_gesvd]], [[f77_gesvd]]. pure subroutine zgesvd ( jobu , jobvt , m , n , a , lda , s , u , ldu , vt , ldvt , work , lwork , rwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( out ) :: s ( * ) complex ( REAL64 ), intent ( out ) :: u ( ldu , * ) complex ( REAL64 ), intent ( out ) :: vt ( ldvt , * ) integer , intent ( out ) :: info character , intent ( in ) :: jobu character , intent ( in ) :: jobvt integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldu integer , intent ( in ) :: ldvt integer , intent ( in ) :: lwork complex ( REAL64 ), intent ( inout ) :: work ( * ) real ( REAL64 ), intent ( in ) :: rwork ( * ) end subroutine end interface !> Generic old style interface for POTRF. !> Supports s, d, c, z. !> See also: [[mfi_potrf]], [[spotrf]],[[dpotrf]],[[cpotrf]],[[zpotrf]]. interface f77_potrf !> Original interface for SPOTRF !> See also: [[mfi_potrf]], [[f77_potrf]]. pure subroutine spotrf ( uplo , n , a , lda , info ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine !> Original interface for DPOTRF !> See also: [[mfi_potrf]], [[f77_potrf]]. pure subroutine dpotrf ( uplo , n , a , lda , info ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine !> Original interface for CPOTRF !> See also: [[mfi_potrf]], [[f77_potrf]]. pure subroutine cpotrf ( uplo , n , a , lda , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine !> Original interface for ZPOTRF !> See also: [[mfi_potrf]], [[f77_potrf]]. pure subroutine zpotrf ( uplo , n , a , lda , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for POTRI. !> Supports s, d, c, z. !> See also: [[mfi_potri]], [[spotri]],[[dpotri]],[[cpotri]],[[zpotri]]. interface f77_potri !> Original interface for SPOTRI !> See also: [[mfi_potri]], [[f77_potri]]. pure subroutine spotri ( uplo , n , a , lda , info ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine !> Original interface for DPOTRI !> See also: [[mfi_potri]], [[f77_potri]]. pure subroutine dpotri ( uplo , n , a , lda , info ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine !> Original interface for CPOTRI !> See also: [[mfi_potri]], [[f77_potri]]. pure subroutine cpotri ( uplo , n , a , lda , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine !> Original interface for ZPOTRI !> See also: [[mfi_potri]], [[f77_potri]]. pure subroutine zpotri ( uplo , n , a , lda , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for POTRS. !> Supports s, d, c, z. !> See also: [[mfi_potrs]], [[spotrs]],[[dpotrs]],[[cpotrs]],[[zpotrs]]. interface f77_potrs !> Original interface for SPOTRS !> See also: [[mfi_potrs]], [[f77_potrs]]. pure subroutine spotrs ( uplo , n , nrhs , a , lda , b , ldb , info ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: a ( lda , * ) real ( REAL32 ), intent ( in ) :: b ( ldb , * ) character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( out ) :: info end subroutine !> Original interface for DPOTRS !> See also: [[mfi_potrs]], [[f77_potrs]]. pure subroutine dpotrs ( uplo , n , nrhs , a , lda , b , ldb , info ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: a ( lda , * ) real ( REAL64 ), intent ( in ) :: b ( ldb , * ) character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( out ) :: info end subroutine !> Original interface for CPOTRS !> See also: [[mfi_potrs]], [[f77_potrs]]. pure subroutine cpotrs ( uplo , n , nrhs , a , lda , b , ldb , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: a ( lda , * ) complex ( REAL32 ), intent ( in ) :: b ( ldb , * ) character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( out ) :: info end subroutine !> Original interface for ZPOTRS !> See also: [[mfi_potrs]], [[f77_potrs]]. pure subroutine zpotrs ( uplo , n , nrhs , a , lda , b , ldb , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: a ( lda , * ) complex ( REAL64 ), intent ( in ) :: b ( ldb , * ) character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for POCON. !> Supports s, d, c, z. !> See also: [[mfi_pocon]], [[spocon]],[[dpocon]],[[cpocon]],[[zpocon]]. interface f77_pocon !> Original interface for SPOCON !> See also: [[mfi_pocon]], [[f77_pocon]]. !> spocon estimates the reciprocal of the condition number (in the !> 1-norm) of a real(REAL32) Hermitian positive definite matrix using the !> Cholesky factorization  A = U&#94;\\dagger U  or  A = LL&#94;\\dagger |) computed by sPOTRF. !> An estimate is obtained for norm(inv(A)), and the reciprocal of the !> condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))). pure subroutine spocon ( uplo , n , a , lda , anorm , rcond , work , iwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: lda real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( in ) :: anorm real ( REAL32 ), intent ( out ) :: rcond real ( REAL32 ), intent ( inout ) :: work ( * ) integer , intent ( inout ) :: iwork ( * ) integer , intent ( out ) :: info end subroutine !> Original interface for DPOCON !> See also: [[mfi_pocon]], [[f77_pocon]]. !> dpocon estimates the reciprocal of the condition number (in the !> 1-norm) of a real(REAL64) Hermitian positive definite matrix using the !> Cholesky factorization  A = U&#94;\\dagger U  or  A = LL&#94;\\dagger |) computed by dPOTRF. !> An estimate is obtained for norm(inv(A)), and the reciprocal of the !> condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))). pure subroutine dpocon ( uplo , n , a , lda , anorm , rcond , work , iwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: lda real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( in ) :: anorm real ( REAL64 ), intent ( out ) :: rcond real ( REAL64 ), intent ( inout ) :: work ( * ) integer , intent ( inout ) :: iwork ( * ) integer , intent ( out ) :: info end subroutine !> Original interface for CPOCON !> See also: [[mfi_pocon]], [[f77_pocon]]. !> cpocon estimates the reciprocal of the condition number (in the !> 1-norm) of a complex(REAL32) Hermitian positive definite matrix using the !> Cholesky factorization  A = U&#94;\\dagger U  or  A = LL&#94;\\dagger |) computed by cPOTRF. !> An estimate is obtained for norm(inv(A)), and the reciprocal of the !> condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))). pure subroutine cpocon ( uplo , n , a , lda , anorm , rcond , work , rwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: lda complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( in ) :: anorm real ( REAL32 ), intent ( out ) :: rcond complex ( REAL32 ), intent ( inout ) :: work ( * ) real ( REAL32 ), intent ( inout ) :: rwork ( * ) integer , intent ( out ) :: info end subroutine !> Original interface for ZPOCON !> See also: [[mfi_pocon]], [[f77_pocon]]. !> zpocon estimates the reciprocal of the condition number (in the !> 1-norm) of a complex(REAL64) Hermitian positive definite matrix using the !> Cholesky factorization  A = U&#94;\\dagger U  or  A = LL&#94;\\dagger |) computed by zPOTRF. !> An estimate is obtained for norm(inv(A)), and the reciprocal of the !> condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))). pure subroutine zpocon ( uplo , n , a , lda , anorm , rcond , work , rwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 character , intent ( in ) :: uplo integer , intent ( in ) :: n integer , intent ( in ) :: lda complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( in ) :: anorm real ( REAL64 ), intent ( out ) :: rcond complex ( REAL64 ), intent ( inout ) :: work ( * ) real ( REAL64 ), intent ( inout ) :: rwork ( * ) integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for HEEVX. !> Supports c, z. !> See also: [[mfi_heevx]], [[cheevx]],[[zheevx]]. interface f77_heevx !> Original interface for CHEEVX !> See also: [[mfi_heevx]], [[f77_heevx]]. pure subroutine cheevx ( jobz , range , uplo , n , a , lda , vl , vu , il , iu , abstol , m , w , z , ldz ,& work , lwork , rwork , lrwork , iwork , liwork , ifail , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: z ( ldz , * ) real ( REAL32 ), intent ( out ) :: w ( * ) integer , intent ( out ) :: info character , intent ( in ) :: jobz character , intent ( in ) :: uplo character , intent ( in ) :: range real ( REAL32 ), intent ( in ) :: vl real ( REAL32 ), intent ( in ) :: vu real ( REAL32 ), intent ( in ) :: abstol integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: lda integer , intent ( in ) :: ldz integer , intent ( in ) :: il integer , intent ( in ) :: iu integer , intent ( in ) :: lwork integer , intent ( in ) :: lrwork integer , intent ( in ) :: liwork integer , intent ( in ) :: ifail complex ( REAL32 ), intent ( inout ) :: work ( * ) real ( REAL32 ), intent ( inout ) :: rwork ( * ) integer , intent ( inout ) :: iwork ( * ) end subroutine !> Original interface for ZHEEVX !> See also: [[mfi_heevx]], [[f77_heevx]]. pure subroutine zheevx ( jobz , range , uplo , n , a , lda , vl , vu , il , iu , abstol , m , w , z , ldz ,& work , lwork , rwork , lrwork , iwork , liwork , ifail , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: z ( ldz , * ) real ( REAL64 ), intent ( out ) :: w ( * ) integer , intent ( out ) :: info character , intent ( in ) :: jobz character , intent ( in ) :: uplo character , intent ( in ) :: range real ( REAL64 ), intent ( in ) :: vl real ( REAL64 ), intent ( in ) :: vu real ( REAL64 ), intent ( in ) :: abstol integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: lda integer , intent ( in ) :: ldz integer , intent ( in ) :: il integer , intent ( in ) :: iu integer , intent ( in ) :: lwork integer , intent ( in ) :: lrwork integer , intent ( in ) :: liwork integer , intent ( in ) :: ifail complex ( REAL64 ), intent ( inout ) :: work ( * ) real ( REAL64 ), intent ( inout ) :: rwork ( * ) integer , intent ( inout ) :: iwork ( * ) end subroutine end interface !> Generic old style interface for HEEVR. !> Supports c, z. !> See also: [[mfi_heevr]], [[cheevr]],[[zheevr]]. interface f77_heevr !> Original interface for CHEEVR !> See also: [[mfi_heevr]], [[f77_heevr]]. pure subroutine cheevr ( jobz , range , uplo , n , a , lda , vl , vu , il , iu , abstol , m , w , z , ldz ,& isuppz , work , lwork , rwork , lrwork , iwork , liwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: z ( ldz , * ) real ( REAL32 ), intent ( out ) :: w ( * ) integer , intent ( out ) :: info character , intent ( in ) :: jobz character , intent ( in ) :: uplo character , intent ( in ) :: range real ( REAL32 ), intent ( in ) :: vl real ( REAL32 ), intent ( in ) :: vu real ( REAL32 ), intent ( in ) :: abstol integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: lda integer , intent ( in ) :: ldz integer , intent ( in ) :: il integer , intent ( in ) :: iu integer , intent ( in ) :: lwork integer , intent ( in ) :: lrwork integer , intent ( in ) :: liwork integer , intent ( in ) :: isuppz ( * ) complex ( REAL32 ), intent ( inout ) :: work ( * ) real ( REAL32 ), intent ( inout ) :: rwork ( * ) integer , intent ( inout ) :: iwork ( * ) end subroutine !> Original interface for ZHEEVR !> See also: [[mfi_heevr]], [[f77_heevr]]. pure subroutine zheevr ( jobz , range , uplo , n , a , lda , vl , vu , il , iu , abstol , m , w , z , ldz ,& isuppz , work , lwork , rwork , lrwork , iwork , liwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: z ( ldz , * ) real ( REAL64 ), intent ( out ) :: w ( * ) integer , intent ( out ) :: info character , intent ( in ) :: jobz character , intent ( in ) :: uplo character , intent ( in ) :: range real ( REAL64 ), intent ( in ) :: vl real ( REAL64 ), intent ( in ) :: vu real ( REAL64 ), intent ( in ) :: abstol integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: lda integer , intent ( in ) :: ldz integer , intent ( in ) :: il integer , intent ( in ) :: iu integer , intent ( in ) :: lwork integer , intent ( in ) :: lrwork integer , intent ( in ) :: liwork integer , intent ( in ) :: isuppz ( * ) complex ( REAL64 ), intent ( inout ) :: work ( * ) real ( REAL64 ), intent ( inout ) :: rwork ( * ) integer , intent ( inout ) :: iwork ( * ) end subroutine end interface !> Generic old style interface for GELS. !> Supports s, d, c, z. !> See also: [[mfi_gels]], [[sgels]],[[dgels]],[[cgels]],[[zgels]]. interface f77_gels !> Original interface for SGELS !> See also: [[mfi_gels]], [[f77_gels]]. !> SGELS solves overdetermined or underdetermined systems for GE matrices pure subroutine sgels ( trans , m , n , nrhs , a , lda , b , ldb , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 character , intent ( in ) :: trans real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: b ( ldb , * ) real ( REAL32 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: nrhs integer , intent ( in ) :: lwork end subroutine !> Original interface for DGELS !> See also: [[mfi_gels]], [[f77_gels]]. !> DGELS solves overdetermined or underdetermined systems for GE matrices pure subroutine dgels ( trans , m , n , nrhs , a , lda , b , ldb , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 character , intent ( in ) :: trans real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: b ( ldb , * ) real ( REAL64 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: nrhs integer , intent ( in ) :: lwork end subroutine !> Original interface for CGELS !> See also: [[mfi_gels]], [[f77_gels]]. !> CGELS solves overdetermined or underdetermined systems for GE matrices pure subroutine cgels ( trans , m , n , nrhs , a , lda , b , ldb , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 character , intent ( in ) :: trans complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: b ( ldb , * ) complex ( REAL32 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: nrhs integer , intent ( in ) :: lwork end subroutine !> Original interface for ZGELS !> See also: [[mfi_gels]], [[f77_gels]]. !> ZGELS solves overdetermined or underdetermined systems for GE matrices pure subroutine zgels ( trans , m , n , nrhs , a , lda , b , ldb , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 character , intent ( in ) :: trans complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: b ( ldb , * ) complex ( REAL64 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: nrhs integer , intent ( in ) :: lwork end subroutine end interface !> Generic old style interface for GELST. !> Supports s, d, c, z. !> See also: [[mfi_gelst]], [[sgelst]],[[dgelst]],[[cgelst]],[[zgelst]]. interface f77_gelst !> Original interface for SGELST !> See also: [[mfi_gelst]], [[f77_gelst]]. !> SGELST solves overdetermined or underdetermined systems for GE matrices !> using QR or LQ factorization with compact WY representation of Q. pure subroutine sgelst ( trans , m , n , nrhs , a , lda , b , ldb , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 character , intent ( in ) :: trans real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: b ( ldb , * ) real ( REAL32 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: nrhs integer , intent ( in ) :: lwork end subroutine !> Original interface for DGELST !> See also: [[mfi_gelst]], [[f77_gelst]]. !> DGELST solves overdetermined or underdetermined systems for GE matrices !> using QR or LQ factorization with compact WY representation of Q. pure subroutine dgelst ( trans , m , n , nrhs , a , lda , b , ldb , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 character , intent ( in ) :: trans real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: b ( ldb , * ) real ( REAL64 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: nrhs integer , intent ( in ) :: lwork end subroutine !> Original interface for CGELST !> See also: [[mfi_gelst]], [[f77_gelst]]. !> CGELST solves overdetermined or underdetermined systems for GE matrices !> using QR or LQ factorization with compact WY representation of Q. pure subroutine cgelst ( trans , m , n , nrhs , a , lda , b , ldb , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 character , intent ( in ) :: trans complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: b ( ldb , * ) complex ( REAL32 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: nrhs integer , intent ( in ) :: lwork end subroutine !> Original interface for ZGELST !> See also: [[mfi_gelst]], [[f77_gelst]]. !> ZGELST solves overdetermined or underdetermined systems for GE matrices !> using QR or LQ factorization with compact WY representation of Q. pure subroutine zgelst ( trans , m , n , nrhs , a , lda , b , ldb , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 character , intent ( in ) :: trans complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: b ( ldb , * ) complex ( REAL64 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: nrhs integer , intent ( in ) :: lwork end subroutine end interface !> Generic old style interface for GETSLS. !> Supports s, d, c, z. !> See also: [[mfi_getsls]], [[sgetsls]],[[dgetsls]],[[cgetsls]],[[zgetsls]]. interface f77_getsls !> Original interface for SGETSLS !> See also: [[mfi_getsls]], [[f77_getsls]]. !> SGETSLS solves overdetermined or underdetermined systems for GE matrices pure subroutine sgetsls ( trans , m , n , nrhs , a , lda , b , ldb , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 character , intent ( in ) :: trans real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: b ( ldb , * ) real ( REAL32 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: nrhs integer , intent ( in ) :: lwork end subroutine !> Original interface for DGETSLS !> See also: [[mfi_getsls]], [[f77_getsls]]. !> DGETSLS solves overdetermined or underdetermined systems for GE matrices pure subroutine dgetsls ( trans , m , n , nrhs , a , lda , b , ldb , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 character , intent ( in ) :: trans real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: b ( ldb , * ) real ( REAL64 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: nrhs integer , intent ( in ) :: lwork end subroutine !> Original interface for CGETSLS !> See also: [[mfi_getsls]], [[f77_getsls]]. !> CGETSLS solves overdetermined or underdetermined systems for GE matrices pure subroutine cgetsls ( trans , m , n , nrhs , a , lda , b , ldb , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 character , intent ( in ) :: trans complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: b ( ldb , * ) complex ( REAL32 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: nrhs integer , intent ( in ) :: lwork end subroutine !> Original interface for ZGETSLS !> See also: [[mfi_getsls]], [[f77_getsls]]. !> ZGETSLS solves overdetermined or underdetermined systems for GE matrices pure subroutine zgetsls ( trans , m , n , nrhs , a , lda , b , ldb , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 character , intent ( in ) :: trans complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: b ( ldb , * ) complex ( REAL64 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: nrhs integer , intent ( in ) :: lwork end subroutine end interface !> Generic old style interface for GELSD. !> Supports s, d, c, z. !> See also: [[mfi_gelsd]], [[sgelsd]],[[dgelsd]],[[cgelsd]],[[zgelsd]]. interface f77_gelsd !> Original interface for SGELSD !> See also: [[mfi_gelsd]], [[f77_gelsd]]. !> SGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices pure subroutine sgelsd ( m , n , nrhs , a , lda , b , ldb , s , rcond , rank , work , lwork , iwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: rcond real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: b ( ldb , * ) real ( REAL32 ), intent ( out ) :: s ( * ) real ( REAL32 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: iwork ( * ) integer , intent ( out ) :: info integer , intent ( out ) :: rank integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for DGELSD !> See also: [[mfi_gelsd]], [[f77_gelsd]]. !> DGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices pure subroutine dgelsd ( m , n , nrhs , a , lda , b , ldb , s , rcond , rank , work , lwork , iwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: rcond real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: b ( ldb , * ) real ( REAL64 ), intent ( out ) :: s ( * ) real ( REAL64 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: iwork ( * ) integer , intent ( out ) :: info integer , intent ( out ) :: rank integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for CGELSD !> See also: [[mfi_gelsd]], [[f77_gelsd]]. !> CGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices pure subroutine cgelsd ( m , n , nrhs , a , lda , b , ldb , s , rcond , rank , work , lwork , iwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: rcond complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: b ( ldb , * ) complex ( REAL32 ), intent ( out ) :: s ( * ) complex ( REAL32 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: iwork ( * ) integer , intent ( out ) :: info integer , intent ( out ) :: rank integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for ZGELSD !> See also: [[mfi_gelsd]], [[f77_gelsd]]. !> ZGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices pure subroutine zgelsd ( m , n , nrhs , a , lda , b , ldb , s , rcond , rank , work , lwork , iwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: rcond complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: b ( ldb , * ) complex ( REAL64 ), intent ( out ) :: s ( * ) complex ( REAL64 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: iwork ( * ) integer , intent ( out ) :: info integer , intent ( out ) :: rank integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine end interface !> Generic old style interface for GELSS. !> Supports s, d, c, z. !> See also: [[mfi_gelss]], [[sgelss]],[[dgelss]],[[cgelss]],[[zgelss]]. interface f77_gelss !> Original interface for SGELSS !> See also: [[mfi_gelss]], [[f77_gelss]]. !> SGELSS solves overdetermined or underdetermined systems for GE matrices pure subroutine sgelss ( m , n , nrhs , a , lda , b , ldb , s , rcond , rank , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: rcond real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: b ( ldb , * ) real ( REAL32 ), intent ( out ) :: s ( * ) real ( REAL32 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( out ) :: rank integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for DGELSS !> See also: [[mfi_gelss]], [[f77_gelss]]. !> DGELSS solves overdetermined or underdetermined systems for GE matrices pure subroutine dgelss ( m , n , nrhs , a , lda , b , ldb , s , rcond , rank , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: rcond real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: b ( ldb , * ) real ( REAL64 ), intent ( out ) :: s ( * ) real ( REAL64 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( out ) :: rank integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for CGELSS !> See also: [[mfi_gelss]], [[f77_gelss]]. !> CGELSS solves overdetermined or underdetermined systems for GE matrices pure subroutine cgelss ( m , n , nrhs , a , lda , b , ldb , s , rcond , rank , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: rcond complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: b ( ldb , * ) complex ( REAL32 ), intent ( out ) :: s ( * ) complex ( REAL32 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( out ) :: rank integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for ZGELSS !> See also: [[mfi_gelss]], [[f77_gelss]]. !> ZGELSS solves overdetermined or underdetermined systems for GE matrices pure subroutine zgelss ( m , n , nrhs , a , lda , b , ldb , s , rcond , rank , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: rcond complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: b ( ldb , * ) complex ( REAL64 ), intent ( out ) :: s ( * ) complex ( REAL64 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( out ) :: rank integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine end interface !> Generic old style interface for GELSY. !> Supports s, d, c, z. !> See also: [[mfi_gelsy]], [[sgelsy]],[[dgelsy]],[[cgelsy]],[[zgelsy]]. interface f77_gelsy !> Original interface for SGELSY !> See also: [[mfi_gelsy]], [[f77_gelsy]]. !> SGELSY solves overdetermined or underdetermined systems for GE matrices pure subroutine sgelsy ( m , n , nrhs , a , lda , b , ldb , jpvt , rcond , rank , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( in ) :: rcond real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: b ( ldb , * ) integer , intent ( inout ) :: jpvt ( * ) real ( REAL32 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( out ) :: rank integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for DGELSY !> See also: [[mfi_gelsy]], [[f77_gelsy]]. !> DGELSY solves overdetermined or underdetermined systems for GE matrices pure subroutine dgelsy ( m , n , nrhs , a , lda , b , ldb , jpvt , rcond , rank , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( in ) :: rcond real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: b ( ldb , * ) integer , intent ( inout ) :: jpvt ( * ) real ( REAL64 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( out ) :: rank integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for CGELSY !> See also: [[mfi_gelsy]], [[f77_gelsy]]. !> CGELSY solves overdetermined or underdetermined systems for GE matrices pure subroutine cgelsy ( m , n , nrhs , a , lda , b , ldb , jpvt , rcond , rank , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( in ) :: rcond complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: b ( ldb , * ) integer , intent ( inout ) :: jpvt ( * ) complex ( REAL32 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( out ) :: rank integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for ZGELSY !> See also: [[mfi_gelsy]], [[f77_gelsy]]. !> ZGELSY solves overdetermined or underdetermined systems for GE matrices pure subroutine zgelsy ( m , n , nrhs , a , lda , b , ldb , jpvt , rcond , rank , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( in ) :: rcond complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: b ( ldb , * ) integer , intent ( inout ) :: jpvt ( * ) complex ( REAL64 ), intent ( out ) :: work ( * ) integer , intent ( out ) :: info integer , intent ( out ) :: rank integer , intent ( in ) :: n integer , intent ( in ) :: m integer , intent ( in ) :: nrhs integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine end interface !> Generic old style interface for GGLSE. !> Supports s, d, c, z. !> See also: [[mfi_gglse]], [[sgglse]],[[dgglse]],[[cgglse]],[[zgglse]]. interface f77_gglse !> Original interface for SGGLSE !> See also: [[mfi_gglse]], [[f77_gglse]]. pure subroutine sgglse ( m , n , p , a , lda , b , ldb , c , d , x , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: b ( ldb , * ) real ( REAL32 ), intent ( inout ) :: c ( * ) real ( REAL32 ), intent ( inout ) :: d ( * ) real ( REAL32 ), intent ( out ) :: work ( * ) real ( REAL32 ), intent ( out ) :: x ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: p integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for DGGLSE !> See also: [[mfi_gglse]], [[f77_gglse]]. pure subroutine dgglse ( m , n , p , a , lda , b , ldb , c , d , x , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: b ( ldb , * ) real ( REAL64 ), intent ( inout ) :: c ( * ) real ( REAL64 ), intent ( inout ) :: d ( * ) real ( REAL64 ), intent ( out ) :: work ( * ) real ( REAL64 ), intent ( out ) :: x ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: p integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for CGGLSE !> See also: [[mfi_gglse]], [[f77_gglse]]. pure subroutine cgglse ( m , n , p , a , lda , b , ldb , c , d , x , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: b ( ldb , * ) complex ( REAL32 ), intent ( inout ) :: c ( * ) complex ( REAL32 ), intent ( inout ) :: d ( * ) complex ( REAL32 ), intent ( out ) :: work ( * ) complex ( REAL32 ), intent ( out ) :: x ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: p integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for ZGGLSE !> See also: [[mfi_gglse]], [[f77_gglse]]. pure subroutine zgglse ( m , n , p , a , lda , b , ldb , c , d , x , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: b ( ldb , * ) complex ( REAL64 ), intent ( inout ) :: c ( * ) complex ( REAL64 ), intent ( inout ) :: d ( * ) complex ( REAL64 ), intent ( out ) :: work ( * ) complex ( REAL64 ), intent ( out ) :: x ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: p integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine end interface !> Generic old style interface for GGLSM. !> Supports s, d, c, z. !> See also: [[mfi_gglsm]], [[sgglsm]],[[dgglsm]],[[cgglsm]],[[zgglsm]]. interface f77_gglsm !> Original interface for SGGLSM !> See also: [[mfi_gglsm]], [[f77_gglsm]]. pure subroutine sgglsm ( n , m , p , a , lda , b , ldb , d , x , y , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: b ( ldb , * ) real ( REAL32 ), intent ( inout ) :: d ( * ) real ( REAL32 ), intent ( out ) :: work ( * ) real ( REAL32 ), intent ( out ) :: x ( * ) real ( REAL32 ), intent ( out ) :: y ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: p integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for DGGLSM !> See also: [[mfi_gglsm]], [[f77_gglsm]]. pure subroutine dgglsm ( n , m , p , a , lda , b , ldb , d , x , y , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: b ( ldb , * ) real ( REAL64 ), intent ( inout ) :: d ( * ) real ( REAL64 ), intent ( out ) :: work ( * ) real ( REAL64 ), intent ( out ) :: x ( * ) real ( REAL64 ), intent ( out ) :: y ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: p integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for CGGLSM !> See also: [[mfi_gglsm]], [[f77_gglsm]]. pure subroutine cgglsm ( n , m , p , a , lda , b , ldb , d , x , y , work , lwork , info ) import :: REAL32 integer , parameter :: wp = REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: b ( ldb , * ) complex ( REAL32 ), intent ( inout ) :: d ( * ) complex ( REAL32 ), intent ( out ) :: work ( * ) complex ( REAL32 ), intent ( out ) :: x ( * ) complex ( REAL32 ), intent ( out ) :: y ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: p integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine !> Original interface for ZGGLSM !> See also: [[mfi_gglsm]], [[f77_gglsm]]. pure subroutine zgglsm ( n , m , p , a , lda , b , ldb , d , x , y , work , lwork , info ) import :: REAL64 integer , parameter :: wp = REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: b ( ldb , * ) complex ( REAL64 ), intent ( inout ) :: d ( * ) complex ( REAL64 ), intent ( out ) :: work ( * ) complex ( REAL64 ), intent ( out ) :: x ( * ) complex ( REAL64 ), intent ( out ) :: y ( * ) integer , intent ( out ) :: info integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: p integer , intent ( in ) :: lda integer , intent ( in ) :: ldb integer , intent ( in ) :: lwork end subroutine end interface !> Generic old style interface for ORG2R. !> Supports s, d. !> See also: [[mfi_org2r]], [[sorg2r]],[[dorg2r]]. interface f77_org2r !> Original interface for SORG2R !> See also: [[mfi_org2r]], [[f77_org2r]]. !> This routine generates an M \\times N  real(REAL32) !> matrix  Q  with orthonormal columns, !> which is defined as the first  N  columns of a product of  K  elementary !> reflectors of order  M . !>  Q  =  H(1) H(2) . . . H(k)  !> as returned by [[f77_geqrf:sgeqrf]]. pure subroutine sorg2r ( m , n , k , a , lda , tau , work , info ) import :: REAL32 real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( out ) :: work ( * ) real ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine !> Original interface for DORG2R !> See also: [[mfi_org2r]], [[f77_org2r]]. !> This routine generates an M \\times N  real(REAL64) !> matrix  Q  with orthonormal columns, !> which is defined as the first  N  columns of a product of  K  elementary !> reflectors of order  M . !>  Q  =  H(1) H(2) . . . H(k)  !> as returned by [[f77_geqrf:dgeqrf]]. pure subroutine dorg2r ( m , n , k , a , lda , tau , work , info ) import :: REAL64 real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( out ) :: work ( * ) real ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for ORGR2. !> Supports s, d. !> See also: [[mfi_orgr2]], [[sorgr2]],[[dorgr2]]. interface f77_orgr2 !> Original interface for SORGR2 !> See also: [[mfi_orgr2]], [[f77_orgr2]]. !> This routine generates an M \\times N  real(REAL32) !> matrix  Q  with orthonormal rows, !> which is defined as the last  M  rows of a product of  K  elementary !> reflectors of order  N . !>  Q  =  H(1)&#94;\\dagger H(2)&#94;\\dagger \\cdots H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:sgerqf]]. pure subroutine sorgr2 ( m , n , k , a , lda , tau , work , info ) import :: REAL32 real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( out ) :: work ( * ) real ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine !> Original interface for DORGR2 !> See also: [[mfi_orgr2]], [[f77_orgr2]]. !> This routine generates an M \\times N  real(REAL64) !> matrix  Q  with orthonormal rows, !> which is defined as the last  M  rows of a product of  K  elementary !> reflectors of order  N . !>  Q  =  H(1)&#94;\\dagger H(2)&#94;\\dagger \\cdots H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:dgerqf]]. pure subroutine dorgr2 ( m , n , k , a , lda , tau , work , info ) import :: REAL64 real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( out ) :: work ( * ) real ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for ORM2R. !> Supports s, d. !> See also: [[mfi_orm2r]], [[sorm2r]],[[dorm2r]]. interface f77_orm2r !> Original interface for SORM2R !> See also: [[mfi_orm2r]], [[f77_orm2r]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1) H(2) \\cdots H(k)  !> as returned by [[f77_geqrf:sgeqrf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine sorm2r ( side , trans , m , n , k , a , lda , tau , c , ldc , work , info ) import :: REAL32 character , intent ( in ) :: side character , intent ( in ) :: trans real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: c ( ldc , * ) real ( REAL32 ), intent ( out ) :: work ( * ) real ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( out ) :: info end subroutine !> Original interface for DORM2R !> See also: [[mfi_orm2r]], [[f77_orm2r]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1) H(2) \\cdots H(k)  !> as returned by [[f77_geqrf:dgeqrf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine dorm2r ( side , trans , m , n , k , a , lda , tau , c , ldc , work , info ) import :: REAL64 character , intent ( in ) :: side character , intent ( in ) :: trans real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: c ( ldc , * ) real ( REAL64 ), intent ( out ) :: work ( * ) real ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for ORMR2. !> Supports s, d. !> See also: [[mfi_ormr2]], [[sormr2]],[[dormr2]]. interface f77_ormr2 !> Original interface for SORMR2 !> See also: [[mfi_ormr2]], [[f77_ormr2]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1)&#94;\\dagger H(2)&#94;\\dagger \\cdots H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:sgerqf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine sormr2 ( side , trans , m , n , k , a , lda , tau , c , ldc , work , info ) import :: REAL32 character , intent ( in ) :: side character , intent ( in ) :: trans real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: c ( ldc , * ) real ( REAL32 ), intent ( out ) :: work ( * ) real ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( out ) :: info end subroutine !> Original interface for DORMR2 !> See also: [[mfi_ormr2]], [[f77_ormr2]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1)&#94;\\dagger H(2)&#94;\\dagger \\cdots H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:dgerqf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine dormr2 ( side , trans , m , n , k , a , lda , tau , c , ldc , work , info ) import :: REAL64 character , intent ( in ) :: side character , intent ( in ) :: trans real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: c ( ldc , * ) real ( REAL64 ), intent ( out ) :: work ( * ) real ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for ORMQR. !> Supports s, d. !> See also: [[mfi_ormqr]], [[sormqr]],[[dormqr]]. interface f77_ormqr !> Original interface for SORMQR !> See also: [[mfi_ormqr]], [[f77_ormqr]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1) H(2) \\cdots H(k)  !> as returned by [[f77_geqrf:sgeqrf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine sormqr ( side , trans , m , n , k , a , lda , tau , c , ldc , work , lwork , info ) import :: REAL32 character , intent ( in ) :: side character , intent ( in ) :: trans real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: c ( ldc , * ) real ( REAL32 ), intent ( out ) :: work ( * ) real ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine !> Original interface for DORMQR !> See also: [[mfi_ormqr]], [[f77_ormqr]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1) H(2) \\cdots H(k)  !> as returned by [[f77_geqrf:dgeqrf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine dormqr ( side , trans , m , n , k , a , lda , tau , c , ldc , work , lwork , info ) import :: REAL64 character , intent ( in ) :: side character , intent ( in ) :: trans real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: c ( ldc , * ) real ( REAL64 ), intent ( out ) :: work ( * ) real ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for ORMRQ. !> Supports s, d. !> See also: [[mfi_ormrq]], [[sormrq]],[[dormrq]]. interface f77_ormrq !> Original interface for SORMRQ !> See also: [[mfi_ormrq]], [[f77_ormrq]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1)&#94;\\dagger H(2)&#94;\\dagger \\cdots H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:sgerqf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine sormrq ( side , trans , m , n , k , a , lda , tau , c , ldc , work , lwork , info ) import :: REAL32 character , intent ( in ) :: side character , intent ( in ) :: trans real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( inout ) :: c ( ldc , * ) real ( REAL32 ), intent ( out ) :: work ( * ) real ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine !> Original interface for DORMRQ !> See also: [[mfi_ormrq]], [[f77_ormrq]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1)&#94;\\dagger H(2)&#94;\\dagger \\cdots H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:dgerqf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine dormrq ( side , trans , m , n , k , a , lda , tau , c , ldc , work , lwork , info ) import :: REAL64 character , intent ( in ) :: side character , intent ( in ) :: trans real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( inout ) :: c ( ldc , * ) real ( REAL64 ), intent ( out ) :: work ( * ) real ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for ORGQR. !> Supports s, d. !> See also: [[mfi_orgqr]], [[sorgqr]],[[dorgqr]]. interface f77_orgqr !> Original interface for SORGQR !> See also: [[mfi_orgqr]], [[f77_orgqr]]. !> This routine generates an M \\times N  real(REAL32) !> matrix  Q  with orthonormal columns, !> which is defined as the first  N  columns of a product of  K  elementary !> reflectors of order  M . !>  Q  =  H(1) H(2) . . . H(k)  !> as returned by [[f77_geqrf:sgeqrf]]. pure subroutine sorgqr ( m , n , k , a , lda , tau , work , lwork , info ) import :: REAL32 real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( out ) :: work ( * ) real ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine !> Original interface for DORGQR !> See also: [[mfi_orgqr]], [[f77_orgqr]]. !> This routine generates an M \\times N  real(REAL64) !> matrix  Q  with orthonormal columns, !> which is defined as the first  N  columns of a product of  K  elementary !> reflectors of order  M . !>  Q  =  H(1) H(2) . . . H(k)  !> as returned by [[f77_geqrf:dgeqrf]]. pure subroutine dorgqr ( m , n , k , a , lda , tau , work , lwork , info ) import :: REAL64 real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( out ) :: work ( * ) real ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for ORGRQ. !> Supports s, d. !> See also: [[mfi_orgrq]], [[sorgrq]],[[dorgrq]]. interface f77_orgrq !> Original interface for SORGRQ !> See also: [[mfi_orgrq]], [[f77_orgrq]]. !> This routine generates an M \\times N  real(REAL32) !> matrix  Q  with orthonormal columns, !> which is defined as the first  N  columns of a product of  K  elementary !> reflectors of order  N . !>  Q  =  H(1)&#94;\\dagger H(2)&#94;\\dagger . . . H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:sgerqf]]. pure subroutine sorgrq ( m , n , k , a , lda , tau , work , lwork , info ) import :: REAL32 real ( REAL32 ), intent ( inout ) :: a ( lda , * ) real ( REAL32 ), intent ( out ) :: work ( * ) real ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine !> Original interface for DORGRQ !> See also: [[mfi_orgrq]], [[f77_orgrq]]. !> This routine generates an M \\times N  real(REAL64) !> matrix  Q  with orthonormal columns, !> which is defined as the first  N  columns of a product of  K  elementary !> reflectors of order  N . !>  Q  =  H(1)&#94;\\dagger H(2)&#94;\\dagger . . . H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:dgerqf]]. pure subroutine dorgrq ( m , n , k , a , lda , tau , work , lwork , info ) import :: REAL64 real ( REAL64 ), intent ( inout ) :: a ( lda , * ) real ( REAL64 ), intent ( out ) :: work ( * ) real ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for UNG2R. !> Supports c, z. !> See also: [[mfi_ung2r]], [[cung2r]],[[zung2r]]. interface f77_ung2r !> Original interface for CUNG2R !> See also: [[mfi_ung2r]], [[f77_ung2r]]. !> This routine generates an M \\times N  complex(REAL32) !> matrix  Q  with orthonormal columns, !> which is defined as the first  N  columns of a product of  K  elementary !> reflectors of order  M . !>  Q  =  H(1) H(2) . . . H(k)  !> as returned by [[f77_geqrf:cgeqrf]]. pure subroutine cung2r ( m , n , k , a , lda , tau , work , info ) import :: REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( out ) :: work ( * ) complex ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine !> Original interface for ZUNG2R !> See also: [[mfi_ung2r]], [[f77_ung2r]]. !> This routine generates an M \\times N  complex(REAL64) !> matrix  Q  with orthonormal columns, !> which is defined as the first  N  columns of a product of  K  elementary !> reflectors of order  M . !>  Q  =  H(1) H(2) . . . H(k)  !> as returned by [[f77_geqrf:zgeqrf]]. pure subroutine zung2r ( m , n , k , a , lda , tau , work , info ) import :: REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( out ) :: work ( * ) complex ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for UNGR2. !> Supports c, z. !> See also: [[mfi_ungr2]], [[cungr2]],[[zungr2]]. interface f77_ungr2 !> Original interface for CUNGR2 !> See also: [[mfi_ungr2]], [[f77_ungr2]]. !> This routine generates an M \\times N  complex(REAL32) !> matrix  Q  with orthonormal rows, !> which is defined as the last  M  rows of a product of  K  elementary !> reflectors of order  N . !>  Q  =  H(1)&#94;\\dagger H(2)&#94;\\dagger \\cdots H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:cgerqf]]. pure subroutine cungr2 ( m , n , k , a , lda , tau , work , info ) import :: REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( out ) :: work ( * ) complex ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine !> Original interface for ZUNGR2 !> See also: [[mfi_ungr2]], [[f77_ungr2]]. !> This routine generates an M \\times N  complex(REAL64) !> matrix  Q  with orthonormal rows, !> which is defined as the last  M  rows of a product of  K  elementary !> reflectors of order  N . !>  Q  =  H(1)&#94;\\dagger H(2)&#94;\\dagger \\cdots H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:zgerqf]]. pure subroutine zungr2 ( m , n , k , a , lda , tau , work , info ) import :: REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( out ) :: work ( * ) complex ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for UNM2R. !> Supports c, z. !> See also: [[mfi_unm2r]], [[cunm2r]],[[zunm2r]]. interface f77_unm2r !> Original interface for CUNM2R !> See also: [[mfi_unm2r]], [[f77_unm2r]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1) H(2) \\cdots H(k)  !> as returned by [[f77_geqrf:cgeqrf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine cunm2r ( side , trans , m , n , k , a , lda , tau , c , ldc , work , info ) import :: REAL32 character , intent ( in ) :: side character , intent ( in ) :: trans complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: c ( ldc , * ) complex ( REAL32 ), intent ( out ) :: work ( * ) complex ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( out ) :: info end subroutine !> Original interface for ZUNM2R !> See also: [[mfi_unm2r]], [[f77_unm2r]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1) H(2) \\cdots H(k)  !> as returned by [[f77_geqrf:zgeqrf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine zunm2r ( side , trans , m , n , k , a , lda , tau , c , ldc , work , info ) import :: REAL64 character , intent ( in ) :: side character , intent ( in ) :: trans complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: c ( ldc , * ) complex ( REAL64 ), intent ( out ) :: work ( * ) complex ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for UNMR2. !> Supports c, z. !> See also: [[mfi_unmr2]], [[cunmr2]],[[zunmr2]]. interface f77_unmr2 !> Original interface for CUNMR2 !> See also: [[mfi_unmr2]], [[f77_unmr2]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1)&#94;\\dagger H(2)&#94;\\dagger \\cdots H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:cgerqf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine cunmr2 ( side , trans , m , n , k , a , lda , tau , c , ldc , work , info ) import :: REAL32 character , intent ( in ) :: side character , intent ( in ) :: trans complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: c ( ldc , * ) complex ( REAL32 ), intent ( out ) :: work ( * ) complex ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( out ) :: info end subroutine !> Original interface for ZUNMR2 !> See also: [[mfi_unmr2]], [[f77_unmr2]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1)&#94;\\dagger H(2)&#94;\\dagger \\cdots H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:zgerqf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine zunmr2 ( side , trans , m , n , k , a , lda , tau , c , ldc , work , info ) import :: REAL64 character , intent ( in ) :: side character , intent ( in ) :: trans complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: c ( ldc , * ) complex ( REAL64 ), intent ( out ) :: work ( * ) complex ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for UNMQR. !> Supports c, z. !> See also: [[mfi_unmqr]], [[cunmqr]],[[zunmqr]]. interface f77_unmqr !> Original interface for CUNMQR !> See also: [[mfi_unmqr]], [[f77_unmqr]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1) H(2) \\cdots H(k)  !> as returned by [[f77_geqrf:cgeqrf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine cunmqr ( side , trans , m , n , k , a , lda , tau , c , ldc , work , lwork , info ) import :: REAL32 character , intent ( in ) :: side character , intent ( in ) :: trans complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: c ( ldc , * ) complex ( REAL32 ), intent ( out ) :: work ( * ) complex ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine !> Original interface for ZUNMQR !> See also: [[mfi_unmqr]], [[f77_unmqr]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1) H(2) \\cdots H(k)  !> as returned by [[f77_geqrf:zgeqrf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine zunmqr ( side , trans , m , n , k , a , lda , tau , c , ldc , work , lwork , info ) import :: REAL64 character , intent ( in ) :: side character , intent ( in ) :: trans complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: c ( ldc , * ) complex ( REAL64 ), intent ( out ) :: work ( * ) complex ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for UNMRQ. !> Supports c, z. !> See also: [[mfi_unmrq]], [[cunmrq]],[[zunmrq]]. interface f77_unmrq !> Original interface for CUNMRQ !> See also: [[mfi_unmrq]], [[f77_unmrq]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1)&#94;\\dagger H(2)&#94;\\dagger \\cdots H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:cgerqf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine cunmrq ( side , trans , m , n , k , a , lda , tau , c , ldc , work , lwork , info ) import :: REAL32 character , intent ( in ) :: side character , intent ( in ) :: trans complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( inout ) :: c ( ldc , * ) complex ( REAL32 ), intent ( out ) :: work ( * ) complex ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine !> Original interface for ZUNMRQ !> See also: [[mfi_unmrq]], [[f77_unmrq]]. !> This routine overwrites the general complex M \\times N matrix  C  with !>```fortran !>                 SIDE = 'L'     SIDE = 'R' !> TRANS = 'N':      Q * C          C * Q !> TRANS = 'C':      Q**H * C       C * Q**H !>``` !> where Q is a complex unitary matrix defined as the product of k !> elementary reflectors !> !>  Q = H(1)&#94;\\dagger H(2)&#94;\\dagger \\cdots H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:zgerqf]]. !>  Q  is of order  M  if `SIDE = 'L'` !> and of order  N  if `SIDE = 'R'`. pure subroutine zunmrq ( side , trans , m , n , k , a , lda , tau , c , ldc , work , lwork , info ) import :: REAL64 character , intent ( in ) :: side character , intent ( in ) :: trans complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( inout ) :: c ( ldc , * ) complex ( REAL64 ), intent ( out ) :: work ( * ) complex ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: ldc integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for UNGQR. !> Supports c, z. !> See also: [[mfi_ungqr]], [[cungqr]],[[zungqr]]. interface f77_ungqr !> Original interface for CUNGQR !> See also: [[mfi_ungqr]], [[f77_ungqr]]. !> This routine generates an M \\times N  complex(REAL32) !> matrix  Q  with orthonormal columns, !> which is defined as the first  N  columns of a product of  K  elementary !> reflectors of order  M . !>  Q  =  H(1) H(2) . . . H(k)  !> as returned by [[f77_geqrf:cgeqrf]]. pure subroutine cungqr ( m , n , k , a , lda , tau , work , lwork , info ) import :: REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( out ) :: work ( * ) complex ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine !> Original interface for ZUNGQR !> See also: [[mfi_ungqr]], [[f77_ungqr]]. !> This routine generates an M \\times N  complex(REAL64) !> matrix  Q  with orthonormal columns, !> which is defined as the first  N  columns of a product of  K  elementary !> reflectors of order  M . !>  Q  =  H(1) H(2) . . . H(k)  !> as returned by [[f77_geqrf:zgeqrf]]. pure subroutine zungqr ( m , n , k , a , lda , tau , work , lwork , info ) import :: REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( out ) :: work ( * ) complex ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for UNGRQ. !> Supports c, z. !> See also: [[mfi_ungrq]], [[cungrq]],[[zungrq]]. interface f77_ungrq !> Original interface for CUNGRQ !> See also: [[mfi_ungrq]], [[f77_ungrq]]. !> This routine generates an M \\times N  complex(REAL32) !> matrix  Q  with orthonormal columns, !> which is defined as the first  N  columns of a product of  K  elementary !> reflectors of order  N . !>  Q  =  H(1)&#94;\\dagger H(2)&#94;\\dagger . . . H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:cgerqf]]. pure subroutine cungrq ( m , n , k , a , lda , tau , work , lwork , info ) import :: REAL32 complex ( REAL32 ), intent ( inout ) :: a ( lda , * ) complex ( REAL32 ), intent ( out ) :: work ( * ) complex ( REAL32 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine !> Original interface for ZUNGRQ !> See also: [[mfi_ungrq]], [[f77_ungrq]]. !> This routine generates an M \\times N  complex(REAL64) !> matrix  Q  with orthonormal columns, !> which is defined as the first  N  columns of a product of  K  elementary !> reflectors of order  N . !>  Q  =  H(1)&#94;\\dagger H(2)&#94;\\dagger . . . H(k)&#94;\\dagger  !> as returned by [[f77_gerqf:zgerqf]]. pure subroutine zungrq ( m , n , k , a , lda , tau , work , lwork , info ) import :: REAL64 complex ( REAL64 ), intent ( inout ) :: a ( lda , * ) complex ( REAL64 ), intent ( out ) :: work ( * ) complex ( REAL64 ), intent ( in ) :: tau ( * ) integer , intent ( in ) :: m integer , intent ( in ) :: n integer , intent ( in ) :: k integer , intent ( in ) :: lda integer , intent ( in ) :: lwork integer , intent ( out ) :: info end subroutine end interface !> Generic old style interface for LARTG. !> Supports s, d, c, z. !> See also: [[mfi_lartg]], [[slartg]],[[dlartg]],[[clartg]],[[zlartg]]. interface f77_lartg !> Original interface for SLARTG !> See also: [[mfi_lartg]], [[f77_lartg]]. pure subroutine slartg ( f , g , c , s , r ) import :: REAL32 integer , parameter :: wp = REAL32 real ( wp ), intent ( inout ) :: c real ( REAL32 ), intent ( inout ) :: f real ( REAL32 ), intent ( inout ) :: g real ( REAL32 ), intent ( inout ) :: r real ( REAL32 ), intent ( inout ) :: s end subroutine !> Original interface for DLARTG !> See also: [[mfi_lartg]], [[f77_lartg]]. pure subroutine dlartg ( f , g , c , s , r ) import :: REAL64 integer , parameter :: wp = REAL64 real ( wp ), intent ( inout ) :: c real ( REAL64 ), intent ( inout ) :: f real ( REAL64 ), intent ( inout ) :: g real ( REAL64 ), intent ( inout ) :: r real ( REAL64 ), intent ( inout ) :: s end subroutine !> Original interface for CLARTG !> See also: [[mfi_lartg]], [[f77_lartg]]. pure subroutine clartg ( f , g , c , s , r ) import :: REAL32 integer , parameter :: wp = REAL32 real ( wp ), intent ( inout ) :: c complex ( REAL32 ), intent ( inout ) :: f complex ( REAL32 ), intent ( inout ) :: g complex ( REAL32 ), intent ( inout ) :: r complex ( REAL32 ), intent ( inout ) :: s end subroutine !> Original interface for ZLARTG !> See also: [[mfi_lartg]], [[f77_lartg]]. pure subroutine zlartg ( f , g , c , s , r ) import :: REAL64 integer , parameter :: wp = REAL64 real ( wp ), intent ( inout ) :: c complex ( REAL64 ), intent ( inout ) :: f complex ( REAL64 ), intent ( inout ) :: g complex ( REAL64 ), intent ( inout ) :: r complex ( REAL64 ), intent ( inout ) :: s end subroutine end interface interface f77_xerbla pure subroutine xerbla ( name , info ) character ( * ), intent ( in ) :: name integer , intent ( in ) :: info end subroutine end interface f77_xerbla end module","tags":"","loc":"sourcefile/lapack.f90~2.html"}]}
\ No newline at end of file