← Back to branch summary

~siesta-maint/siesta/trunk

« back to all changes in this revision

Viewing changes to Src/m_chess.F90

  • Committer: Nick Papior
  • Date: 2018-10-17 18:26:01 UTC
  • Revision ID: nickpapior@gmail.com-20181017182601-2osfj4zpzsmuysd5
Fixed CheSS module to not expose non-existing routines, thanks to Yann Pouillon

Show diffs side-by-side

added added

removed removed

Lines of Context:
Src/m_chess.F90
1
1
module m_chess
2
2
 
3
 
use precision,      only : dp
 
3
  use precision,      only : dp
4
4
#ifdef MPI
5
 
use mpi_siesta,     only : mpi_integer, mpi_double_precision, mpi_status_size
6
 
use parallelsubs,   only : GetNodeOrbs, GlobalToLocalOrb, WhichNodeOrb
7
 
use parallelsubs,   only : set_BlockSizeDefault
 
5
  use mpi_siesta,     only : mpi_integer, mpi_double_precision, mpi_status_size
 
6
  use parallelsubs,   only : GetNodeOrbs, GlobalToLocalOrb, WhichNodeOrb
 
7
  use parallelsubs,   only : set_BlockSizeDefault
8
8
#endif
9
 
use parallel, only: Node, Nodes, BlockSize, IOnode
 
9
  use parallel, only: Node, Nodes, BlockSize, IOnode
10
10
 
11
11
#ifdef SIESTA__CHESS
12
12
  ! The following modules used to be in sparsematrix_base...
27
27
 
28
28
  private
29
29
 
 
30
#ifdef SIESTA__CHESS
 
31
 
30
32
  !Public routines
31
33
  public :: CheSS_wrapper
32
34
  public :: CheSS_init
34
36
  public :: get_CheSS_parameter
35
37
  public :: set_CheSS_parameter
36
38
 
37
 
#ifdef SIESTA__CHESS
38
 
 
39
39
  ! Global variables, private to this module
40
40
  integer :: nvctr, nvctr_kernel, nvctr_mult
41
41
  type(sparse_matrix),dimension(2) :: smat