帮忙看一下并行计算程序，跪谢！

网络暴民

下面是其中一段：
index = 1
      do 30 dest=1, numworkers
        write(*,*) 'Sending to worker task', dest

C  *--------------------------------------------------------------------->
C *--->Send index so each process knows where to start in the data array
C  *--------------------------------------------------------------------->

        call MPI_SEND(index, 1, MPI_INTEGER, dest, indexmsg,
     &                MPI_COMM_WORLD, ierr)

C  *-------------------------------------------------------------->
C *--->Send chunksize bit of data starting at the index position.
C  *-------------------------------------------------------------->

        call MPI_SEND(data(index), chunksize, MPI_REAL, dest, arraymsg,
     &                MPI_COMM_WORLD, ierr )
        index = index + chunksize
30   continue

C  *------------------------------------------------------------------->
C *---> Wait to get back the results from workers & print a few values
C  *------------------------------------------------------------------->

      do 40 i=1, numworkers
        source = i

C  *------------------------------------------------------------------------->
C *---> Receive the index position of the chunk this process was working on.
C  *------------------------------------------------------------------------->

        call MPI_RECV(index, 1, MPI_INTEGER, source, indexmsg,
     &                MPI_COMM_WORLD, status, ierr)

C  *--------------------------------------------------------->
C *---> Receive chunksize bit of data for the results array.
C  *--------------------------------------------------------->

        call MPI_RECV(result(index), chunksize, MPI_REAL, source,
     &                arraymsg, MPI_COMM_WORLD, status, ierr)
        print *, '---------------------------------------------------'
        print *, 'MASTER: Sample results from worker task ', source
        print *, '   result[', index, ']=', result(index)
        print *, '   result[', index+100, ']=', result(index+100)
        print *, '   result[', index+1000, ']=', result(index+1000)
        print *, ' '
40   continue

      print *, 'MASTER: All Done!'
      endif
请问红色部分中的index还变吗？如果变，为什么啊？小弟今天才接触并行计算，希望碰到大侠能拉我一把

易小凯

要看你的subroutine是什么样的了
fortran是双向传递参数的

abd

并行计算？貌似很深奥啊！！！

雪花纷飞

假设chunksize=2，进程数为4，如上图，index应该是变了。