X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc-HCD-5D%2Fmain_clust.F;h=db8f2ea22ce32a3bbb028b2a40145da7781a8c19;hb=489ebb15126d3e368eb1f7f3cee26e2ee9e6f5af;hp=0088b2ff0cf0b898b7f86c9460cbe5afe90645e9;hpb=4aa4dc73665d82e76bf050bd730a9ea9d5f76d53;p=unres.git

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 )