diff --git a/fortran/tuvx/tuvx.F90 b/fortran/tuvx/tuvx.F90
index 1b7d4e47..d0d9b452 100644
--- a/fortran/tuvx/tuvx.F90
+++ b/fortran/tuvx/tuvx.F90
@@ -119,8 +119,8 @@ function constructor(config_path, grids, profiles, radiators, error) &
     end do
     c_config_path(n+1) = c_null_char
 
-    this%ptr_ = create_tuvx_c(c_config_path, c_loc(grids), c_loc(profiles), &
-                              c_loc(radiators), error_c)
+    this%ptr_ = create_tuvx_c(c_config_path, grids%ptr_, profiles%ptr_, &
+                              radiators%ptr_, error_c)
 
     error = error_t(error_c)
     if (.not. error%is_success()) then