syscInputVectorDataF.fi | Ansys Developer Portal

module fortran
!
! Copyright 2023 ANSYS, Inc. 
! Unauthorized use, distribution, or duplication is prohibited.
!
! Provide free-form Fortran interface for
! System Coupling Participant Library.
!
! *********************************************************************
!
type :: syscinputvectordataf
  integer(kind=8) :: primitivetype
  integer(kind=8) :: dataptr1
  integer(kind=8) :: dataptr2
  integer(kind=8) :: dataptr3
  integer(kind=8) :: datasize
end type syscinputvectordataf
!
!**********************************************************************
!**********************************************************************
interface syscgetinputvectordataf
!
!**********************************************************************
!**********************************************************************
function syscgetinputvectordataf() result (ret)
  import :: syscinputvectordataf
  type(syscinputvectordataf) :: ret
!DIR$ IF DEFINED(_WIN32)
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataF
!DIR$ ENDIF
end function syscgetinputvectordataf
!
end interface syscgetinputvectordataf
!
!**********************************************************************
!**********************************************************************
interface syscgetinputvectordatasplitf
!
!**********************************************************************
!**********************************************************************
function syscgetinputvectordatasplitf_r43a(&
    data0, data1, data2, dataSize) result (ret)
  import :: syscinputvectordataf
  integer(kind=8), intent(in) :: datasize  
  real(kind=4), intent(in), target :: data0(datasize)
  real(kind=4), intent(in), target :: data1(datasize)
  real(kind=4), intent(in), target :: data2(datasize)
  type(syscinputvectordataf) :: ret
!DIR$ IF DEFINED(_WIN32)
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataSplitF_R43A
!DIR$ ENDIF
end function syscgetinputvectordatasplitf_r43a
!
!**********************************************************************
!**********************************************************************
function syscgetinputvectordatasplitf_r83a(&
    data0, data1, data2, dataSize) result (ret)
  import :: syscinputvectordataf
  integer(kind=8), intent(in) :: datasize  
  real(kind=8), intent(in), target :: data0(datasize)
  real(kind=8), intent(in), target :: data1(datasize)
  real(kind=8), intent(in), target :: data2(datasize)
  type(syscinputvectordataf) :: ret
!DIR$ IF DEFINED(_WIN32)
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataSplitF_R83A
!DIR$ ENDIF
end function syscgetinputvectordatasplitf_r83a
!
!**********************************************************************
!**********************************************************************
function syscgetinputvectordatasplitf_r42d(data, dataSize) result(ret)
  import :: syscinputvectordataf
  integer(kind=8), intent(in) :: datasize  
  real(kind=4), intent(in), target :: data(datasize, 3)
  type(syscinputvectordataf) :: ret
!DIR$ IF DEFINED(_WIN32)
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataSplitF_R42D
!DIR$ ENDIF
end function syscgetinputvectordatasplitf_r42d
!
!**********************************************************************
!**********************************************************************
function syscgetinputvectordatasplitf_r82d(data, dataSize) result(ret)
  import :: syscinputvectordataf
  integer(kind=8), intent(in) :: datasize  
  real(kind=8), intent(in), target :: data(datasize, 3)
  type(syscinputvectordataf) :: ret
!DIR$ IF DEFINED(_WIN32)
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataSplitF_R82D
!DIR$ ENDIF
end function syscgetinputvectordatasplitf_r82d
!
end interface syscgetinputvectordatasplitf
!
!**********************************************************************
!**********************************************************************
interface syscgetinputvectordatacompactf
!
!**********************************************************************
!**********************************************************************
function syscgetinputvectordatacompactf_r41d(data, dataSize)&
  result(ret)
  import :: syscinputvectordataf
  integer(kind=8), intent(in) :: datasize  
  real(kind=4), intent(in), target :: data(datasize * 3)
  type(syscinputvectordataf) :: ret
!DIR$ IF DEFINED(_WIN32)
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataCompactF_R41D
!DIR$ ENDIF
end function syscgetinputvectordatacompactf_r41d
!
!**********************************************************************
!**********************************************************************
function syscgetinputvectordatacompactf_r81d(data, dataSize)&
  result(ret)
  import :: syscinputvectordataf
  integer(kind=8), intent(in) :: datasize  
  real(kind=8), intent(in), target :: data(datasize * 3)
  type(syscinputvectordataf) :: ret
!DIR$ IF DEFINED(_WIN32)
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataCompactF_R81D
!DIR$ ENDIF
end function syscgetinputvectordatacompactf_r81d
!
!**********************************************************************
!**********************************************************************
function syscgetinputvectordatacompactf_r42d(data, dataSize)&
  result(ret)
  import :: syscinputvectordataf
  integer(kind=8), intent(in) :: datasize  
  real(kind=4), intent(in), target :: data(3, datasize)
  type(syscinputvectordataf) :: ret
!DIR$ IF DEFINED(_WIN32)
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataCompactF_R42D
!DIR$ ENDIF
end function syscgetinputvectordatacompactf_r42d
!
!**********************************************************************
!**********************************************************************
function syscgetinputvectordatacompactf_r82d(data, dataSize)&
  result(ret)
  import :: syscinputvectordataf
  integer(kind=8), intent(in) :: datasize  
  real(kind=8), intent(in), target :: data(3, datasize)
  type(syscinputvectordataf) :: ret
!DIR$ IF DEFINED(_WIN32)
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputVectorDataCompactF_R82D
!DIR$ ENDIF
end function syscgetinputvectordatacompactf_r82d
!
end interface syscgetinputvectordatacompactf
!
end module fortran
System Coupling Fortran library 2023 R2

syscInputVectorDataF

Connect with Ansys
