Was missing another fortran file, added

2020-06-25 06:44:27 +03:00
parent f11c5b84fb
commit 172ffc34dc
1 changed files with 32 additions and 0 deletions
--- a/src/core/astaroth_fortran.cc
+++ 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);
+}