Ticket #35508: patch-SRC-cneupd.f.diff

./SRC/cneupd.f

@@ -312 +312 @@
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   ccopy , cgeru, cgeqr2, clacpy, cmout,
+      external   ccopy , cdotc, cgeru, cgeqr2, clacpy, cmout,
      &           cunm2r, ctrmm, cvout, ivout,
      &           clahqr
 c  
@@ -324 +324 @@
      &           scnrm2, slamch, slapy2
       external   scnrm2, slamch, slapy2
 c
-      Complex
-     &           cdotc
-      external   cdotc
-c
 c     %-----------------------%
 c     | Executable Statements |
 c     %-----------------------%
@@ -731 +727 @@
 c                 | inner product can be set to j.           |
 c                 %------------------------------------------%
 c 
-                  workev(j) = cdotc(j, workl(ihbds), 1,
+                  call cdotc( workev(j), j, workl(ihbds), 1,
      &                        workl(invsub+(j-1)*ldq), 1)
  40         continue
 c