← Back to branch summary

~albertog/siesta/4.0-stm

« back to all changes in this revision

Viewing changes to Src/debugmpi.F

  • Committer: Alberto Garcia
  • Date: 2016-09-13 12:00:42 UTC
  • mfrom: (500.1.6 4.0-ag)
  • Revision ID: albertog@icmab.es-20160913120042-79waws5ec5d2cc49
Changes to further standards compliance

Brought about by the use of extra compiler checks, notably by g95 and
the '-std=f2003 -fall-intrinsics' setting in gfortran.

Apart from syntax and visibility issues, non-standard declarations
such as "real*8" have been removed.

Also, the building of the MPI interfaces has been updated to properly
include 8-byte integers.

(Declarations in the code in Util are not fully updated yet)
                

        

Show diffs side-by-side

added added

removed removed

Lines of Context:
Src/debugmpi.F
8
8
      module debugMpi
9
9
      logical, save     :: debugON = .false.
10
10
      integer, save     :: mpiUnit  = 23
 
11
      integer, parameter :: local_dp = selected_real_kind(10,300)
11
12
      end module
12
13
 
13
14
      subroutine debugMpiOn( )
57
58
      use debugMpi
58
59
      implicit none
59
60
      integer        :: n
60
 
      real*8         :: x(n)
 
61
      real(local_dp)       :: x(n)
61
62
!------------------------------------------------------------------------- BEGIN
62
63
      if (debugON) then
63
64
        write(mpiUnit,*) x
69
70
      subroutine write_double( x )
70
71
      use debugMpi
71
72
      implicit none
72
 
      real*8         :: x
 
73
      real(local_dp)       :: x
73
74
!------------------------------------------------------------------------- BEGIN
74
75
      if (debugON) then
75
76
        write(mpiUnit,*) x