c print '(20i4)',(itype(i),i=1,nres)
do i=1,nres
#ifdef PROCOR
c print '(20i4)',(itype(i),i=1,nres)
do i=1,nres
#ifdef PROCOR
#endif
nct=nres
cd print *,'NNT=',NNT,' NCT=',NCT
#endif
nct=nres
cd print *,'NNT=',NNT,' NCT=',NCT
if (pdbref) then
if(me.eq.king.or..not.out1file)
& write (iout,'(a,i3)') 'nsup=',nsup
if (pdbref) then
if(me.eq.king.or..not.out1file)
& write (iout,'(a,i3)') 'nsup=',nsup
if (iread.eq.0) return
iread=iread+ilen(lancuch)+1
read (rekord(iread:),*,end=10,err=10) (tablica(i),i=1,dim)
if (iread.eq.0) return
iread=iread+ilen(lancuch)+1
read (rekord(iread:),*,end=10,err=10) (tablica(i),i=1,dim)
if (iread.eq.0) return
iread=iread+ilen(lancuch)+1
read (rekord(iread:),*,end=10,err=10) (tablica(i),i=1,dim)
if (iread.eq.0) return
iread=iread+ilen(lancuch)+1
read (rekord(iread:),*,end=10,err=10) (tablica(i),i=1,dim)
write (*,*) "Moving ",source(:ilen(source)),
& " from temporary directory to working directory"
write (*,*) "Moving ",source(:ilen(source)),
& " from temporary directory to working directory"
- write (*,*) "/bin/mv "//source(:ilen(source))//" "//curdir
- call system("/bin/mv "//source(:ilen(source))//" "//curdir)
+ write (*,*) "/bin/mv "//tmpfile//" "//curdir
+ call system("/bin/mv "//tmpfile//" "//curdir)