Changeset bd2278d for nursvr.f

Timestamp:

09/05/08 11:49:42 (16 years ago)

Author:

baerbaer <baerbaer@…>

Branches:

master

Children:

fafe4d6

Parents:

2ebb8b6

Message:

Reformatting comments and continuation marks.

Fortran 90 and higher use ! to mark comments no matter where they are in the
code. The only valid continuation marker is &.
I also added the SMMP.kdevelop.filelist to the repository to make it easier
to use kdevelop.

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

File:

• nursvr.f (modified) (2 diffs)

nursvr.f

@@ -1 @@
-c**************************************************************
-c
-c This file contains the subroutines: nursvr, nursat
-c
-c Copyright 2003-2005  Frank Eisenmenger, U.H.E. Hansmann,
-c                      Shura Hayryan, Chin-Ku 
-c Copyright 2007       Frank Eisenmenger, U.H.E. Hansmann,
-c                      Jan H. Meinke, Sandipan Mohanty
-c
-c **************************************************************
+!**************************************************************
+!
+! This file contains the subroutines: nursvr, nursat
+!
+! Copyright 2003-2005  Frank Eisenmenger, U.H.E. Hansmann,
+!                      Shura Hayryan, Chin-Ku 
+! Copyright 2007       Frank Eisenmenger, U.H.E. Hansmann,
+!                      Jan H. Meinke, Sandipan Mohanty
+!
+! **************************************************************
       integer*4 function nursvr(ivr)
 
-c ...........................................................
-c  PURPOSE: defines index of residue for given variable 'ivr'
-c
-c  CALLS: none
-c
-c ...........................................................
+! ...........................................................
+!  PURPOSE: defines index of residue for given variable 'ivr'
+!
+!  CALLS: none
+!
+! ...........................................................
       include 'INCL.H'
 
@@ -36 +36 @@
       end
 
-c **********************************
+! **********************************
       integer*4 function nursat(iat)
 
-c .......................................................
-c  PURPOSE: defines index of residue for given atom 'iat'
-c .......................................................
+! .......................................................
+!  PURPOSE: defines index of residue for given atom 'iat'
+! .......................................................
 
       include 'INCL.H'