Commit 5256d13a authored by Satomichi Nishihara's avatar Satomichi Nishihara
Browse files

fix rrmmdiagg.f90

parent 07b056c1
......@@ -766,7 +766,7 @@ CONTAINS
!
IF ( gstart == 2 ) THEN
!
psir = DBLE ( psi(ig,ibnd) )
psir = DBLE ( psi(1,ibnd) )
psi2 = psir * psir
ekin(jbnd) = ekin(jbnd) + g2kin(1) * psi2
!
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment