removing win32 attributes

LungNoodle · Aug 16, 2022 · 479429d · 479429d
1 parent b5222c1
commit 479429d
Show file tree

Hide file tree

Showing 6 changed files with 0 additions and 19 deletions.
diff --git 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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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