By AL: fixed FGPROCS>1 problem in HMREMD; iset passed to slaves now.

[unres.git] / source / wham / src / readrtns.F

diff --git a/source/wham/src/readrtns.F b/source/wham/src/readrtns.F
index 19d4b20..bc964f3 100644 (file)
--- a/source/wham/src/readrtns.F
+++ b/source/wham/src/readrtns.F
@@ -194,6 +194,15 @@ C
         call flush(iout)
       enddo
 
+      write (iout,*) "HOMOL_NSET",homol_nset
+      if (homol_nset.gt.1) then
+        write (iout,*) "HOMOL_NSET: nT_h",nT_h(iparm)
+        do ib=1,nT_h(iparm)
+          nR(ib,iparm)=homol_nset
+          write (iout,*) "iparm",iparm," ib",ib," nR",nR(ib,iparm)
+        enddo
+      endif
+
       enddo
 
       if (hamil_rep) then