On Tuesday, July 19, 2011 16:13:38 Jonathan Dursi wrote:
> On 19 Jul 9:02AM, Alexander Beck-Ratzka wrote:
> >integer ierr, i, myrank, BUFSIZE, thefile, intsize
> >parameter (BUFSIZE=100)
> >integer buf(BUFSIZE)
> >
> >do i=0,BUFSIZE
> >
> > buf(i) = myrank*BUFSIZE + i
On 19 Jul 9:02AM, Alexander Beck-Ratzka wrote:
integer ierr, i, myrank, BUFSIZE, thefile, intsize
parameter (BUFSIZE=100)
integer buf(BUFSIZE)
do i=0,BUFSIZE
buf(i) = myrank*BUFSIZE + i
print*, 'i =', i, 'myrank =', myrank, 'buf(i)=',buf(i)
end do
[...]
When I am