Bibliography
109
parameter(n = 2)
real rx(n),ry(n),rz(n)
character cnfile*(*)
open(unit=itape,file=cnfile,form=’formatted’,status=’unknown’)
rewind(itape)
do i=1,n
rx(i)=ranf(dummy)-0.5
ry(i)=ranf(dummy)-0.5
rz(i)=ranf(dummy)-0.5
write( itape,*) rx(i),ry(i),rz(i)
end do
return
end
subroutine wheader
common / block1 / rx, ry, rz
common / block4 / step
integer n,step
parameter ( n = 2 )
real rx(n), ry(n), rz(n)
real xi,yi,zi
10 format(f8.6,1x,f10.6,1x,f8.6)
if( mod(step,10).eq.0) then
do i=1,n
xi = rx(i)
yi = ry(i)
zi = rz(i)
write(step,10)xi,yi,zi
end do
end if
return
end
Bibliography
1. Reimann, P., Hänggi, P.: Materials science and processing. Introduction to the physics of
Brownian motors. Appl. Phys. A 75(2), 169–178 (2002)
2. Wang, H.Y., Bao, J.D.: The roles of ratchet in transport of two coupled particles. Phys. A 337,
13–26 (2004)
3. Wang, H.Y., Bao, J.D.: Cooperation behavior in transport process of coupled Brownian motors.
Phys. A 357, 373–382 (2005)
4. Wang, H.Y., Bao, J.D.: Transport coherence in coupled Brownian ratchet. Phys. A 374, 33–40
(2007)
5. Fornés, J.A.: An oscillating electric field with thermal noise increases the rotational diffusion
and drives rotation in a dipole. J. Colloid Interface Sci. 281, 236–239 (2005)