diff options
| -rw-r--r-- | package.lisp | 1 | ||||
| -rw-r--r-- | src/fix.lisp | 5 |
2 files changed, 6 insertions, 0 deletions
diff --git a/package.lisp b/package.lisp index 92dbc79..b35dee4 100644 --- a/package.lisp +++ b/package.lisp @@ -20,6 +20,7 @@ #:dump #:fix-addforce #:fix-aveforce + #:fix-enforce2d #:fix-langevin #:fix-modify #:fix-nve diff --git a/src/fix.lisp b/src/fix.lisp index 347b54c..72aea7b 100644 --- a/src/fix.lisp +++ b/src/fix.lisp @@ -45,6 +45,11 @@ (lformat "fix ~a ~a setforce ~a ~a ~a~%" id group-id fx fy fz)))) +(defun fix-enforce2d (id group-id) + (declare (type symbol id group-id)) + (with-group-id (group-id) + (lformat "fix ~a ~a enforce2d~%" id group-id))) + (defun fix-langevin (id group-id tstart tstop damp seed) (declare (type symbol id group-id)) (check-type tstart (or keyword number symbol)) |