Commit 33921e1f authored by sbraccia's avatar sbraccia

iunsdtout removed by PW/pwcom.f90. The unit for standar output (stdout)

is contained in Modules/io_global.f90.
C.S.


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@362 c92efa57-630b-4861-b058-cf58834340f0
parent 03fe3ac8
!
! Copyright (C) 2002 FPMD group
! Copyright (C) 2002 FPMD & PWSCF group
! This file is distributed under the terms of the
! GNU General Public License. See the file `License'
! in the root directory of the present distribution,
! or http://www.gnu.org/copyleft/gpl.txt .
!
MODULE io_global
IMPLICIT NONE
PRIVATE
SAVE
PUBLIC :: io_global_start, io_global_getionode
PUBLIC :: ionode, ionode_id
INTEGER :: ionode_id = 0
LOGICAL :: ionode = .TRUE.
LOGICAL :: first = .TRUE.
CONTAINS
SUBROUTINE io_global_start(mpime,ionode_set)
INTEGER, INTENT(IN) :: mpime,ionode_set
IF(mpime.EQ.ionode_set) THEN
ionode = .TRUE.
ELSE
ionode = .FALSE.
END IF
ionode_id = ionode_set
first = .FALSE.
RETURN
END SUBROUTINE io_global_start
SUBROUTINE io_global_getionode( ionode_out, ionode_id_out )
LOGICAL, INTENT(OUT) :: ionode_out
INTEGER, INTENT(OUT) :: ionode_id_out
IF( first ) &
CALL errore( ' get_ionode ', ' ionode not yet defined ', 1 )
ionode_out = ionode
ionode_id_out = ionode_id
RETURN
END SUBROUTINE io_global_getionode
END MODULE io_global
!----------------------------------------------------------------------------
MODULE io_global
!----------------------------------------------------------------------------
!
IMPLICIT NONE
!
PRIVATE
SAVE
!
PUBLIC :: io_global_start, io_global_getionode
PUBLIC :: stdout, ionode, ionode_id
!
INTEGER :: stdout = 6 ! unit connected to standard output
INTEGER :: ionode_id = 0
LOGICAL :: ionode = .TRUE.
LOGICAL :: first = .TRUE.
!
CONTAINS
!
!-----------------------------------------------------------------------
SUBROUTINE io_global_start( mpime, ionode_set )
!-----------------------------------------------------------------------
!
IMPLICIT NONE
!
INTEGER, INTENT(IN) :: mpime, ionode_set
!
!
IF ( mpime == ionode_set ) THEN
ionode = .TRUE.
ELSE
ionode = .FALSE.
END IF
!
ionode_id = ionode_set
first = .FALSE.
!
RETURN
!
END SUBROUTINE io_global_start
!
!
!-----------------------------------------------------------------------
SUBROUTINE io_global_getionode( ionode_out, ionode_id_out )
!-----------------------------------------------------------------------
!
IMPLICIT NONE
!
LOGICAL, INTENT(OUT) :: ionode_out
INTEGER, INTENT(OUT) :: ionode_id_out
!
!
IF ( first ) &
CALL errore( ' get_ionode ', ' ionode not yet defined ', 1 )
ionode_out = ionode
ionode_id_out = ionode_id
!
RETURN
!
END SUBROUTINE io_global_getionode
!
END MODULE io_global
......@@ -535,7 +535,6 @@ MODULE units
SAVE
!
INTEGER :: &
iunstdout, &! unit connected to standard output ( default is 6 )
iunpun, &! unit for saving the final results
iunwfc, &! unit with wavefunctions
iunat, &! unit for saving orthogonal atomic wfcs
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment