From 172ffc34dca28e85f69e14850437575266c31240 Mon Sep 17 00:00:00 2001
From: jpekkila <johannes.pekkila@protonmail.com>
Date: Thu, 25 Jun 2020 06:44:27 +0300
Subject: [PATCH] Was missing another fortran file, added

---
 src/core/astaroth_fortran.cc | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 src/core/astaroth_fortran.cc

diff --git a/src/core/astaroth_fortran.cc b/src/core/astaroth_fortran.cc
new file mode 100644
index 0000000..aa535d1
--- /dev/null
+++ b/src/core/astaroth_fortran.cc
@@ -0,0 +1,32 @@
+#include "astaroth_fortran.h"
+
+#include "astaroth.h"
+#include "astaroth_utils.h"
+
+void
+acdevicecreate_(const int* id, const AcMeshInfo* info, Device* handle)
+{
+    // TODO errorcheck
+    acDeviceCreate(*id, *info, handle);
+}
+
+void
+acdevicedestroy_(Device* device)
+{
+    // TODO errorcheck
+    acDeviceDestroy(*device);
+}
+
+void
+acdeviceprintinfo_(const Device* device)
+{
+    // TODO errorcheck
+    acDevicePrintInfo(*device);
+}
+
+void
+acupdatebuiltinparams_(AcMeshInfo* info)
+{
+    // TODO errorcheck
+    acUpdateBuiltinParams(info);
+}