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

• bgs.f (modified) (6 diffs)

bgs.f

@@ -156 +156 @@
             bv(nph,3)=xiv(nph,3)-zat(iN(icurraa))
             ab(nph)=bv(nph,1)*bv(nph,1)+bv(nph,2)*bv(nph,2)
-     #           +bv(nph,3)*bv(nph,3)
+     &           +bv(nph,3)*bv(nph,3)
             iph(nph)=iphi(icurraa)
          endif 
@@ -168 +168 @@
             bv(nph,3)=xiv(nph,3)-zat(iCa(icurraa))
             ab(nph)=bv(nph,1)*bv(nph,1)+bv(nph,2)*bv(nph,2)
-     #           +bv(nph,3)*bv(nph,3)
+     &           +bv(nph,3)*bv(nph,3)
             iph(nph)=ipsi(icurraa)
          endif
@@ -185 +185 @@
          do j=1,nph
             dv(i,j,1)=(1.0/ab(j))*(bv(j,2)*(rv(i,3)-xiv(j,3))-
-     c           bv(j,3)*(rv(i,2)-xiv(j,2)))
+     &           bv(j,3)*(rv(i,2)-xiv(j,2)))
             dv(i,j,2)=(-1.0/ab(j))*(bv(j,1)*(rv(i,3)-xiv(j,3))-
-     c           bv(j,3)*(rv(i,1)-xiv(j,1)))
+     &           bv(j,3)*(rv(i,1)-xiv(j,1)))
             dv(i,j,3)=(1.0/ab(j))*(bv(j,1)*(rv(i,2)-xiv(j,2))-
-     c           bv(j,2)*(rv(i,1)-xiv(j,1)))
+     &           bv(j,2)*(rv(i,1)-xiv(j,1)))
          enddo
       enddo
@@ -273 +273 @@
             bv(nph,3)=xiv(nph,3)-zat(iN(icurraa))
             ab(nph)=bv(nph,1)*bv(nph,1)+bv(nph,2)*bv(nph,2)
-     #           +bv(nph,3)*bv(nph,3)
+     &           +bv(nph,3)*bv(nph,3)
             iph(nph)=iphi(icurraa)
          endif 
@@ -285 +285 @@
             bv(nph,3)=xiv(nph,3)-zat(iCa(icurraa))
             ab(nph)=bv(nph,1)*bv(nph,1)+bv(nph,2)*bv(nph,2)
-     #           +bv(nph,3)*bv(nph,3)
+     &           +bv(nph,3)*bv(nph,3)
             iph(nph)=ipsi(icurraa)
          endif
@@ -302 +302 @@
          do j=1,nph
             dv(i,j,1)=(1.0/ab(j))*(bv(j,2)*(rv(i,3)-xiv(j,3))-
-     c           bv(j,3)*(rv(i,2)-xiv(j,2)))
+     &           bv(j,3)*(rv(i,2)-xiv(j,2)))
             dv(i,j,2)=(-1.0/ab(j))*(bv(j,1)*(rv(i,3)-xiv(j,3))-
-     c           bv(j,3)*(rv(i,1)-xiv(j,1)))
+     &           bv(j,3)*(rv(i,1)-xiv(j,1)))
             dv(i,j,3)=(1.0/ab(j))*(bv(j,1)*(rv(i,2)-xiv(j,2))-
-     c           bv(j,2)*(rv(i,1)-xiv(j,1)))
+     &           bv(j,2)*(rv(i,1)-xiv(j,1)))
          enddo
       enddo