System Coupling Participant library 2025 R2

File syscOutputVectorDataF.fi

Last update: 17.07.2025

Location: syscOutputVectorDataF.fi

Classes

Namespaces

Source

module fortran
!
! Copyright 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
  integer(kind=8) :: dimension
end type syscoutputvectordataf
!
!**********************************************************************
!**********************************************************************
interface syscgetoutputvectordataf
!
!**********************************************************************
!**********************************************************************
function syscgetoutputvectordataf() result (ret)
  import :: syscoutputvectordataf
  type(syscoutputvectordataf) :: ret
!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!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) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!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) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!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) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!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) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputVectorDataSplitF_R82D
!DIR$ ENDIF
!
end function syscgetoutputvectordatasplitf_r82d
!
end interface syscgetoutputvectordatasplitf
!
!**********************************************************************
!**********************************************************************
interface syscgetoutput2dvectordatasplitf
!
!**********************************************************************
!**********************************************************************
function syscgetoutput2dvectordatasplitf_r43a(&
    data0, data1, 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)
  type(syscoutputvectordataf) :: ret
!
!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutput2DVectorDataSplitF_R43A
!DIR$ ENDIF
!
end function syscgetoutput2dvectordatasplitf_r43a
!
!**********************************************************************
!**********************************************************************
function syscgetoutput2dvectordatasplitf_r83a(&
    data0, data1, 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)
  type(syscoutputvectordataf) :: ret
!
!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutput2DVectorDataSplitF_R83A
!DIR$ ENDIF
!
end function syscgetoutput2dvectordatasplitf_r83a
!
!**********************************************************************
!**********************************************************************
function syscgetoutput2dvectordatasplitf_r42d(data, dataSize)&
  result(ret)
!
  import :: syscoutputvectordataf
  integer(kind=8), intent(in) :: datasize
  real(kind=4), intent(in), target :: data(datasize, 2)
  type(syscoutputvectordataf) :: ret
!
!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutput2DVectorDataSplitF_R42D
!DIR$ ENDIF
!
end function syscgetoutput2dvectordatasplitf_r42d
!
!**********************************************************************
!**********************************************************************
function syscgetoutput2dvectordatasplitf_r82d(vals, nElems) result (ret)
!
  import :: syscoutputvectordataf
  integer(kind=8), intent(in) :: nelems  
  real(kind=8), intent(in), target :: vals(nelems, 2)
  type(syscoutputvectordataf) :: ret
!
!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutput2DVectorDataSplitF_R82D
!DIR$ ENDIF
!
end function syscgetoutput2dvectordatasplitf_r82d
!
end interface syscgetoutput2dvectordatasplitf
!
!**********************************************************************
!**********************************************************************
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) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!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) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!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) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!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) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputVectorDataCompactF_R82D
!DIR$ ENDIF
!
end function syscgetoutputvectordatacompactf_r82d
!
end interface syscgetoutputvectordatacompactf
!
!**********************************************************************
interface syscgetoutputvectordatacompactdimf
!
!**********************************************************************
!**********************************************************************
function syscgetoutputvectordatacompactdimf_r41d(data, dataSize, dimension)&
  result(ret)
!
  import :: syscoutputvectordataf
  integer(kind=8), intent(in) :: datasize  
  integer(kind=8), intent(in) :: dimension  
  real(kind=4), intent(in), target :: data(datasize * dimension)
  type(syscoutputvectordataf) :: ret
!
!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputVectorDataCompactDimF_R41D
!DIR$ ENDIF
!
end function syscgetoutputvectordatacompactdimf_r41d
!
!**********************************************************************
!**********************************************************************
function syscgetoutputvectordatacompactdimf_r81d(data, dataSize, dimension)&
  result(ret)
!
  import :: syscoutputvectordataf
  integer(kind=8), intent(in) :: datasize  
  integer(kind=8), intent(in) :: dimension  
  real(kind=8), intent(in), target :: data(datasize * dimension)
  type(syscoutputvectordataf) :: ret
!
!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputVectorDataCompactDimF_R81D
!DIR$ ENDIF
!
end function syscgetoutputvectordatacompactdimf_r81d
!
!**********************************************************************
!**********************************************************************
function syscgetoutputvectordatacompactdimf_r42d(vals,nElems, dimension) result (ret)
!
  import :: syscoutputvectordataf
  integer(kind=8), intent(in) :: nelems 
  integer(kind=8), intent(in) :: dimension  
  real(kind=4), intent(in), target :: vals(dimension, nelems)
  type(syscoutputvectordataf) :: ret
!
!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputVectorDataCompactDimF_R42D
!DIR$ ENDIF
!
end function syscgetoutputvectordatacompactdimf_r42d
!
!**********************************************************************
!**********************************************************************
function syscgetoutputvectordatacompactdimf_r82d(vals,nElems, dimension) result (ret)
!
  import :: syscoutputvectordataf
  integer(kind=8), intent(in) :: nelems
  integer(kind=8), intent(in) :: dimension  
  real(kind=8), intent(in), target :: vals(dimension, nelems)
  type(syscoutputvectordataf) :: ret
!
!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputVectorDataCompactDimF_R82D
!DIR$ ENDIF
!
end function syscgetoutputvectordatacompactdimf_r82d
!
end interface syscgetoutputvectordatacompactdimf
!
end module fortran

Connect with Ansys