integer i,j,k,l,m,n,len,lev,idum,ii,ind,ioffset,jj,icut,ncon,
& it,ncon_work,ind1,ilen
double precision t1,t2,tcpu,difconf
+ real diss_(maxdist)
double precision varia(maxvar)
double precision hrtime,mintime,sectime
if (ind.ge.indstart(me) .and. ind.le.indend(me)) then
#endif
ind1=ind1+1
+#ifdef MPI
+ DISS_(IND1)=DIFCONF(I,J)
+#else
DISS(IND1)=DIFCONF(I,J)
+#endif
c write (iout,'(2i4,i10,f10.5)') i,j,ind,DISS(IND)
#ifdef MPI
endif
PRINT '(a)','End of distance computation'
#ifdef MPI
- call MPI_Gatherv(diss(1),scount(me),MPI_REAL,diss(1),
+ call MPI_Gatherv(diss_(1),scount(me),MPI_REAL,diss(1),
& scount(0),idispl(0),MPI_REAL,Master,MPI_COMM_WORLD, IERROR)
if (me.eq.master) then
#endif
C
close(icbase,status="delete")
#ifdef MPI
- call MPI_Finalize(MPI_COMM_WORLD,IERROR)
+ call MPI_Finalize(IERROR)
#endif
stop '********** Program terminated normally.'
20 write (iout,*) "Error reading coordinates"
#ifdef MPI
- call MPI_Finalize(MPI_COMM_WORLD,IERROR)
+ call MPI_Finalize(IERROR)
#endif
stop
30 write (iout,*) "Error reading reference structure"
#ifdef MPI
- call MPI_Finalize(MPI_COMM_WORLD,IERROR)
+ call MPI_Finalize(IERROR)
#endif
stop
end