Commit 7ada5d28 authored by LEFEBVREJP email's avatar LEFEBVREJP email
Browse files

Attempting to resolve declspec for radixsparsegrid fortran subroutines.

parent a38d9c71
Pipeline #52807 failed with stages
in 22 minutes and 3 seconds
!>
!! 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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment