add get entire mixing ratio array

Author: jcurtis2

src/gas_state.F90

@@ -57,15 +57,17 @@ subroutine f_gas_state_get_item(ptr_c, idx, val) bind(C)
     val = ptr_f%mix_rat(idx+1)
   end subroutine
 
-  subroutine f_gas_state_from_json(ptr_c) bind(C)
+  subroutine f_gas_state_from_json(ptr_c, gas_data_ptr_c) bind(C)
     type(gas_state_t), pointer :: ptr_f => null()
     type(c_ptr), intent(in) :: ptr_c
+    type(c_ptr), intent(in) :: gas_data_ptr_c
 
-    type(gas_data_t), pointer :: gas_data => null()
+    type(gas_data_t), pointer :: gas_data_ptr_f => null()
     integer :: ncid
 
     call c_f_pointer(ptr_c, ptr_f)
-    call gas_state_input_netcdf(ptr_f, ncid, gas_data)
+    call c_f_pointer(gas_data_ptr_c, gas_data_ptr_f)
+    call gas_state_input_netcdf(ptr_f, ncid, gas_data_ptr_f)
   end subroutine
 
   subroutine f_gas_state_to_json(ptr_c) bind(C)

src/gas_state.hpp

@@ -20,16 +20,19 @@ extern "C" void f_gas_state_len(const void *ptr, int *len) noexcept;
 extern "C" void f_gas_state_to_json(const void *ptr) noexcept;
 extern "C" void f_gas_state_from_json(const void *ptr) noexcept;
 extern "C" void f_gas_state_set_size(const void *ptr, const void *gasdata_ptr) noexcept;
+extern "C" void f_gas_state_mix_rats(const void *ptr, const double *data, const int *len);
 
 struct GasState {
     PMCResource ptr;
 
-    GasState(const nlohmann::json &json) :
+    GasState(const GasData &gas_data,
+             const nlohmann::json &json) :
         ptr(f_gas_state_ctor, f_gas_state_dtor)
     {
         gimmick_ptr() = std::make_unique<InputGimmick>(json);
 
         const int n = json.empty() ? 0 : gimmick_ptr()->find("gas_mixing_ratio")->size();
+        f_gas_state_set_size(this->ptr.f_arg(), &gas_data.ptr);
         //f_gas_state_set_size(this->ptr.f_arg(), &n);
         if (n != 0) f_gas_state_from_json(this->ptr.f_arg());
 
@@ -85,7 +88,10 @@ struct GasState {
       f_gas_state_len(&self.ptr, &len);
       std::valarray<double> data(len);
 
-
+      for (int idx = 0; idx < len; idx++) {
+         f_gas_state_get_item(&self.ptr, &idx, &data[idx]);
+      }
+      //f_gas_state_mix_rats(&self.ptr, &data, &len);
       return data;
     }
 };