make cp src-HCD-5D

[unres.git] / source / unres / src-HCD-5D / misc.f

diff --git a/source/unres/src-HCD-5D/misc.f b/source/unres/src-HCD-5D/misc.f
index e189839..17b521c 100644 (file)
--- a/source/unres/src-HCD-5D/misc.f
+++ b/source/unres/src-HCD-5D/misc.f
@@ -4,7 +4,10 @@ C
 C
 C
       logical function find_arg(ipos,line,errflag)
+      implicit none
+      integer maxlen
       parameter (maxlen=80)
+      integer ipos
       character*80 line
       character*1 empty /' '/,equal /'='/
       logical errflag
@@ -29,6 +32,9 @@ C
       return
       end
       logical function find_group(iunit,jout,key1)
+      implicit none
+      integer iunit,jout
+      integer ll
       character*(*) key1
       character*80 karta,ucase
       integer ilen
@@ -47,6 +53,7 @@ C
       return
       end
       logical function iblnk(charc)
+      implicit none
       character*1 charc
       integer n
       n = ichar(charc)
@@ -54,6 +61,7 @@ C
       return
       end
       integer function ilen(string)
+      implicit none
       character*(*) string
       logical iblnk
  
@@ -67,8 +75,11 @@ C
       return
       end
       integer function in_keywd_set(nkey,ikey,narg,keywd,keywdset)
+      implicit none
+      integer nkey
       character*16 keywd,keywdset(1:nkey,0:nkey)
       character*16 ucase
+      integer i,ikey,narg
       do i=1,narg
         if (ucase(keywd).eq.keywdset(i,ikey)) then
 * Match found
@@ -81,6 +92,7 @@ C
       return
       end
       character*(*) function lcase(string)
+      implicit none
       integer i, k, idiff
       character*(*) string
       character*1 c
@@ -105,6 +117,8 @@ c
       return
       end
       logical function lcom(ipos,karta)
+      implicit none
+      integer ipos,i
       character*80 karta
       character koment(2) /'!','#'/
       lcom=.false.
@@ -119,6 +133,7 @@ c
       return
       end
       subroutine mykey(line,keywd,ipos,blankline,errflag) 
+      implicit none
 * This subroutine seeks a non-empty substring keywd in the string LINE.
 * The substring begins with the first character different from blank and
 * "=" encountered right to the pointer IPOS (inclusively) and terminates
@@ -128,11 +143,13 @@ c
 * only separators or the maximum length of the data line (80) has been reached.
 * The logical variable ERRFLAG is set at .TRUE. if the string 
 * consists only from a "=".
+      integer maxlen
       parameter (maxlen=80)
       character*1 empty /' '/,equal /'='/,comma /','/
       character*(*) keywd
       character*80 line
       logical blankline,errflag,lcom
+      integer ipos,istart,iend
       errflag=.false.
       do while (line(ipos:ipos).eq.empty .and. (ipos.le.maxlen))
         ipos=ipos+1
@@ -160,6 +177,8 @@ c
       return
       end      
       subroutine numstr(inum,numm)
+      implicit none
+      integer inum,inum1,inum2,inumm
       character*10 huj /'0123456789'/
       character*(*) numm
       inumm=inum
@@ -178,6 +197,7 @@ c
       return
       end       
       character*(*) function ucase(string)
+      implicit none
       integer i, k, idiff
       character*(*) string
       character*1 c