Add Fortran interface to R_Kister_Data_Store (5741555d) · Commits · NEAMS / saline

fortran/CMakeLists.txt

+4 −0

Original line number	Diff line number	Diff line
		@@ -3,12 +3,14 @@ TRIBITS_SUBPACKAGE(fortran)
		SET(HEADERS
		data_storeInterface.h
		default_data_storeInterface.h
		r_kister_data_storeInterface.h
		thermophysical_propertiesInterface.h
		)

		SET(C_SOURCES
		data_storeInterface.cpp
		default_data_storeInterface.cpp
		r_kister_data_storeInterface.cpp
		thermophysical_propertiesInterface.cpp
		)

		@@ -17,6 +19,8 @@ data_store_I.f90
		data_store_M.f90
		default_data_store_I.f90
		default_data_store_M.f90
		r_kister_data_store_I.f90
		r_kister_data_store_M.f90
		thermophysical_properties_I.f90
		thermophysical_properties_M.f90
		)

0 → 100644

+8 −0

Original line number	Diff line number	Diff line
		<generate name="r_kister_data_store">
		<using_namespace name="saline"/>
		<include_relative name="r_kister_data_store.hh"/>
		<class name="R_Kister_Data_Store" parent="Data_Store">
		<method name="load" return_type="void"/>
		</class>

		</generate>

0 → 100644

+26 −0

Original line number	Diff line number	Diff line
		/*!
		* This file has been dynamically generated by Class Interface Xml (CIX)
		* DO NOT MODIFY THIS FILE -- CHANGES WILL BE OVERWRITTEN UPON REGENERATION
		* If changes need to occur, modify the appropriate CIX xml file
		* Date Generated: Thu Sep 09 12:24:50 EDT 2021
		* If any issues are experiences with this generated file that cannot be fixed
		* with adjustment of the CIX xml file, please contact Robert A. Lefebvre, raq@ornl.gov
		*/
		#include <string.h>
		#include "r_kister_data_storeInterface.h"
		using namespace saline;
		void R_Kister_Data_Store_load(void * R_Kister_Data_Store_ptr)
		{
		((R_Kister_Data_Store*)R_Kister_Data_Store_ptr)->load();
		}

		void* R_Kister_Data_Store_initialize()
		{
		return new R_Kister_Data_Store();
		}

		void R_Kister_Data_Store_destroy(void * R_Kister_Data_Store_ptr)
		{
		delete (R_Kister_Data_Store*)R_Kister_Data_Store_ptr;
		}

0 → 100644

+22 −0

Original line number	Diff line number	Diff line
		/*!
		* This file has been dynamically generated by Class Interface Xml (CIX)
		* DO NOT MODIFY THIS FILE -- CHANGES WILL BE OVERWRITTEN UPON REGENERATION
		* If changes need to occur, modify the appropriate CIX xml file
		* Date Generated: Thu Sep 09 12:24:50 EDT 2021
		* If any issues are experiences with this generated file that cannot be fixed
		* with adjustment of the CIX xml file, please contact Robert A. Lefebvre, raq@ornl.gov
		*/
		#ifndef R_KISTER_DATA_STOREINTERFACE_H
		#define R_KISTER_DATA_STOREINTERFACE_H
		#include "r_kister_data_store.hh"
		using namespace saline;
		#ifdef __cplusplus
		extern "C" {
		#endif
		void R_Kister_Data_Store_load(void * R_Kister_Data_Store_ptr);
		void* R_Kister_Data_Store_initialize();
		void R_Kister_Data_Store_destroy(void * R_Kister_Data_Store_ptr);
		#ifdef __cplusplus
		}
		#endif
		#endif /* R_KISTER_DATA_STOREINTERFACE_H */

0 → 100644

+28 −0

Original line number	Diff line number	Diff line
		!>
		!! This file has been dynamically generated by Class Interface Xml (CIX)
		!! DO NOT MODIFY THIS FILE -- CHANGES WILL BE OVERWRITTEN UPON REGENERATION
		!! If changes need to occur, modify the appropriate CIX xml file
		!! Date Generated: Thu Sep 09 12:24:50 EDT 2021
		!! If any issues are experiences with this generated file that cannot be fixed
		!! with adjustment of the CIX xml file, please contact Robert A. Lefebvre, raq@ornl.gov
		!!/
		module r_kister_data_store_I
		use, intrinsic :: ISO_C_BINDING
		interface
		subroutine f_R_Kister_Data_Store_load(R_Kister_Data_Store_ptr ) BIND(C,name="R_Kister_Data_Store_load")
		use,intrinsic :: ISO_C_BINDING
		implicit none
		type(C_PTR), value :: R_Kister_Data_Store_ptr;
		end subroutine
		type(C_PTR) function f_R_Kister_Data_Store_initialize( )BIND(C,name="R_Kister_Data_Store_initialize")
		use,intrinsic :: ISO_C_BINDING
		implicit none
		type(C_PTR) :: R_Kister_Data_Store_ptr;
		end function
		subroutine f_R_Kister_Data_Store_destroy(this) BIND(C,name="R_Kister_Data_Store_destroy")
		use,intrinsic :: ISO_C_BINDING
		implicit none
		type(C_PTR), value :: this;
		end subroutine
		end interface
		end module r_kister_data_store_I