D i L aminokwasy dzialajace dla src_MD

[unres.git] / source / unres / src_MD / gen_rand_conf.F

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