X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MIN%2Funres_min.F;h=f1a33c82b837021aa6e8a8d85a8aeca57c90ec1d;hb=b14bec9c0dc89d4a0f13baaaff62f982d785485e;hp=3cdbeef76ccf87505a5bfec02cb7d008731b9ea5;hpb=8893a1b93e875425e4b7ceb78242d488665af7b8;p=unres.git

diff --git a/source/unres/src_MIN/unres_min.F b/source/unres/src_MIN/unres_min.F
index 3cdbeef..f1a33c8 100644
--- a/source/unres/src_MIN/unres_min.F
+++ b/source/unres/src_MIN/unres_min.F
@@ -78,7 +78,8 @@ C Fine-grain slaves just do energy and gradient components.
       else if (modecalc.eq.5) then
          call exec_checkgrad
       else
-        write (iout,'(a)') 'This calculation type is not supported',
+        write (iout,'(a,i5)') 
+     &   'This calculation type is not supported',
      &   ModeCalc
       endif
 #ifdef MPI