File syscOutputComplexVectorDataF.fi

Location: syscOutputComplexVectorDataF.fi

Classes

• fortran::syscoutputcomplexvectordataf
• fortran::syscgetoutputcomplexvectordataf
• fortran::syscgetoutputcompactcomplexcompactvectordataf
• fortran::syscgetoutputcompactcomplexcompactvectordatadimf

Namespaces

• fortran

Source

module fortran
!
! Copyright ANSYS, Inc. 
! Unauthorized use, distribution, or duplication is prohibited.
!
! Provide free-form Fortran interface for
! System Coupling Participant Library.
!
! *********************************************************************
!
type :: syscoutputcomplexvectordataf
  integer(kind=8) :: primitivetype
  integer(kind=8) :: data1
  integer(kind=8) :: data2
  integer(kind=8) :: data3
  integer(kind=8) :: data4
  integer(kind=8) :: data5
  integer(kind=8) :: data6
  integer(kind=8) :: datasize
  integer(kind=8) :: dimension
end type syscoutputcomplexvectordataf
!
!**********************************************************************
!**********************************************************************
interface syscgetoutputcomplexvectordataf
!
!**********************************************************************
!**********************************************************************
function syscgetoutputcomplexvectordataf() result (ret)
  import :: syscoutputcomplexvectordataf
  type(syscoutputcomplexvectordataf) :: ret
!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputComplexVectorDataF
!DIR$ ENDIF
end function syscgetoutputcomplexvectordataf
!
end interface syscgetoutputcomplexvectordataf
!
!**********************************************************************
!**********************************************************************
interface syscgetoutputcompactcomplexcompactvectordataf
!
!**********************************************************************
!**********************************************************************
function syscgetoutputcompactcomplexcompactvectordataf_c82d(&
    data, dataSize) result (ret)
!
  import :: syscoutputcomplexvectordataf
  integer(kind=8), intent(in) :: datasize  
  complex(kind=8), intent(in), target :: data(3, datasize)
  type(syscoutputcomplexvectordataf) :: ret
!
!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputCompactComplexCompactVectorDataF_C82D
!DIR$ ENDIF
!
end function syscgetoutputcompactcomplexcompactvectordataf_c82d
!
end interface syscgetoutputcompactcomplexcompactvectordataf
!
!**********************************************************************
!**********************************************************************
interface syscgetoutputcompactcomplexcompactvectordatadimf
!
!**********************************************************************
!**********************************************************************
function syscgetoutputcompactcomplexcompactvectordatadimf_c82d(&
    data, dataSize, dimension) result (ret)
!
  import :: syscoutputcomplexvectordataf
  integer(kind=8), intent(in) :: datasize  
  integer(kind=8), intent(in) :: dimension  
  complex(kind=8), intent(in), target :: data(dimension, datasize)
  type(syscoutputcomplexvectordataf) :: ret
!
!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputCompactComplexCompactVectorDataF_C82D
!DIR$ ENDIF
!
end function syscgetoutputcompactcomplexcompactvectordatadimf_c82d
!
end interface syscgetoutputcompactcomplexcompactvectordatadimf
!
end module fortran