-C
- subroutine uop( cin, cout, count, datatype )
- implicit none
- include 'mpif.h'
- integer cin(*), cout(*)
- integer count, datatype
- integer i
-
-! if (datatype .ne. MPI_INTEGER) then
-! write(6,*) 'Invalid datatype passed to user_op()'
-! return
-! endif
-
- do i=1, count
- cout(i) = cin(i) + cout(i)
- enddo
- end