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

• outvar.f (modified) (5 diffs)

outvar.f

@@ -5 +5 @@
 ! Copyright 2005       Frank Eisenmenger, U.H.E. Hansmann,
 !                      Shura Hayryan, Chin-Ku 
-c Copyright 2007       Frank Eisenmenger, U.H.E. Hansmann,
-c                      Jan H. Meinke, Sandipan Mohanty
+! Copyright 2007       Frank Eisenmenger, U.H.E. Hansmann,
+!                      Jan H. Meinke, Sandipan Mohanty
 !
 ! **************************************************************
@@ -70 +70 @@
 
         if ( gbpr(1,iml).ne.zero
-     #   .or.gbpr(2,iml).ne.zero
-     #   .or.gbpr(3,iml).ne.zero
-     #   .or.gbpr(4,iml).ne.zero
-     #   .or.gbpr(5,iml).ne.zero
-     #   .or.gbpr(6,iml).ne.zero ) then
+     &   .or.gbpr(2,iml).ne.zero
+     &   .or.gbpr(3,iml).ne.zero
+     &   .or.gbpr(4,iml).ne.zero
+     &   .or.gbpr(5,iml).ne.zero
+     &   .or.gbpr(6,iml).ne.zero ) then
 
           do i = 1,3
@@ -84 +84 @@
 
           write(iout,'(1x,2a,1x,12a)')
-     #    '@ ',mlfd,(strg(i)(ibegst(strg(i)):),',',i=1,5),
-     #    strg(6)(ibegst(strg(6)):)
+     &    '@ ',mlfd,(strg(i)(ibegst(strg(i)):),',',i=1,5),
+     &    strg(6)(ibegst(strg(6)):)
 
         endif
@@ -97 +97 @@
 
             write(iout,'(3x,a,i3,1x,a,1x,a,1x,a,1x,f10.3)')
-     #        mlfd,(nursvr(i)-is),':',nmvr(i),':',vlvr(i)*crd
+     &        mlfd,(nursvr(i)-is),':',nmvr(i),':',vlvr(i)*crd
           else
 
@@ -105 +105 @@
 
               write(iout,'(3x,a,i3,1x,a,1x,a,1x,a,1x,f10.3,1x,a)')
-     #          mlfd,(nursvr(i)-is),':',nmvr(i),':',vlvr(i)*crd
-     #          ,' &'
+     &          mlfd,(nursvr(i)-is),':',nmvr(i),':',vlvr(i)*crd
+     &          ,' &'
             endif