From: Cezary Czaplewski <czarek@chem.univ.gda.pl>
Date: Sat, 4 Jul 2020 17:33:18 +0000 (+0200)
Subject: external ilen
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=commitdiff_plain;h=489ebb15126d3e368eb1f7f3cee26e2ee9e6f5af

external ilen
---

diff --git a/source/cluster/wham/src-HCD-5D/main_clust.F b/source/cluster/wham/src-HCD-5D/main_clust.F
index 0088b2f..db8f2ea 100644
--- a/source/cluster/wham/src-HCD-5D/main_clust.F
+++ b/source/cluster/wham/src-HCD-5D/main_clust.F
@@ -40,6 +40,8 @@ C
       double precision varia(maxvar)
       double precision hrtime,mintime,sectime
       logical eof
+      integer ilen
+      external ilen
 #ifdef MPI
       call MPI_Init( IERROR )
       call MPI_Comm_rank( MPI_COMM_WORLD, me, IERROR )