X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Funres.F90;h=4a8e7a6d8700f8991088fc2817b9004b7e6efffb;hb=532215c67bc6381096ff9494a83f507c4d2474b9;hp=3713a370b9663a6ec454161703a79fef492e80f6;hpb=df2469d9ac903d93889867f4e50e9bf6c428c1c6;p=unres4.git

diff --git a/source/unres/unres.F90 b/source/unres/unres.F90
index 3713a37..4a8e7a6 100644
--- 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))