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

erreur ref0 corrigee

parent 743644d5
Pipeline #12254 failed with stage
in 23 minutes and 32 seconds
......@@ -151,7 +151,7 @@ Program proprietes
!!$-----
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)
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)
......
No preview for this file type
This diff is collapsed.
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