- bug fix in the routine that try to evaluate the performance

of the parallel matrix multiply


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3692 c92efa57-630b-4861-b058-cf58834340f0

CPV/ortho_base.f90

@@ -299,8 +299,6 @@ CONTAINS
       !
       REAL(DP) :: cclock
       EXTERNAL :: cclock
-      INTEGER  :: ldim_block, gind_block
-      EXTERNAL :: ldim_block, gind_block
       !
       IF( ortho_para > 0 ) THEN
          !
@@ -344,8 +342,8 @@ CONTAINS
    
          CALL mp_barrier( intra_image_comm )
          t1 = cclock()
-   
-         CALL sqr_mm_cannon( 'N', 'N', n, 1.0d0, a, nr, b, n, 0.0d0, c, nr, desc)
+
+         CALL sqr_mm_cannon( 'N', 'N', n, 1.0d0, a, nr, b, nr, 0.0d0, c, nr, desc)
    
          tcan = cclock() - t1
          CALL mp_max( tcan, intra_image_comm )