From 93f36b574d2a319bad1802ef3336d42314cebcff Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Fri, 24 Aug 2018 12:58:21 -0500 Subject: [PATCH] Fix C binding names on paths --- src/initialize.F90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/initialize.F90 b/src/initialize.F90 index d5ce32b312..fac8f918cc 100644 --- a/src/initialize.F90 +++ b/src/initialize.F90 @@ -17,10 +17,10 @@ module initialize implicit none - type(C_PTR), bind(C) :: openmc_path_input - type(C_PTR), bind(C) :: openmc_path_statepoint - type(C_PTR), bind(C) :: openmc_path_sourcepoint - type(C_PTR), bind(C) :: openmc_path_particle_restart + type(C_PTR), bind(C, name='path_input') :: openmc_path_input + type(C_PTR), bind(C, name='path_statepoint') :: openmc_path_statepoint + type(C_PTR), bind(C, name='path_sourcepoint') :: openmc_path_sourcepoint + type(C_PTR), bind(C, name='path_particle_restart') :: openmc_path_particle_restart contains