X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Fgen_rand_conf.F;h=c751c3f46481549ad936243bb8687999e5386f50;hb=2613142be7b5226fb002eaceb389e3f26766aa65;hp=ec15679576dc03aa59c98770441f4ccd9774f9de;hpb=d209eee3dec438628ee9d5a9c990ad9ca9dec1c5;p=unres.git

diff --git a/source/unres/src_MD/gen_rand_conf.F b/source/unres/src_MD/gen_rand_conf.F
index ec15679..c751c3f 100644
--- a/source/unres/src_MD/gen_rand_conf.F
+++ b/source/unres/src_MD/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