← Back to branch summary

~nickpapior/siesta/tddft-work

« back to all changes in this revision

Viewing changes to Src/m_ts_tri_scat.F90

  • Committer: Rafi Ullah
  • Date: 2017-08-30 14:09:10 UTC
  • mfrom: (611.1.19 trunk)
  • Revision ID: rraffiu@gmail.com-20170830140910-bhu0osuh4d59wn8e
Merged with trunk-630

Show diffs side-by-side

added added

removed removed

Lines of Context:
Src/m_ts_tri_scat.F90
129
129
#else
130
130
       call zgemm( &
131
131
#endif
132
 
            'T','C',no,sN,no, zi, El%Gamma, no, &
 
132
            'T','C',no,sN,no, z1, El%Gamma, no, &
133
133
            Gf, sN, z0, work, no)
134
134
       
135
135
       ! Now we are ready to perform the multiplication
546
546
#else
547
547
       call zgemm( &
548
548
#endif
549
 
            'N','T',nb,no,no, zi, zwork(i_Elec), sNc, &
 
549
            'N','T',nb,no,no, z1, zwork(i_Elec), sNc, &
550
550
            El%Gamma, no, z0, ztmp(1), nb)
551
551
 
552
552
#ifdef TBTRANS