TABLE OF CONTENTS

ABINIT/m_global [ Modules ]

[ Top ] [ Modules ]

NAME

  m_global

FUNCTION

  Manage error and warnings for the ctqmc

COPYRIGHT

  Copyright (C) 2013-2018 ABINIT group (J. Bieder)
  This file is distributed under the terms of the
  GNU General Public License, see ~abinit/COPYING
  or http://www.gnu.org/copyleft/gpl.txt .

NOTES

PARENTS

  Will be filled automatically by the parent script

CHILDREN

  Will be filled automatically by the parent script

SOURCE

28 #include "defs.h"
29 
30 MODULE m_Global
31 
32 #if defined HAVE_CONFIG_H
33 ! we are in abinit
34 USE defs_basis
35 USE m_profiling_abi
36 USE m_errors
37 USE m_xmpi
38 #endif
39 #ifdef HAVE_MPI2
40 USE mpi
41 #endif
42 
43 IMPLICIT NONE
44 
45 PUBLIC
46 
47 PUBLIC :: ERROR
48 PUBLIC :: WARN
49 PUBLIC :: WARNALL
50 
51 CONTAINS

ABINIT/m_global/ERROR [ Functions ]

[ Top ] [ Functions ]

NAME

  ERROR

FUNCTION

  error dectected => leave

COPYRIGHT

  Copyright (C) 2013-2018 ABINIT group (J. Bieder)
  This file is distributed under the terms of the
  GNU General Public License, see ~abinit/COPYING
  or http://www.gnu.org/copyleft/gpl.txt .

INPUTS

  message=error message to display

OUTPUT

SIDE EFFECTS

NOTES

PARENTS

  Will be filled automatically by the parent script

CHILDREN

  Will be filled automatically by the parent script

SOURCE

 84 SUBROUTINE ERROR(message)
 85 
 86 
 87 !This section has been created automatically by the script Abilint (TD).
 88 !Do not modify the following lines by hand.
 89 #undef ABI_FUNC
 90 #define ABI_FUNC 'ERROR'
 91 !End of the abilint section
 92 
 93 !Arguments ------------------------------------
 94 #ifdef HAVE_MPI1
 95 include 'mpif.h'
 96 #endif
 97   CHARACTER(LEN=*), INTENT(IN) :: message
 98 !Local variables ------------------------------
 99   CHARACTER(LEN=500)            :: messend
100 #ifdef HAVE_MPI
101   INTEGER                       :: ierr
102   INTEGER                       :: rank
103   CALL MPI_Comm_rank(MY_WORLD, rank, ierr)
104   WRITE(messend,'(A,i5,A,A)') "ERROR in QMC rank ", rank, " : ",TRIM(message)
105   myERROR(TRIM(messend))
106   CALL MPI_Finalize(ierr) ! IF in abinit, does nothing since killed in _myERROR_
107 #else
108   WRITE(messend,'(A,A)') "ERROR in QMC : ", TRIM(message)
109   myERROR(TRIM(messend))
110 #endif
111   !CALL FLUSH(0)
112   STOP
113 END SUBROUTINE ERROR

ABINIT/m_global/WARN [ Functions ]

[ Top ] [ Functions ]

NAME

  WARN

FUNCTION

  on cpu wants to tell something

COPYRIGHT

  Copyright (C) 2013-2018 ABINIT group (J. Bieder)
  This file is distributed under the terms of the
  GNU General Public License, see ~abinit/COPYING
  or http://www.gnu.org/copyleft/gpl.txt .

INPUTS

  message=warning message

OUTPUT

SIDE EFFECTS

NOTES

PARENTS

  Will be filled automatically by the parent script

CHILDREN

  Will be filled automatically by the parent script

SOURCE

146 SUBROUTINE WARN(message)
147 
148 
149 !This section has been created automatically by the script Abilint (TD).
150 !Do not modify the following lines by hand.
151 #undef ABI_FUNC
152 #define ABI_FUNC 'WARN'
153 !End of the abilint section
154 
155 !Arguments ------------------------------------
156 #ifdef HAVE_MPI1
157 include 'mpif.h'
158 #endif
159   CHARACTER(LEN=*), INTENT(IN) :: message
160 !Local variables ------------------------------
161   CHARACTER(LEN=500)           :: messend
162 #ifdef HAVE_MPI
163   INTEGER                      :: ierr
164   INTEGER                      :: rank
165   CALL MPI_Comm_rank(MY_WORLD, rank, ierr)
166   WRITE(messend,'(A,I6,A)') "WARNING in QMC rank ", rank, " : ", TRIM(message)
167 #else
168   WRITE(messend,'(A,A)') "WARNING in QMC : ", TRIM(message)
169 #endif
170   myWARN(TRIM(messend))
171   !CALL FLUSH(0)
172 
173 END SUBROUTINE WARN

ABINIT/m_global/WARNALL [ Functions ]

[ Top ] [ Functions ]

NAME

  WARNALL

FUNCTION

  collective warning function

COPYRIGHT

  Copyright (C) 2013-2018 ABINIT group (J. Bieder)
  This file is distributed under the terms of the
  GNU General Public License, see ~abinit/COPYING
  or http://www.gnu.org/copyleft/gpl.txt .

INPUTS

  message=message to display

OUTPUT

SIDE EFFECTS

NOTES

PARENTS

  Will be filled automatically by the parent script

CHILDREN

  Will be filled automatically by the parent script

SOURCE

206 SUBROUTINE WARNALL(message)
207 
208 
209 !This section has been created automatically by the script Abilint (TD).
210 !Do not modify the following lines by hand.
211 #undef ABI_FUNC
212 #define ABI_FUNC 'WARNALL'
213 !End of the abilint section
214 
215 !Arguments ------------------------------------
216 #ifdef HAVE_MPI1
217 include 'mpif.h'
218 #endif
219   CHARACTER(LEN=*), INTENT(IN) :: message
220 !Local variables ------------------------------------
221   CHARACTER(LEN=500)           :: messend
222 #ifdef HAVE_MPI
223   INTEGER                      :: ierr
224   INTEGER                      :: rank
225   CALL MPI_Comm_rank(MY_WORLD, rank, ierr)
226   IF ( rank .EQ. 0) THEN
227 #endif
228     WRITE(messend,'(A,A)') "WARNING in QMC : ", TRIM(message)
229     myWARNALL(TRIM(messend))
230 #ifdef HAVE_MPI
231   END IF
232 #endif
233   !CALL FLUSH(0)
234 
235 END SUBROUTINE WARNALL