changes in wham names and trial in MD

[unres4.git] / source / unres / geometry.F90

diff --git a/source/unres/geometry.F90 b/source/unres/geometry.F90
index 76cee6a..96979d5 100644 (file)
--- a/source/unres/geometry.F90
+++ b/source/unres/geometry.F90
@@ -845,7 +845,9 @@
           enddo
           if (nsi.gt.maxsi) return 1
         endif ! it1.ne.10
+        write(iout,*) "before origin_frame"
         call orig_frame
+        write(iout,*) "after origin_frame"
         i=4
         nstart=4
       else