Write a suitable header for the calculation - version authors etc
subroutine param_write_header
!! Write a suitable header for the calculation - version authors etc
use w90_io, only: io_date, w90_version
use w90_constants, only: bohr_version_str, constants_version_str1, constants_version_str2
implicit none
character(len=9) :: cdate, ctime
call io_date(cdate, ctime)
write (stdout, *)
write (stdout, *) ' +---------------------------------------------------+'
write (stdout, *) ' | |'
write (stdout, *) ' | WANNIER90 |'
write (stdout, *) ' | |'
write (stdout, *) ' +---------------------------------------------------+'
write (stdout, *) ' | |'
write (stdout, *) ' | Welcome to the Maximally-Localized |'
write (stdout, *) ' | Generalized Wannier Functions code |'
write (stdout, *) ' | http://www.wannier.org |'
write (stdout, *) ' | |'
write (stdout, *) ' | |'
write (stdout, *) ' | Wannier90 Developer Group: |'
write (stdout, *) ' | Giovanni Pizzi (EPFL) |'
write (stdout, *) ' | Valerio Vitale (Cambridge) |'
write (stdout, *) ' | David Vanderbilt (Rutgers University) |'
write (stdout, *) ' | Nicola Marzari (EPFL) |'
write (stdout, *) ' | Ivo Souza (Universidad del Pais Vasco) |'
write (stdout, *) ' | Arash A. Mostofi (Imperial College London) |'
write (stdout, *) ' | Jonathan R. Yates (University of Oxford) |'
write (stdout, *) ' | |'
write (stdout, *) ' | For the full list of Wannier90 3.x authors, |'
write (stdout, *) ' | please check the code documentation and the |'
write (stdout, *) ' | README on the GitHub page of the code |'
write (stdout, *) ' | |'
write (stdout, *) ' | |'
write (stdout, *) ' | Please cite |'
write (stdout, *) ' | |'
write (stdout, *) ' | [ref] "Wannier90 as a community code: |'
write (stdout, *) ' | new features and applications", |'
write (stdout, *) ' | G. Pizzi et al., J. Phys. Cond. Matt. 32, |'
write (stdout, *) ' | 165902 (2020). |'
write (stdout, *) ' | http://doi.org/10.1088/1361-648X/ab51ff |'
write (stdout, *) ' | |'
write (stdout, *) ' | in any publications arising from the use of |'
write (stdout, *) ' | this code. For the method please cite |'
write (stdout, *) ' | |'
write (stdout, *) ' | [ref] "Maximally Localized Generalised Wannier |'
write (stdout, *) ' | Functions for Composite Energy Bands" |'
write (stdout, *) ' | N. Marzari and D. Vanderbilt |'
write (stdout, *) ' | Phys. Rev. B 56 12847 (1997) |'
write (stdout, *) ' | |'
write (stdout, *) ' | [ref] "Maximally Localized Wannier Functions |'
write (stdout, *) ' | for Entangled Energy Bands" |'
write (stdout, *) ' | I. Souza, N. Marzari and D. Vanderbilt |'
write (stdout, *) ' | Phys. Rev. B 65 035109 (2001) |'
write (stdout, *) ' | |'
write (stdout, *) ' | |'
write (stdout, *) ' | Copyright (c) 1996-2020 |'
write (stdout, *) ' | The Wannier90 Developer Group and |'
write (stdout, *) ' | individual contributors |'
write (stdout, *) ' | |'
write (stdout, *) ' | Release: ', adjustl(w90_version), ' 5th March 2020 |'
write (stdout, *) ' | |'
write (stdout, *) ' | This program is free software; you can |'
write (stdout, *) ' | redistribute it and/or modify it under the terms |'
write (stdout, *) ' | of the GNU General Public License as published by |'
write (stdout, *) ' | the Free Software Foundation; either version 2 of |'
write (stdout, *) ' | the License, or (at your option) any later version|'
write (stdout, *) ' | |'
write (stdout, *) ' | This program is distributed in the hope that it |'
write (stdout, *) ' | will be useful, but WITHOUT ANY WARRANTY; without |'
write (stdout, *) ' | even the implied warranty of MERCHANTABILITY or |'
write (stdout, *) ' | FITNESS FOR A PARTICULAR PURPOSE. See the GNU |'
write (stdout, *) ' | General Public License for more details. |'
write (stdout, *) ' | |'
write (stdout, *) ' | You should have received a copy of the GNU General|'
write (stdout, *) ' | Public License along with this program; if not, |'
write (stdout, *) ' | write to the Free Software Foundation, Inc., |'
write (stdout, *) ' | 675 Mass Ave, Cambridge, MA 02139, USA. |'
write (stdout, *) ' | |'
write (stdout, *) ' +---------------------------------------------------+'
write (stdout, *) ' | Execution started on ', cdate, ' at ', ctime, ' |'
write (stdout, *) ' +---------------------------------------------------+'
write (stdout, *) ''
write (stdout, '(1X,A)') '******************************************************************************'
write (stdout, '(1X,A)') '* '//constants_version_str1//'*'
write (stdout, '(1X,A)') '* '//constants_version_str2//'*'
write (stdout, '(1X,A)') '* '//bohr_version_str//'*'
write (stdout, '(1X,A)') '******************************************************************************'
write (stdout, *) ''
end subroutine param_write_header