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

• outpdb.f (modified) (4 diffs)

outpdb.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
@@ -24 +24 @@
 
       include 'INCL.H'
+
+      double precision occ, bva
+
+      integer i0, i9, nml, im1, im2, ibegst, iout, iat, iml, irs, ifirs
+      integer ifiat, nrs, i, j, iendst, nfi, ibd, jj, nbd
 
       dimension ibd(4)
@@ -99 +104 @@
             call toupst(atnm)
             call toupst(res)
- 
+
             linout = ' '
             write (linout,1) linty,iat,atnm,res(1:3),chid,irs,cdin,
@@ -170 +175 @@
       write (linout,'(a3)') 'END'
       write(iout,'(a80)') linout
-      
+
       close(iout)