From 8f839b44fed0fb6f81cb035cdd8cfa0190a6eeb5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lorenz=20H=C3=BCdepohl?= Date: Tue, 10 Jun 2014 18:54:42 +0200 Subject: [PATCH] Wrap overly long line exceeding 132 characters --- ELPA_2014.06/src/elpa2.F90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/ELPA_2014.06/src/elpa2.F90 b/ELPA_2014.06/src/elpa2.F90 index 5791a625..6e056fe5 100644 --- a/ELPA_2014.06/src/elpa2.F90 +++ b/ELPA_2014.06/src/elpa2.F90 @@ -3884,7 +3884,8 @@ subroutine tridiag_band_complex(na, nb, nblk, a, lda, d, e, mpi_comm_rows, mpi_c h(2:nb) = h(2:nb) - x*hv(2:nb) ! Unfortunately there is no BLAS routine like DSYR2 for a nonsymmetric rank 2 update ("DGER2") do i=2,nb - ab(2+nb-i:1+nb+nr-i,i+ns-1) = ab(2+nb-i:1+nb+nr-i,i+ns-1) - hv_t(1:nr,my_thread)*conjg(h(i)) - hs(1:nr)*conjg(hv(i)) + ab(2+nb-i:1+nb+nr-i,i+ns-1) = ab(2+nb-i:1+nb+nr-i,i+ns-1) & + - hv_t(1:nr,my_thread)*conjg(h(i)) - hs(1:nr)*conjg(hv(i)) enddo else -- GitLab