Error in input reading for prop in CAS case

src/prop.F90

@@ -138,12 +138,12 @@ Program proprietes
 !!$-----
 !!$ --- Generation des det
 !!$-----
-    if (prog_info%methodAct.eq.'cas') then
-       det_info%nref0 = comb(o_info%nact,g_info%na) * comb(o_info%nact,g_info%nb)
-     call deter_init(ref0, nref0lu)
+  if (prog_info%methodAct.eq.'cas') then
+     det_info%nref0 = comb(o_info%nact,g_info%na) * comb(o_info%nact,g_info%nb)
+     call deter_init(ref0,  det_info%nref0)
      call gener_cas(ref0, prog_info, det_info, g_info, o_info)
   else
-     call deter_init(ref0, nref0lu)
+     call deter_init(ref0,  det_info%nref0)
      call lect_ref0(ref0, prog_info, det_info, g_info, o_info, v_info)
   end if
   if (prog_info%id_cpu.eq.0)  flush(f_output)