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

• regul.f (modified) (6 diffs)

regul.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
@@ -10 +10 @@
 ! **************************************************************
 
-      
+
       subroutine regul(nml, iter, nsteps, acc)
 
@@ -26 +26 @@
       include 'INCL.H'
       include 'INCP.H'
-      
+
 !f2py intent(in) nml
 !f2py intent(in) iter
 !f2py intent(in) nsteps
 !f2py intent(in) acc
+
+      double precision acc, rm, av1, av2, rmsd, dn
+
+      integer nsteps, nml, nrs, i, n, iter, it
 
       dimension rm(3,3),av1(3),av2(3)
@@ -60 +64 @@
 
 
-      do i = ivrml1(nml),nvrml(nml) 
+      do i = ivrml1(nml),nvrml(nml)
         fxvro(i) = fxvr(i)  ! save
         if (isrfvr(i)) fxvr(i) = .true.  ! fix vars. defined in ref.str.
@@ -77 +81 @@
       call cnteny(nml)
 
-      do i = ivrml1(nml),nvrml(nml) 
+      do i = ivrml1(nml),nvrml(nml)
         fxvr(i) = fxvro(i)  ! restore
       enddo  ! vars.
@@ -86 +90 @@
       wtey = 0.d0
 
-      n=iter            
+      n=iter
       dn=1.d0/dble(n)