bug fix in corr4

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

diff --git a/source/unres/io_config.F90 b/source/unres/io_config.F90
index b9a9844..774b624 100644 (file)
--- a/source/unres/io_config.F90
+++ b/source/unres/io_config.F90
@@ -1574,6 +1574,7 @@
       enddo
 #else
       allocate(iloctyp(-nloctyp:nloctyp))
+      allocate(itype2loc(-ntyp1:ntyp1))
       iloctyp(0)=10
       iloctyp(1)=9
       iloctyp(2)=20