scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

added -pw2casino to plugin_arguments. 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@7579 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
marsamos 2011-03-15 15:17:37 +00:00
parent b52e8c3437
commit 1becd2da15
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Modules/plugin_arguments.f90
View File

@ -36,6 +36,7 @@ SUBROUTINE plugin_arguments()
nargs = iargc()
! add here more plugins
use_plumed = .false.
use_pw2casino = .false.
!
DO iiarg = 1, nargs
CALL getarg( iiarg, plugin_name)
@ -51,6 +52,9 @@ SUBROUTINE plugin_arguments()
IF ( TRIM(arg)=='plumed' ) THEN
use_plumed = .true.
END IF
IF ( TRIM(arg)=='pw2casino' ) THEN
use_pw2casino = .true.
ENDIF
ENDIF
ENDDO
!
@ -74,6 +78,8 @@ END SUBROUTINE plugin_arguments
!
CALL mp_bcast(use_plumed,root,comm)
!
CALL mp_bcast(use_pw2casino,root,comm)
!
! write(0,*) "use_plumed: ", use_plumed
!
RETURN

1
Modules/plugin_flags.f90
View File

@ -27,5 +27,6 @@ MODULE plugin_flags
!
CHARACTER(LEN=256), PUBLIC :: plugin_name
LOGICAL, PUBLIC :: use_plumed
LOGICAL, PUBLIC :: use_pw2casino
!
END MODULE plugin_flags