High Performance Computing 1
MatVec.f
•
call MPI_SEND(ans, 1, MPI_DOUBLE_PRECISION, master,     
     &                     row, MPI_COMM_WORLD, ierr)           
go to 90        
endif
200          continue      
endif      
call MPI_FINALIZE(ierr)      
stop      
end