Changeset 32289cd for outvar.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:

• outvar.f (modified) (3 diffs)

outvar.f

@@ -4 +4 @@
 !
 ! Copyright 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
 !
 ! **************************************************************
- 
+
       subroutine outvar(nml,fileName)
-  
+
 !--------------------------------------------------------------------
-!       Output of variables of the current protein conformation 
-!- 
+!       Output of variables of the current protein conformation
+!-
 !       nml != 0       :     molecule index
 !       nml  = 0       :     all molecules
@@ -24 +24 @@
 
       include 'INCL.H'
+
+      integer nml, ibegst, iout
 
       character*(*) fileName
@@ -49 +51 @@
 
       include 'INCL.H'
+
+      integer nml, im1, im2, iml, i, iout, ibegst, ifivr, is, nursvr, it
 
       character mlfd*7,strg(6)*17