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

• helix.f (modified) (3 diffs)

helix.f

@@ -1 @@
-c **************************************************************
-c
-c This file contains the subroutines: helix
-c
-c Copyright 2003       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: helix
+!
+! Copyright 2003       Frank Eisenmenger, U.H.E. Hansmann,
+!                      Shura Hayryan, Chin-Ku 
+! Copyright 2007       Frank Eisenmenger, U.H.E. Hansmann,
+!                      Jan H. Meinke, Sandipan Mohanty
+!
+! **************************************************************
 
 
       subroutine helix(nhel,mhel,nbet,mbet) 
-c---------------------------------------------------------------
-c
-c   PURPOSE: simple identification of secondary structure content
-c
-c   CALLS: none
-c
-c ---------------------------------------------------------------
+!---------------------------------------------------------------
+!
+!   PURPOSE: simple identification of secondary structure content
+!
+!   CALLS: none
+!
+! ---------------------------------------------------------------
       include 'INCL.H'
 
-cf2py intent(out) nhel
-cf2py intent(out) mhel
-cf2py intent(out) nbet
-cf2py intent(out) mbet
+!f2py intent(out) nhel
+!f2py intent(out) mhel
+!f2py intent(out) nbet
+!f2py intent(out) mbet
            
       logical lhel,lbet
@@ -42 +42 @@
          xphi = vlvr(iv)*crd
          xpsi = vlvr(idvr(i+1))*crd
-C Helicity
+! Helicity
          if(abs(xphi-philim).le.hlim) then
           lbet=.false.
@@ -52 +52 @@
             lhel = .false.
           end if
-C Sheetness
+! Sheetness
          else if(abs(xphi-philim2).le.hlim2) then
           lhel = .false.