logical printang(max_cut)
integer printpdb(max_cut)
integer printmol2(max_cut)
- character*240 lineh
+ character*240 lineh,scrachdir2d
REAL CRIT(maxconf),MEMBR(maxconf)
REAL CRITVAL(maxconf-1)
INTEGER IA(maxconf),IB(maxconf)
DIMENSION NN(maxconf),DISNN(maxconf)
LOGICAL FLAG(maxconf)
integer i,j,k,l,m,n,len,lev,idum,ii,ind,ioffset,jj,icut,ncon,
- & it,ncon_work,ind1
+ & it,ncon_work,ind1,ilen
double precision t1,t2,tcpu,difconf
double precision varia(maxvar)
double precision hrtime,mintime,sectime
logical eof
-
+ external ilen
#ifdef MPI
call MPI_Init( IERROR )
call MPI_Comm_rank( MPI_COMM_WORLD, me, IERROR )
#ifdef MPI
call work_partition(.true.,ncon)
#endif
-
call probabl(iT,ncon_work,ncon,*20)
if (ncon_work.lt.2) then
& scount(0),idispl(0),MPI_REAL,Master,MPI_COMM_WORLD, IERROR)
if (me.eq.master) then
#endif
- open(80,file='/tmp/distance',form='unformatted')
+ scrachdir2d=scratchdir(:ilen(scratchdir))//'distance'
+ open(80,file=scrachdir2d,form='unformatted')
do i=1,ndis
write(80) diss(i)
enddo