Changeset 5fef0d7 for enysol_p.f
- Timestamp:
- 09/02/10 10:25:36 (14 years ago)
- Branches:
- master
- Children:
- 225475c
- Parents:
- 3fbbfbb
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
enysol_p.f
r3fbbfbb r5fef0d7 334 334 call MPI_ALLREDUCE(eysl, eyslsum, 1, MPI_DOUBLE_PRECISION, 335 335 & MPI_SUM,my_mpi_comm, ierror) 336 !write (logString, *) 'enysol>', myrank, eysl, eyslsum336 write (logString, *) 'enysol>', myrank, eysl, eyslsum 337 337 tsurfres = surfres 338 338 call MPI_ALLREDUCE(tsurfres, surfres, mxrs, MPI_DOUBLE_PRECISION,
Note:
See TracChangeset
for help on using the changeset viewer.