Changeset cb47b9c for redstr.f

Timestamp:

11/19/09 11:29:16 (14 years ago)

Author:

baerbaer <baerbaer@…>

Branches:

master

Children:

2d5d396

Parents:

ffd2d46

Message:

Explicitly declare variables.

All variables should be declared so that we can remove the implicit statements
from the beginning of the INCL.H file.

git-svn-id: ​svn+ssh://svn.berlios.de/svnroot/repos/smmp/trunk@25 26dc1dd8-5c4e-0410-9ffe-d298b4865968

File:

• redstr.f (modified) (4 diffs)

redstr.f

@@ -26 +26 @@
 ! CALLS: ibegst,iendst
 ! ..........................................................
-
-      implicit integer*4 (i-n)
-
+      integer ib, ie, l
       character spr,blnk,str*(*),strn*(*)
+      
       data blnk/' '/
+      
+      integer i, ic, ish, ii
 
       if (spr.eq.blnk) then
@@ -234 +235 @@
 
       character*(*) str
-
+      
+      integer ibegst, iendst
+      
+      integer i, ic, ii, ish
       ii=ibegst(str)
       if (ii.gt.0) then
@@ -258 +262 @@
 
       character str*(*)
+      
+      integer iendst, ibegst
+      
+      integer i, ii, ic, ish
 
       ii=ibegst(str)
@@ -283 +291 @@
 ! ........................................................
 
-      implicit integer*4 (i-n)
+      integer lun
 
       logical exs