← Back to branch summary

~siesta-pseudos-bases/siesta/trunk-psml

« back to all changes in this revision

Viewing changes to Src/compute_max_diff.F90

  • Committer: Alberto Garcia
  • Date: 2019-09-02 14:09:43 UTC
  • mfrom: (427.6.323 trunk)
  • Revision ID: albertog@icmab.es-20190902140943-mzmbe1jacgefpgxw
Sync to trunk-776 (notably nc/soc wavefunction support)


Show diffs side-by-side

added added

removed removed

Lines of Context:
Src/compute_max_diff.F90
47
47
    
48
48
    max_diff = 0.0_dp
49
49
!$OMP parallel do default(shared), private(i2,i1), &
50
 
!$OMP& reduction(max:max_diff), collapse(2)
 
50
!$OMP& reduction(max:max_diff)
51
51
    do i2 = 1 , n2
52
52
       do i1 = 1 , n1
53
53
          max_diff = max(max_diff, abs(X1(i1,i2) - X2(i1,i2)) )