cleaning - unecessary files deleted

[unres.git] / source / unres / src_CSA / readrtns_csa.F

diff --git a/source/unres/src_CSA/readrtns_csa.F b/source/unres/src_CSA/readrtns_csa.F
index c67d045..a00df40 100644 (file)
--- a/source/unres/src_CSA/readrtns_csa.F
+++ b/source/unres/src_CSA/readrtns_csa.F
@@ -1131,6 +1131,9 @@ c!bankt
       call readi(mcmcard,'NCONF_IN',nconf_in,0)
       call reada(mcmcard,'RDIH_BIAS',rdih_bias,0.5d0)
       write (iout,*) "NCONF_IN",nconf_in
+      tm_score=(index(mcmcard,'TMSCORE').gt.0)
+      if (tm_score) write (iout,*) "Using TM_Score instead of DIFF",
+     &      " for torsional angles" 
       return
       end