syscOutputVectorDataF.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 :: syscoutputvectordataf
  integer(kind=8) :: primitivetype
  integer(kind=8) :: dataptr1
  integer(kind=8) :: dataptr2
  integer(kind=8) :: dataptr3
  integer(kind=8) :: datasize
end type syscoutputvectordataf
!
!**********************************************************************
!**********************************************************************
interface syscgetoutputvectordataf
!
!**********************************************************************
!**********************************************************************
function syscgetoutputvectordataf() result (ret)
  import :: syscoutputvectordataf
  type(syscoutputvectordataf) :: ret
!DIR$ IF DEFINED(_WIN32)
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputVectorDataF
!DIR$ ENDIF
end function syscgetoutputvectordataf
!
end interface syscgetoutputvectordataf
!
!**********************************************************************
!**********************************************************************
interface syscgetoutputvectordatasplitf
!
!**********************************************************************
!**********************************************************************
function syscgetoutputvectordatasplitf_r43a(&
    data0, data1, data2, dataSize) result (ret)
!
  import :: syscoutputvectordataf
  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(syscoutputvectordataf) :: ret
!
!DIR$ IF DEFINED(_WIN32)
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputVectorDataSplitF_R43A
!DIR$ ENDIF
!
end function syscgetoutputvectordatasplitf_r43a
!
!**********************************************************************
!**********************************************************************
function syscgetoutputvectordatasplitf_r83a(&
    data0, data1, data2, dataSize) result (ret)
!
  import :: syscoutputvectordataf
  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(syscoutputvectordataf) :: ret
!
!DIR$ IF DEFINED(_WIN32)
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputVectorDataSplitF_R83A
!DIR$ ENDIF
!
end function syscgetoutputvectordatasplitf_r83a
!
!**********************************************************************
!**********************************************************************
function syscgetoutputvectordatasplitf_r42d(data, dataSize)&
  result(ret)
!
  import :: syscoutputvectordataf
  integer(kind=8), intent(in) :: datasize
  real(kind=4), intent(in), target :: data(datasize, 3)
  type(syscoutputvectordataf) :: ret
!
!DIR$ IF DEFINED(_WIN32)
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputVectorDataSplitF_R42D
!DIR$ ENDIF
!
end function syscgetoutputvectordatasplitf_r42d
!
!**********************************************************************
!**********************************************************************
function syscgetoutputvectordatasplitf_r82d(vals, nElems) result (ret)
!
  import :: syscoutputvectordataf
  integer(kind=8), intent(in) :: nelems  
  real(kind=8), intent(in), target :: vals(nelems, 3)
  type(syscoutputvectordataf) :: ret
!
!DIR$ IF DEFINED(_WIN32)
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputVectorDataSplitF_R82D
!DIR$ ENDIF
!
end function syscgetoutputvectordatasplitf_r82d
!
end interface syscgetoutputvectordatasplitf
!
!**********************************************************************
!**********************************************************************
interface syscgetoutputvectordatacompactf
!
!**********************************************************************
!**********************************************************************
function syscgetoutputvectordatacompactf_r41d(data, dataSize)&
  result(ret)
!
  import :: syscoutputvectordataf
  integer(kind=8), intent(in) :: datasize  
  real(kind=4), intent(in), target :: data(datasize * 3)
  type(syscoutputvectordataf) :: ret
!
!DIR$ IF DEFINED(_WIN32)
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputVectorDataCompactF_R41D
!DIR$ ENDIF
!
end function syscgetoutputvectordatacompactf_r41d
!
!**********************************************************************
!**********************************************************************
function syscgetoutputvectordatacompactf_r81d(data, dataSize)&
  result(ret)
!
  import :: syscoutputvectordataf
  integer(kind=8), intent(in) :: datasize  
  real(kind=8), intent(in), target :: data(datasize * 3)
  type(syscoutputvectordataf) :: ret
!
!DIR$ IF DEFINED(_WIN32)
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputVectorDataCompactF_R81D
!DIR$ ENDIF
!
end function syscgetoutputvectordatacompactf_r81d
!
!**********************************************************************
!**********************************************************************
function syscgetoutputvectordatacompactf_r42d(vals,nElems) result (ret)
!
  import :: syscoutputvectordataf
  integer(kind=8), intent(in) :: nelems  
  real(kind=4), intent(in), target :: vals(3, nelems)
  type(syscoutputvectordataf) :: ret
!
!DIR$ IF DEFINED(_WIN32)
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputVectorDataCompactF_R42D
!DIR$ ENDIF
!
end function syscgetoutputvectordatacompactf_r42d
!
!**********************************************************************
!**********************************************************************
function syscgetoutputvectordatacompactf_r82d(vals,nElems) result (ret)
!
  import :: syscoutputvectordataf
  integer(kind=8), intent(in) :: nelems
  real(kind=8), intent(in), target :: vals(3, nelems)
  type(syscoutputvectordataf) :: ret
!
!DIR$ IF DEFINED(_WIN32)
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputVectorDataCompactF_R82D
!DIR$ ENDIF
!
end function syscgetoutputvectordatacompactf_r82d
!
end interface syscgetoutputvectordatacompactf
!
end module fortran
System Coupling Fortran library 2023 R2

syscOutputVectorDataF

Connect with Ansys
