X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA_DiL%2Fgen_rand_conf.F;h=78d4ccae7af9b2057cca2af74651f401e98f93eb;hb=81513f4efcd95dcfc5d3ec05ce6396a392d8ac24;hp=01129f009774087140ccb599889b638f97e9a93e;hpb=03f945f08803ac33d94abb35d001684a49080647;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 01129f0..78d4cca 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