Changeset c021909 for partem_p.f

Timestamp:

11/19/09 11:29:31 (14 years ago)

Author:

baerbaer <baerbaer@…>

Branches:

master

Children:

6012d3f

Parents:

08edfcf

Message:

Changed asap to asa_p to avoid shadowing

The global variable asap was shadowed in partem_p by the area used to collect
results from different MPI tasks. This change takes care of it.
TODO: Change all variable names that are used to collect data from the different
MPI tasks so they end in _p.

git-svn-id: ​svn+ssh://svn.berlios.de/svnroot/repos/smmp/trunk@29 26dc1dd8-5c4e-0410-9ffe-d298b4865968

File:

• partem_p.f (modified) (4 diffs)

partem_p.f

@@ -43 +43 @@
       double precision    pbe(MAX_PROC),yol(MAX_PROC),acy(MAX_PROC),
      &     acy1(MAX_PROC),acx1(MAX_PROC),
-     &     rgyrp(MAX_PROC),rmsdp(MAX_PROC), eol0,rgyp,acz0
+     &     rgyrp(MAX_PROC),rmsdp(MAX_PROC), eol0,acz0
       
       double precision    e_min, e_minp(MAX_PROC), e_minpt(MAX_PROC)
@@ -67 +67 @@
 !     asap      storage array for solvent accessible surface
 !     vdvolp     storage array for van-der-Waals volume
-      double precision asap(MAX_PROC), vdvolp(MAX_PROC)
+      double precision asa_p(MAX_PROC), vdvolp(MAX_PROC)
 
       integer nhelp(MAX_PROC),nbetp(MAX_PROC), mhbp(MAX_PROC),
@@ -325 +325 @@
                CALL MPI_GATHER(eysmi,1,MPI_DOUBLE_PRECISION,eysmip,1,
      &              MPI_DOUBLE_PRECISION,0,partem_comm,IERR)
-               CALL MPI_GATHER(asa,1,MPI_DOUBLE_PRECISION,asap,1,
+               CALL MPI_GATHER(asa,1,MPI_DOUBLE_PRECISION,asa_p,1,
      &              MPI_DOUBLE_PRECISION,0,partem_comm,IERR)
                CALL MPI_GATHER(vdvol,1,MPI_DOUBLE_PRECISION,vdvolp,1,
@@ -374 +374 @@
                      write(14,*) iold,i,j,pbe(i), dirp(j),
      &                 yol(j),eyslr(j), eyelp(j), eyvwp(j), eyhbp(j), 
-     &                    eyvrp(j),eysmip(j), asap(j), vdvolp(j),
+     &                    eyvrp(j),eysmip(j), asa_p(j), vdvolp(j),
      &                    rgyrp(j),nhelp(j),nbetp(j),mhbp(j),
      &                 imhbp(j), nctotp(j),ncnatp(j), e_minp(j),