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
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147

! ISO_C_binding wrapper on CSlib C interface

module cslib_wrap

interface
  subroutine cslib_open_fortran(csflag,mode,str,pcomm,ptr) bind(c)
    use iso_c_binding
    integer(c_int), value :: csflag
    character(c_char) :: mode(*),str(*)
    type(c_ptr), value :: pcomm
    type(c_ptr) :: ptr
  end subroutine cslib_open_fortran

  subroutine cslib_open_fortran_mpi_one(csflag,mode,pboth,pcomm,ptr) bind(c)
    use iso_c_binding
    integer(c_int), value :: csflag
    character(c_char) :: mode(*)
    type(c_ptr), value :: pboth,pcomm
    type(c_ptr) :: ptr
  end subroutine cslib_open_fortran_mpi_one

  subroutine cslib_close(ptr) bind(c)
    use iso_c_binding
    type(c_ptr), value :: ptr
  end subroutine cslib_close

  subroutine cslib_send(ptr,msgID,nfield) bind(c)
    use iso_c_binding
    type(c_ptr), value :: ptr
    integer(c_int), value :: msgID,nfield
  end subroutine cslib_send

  subroutine cslib_pack_int(ptr,id,value) bind(c)
    use iso_c_binding
    type(c_ptr), value :: ptr
    integer(c_int), value :: id
    integer(c_int), value :: value
  end subroutine cslib_pack_int

  subroutine cslib_pack_int64(ptr,id,value) bind(c)
    use iso_c_binding
    type(c_ptr), value :: ptr
    integer(c_int), value :: id
    integer(c_int64_t), value :: value
  end subroutine cslib_pack_int64

  subroutine cslib_pack_float(ptr,id,value) bind(c)
    use iso_c_binding
    type(c_ptr), value :: ptr
    integer(c_int), value :: id
    real(c_float), value :: value
  end subroutine cslib_pack_float

  subroutine cslib_pack_double(ptr,id,value) bind(c)
    use iso_c_binding
    type(c_ptr), value :: ptr
    integer(c_int), value :: id
    real(c_double), value :: value
  end subroutine cslib_pack_double

  subroutine cslib_pack_string(ptr,id,value) bind(c)
    use iso_c_binding
    type(c_ptr), value :: ptr
    integer(c_int), value :: id
    character(c_char) :: value(*)
  end subroutine cslib_pack_string

  subroutine cslib_pack(ptr,id,ftype,flen,data) bind(c)
    use iso_c_binding
    type(c_ptr), value :: ptr
    integer(c_int), value :: id,ftype,flen
    type(c_ptr), value :: data
  end subroutine cslib_pack

  subroutine cslib_pack_parallel(ptr,id,ftype,nlocal,ids,nper,data) bind(c)
    use iso_c_binding
    type(c_ptr), value :: ptr
    integer(c_int), value :: id,ftype,nlocal,nper
    type(c_ptr), value :: ids,data
  end subroutine cslib_pack_parallel

  function cslib_recv(ptr,nfield,fieldID,fieldtype,fieldlen) bind(c)
    use iso_c_binding
    integer(c_int) :: cslib_recv
    type(c_ptr), value :: ptr
    integer(c_int) :: nfield
    type(c_ptr) :: fieldID,fieldtype,fieldlen
  end function cslib_recv

  function cslib_unpack_int(ptr,id) bind(c)
    use iso_c_binding
    integer(c_int) :: cslib_unpack_int
    type(c_ptr), value :: ptr
    integer(c_int), value :: id
  end function cslib_unpack_int

  function cslib_unpack_int64(ptr,id) bind(c)
    use iso_c_binding
    integer(c_int64_t) :: cslib_unpack_int64
    type(c_ptr), value :: ptr
    integer(c_int), value :: id
  end function cslib_unpack_int64

  function cslib_unpack_float(ptr,id) bind(c)
    use iso_c_binding
    real(c_float) :: cslib_unpack_float
    type(c_ptr), value :: ptr
    integer(c_int), value :: id
  end function cslib_unpack_float

  function cslib_unpack_double(ptr,id) bind(c)
    use iso_c_binding
    real(c_double) :: cslib_unpack_double
    type(c_ptr), value :: ptr
    integer(c_int), value :: id
  end function cslib_unpack_double

  function cslib_unpack_string(ptr,id) bind(c)
    use iso_c_binding
    type(c_ptr) :: cslib_unpack_string
    type(c_ptr), value :: ptr
    integer(c_int), value :: id
  end function cslib_unpack_string

  function cslib_unpack(ptr,id) bind(c)
    use iso_c_binding
    type(c_ptr) :: cslib_unpack
    type(c_ptr), value :: ptr
    integer(c_int), value :: id
  end function cslib_unpack

  subroutine cslib_unpack_parallel(ptr,id,nlocal,ids,nper,data) bind(c)
    use iso_c_binding
    type(c_ptr), value :: ptr
    integer(c_int), value :: id,nlocal,nper
    type(c_ptr), value :: ids,data
  end subroutine cslib_unpack_parallel

  function cslib_extract(ptr,flag) bind(c)
    use iso_c_binding
    integer(c_int) :: cslib_extract
    type(c_ptr), value :: ptr
    integer(c_int), value :: flag
  end function cslib_extract
end interface

end module cslib_wrap