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);
+}