LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-23 12:56:14 +01:00
Code Issues Releases Wiki Activity

Compiles now

Browse Source
This commit is contained in:
Anthony Scemama 2015-09-19 01:53:23 +02:00
parent 979aa6a793
commit ff2a0330d7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Determinants/slater_rules.irp.f
View File

@ -960,7 +960,7 @@ subroutine get_excitation_degree_vector(key1,key2,degree,Nint,sze,idx)
integer, intent(out) :: degree(sze) integer, intent(out) :: degree(sze)
integer, intent(out) :: idx(0:sze) integer, intent(out) :: idx(0:sze)
integer :: i,l,d integer :: i,l,d,m
ASSERT (Nint > 0) ASSERT (Nint > 0)
ASSERT (sze > 0) ASSERT (sze > 0)