corrections from emilial

[unres4.git] / source / unres / io_config.f90

diff --git a/source/unres/io_config.f90 b/source/unres/io_config.f90
index 490ecad..393bfa4 100644 (file)
--- a/source/unres/io_config.f90
+++ b/source/unres/io_config.f90
@@ -2541,6 +2541,14 @@
         enddo
         endif
       endif
+!el kontrola nres w pliku inputowym WHAM-a w porownaniu z wartoscia wczytana z pliku pdb
+#ifdef WHAM_RUN
+      if (nres.ne.nres0) then
+        write (iout,*) "Error: wrong parameter value: NRES=",nres,&
+                       " NRES0=",nres0
+        stop "Error nres value in WHAM input"
+      endif
+#endif
 !---------------------------------
 !el reallocate tables
 !      do i=1,maxres/3
@@ -2620,6 +2628,7 @@
           (c(j,ires+nres),j=1,3)
       enddo
       endif
+! znamy już nres wiec mozna alokowac tablice
 ! Calculate internal coordinates.
       if(me.eq.king.or..not.out1file)then
        write (iout,'(a)') &