Commit a9d8948e authored by Marie bernadette Lepetit's avatar Marie bernadette Lepetit
Browse files

Error in input reading for prop in CAS case

parent 9fcd48c5
Pipeline #12708 passed with stage
in 24 minutes and 12 seconds
......@@ -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)
......
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