mirror of https://gitlab.com/QEF/q-e.git
78 lines
2.3 KiB
Fortran
78 lines
2.3 KiB
Fortran
!
|
|
! Copyright (C) 2001-2003 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 .
|
|
!
|
|
!
|
|
!-----------------------------------------------------------------------
|
|
subroutine seqopn (unit, extension, formatt, exst)
|
|
!-----------------------------------------------------------------------
|
|
!
|
|
! this routine opens a file named "prefix"."extension"
|
|
! in tmp_dir for sequential I/O access
|
|
! If appropriate, the node number is added to the file name
|
|
!
|
|
USE kinds
|
|
use io_files, ONLY: prefix, tmp_dir, nd_nmbr
|
|
implicit none
|
|
!
|
|
! first the dummy variables
|
|
!
|
|
character(len=*) :: formatt, extension
|
|
! input: name of the file to connect
|
|
! input: 'formatted' or 'unformatted'
|
|
integer :: unit
|
|
! input: unit to connect
|
|
logical :: exst
|
|
! output: true if the file already exist
|
|
!
|
|
! here the local variables
|
|
!
|
|
character(len=256) :: tempfile, filename
|
|
! complete file name
|
|
integer :: ios
|
|
! integer variable to test I/O status
|
|
logical :: opnd
|
|
! true if the file is already opened
|
|
|
|
|
|
if (unit < 1) call errore ('seqopn', 'wrong unit', 1)
|
|
!
|
|
! test if the file is already opened
|
|
!
|
|
ios = 0
|
|
inquire (unit = unit, opened = opnd)
|
|
if (opnd) call errore ('seqopn', "can't open a connected unit", &
|
|
abs (unit) )
|
|
!
|
|
! then we check the extension of the filename
|
|
!
|
|
|
|
if (extension.eq.' ') call errore ('seqopn','filename extension not given',2)
|
|
filename = trim(prefix) // "." // trim(extension)
|
|
if ( trim(nd_nmbr) == '1' .or. trim(nd_nmbr) == '01'.or. &
|
|
trim(nd_nmbr) == '001') then
|
|
!
|
|
! do not add processor number to files opened by processor 1
|
|
! in parallel execution: if only the first processor writes,
|
|
! we do not want the filename to be dependent on the number
|
|
! of processors
|
|
!
|
|
tempfile = trim(tmp_dir) // trim(filename)
|
|
else
|
|
tempfile = trim(tmp_dir) // trim(filename) // nd_nmbr
|
|
end if
|
|
inquire (file = tempfile, exist = exst)
|
|
!
|
|
! Open the file
|
|
!
|
|
|
|
open (unit = unit, file = tempfile, form = formatt, status = &
|
|
'unknown', iostat = ios)
|
|
|
|
if (ios /= 0) call errore ('seqopn', 'error opening '//filename, unit)
|
|
return
|
|
end subroutine seqopn
|