~ubuntu-branches/debian/sid/lammps/sid

« back to all changes in this revision

Viewing changes to src/MISC/fix_thermal_conductivity.cpp

  • Committer: Package Import Robot
  • Author(s): Anton Gladky
  • Date: 2015-04-29 23:44:49 UTC
  • mfrom: (5.1.3 experimental)
  • Revision ID: package-import@ubuntu.com-20150429234449-mbhy9utku6hp6oq8
Tags: 0~20150313.gitfa668e1-1
Upload into unstable.

Show diffs side-by-side

added added

removed removed

Lines of Context:
144
144
{
145
145
  int i,j,m,insert;
146
146
  double coord,ke;
147
 
  MPI_Status status;
148
147
  struct {
149
148
    double value;
150
149
    int proc;
283
282
      if (rmass) sbuf[3] = rmass[j];
284
283
      else sbuf[3] = mass[type[j]];
285
284
      MPI_Sendrecv(sbuf,4,MPI_DOUBLE,all[1].proc,0,
286
 
                   rbuf,4,MPI_DOUBLE,all[1].proc,0,world,&status);
 
285
                   rbuf,4,MPI_DOUBLE,all[1].proc,0,world,MPI_STATUS_IGNORE);
287
286
      vcm[0] = (sbuf[3]*sbuf[0] + rbuf[3]*rbuf[0]) / (sbuf[3] + rbuf[3]);
288
287
      vcm[1] = (sbuf[3]*sbuf[1] + rbuf[3]*rbuf[1]) / (sbuf[3] + rbuf[3]);
289
288
      vcm[2] = (sbuf[3]*sbuf[2] + rbuf[3]*rbuf[2]) / (sbuf[3] + rbuf[3]);
302
301
      if (rmass) sbuf[3] = rmass[j];
303
302
      else sbuf[3] = mass[type[j]];
304
303
      MPI_Sendrecv(sbuf,4,MPI_DOUBLE,all[0].proc,0,
305
 
                   rbuf,4,MPI_DOUBLE,all[0].proc,0,world,&status);
 
304
                   rbuf,4,MPI_DOUBLE,all[0].proc,0,world,MPI_STATUS_IGNORE);
306
305
      vcm[0] = (sbuf[3]*sbuf[0] + rbuf[3]*rbuf[0]) / (sbuf[3] + rbuf[3]);
307
306
      vcm[1] = (sbuf[3]*sbuf[1] + rbuf[3]*rbuf[1]) / (sbuf[3] + rbuf[3]);
308
307
      vcm[2] = (sbuf[3]*sbuf[2] + rbuf[3]*rbuf[2]) / (sbuf[3] + rbuf[3]);