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

• cnteny.f (modified) (3 diffs)

cnteny.f

@@ -1 @@
-c **************************************************************
-c
-c This file contains the subroutines: cnteny
-c
-c Copyright 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: cnteny
+!
+! Copyright 2005       Frank Eisenmenger, U.H.E. Hansmann,
+!                      Shura Hayryan, Chin-Ku 
+! Copyright 2007       Frank Eisenmenger, U.H.E. Hansmann,
+!                      Jan H. Meinke, Sandipan Mohanty
+!
+! **************************************************************
 
       subroutine cnteny(nml)
 
-c ................................................................................
-c PURPOSE: Calculate atomic contact energy of molecule 'nml' with ECEPP parameters
-c
-c CALLS: nursat
-c ................................................................................
+! ................................................................................
+! PURPOSE: Calculate atomic contact energy of molecule 'nml' with ECEPP parameters
+!
+! CALLS: nursat
+! ................................................................................
 
       include 'INCL.H'
@@ -31 +31 @@
       if (ntlvr.eq.0) then
         write (*,'(a,i4)')
-     #           ' cnteny> No variables defined in molecule #',nml
+     &           ' cnteny> No variables defined in molecule #',nml
         return
       endif
@@ -178 +178 @@
           ir=nursat(i)
           write(*,'(1x,i4,1x,a4,1x,a4,a2,e11.4)') ir,seq(ir),nmat(i),
-     #                                            ': ',ey
+     &                                            ': ',ey
         endif
       enddo