Changeset 6650a56 for redstr.f

Timestamp:

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

Author:

baerbaer <baerbaer@…>

Branches:

master

Children:

32289cd

Parents:

30644a9

Message:

Explicitly declare variables.

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

File:

• redstr.f (modified) (6 diffs)

redstr.f

@@ -27 +27 @@
 ! ..........................................................
       integer ib, ie, l
+      integer ln, is, ibegst, j, iendst
+
       character spr,blnk,str*(*),strn*(*)
       
@@ -91 +93 @@
 ! .............................................................
 
-      implicit integer*4 (i-n)
-
+      implicit none
+      integer i
       character blnk,str*(*)
       data blnk/' '/
@@ -117 +119 @@
 ! ..............................................................
 
-      implicit integer*4 (i-n)
-
+      implicit none
+      integer i
       character blnk,str*(*)
       data blnk/' '/
@@ -146 +148 @@
 ! ..........................................
 
-      implicit integer*4 (i-n)
-
+      implicit none
+      integer mxd, ib, ibegst, ie, iendst, il, i0, i9, i, ii, in
       parameter (mxd=9)                 ! max. # of digits
 
@@ -186 +188 @@
 ! ..........................................
 
-      implicit integer*4 (i-n)
-
+      implicit none
+      integer mxd, mxap, mxip, ib, ibegst, ie, iendst, il, ip, ibp
       parameter (mxd =17,   ! max. # of digits
      &           mxap= 6,   ! max. # of digits after period
@@ -292 +294 @@
 
       integer lun
-
+      integer i, ibegst, j, k
       logical exs
       character*(*) filnam,stat,format