syscAttributeF.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 :: syscintegerattributef
  character(len=SyscStrLen) :: name
  integer(kind=8) :: value
end type syscintegerattributef
!
!**********************************************************************
!
interface syscgetintegerattributef
!
!**********************************************************************
!**********************************************************************
function syscgetintegerattributef(name, value) result(ret)
  import :: syscintegerattributef
  character(len=*), intent(in) :: name
  integer(kind=8), intent(in) :: value
  type(syscintegerattributef) :: ret
!DIR$ IF DEFINED(_WIN32)
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetIntegerAttributeF
!DIR$ ENDIF
end function syscgetintegerattributef
!
!**********************************************************************
!
end interface syscgetintegerattributef
!
! *********************************************************************
! *********************************************************************
type :: syscrealattributef
  character(len=SyscStrLen) :: name
  real(kind=8) :: value
  type(SyscDimensionalityF) :: dimensionality
end type syscrealattributef
!
!**********************************************************************
!
interface syscgetrealattributef
!
!**********************************************************************
!**********************************************************************
function syscgetrealattributef(name, value, dimensionality) result(ret)
  import :: syscrealattributef, syscdimensionalityf
  character(len=*), intent(in) :: name
  real(kind=8), intent(in) :: value
  type(syscdimensionalityf), intent(in) :: dimensionality
  type(syscrealattributef) :: ret
!DIR$ IF DEFINED(_WIN32)
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetRealAttributeF
!DIR$ ENDIF
end function syscgetrealattributef
!
!**********************************************************************
!
end interface syscgetrealattributef
!
end module fortran
System Coupling Fortran library 2023 R2

syscAttributeF

Connect with Ansys
