Ford-modules part 22

This commit is contained in:
fabrizio22 2021-03-12 18:19:49 +01:00
parent 46e469655e
commit 84ddc4e632
7 changed files with 20 additions and 25 deletions

View File

@ -11,11 +11,10 @@ subroutine plot_io (filplot, title, nr1x, nr2x, nr3x, nr1, nr2, &
nr3, nat, ntyp, ibrav, celldm, at, gcutm, dual, ecut, plot_num, atm, &
ityp, zv, tau, plot, iflag)
!-----------------------------------------------------------------------
!
! iflag >0 : write header and the quantity to be plotted ("plot")
! to file "filplot"
! iflag< 0 : read everything (requires that all variables that are
! read are allocated with the correct dimensions!)
!! * \(\text{iflag}>0\) : write header and the quantity to be plotted ("plot")
!! to file "filplot";
!! * \(\text{iflag}<0\) : read everything (requires that all variables that are
!! read are allocated with the correct dimensions!).
!
USE io_global, ONLY : stdout
USE kinds, only : DP
@ -93,8 +92,7 @@ subroutine read_io_header(filplot, title, nr1x, nr2x, nr3x, nr1, nr2, nr3, &
nat, ntyp, ibrav, celldm, at, gcutm, dual, ecut, plot_num)
!-----------------------------------------------------------------------
!
! read header of file "filplot"
!! Read header of file \(\text{filplot}\).
!
USE io_global, ONLY : stdout
USE kinds, only : DP

View File

@ -8,11 +8,10 @@
!----------------------------------------------------------------------------
SUBROUTINE plugin_arguments()
!-----------------------------------------------------------------------------
!
! check for presence of command-line option "-plugin_name" or "--plugin_name"
! where "plugin_name" has to be set here. If such option is found, variable
! "use_plugin_name" is set and usage of "plugin_name" is thus enabled.
! Currently implemented: "plumed", "pw2casino" (both case-sensitive)
!! Check for presence of command-line option "-plugin\_name" or "--plugin_name"
!! where "plugin\_name" has to be set here. If such option is found, variable
!! \(\text{use_plugin_name}\) is set and usage of "plugin\_name" is thus enabled.
!! Currently implemented: "plumed", "pw2casino" (both case-sensitive).
!
USE kinds, ONLY : DP
!
@ -62,8 +61,7 @@ END SUBROUTINE plugin_arguments
!----------------------------------------------------------------------------
SUBROUTINE plugin_arguments_bcast(root,comm)
!----------------------------------------------------------------------------
!
! broadcast plugin arguments
!! Broadcast plugin arguments.
!
USE mp, ONLY : mp_bcast
USE plugin_flags

View File

@ -8,9 +8,8 @@
!=----------------------------------------------------------------------------=!
MODULE plugin_flags
!=--------------------------------------------------------------------------=!
!
! ... this module contains all basic variables that controls
! ... the use or not of plugins.
!! This module contains all basic variables that controls
!! the use or not use of plugins.
!----------------------------------------------
!
USE kinds

View File

@ -8,9 +8,8 @@
!=----------------------------------------------------------------------------=!
MODULE plugin_variables
!=--------------------------------------------------------------------------=!
!
! ... this module contains all basic variables possibly
! ... used by plug ins
!! This module contains all basic variables possibly
!! used by plugins.
!----------------------------------------------
!
USE kinds

View File

@ -8,6 +8,7 @@
!----------------------------------------------------------------------------
MODULE random_numbers_gpum
!----------------------------------------------------------------------------
!! Module for random numbers generation - GPU double.
!
USE kinds, ONLY : DP
#if defined(__CUDA)

View File

@ -8,9 +8,8 @@
!---------------------------------------------------------------------------
MODULE read_cards_module
!---------------------------------------------------------------------------
!
! ... This module handles the reading of cards from standard input
! ... Original version written by Carlo Cavazzoni
!! This module handles the reading of cards from standard input.
!! Original version written by Carlo Cavazzoni.
!
USE kinds, ONLY : DP
USE io_global, ONLY : stdout

View File

@ -5,12 +5,13 @@
! in the root directory of the present distribution,
! or http://www.gnu.org/copyleft/gpl.txt .
!
! Read input data in PW and CP from text file (xml file to be implemented)
! NOTE Aug 2018 (PG): reading of old xml input file using iotk deleted
!
!----------------------------------------------------------------------------
MODULE read_input
!---------------------------------------------------------------------------
!! Read input data in PW and CP from text file (xml file to be implemented).
!
! NOTE Aug 2018 (PG): reading of old xml input file using iotk deleted
!
USE kinds, ONLY: DP
!