← Back to branch summary

~albertog/siesta/psml-xc

« back to all changes in this revision

Viewing changes to Src/forhar.F

  • Committer: Alberto Garcia
  • Date: 2018-11-03 23:36:37 UTC
  • Revision ID: albertog@icmab.es-20181103233637-b5lb7ej7jwd4gix3
Fuller support for xc handles and streamlined logic

Second step in the conversion, including Util.

XC mode is still "strict": based on pseudopotential information.
More options will be given later.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Src/forhar.F
16
16
      use gridXC , only : jms_setMeshDistr => setMeshDistr
17
17
                                        ! Sets a distribution of mesh
18
18
                                        ! points over parallel processors
19
 
      use xc_info, only : xc_handle
 
19
      use xc_info_m, only : xc_siesta
20
20
#else /* BSC_CELLXC */
21
21
      use mesh
22
22
      use moreMeshSubs, only : setMeshDistr, distMeshData
188
188
      ENDDO
189
189
 
190
190
#ifndef BSC_CELLXC
191
 
      CALL CELLXC( xc_handle, 0, CELL, NTM, myBox(1,1), myBox(2,1),
 
191
      CALL CELLXC( xc_siesta, 0, CELL, NTM, myBox(1,1), myBox(2,1),
192
192
     .                           myBox(1,2), myBox(2,2),
193
193
     .                           myBox(1,3), myBox(2,3), NSPIN, DRHOIN,
194
194
     .             EX, EC, DEX, DEC, STRESS, VHARRIS1, DVXCDN )