Changeset bd2278d for enyreg.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:

• enyreg.f (modified) (2 diffs)

enyreg.f

@@ -3 +3 @@
 ! Copyright 2007       Frank Eisenmenger, U.H.E. Hansmann,
 !                      Jan H. Meinke, Sandipan Mohanty
-c *******************************
+! *******************************
       real*8 function enyreg(nml)
 
-c ----------------------------------------------------
-c
-c PURPOSE: sum( ( R_i - R^ref_j )**2 )
-c
-c    with: R_i     - atom position i in SMMP structure
-c          R^ref_j - corresponding atom j in PDB str.
-c
-c CALLS: none
-c
-c ----------------------------------------------------
+! ----------------------------------------------------
+!
+! PURPOSE: sum( ( R_i - R^ref_j )**2 )
+!
+!    with: R_i     - atom position i in SMMP structure
+!          R^ref_j - corresponding atom j in PDB str.
+!
+! CALLS: none
+!
+! ----------------------------------------------------
 
       include 'INCL.H'
@@ -29 +29 @@
 
           eny = eny + (xat(i)-xatp(j))**2+(yat(i)-yatp(j))**2+
-     #                (zat(i)-zatp(j))**2
+     &                (zat(i)-zatp(j))**2
         endif
       enddo   ! atoms