diff --git a/src/bindings/c/geometry.f90 b/src/bindings/c/geometry.f90 index 7b78941e..89e06cfc 100644 --- a/src/bindings/c/geometry.f90 +++ b/src/bindings/c/geometry.f90 @@ -152,11 +152,7 @@ subroutine make_data_grid_c(surface_elems_len, surface_elems, offset, spacing, & call strncpy(filename_f, filename, filename_len) call strncpy(groupname_f, groupname, groupname_len) -#if defined _WIN32 && defined __INTEL_COMPILER - call so_make_data_grid(surface_elems, offset, spacing, filename_f, groupname_f) -#else call make_data_grid(surface_elems, offset, spacing, filename_f, groupname_f) -#endif end subroutine make_data_grid_c diff --git a/src/bindings/c/growtree.f90 b/src/bindings/c/growtree.f90 index 09abfe6c..219b1b66 100644 --- a/src/bindings/c/growtree.f90 +++ b/src/bindings/c/growtree.f90 @@ -29,13 +29,8 @@ subroutine grow_tree_c(surface_elems_len, surface_elems, parent_ne, & real(dp),intent(in) :: shortest_length real(dp),intent(in) :: rotation_limit -#if defined _WIN32 && defined __INTEL_COMPILER - call so_grow_tree(surface_elems, parent_ne, angle_max, angle_min, branch_fraction, length_limit,& -shortest_length, rotation_limit) -#else call grow_tree(surface_elems, parent_ne, angle_max, angle_min, branch_fraction, length_limit,& shortest_length, rotation_limit) -#endif end subroutine grow_tree_c diff --git a/src/bindings/c/surface_fitting.f90 b/src/bindings/c/surface_fitting.f90 index af564beb..841b6cca 100644 --- a/src/bindings/c/surface_fitting.f90 +++ b/src/bindings/c/surface_fitting.f90 @@ -21,11 +21,7 @@ subroutine fit_surface_geometry_c(niterations, fitting_file, filename_len) & call strncpy(filename_f, fitting_file, filename_len) -#if defined _WIN32 && defined __INTEL_COMPILER - call so_fit_surface_geometry(niterations, filename_f) -#else call fit_surface_geometry(niterations, filename_f) -#endif end subroutine fit_surface_geometry_c diff --git a/src/lib/exports.f90 b/src/lib/exports.f90 index 42ce1c93..c1455bc8 100644 --- a/src/lib/exports.f90 +++ b/src/lib/exports.f90 @@ -41,7 +41,6 @@ module exports ! subroutine export_triangle_elements(num_triangles,triangle,EXELEMFILE,groupname) - !DEC$ ATTRIBUTES DLLEXPORT,ALIAS:"SO_EXPORT_TRIANGLE_ELEMENTS" :: EXPORT_TRIANGLE_ELEMENTS !!! Parameters integer :: num_triangles, triangle(:,:) @@ -125,7 +124,6 @@ end subroutine export_triangle_elements ! subroutine export_triangle_nodes(num_vertices, vertex_xyz, EXNODEFILE, groupname) - !DEC$ ATTRIBUTES DLLEXPORT,ALIAS:"SO_EXPORT_TRIANGLE_NODES" :: EXPORT_TRIANGLE_NODES !!! Parameters integer :: num_vertices diff --git a/src/lib/geometry.f90 b/src/lib/geometry.f90 index 6849da3a..28f759bf 100644 --- a/src/lib/geometry.f90 +++ b/src/lib/geometry.f90 @@ -1225,7 +1225,6 @@ end subroutine triangles_from_surface subroutine group_elem_parent_term(parent_list,ne_parent) !*group_elem_parent_term:* group the terminal elements that sit distal to ! a given parent element (ne_parent) - !DEC$ ATTRIBUTES DLLEXPORT,ALIAS:"SO_GROUP_ELEM_PARENT_TERM" :: GROUP_ELEM_PARENT_TERM use mesh_utilities,only: group_elem_by_parent @@ -1270,7 +1269,6 @@ end subroutine group_elem_parent_term subroutine make_data_grid(surface_elems, offset, spacing, filename, groupname) !*make_data_grid:* makes a regularly-spaced 3D grid of data points to ! fill a bounding surface - !DEC$ ATTRIBUTES DLLEXPORT,ALIAS:"SO_MAKE_DATA_GRID" :: MAKE_DATA_GRID use exports,only: export_triangle_elements,export_triangle_nodes diff --git a/src/lib/growtree.f90 b/src/lib/growtree.f90 index 74263b2d..60c80a9d 100644 --- a/src/lib/growtree.f90 +++ b/src/lib/growtree.f90 @@ -611,7 +611,6 @@ end subroutine create_new_node ! subroutine group_seeds_with_branch(map_array,num_next_parents,num_seeds_from_elem, & num_terminal,local_parent,DISTANCE_LIMIT) - !DEC$ ATTRIBUTES DLLEXPORT,ALIAS:"SO_GROUP_SEEDS_WITH_BRANCH" :: GROUP_SEEDS_WITH_BRANCH use indices use math_utilities,only: sort_integer_list @@ -741,7 +740,6 @@ end subroutine group_seeds_with_branch subroutine grow_tree(surface_elems,parent_ne,angle_max,angle_min,& branch_fraction,length_limit,shortest_length,rotation_limit) !interface to the grow_recursive_tree subroutine - !DEC$ ATTRIBUTES DLLEXPORT,ALIAS:"SO_GROW_TREE" :: GROW_TREE use geometry,only: element_connectivity_1d,evaluate_ordering, & group_elem_parent_term,reallocate_node_elem_arrays,triangles_from_surface