From 914a405b6f7453d27f4cc8aec47ad44f4270a9ce Mon Sep 17 00:00:00 2001 From: Mark Piper Date: Fri, 2 Feb 2024 11:51:18 -0700 Subject: [PATCH] Start writing example main program --- example/CMakeLists.txt | 1 + example/bmi_geospatial_ex.f90 | 12 +++++++++++- 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/example/CMakeLists.txt b/example/CMakeLists.txt index c9fabb6..0bfc64a 100644 --- a/example/CMakeLists.txt +++ b/example/CMakeLists.txt @@ -15,3 +15,4 @@ make_example(get_value_ex) make_example(set_value_ex) make_example(conflicting_instances_ex) make_example(change_diffusivity_ex) +make_example(bmi_geospatial_ex) diff --git a/example/bmi_geospatial_ex.f90 b/example/bmi_geospatial_ex.f90 index 5e66fab..f91d0a2 100644 --- a/example/bmi_geospatial_ex.f90 +++ b/example/bmi_geospatial_ex.f90 @@ -1,6 +1,16 @@ ! An example of using a BMI extension program bmi_geospatial_ex + use bmif_2_0 + use bmiheatf + use bmiheatgeof implicit none - + + type(bmi_heat) :: h + integer :: status + character (len=BMI_MAX_COMPONENT_NAME), pointer :: name + + status = h%get_component_name(name) + write (*,"(a, a30)") "Component name: ", name + end program bmi_geospatial_ex