Commit: 87157a675cff50cb4ba311c650d7a83777b44870 - sctk (git)

Superconducting Toolkit

Commit MetaInfo

• Revision: 87157a675cff50cb4ba311c650d7a83777b44870 (tree)
• Zeit: 2017-06-30 15:44:15
• Autor: nisihara1 <nisihara.burai@gmai...>
• Commiter: nisihara1

Log Message

fix fcp_newton#fcp_opt_routines

Ändern Zusammenfassung

• modified: NEB/src/fcp_opt_routines.f90

Diff

--- a/NEB/src/fcp_opt_routines.f90
+++ b/NEB/src/fcp_opt_routines.f90
@@ -276,7 +276,7 @@ CONTAINS
       REAL(DP), INTENT(IN) :: step_max
       !
       INTEGER               :: image
-      REAL(DP)              :: ef, force
+      REAL(DP)              :: ef, force, step
       REAL(DP)              :: nelec, nelec_new
       REAL(DP), ALLOCATABLE :: nelec1(:)
       REAL(DP), ALLOCATABLE :: step1(:)