lammps-sys 0.6.0

Generates bindings to LAMMPS' C interface (with optional builds from source)
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114

/* ----------------------------------------------------------------------
   CSlib - Client/server library for code coupling
   http://cslib.sandia.gov, Sandia National Laboratories
   Steve Plimpton, sjplimp@sandia.gov

   Copyright 2018 National Technology & Engineering Solutions of
   Sandia, LLC (NTESS). Under the terms of Contract DE-NA0003525 with
   NTESS, the U.S. Government retains certain rights in this software.
   This software is distributed under the modified Berkeley Software
   Distribution (BSD) License.

   See the README file in the top-level CSlib directory.
------------------------------------------------------------------------- */

#ifdef MPI_YES
#include <mpi.h>
#else
#include <mpi_dummy.h>
#endif
#include <cstdio>
#include <cstring>
#include <cstdlib>

#include "msg.h"

using namespace CSLIB_NS;

/* ---------------------------------------------------------------------- */

Msg::Msg(int csflag, const void * /* ptr */, MPI_Comm cworld)
{
  world = cworld;
  MPI_Comm_rank(world,&me);
  MPI_Comm_size(world,&nprocs);

  init(csflag);
}

/* ---------------------------------------------------------------------- */

Msg::Msg(int csflag, const void * /* ptr */)
{
  world = 0;
  me = 0;
  nprocs = 1;

  init(csflag);
}

/* ---------------------------------------------------------------------- */

void Msg::init(int csflag)
{
  client = server = 0;
  if (csflag == 0) client = 1;
  else if (csflag == 1) server = 1;

  nsend = nrecv = 0;
}

/* ---------------------------------------------------------------------- */

void Msg::allocate(int nheader, int &maxheader, int *&header,
                   int nbuf, int &maxbuf, char *&buf)
{
  if (nheader > maxheader) {
    sfree(header);
    maxheader = nheader;
    header = (int *) smalloc(maxheader*sizeof(int));
  }

  if (nbuf > maxbuf) {
    sfree(buf);
    maxbuf = nbuf;
    buf = (char *) smalloc(maxbuf*sizeof(char));
  }
}

/* ---------------------------------------------------------------------- */

void *Msg::smalloc(int nbytes)
{
  if (nbytes == 0) return NULL;
  void *ptr = (void *) malloc(nbytes);
  if (ptr == NULL) {
    char str[128];
    sprintf(str,"Failed to allocate %d bytes",nbytes);
  }
  return ptr;
}

/* ---------------------------------------------------------------------- */

void Msg::sfree(void *ptr)
{
  if (ptr == NULL) return;
  free(ptr);
}

/* ---------------------------------------------------------------------- */

void Msg::error_all(const char *str)
{
  if (me == 0) printf("CSlib ERROR: %s\n",str);
  MPI_Abort(world,1);
}

/* ---------------------------------------------------------------------- */

void Msg::error_one(const char *str)
{
  printf("CSlib ERROR: %s\n",str);
  MPI_Abort(world,1);
}