Attempting to resolve declspec for radixsparsegrid fortran subroutines.

radixsparsegrids/sparse_grids_I.f90

 !>
-!! This file has been dynamically generated by Class Interface Xml (CIX) 
+!! This file has been dynamically generated by Class Interface Xml (CIX)
 !! DO NOT MODIFY THIS FILE -- CHANGES WILL BE OVERWRITTEN UPON REGENERATION
 !! If changes need to occur, modify the appropriate CIX xml file
 !! Date Generated: Thu Mar 08 11:20:37 EST 2018
@@ -10,6 +10,7 @@ module sparse_grids_I
 use, intrinsic :: ISO_C_BINDING
 interface
 type(C_PTR) function f_RadixSparseGrids_Construct( input_dimension,output_dimension,depth,type_depth,type_1d_rule )BIND(C,name="RadixSparseGrids_Construct")
+    !DEC$ ATTRIBUTES DLLEXPORT::f_RadixSparseGrids_Construct
     use,intrinsic :: ISO_C_BINDING
     implicit none
     type(C_PTR) :: RadixSparseGrids_ptr;
@@ -20,6 +21,7 @@ type(C_PTR) function f_RadixSparseGrids_Construct( input_dimension,output_dimens
     character(C_CHAR) :: type_1d_rule;
 end function
 subroutine f_RadixSparseGrids_SetConstrainedTransformAt(RadixSparseGrids_ptr, num_inputs,input_indices,left,right ) BIND(C,name="RadixSparseGrids_SetConstrainedTransformAt")
+    !DEC$ ATTRIBUTES DLLEXPORT::f_RadixSparseGrids_SetConstrainedTransformAt
     use,intrinsic :: ISO_C_BINDING
     implicit none
     type(C_PTR), value :: RadixSparseGrids_ptr;
@@ -29,6 +31,7 @@ subroutine f_RadixSparseGrids_SetConstrainedTransformAt(RadixSparseGrids_ptr, nu
     real(C_DOUBLE) :: right;
 end subroutine
 subroutine f_RadixSparseGrids_SetTransformAt(RadixSparseGrids_ptr, index,left,right ) BIND(C,name="RadixSparseGrids_SetTransformAt")
+    !DEC$ ATTRIBUTES DLLEXPORT::f_RadixSparseGrids_SetTransformAt
     use,intrinsic :: ISO_C_BINDING
     implicit none
     type(C_PTR), value :: RadixSparseGrids_ptr;
@@ -37,16 +40,19 @@ subroutine f_RadixSparseGrids_SetTransformAt(RadixSparseGrids_ptr, index,left,ri
     real(C_DOUBLE) :: right;
 end subroutine
 subroutine f_RadixSparseGrids_GenerateQuadrature(RadixSparseGrids_ptr ) BIND(C,name="RadixSparseGrids_GenerateQuadrature")
+    !DEC$ ATTRIBUTES DLLEXPORT::f_RadixSparseGrids_GenerateQuadrature
     use,intrinsic :: ISO_C_BINDING
     implicit none
     type(C_PTR), value :: RadixSparseGrids_ptr;
 end subroutine
 integer(C_INT) function f_RadixSparseGrids_GetNumQuadPoints(RadixSparseGrids_ptr ) BIND(C,name="RadixSparseGrids_GetNumQuadPoints")
+    !DEC$ ATTRIBUTES DLLEXPORT::f_RadixSparseGrids_GetNumQuadPoints
     use,intrinsic :: ISO_C_BINDING
     implicit none
     type(C_PTR), value :: RadixSparseGrids_ptr;
 end function
 subroutine f_RadixSparseGrids_GetQuadAbscissasAt(RadixSparseGrids_ptr, index,abscissas ) BIND(C,name="RadixSparseGrids_GetQuadAbscissasAt")
+    !DEC$ ATTRIBUTES DLLEXPORT::f_RadixSparseGrids_GetQuadAbscissasAt
     use,intrinsic :: ISO_C_BINDING
     implicit none
     type(C_PTR), value :: RadixSparseGrids_ptr;
@@ -54,6 +60,7 @@ subroutine f_RadixSparseGrids_GetQuadAbscissasAt(RadixSparseGrids_ptr, index,abs
     real(C_DOUBLE) :: abscissas;
 end subroutine
 subroutine f_RadixSparseGrids_SetOrdinatesAt(RadixSparseGrids_ptr, index,ordinates ) BIND(C,name="RadixSparseGrids_SetOrdinatesAt")
+    !DEC$ ATTRIBUTES DLLEXPORT::f_RadixSparseGrids_SetOrdinatesAt
     use,intrinsic :: ISO_C_BINDING
     implicit none
     type(C_PTR), value :: RadixSparseGrids_ptr;
@@ -61,11 +68,13 @@ subroutine f_RadixSparseGrids_SetOrdinatesAt(RadixSparseGrids_ptr, index,ordinat
     real(C_DOUBLE) :: ordinates;
 end subroutine
 subroutine f_RadixSparseGrids_GenerateSurrogate(RadixSparseGrids_ptr ) BIND(C,name="RadixSparseGrids_GenerateSurrogate")
+    !DEC$ ATTRIBUTES DLLEXPORT::f_RadixSparseGrids_GetSurrogate
     use,intrinsic :: ISO_C_BINDING
     implicit none
     type(C_PTR), value :: RadixSparseGrids_ptr;
 end subroutine
 subroutine f_RadixSparseGrids_Evaluate(RadixSparseGrids_ptr, abscissas,ordinates ) BIND(C,name="RadixSparseGrids_Evaluate")
+    !DEC$ ATTRIBUTES DLLEXPORT::f_RadixSparseGrids_Evaluate
     use,intrinsic :: ISO_C_BINDING
     implicit none
     type(C_PTR), value :: RadixSparseGrids_ptr;
@@ -73,11 +82,13 @@ subroutine f_RadixSparseGrids_Evaluate(RadixSparseGrids_ptr, abscissas,ordinates
     real(C_DOUBLE) :: ordinates;
 end subroutine
 type(C_PTR) function f_RadixSparseGrids_initialize( )BIND(C,name="RadixSparseGrids_initialize")
+    !DEC$ ATTRIBUTES DLLEXPORT::f_RadixSparseGrids_initialize
     use,intrinsic :: ISO_C_BINDING
     implicit none
     type(C_PTR) :: RadixSparseGrids_ptr;
 end function
 subroutine f_RadixSparseGrids_destroy(this) BIND(C,name="RadixSparseGrids_destroy")
+    !DEC$ ATTRIBUTES DLLEXPORT::f_RadixSparseGrids_destroy
     use,intrinsic :: ISO_C_BINDING
     implicit none
     type(C_PTR), value :: this;