← Back to branch summary

~jose-soler/siesta/unfolding

« back to all changes in this revision

Viewing changes to Util/pseudo-xml/sys.f90

  • Committer: Alberto Garcia
  • Date: 2016-06-23 10:02:59 UTC
  • mto: (483.11.3 4.0-xc) (560.3.1 4.1-ag)
  • mto: This revision was merged to the branch mainline in revision 525.
  • Revision ID: albertog@icmab.es-20160623100259-mewju7fsd2toyp1r
Tags: 4.0-release, v4.0
Release of siesta-4.0

* Update Docs/release_notes.4.0

* Update list of contributors.

* Add some more documentation and comments, and clarify notes in
  output for the recet electric-field/slab-dipole-correction fix.

* Remove Util/pseudo-xml

* Other minor changes in README files


  
                

        

Show diffs side-by-side

added added

removed removed

Lines of Context:
Util/pseudo-xml/sys.f90
1
 
! 
2
 
! Copyright (C) 1996-2016       The SIESTA group
3
 
!  This file is distributed under the terms of the
4
 
!  GNU General Public License: see COPYING in the top directory
5
 
!  or http://www.gnu.org/copyleft/gpl.txt.
6
 
! See Docs/Contributors.txt for a list of contributors.
7
 
!
8
 
      module sys
9
 
!
10
 
!     Termination and messaging routines, MPI aware
11
 
!
12
 
      public :: die, bye, message
13
 
 
14
 
      CONTAINS
15
 
 
16
 
      subroutine message(str)
17
 
 
18
 
      character(len=*), intent(in), optional   :: str
19
 
 
20
 
 
21
 
         if (present(str)) then
22
 
            write(6,'(a)') trim(str)
23
 
         endif
24
 
 
25
 
      end subroutine message
26
 
!
27
 
!--------------------------------------------------
28
 
      subroutine die(str)
29
 
 
30
 
      character(len=*), intent(in), optional   :: str
31
 
 
32
 
         if (present(str)) then
33
 
            write(6,'(a)') trim(str)
34
 
         endif
35
 
      STOP
36
 
      end subroutine die
37
 
 
38
 
!---------------------------------------------------------
39
 
      subroutine bye(str)
40
 
 
41
 
      character(len=*), intent(in), optional   :: str
42
 
 
43
 
         if (present(str)) then
44
 
            write(6,'(a)') trim(str)
45
 
         endif
46
 
         write(6,'(a)') 'Requested End of Run. Bye!!'
47
 
!!                                       endif
48
 
 
49
 
      stop
50
 
 
51
 
      end subroutine bye
52
 
 
53
 
      end module sys
54