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

• difang.f (modified) (2 diffs)

difang.f

@@ -1 @@
-c **************************************************************
-c
-c This file contains the subroutines: difang,addang
-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: difang,addang
+!
+! 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
+!
+! **************************************************************
 
       real*8 function difang(a1,a2)
 
-c ......................................................
-c  PURPOSE:  difang = a2 - a1  with:  -pi < difang <= pi
-c            
-c  INPUT:    a1,a2-two angles [rad.]
-c
-c  CALLS: none
-c
-c ......................................................
+! ......................................................
+!  PURPOSE:  difang = a2 - a1  with:  -pi < difang <= pi
+!            
+!  INPUT:    a1,a2-two angles [rad.]
+!
+!  CALLS: none
+!
+! ......................................................
 
       implicit real*8 (a-h,o-z)
 
       parameter (pi=3.141592653589793d0,
-     #           pi2=2.d0*pi)
+     &           pi2=2.d0*pi)
 
       d=mod((a2-a1),pi2)
@@ -35 +35 @@
       return
       end
-c *********************************
+! *********************************
       real*8 function addang(a1,a2)
 
-c ......................................................
-c  PURPOSE:  addang = a1 + a2  with:  -pi < addang <= pi
-c            
-c  INPUT:    a1,a2-two angles [rad.]
-c
-c  CALLS: none
-c
-c ......................................................
+! ......................................................
+!  PURPOSE:  addang = a1 + a2  with:  -pi < addang <= pi
+!            
+!  INPUT:    a1,a2-two angles [rad.]
+!
+!  CALLS: none
+!
+! ......................................................
 
       implicit real*8 (a-h,o-z)
 
       parameter (pi=3.141592653589793d0,
-     #           pi2=2.d0*pi)
+     &           pi2=2.d0*pi)
 
       d=mod((a1+a2),pi2)