3rd variant of Fortran wrapper for DFTB+ calling LAMMPS

examples/COUPLE/fortran3/LAMMPS-wrapper2.h

@@ -0,0 +1,34 @@
+/* -----------------------------------------------------------------------
+    LAMMPS - Large-scale Atomic/Molecular Massively Parallel Simulator
+    www.cs.sandia.gov/~sjplimp/lammps.html
+    Steve Plimpton, sjplimp@sandia.gov, Sandia National Laboratories
+ 
+    Copyright (2003) Sandia Corporation.  Under the terms of Contract
+    DE-AC04-94AL85000 with Sandia Corporation, the U.S. Government retains
+    certain rights in this software.  This software is distributed under 
+    the GNU General Public License.
+ 
+    See the README file in the top-level LAMMPS directory.
+------------------------------------------------------------------------- */
+
+/* ------------------------------------------------------------------------
+    Contributing author:  Nir Goldman, ngoldman@llnl.gov, Oct. 19th, 2016
+------------------------------------------------------------------------- */
+
+/* This is set of "wrapper" functions to assist LAMMPS.F90, which itself
+   provides a (I hope) robust Fortran interface to library.cpp and
+   library.h.  All prototypes herein COULD be added to library.h instead of
+   including this as a separate file. See the README for instructions. */
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+/* Prototypes for auxiliary functions */
+void lammps_set_callback (void *); 
+void lammps_set_user_energy (void*, double); 
+
+#ifdef __cplusplus
+}
+#endif
+
+/* vim: set ts=3 sts=3 expandtab: */