ICODE-ADC/lammps
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-svn-id: svn://svn.icms.temple.edu/lammps-ro/trunk@11978 f3b2605a-c512-4ea7-a41b-209d697bcdaa

Browse Source
This commit is contained in:
sjplimp
2014-05-13 15:23:13 +00:00
parent d17e06c479
commit 6c06a66ae7
25 changed files with 512 additions and 2004 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
src/input.cpp
View File

@ -24,6 +24,8 @@
#include "atom.h"
#include "atom_vec.h"
#include "comm.h"
#include "comm_brick.h"
#include "comm_tiled.h"
#include "group.h"
#include "domain.h"
#include "output.h"
@ -553,7 +555,8 @@ int Input::execute_command()
else if (!strcmp(command,"bond_style")) bond_style();
else if (!strcmp(command,"boundary")) boundary();
else if (!strcmp(command,"box")) box();
else if (!strcmp(command,"communicate")) communicate();
else if (!strcmp(command,"comm_modify")) comm_modify();
else if (!strcmp(command,"comm_style")) comm_style();
else if (!strcmp(command,"compute")) compute();
else if (!strcmp(command,"compute_modify")) compute_modify();
else if (!strcmp(command,"dielectric")) dielectric();
@ -1145,9 +1148,25 @@ void Input::box()
/* ---------------------------------------------------------------------- */
void Input::communicate()
void Input::comm_modify()
{
comm->set(narg,arg);
comm->modify_params(narg,arg);
}
/* ---------------------------------------------------------------------- */
void Input::comm_style()
{
if (narg < 1) error->all(FLERR,"Illegal comm_style command");
if (strcmp(arg[0],"brick") == 0) {
if (comm->layout)
error->all(FLERR,
"Cannot switch to comm style brick from "
"irregular tiling of proc domains");
comm = new CommBrick(lmp);
} else if (strcmp(arg[0],"tiled") == 0) {
comm = new CommTiled(lmp);
} else error->all(FLERR,"Illegal comm_style command");
}
/* ---------------------------------------------------------------------- */