Changeset 32289cd for opesol.f

Timestamp:

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

Author:

baerbaer <baerbaer@…>

Branches:

master

Children:

38d77eb

Parents:

6650a56

Message:

Explicitly declare variables.

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

File:

• opesol.f (modified) (3 diffs)

opesol.f

@@ -4 +4 @@
 !
 ! Copyright 2003-2005  Frank Eisenmenger, U.H.E. Hansmann,
-!                      Shura Hayryan, Chin-Ku 
+!                      Shura Hayryan, Chin-Ku
 ! Copyright 2007       Frank Eisenmenger, U.H.E. Hansmann,
 !                      Jan H. Meinke, Sandipan Mohanty
@@ -39 +39 @@
       integer ntlvr, nml, ix2, ifivr, ilavr, i, i1s, i1a, io, iv, it, ia
       integer ib, i2s, ims, i1, i2, i2a, iad, lad, ivw, j, i14
-      
+
       dimension xfat(mxat),yfat(mxat),zfat(mxat),
      &          xfrat(mxat),yfrat(mxat),zfrat(mxat),
@@ -251 +251 @@
 
       include 'INCL.H'
-      
+
       double precision del, vlvrx, ovr, eynw, esolan, gda, gdn