X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA_DiL%2Fgen_rand_conf.F;h=dec152f8dc79f2f3a8738028c670df96d254ed47;hb=5d46da5f86e652d540ced232983c47bb712dda0f;hp=9be8b232d8a5ff085e8fd7bd227e32b16cf5e550;hpb=58fdd680a27499c439ebe6f38889fafe1bb1b34b;p=unres.git diff --git a/source/unres/src_CSA_DiL/gen_rand_conf.F b/source/unres/src_CSA_DiL/gen_rand_conf.F index 9be8b23..dec152f 100644 --- a/source/unres/src_CSA_DiL/gen_rand_conf.F +++ b/source/unres/src_CSA_DiL/gen_rand_conf.F @@ -238,7 +238,8 @@ c print *,'gen_theta: it=',it endif thet_pred_mean=a0thet(it) do k=1,2 - thet_pred_mean=thet_pred_mean+athet(k,it)*y(k)+bthet(k,it)*z(k) + thet_pred_mean=thet_pred_mean+athet(k,it,1,1)*y(k) + & +bthet(k,it,1,1)*z(k) enddo sig=polthet(3,it) do j=2,0,-1