X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Funres%2Fsrc%2Fcompinfo.c;h=af53dc084b3fa1985bf8cf68866afeb6c0947303;hb=bbc592a98c993b8b5fb1b191d0ddf5763ee3516c;hp=e28f6864eb2d60a4cbde6be922e7c79d655400a6;hpb=05988536ca4a1a117db12a9a5332dbda93de5344;p=unres.git

diff --git a/source/cluster/unres/src/compinfo.c b/source/cluster/unres/src/compinfo.c
index e28f686..af53dc0 100644
--- a/source/cluster/unres/src/compinfo.c
+++ b/source/cluster/unres/src/compinfo.c
@@ -21,6 +21,7 @@ if (fgets(buf,498,in) != NULL)
 iv3++;
 fprintf(out,"C %d %d %d\n",iv1,iv2,iv3);
 fprintf(out,"      subroutine cinfo\n");
+fprintf(out,"      include 'DIMENSIONS'\n");
 fprintf(out,"      include 'COMMON.IOUNITS'\n");
 fprintf(out,"      write(iout,*)'++++ Compile info ++++'\n");
 fprintf(out,"      write(iout,*)'Version %d.%-d build %d'\n",iv1,iv2,iv3);