debug on for ions

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

diff --git a/source/unres/unres.F90 b/source/unres/unres.F90
index 3713a37..4a8e7a6 100644 (file)
--- a/source/unres/unres.F90
+++ b/source/unres/unres.F90
@@ -77,6 +77,8 @@
 ! Read force field parameters and job setup data
       call readrtns
       call flush(iout)
+      write (iout,*) "After readrtns"
+      call cartprint
 !
       if (me.eq.king .or. .not. out1file) then
        write (iout,'(2a/)') &
@@ -816,6 +818,7 @@
       call cartprint
       call intout
       icall=1
+      write (iout,*) "before etotal"
       call etotal(energy_(0))
       etot = energy_(0)
       call enerprint(energy_(0))