System Coupling Participant library 2025 R2

File syscVariableF.fi

Last update: 17.07.2025

Location: syscVariableF.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 :: syscvariablef
  character(len=SyscStrLen) :: variablename
  integer(kind=4) :: quantitytype
  integer(kind=4) :: location
  character(len=SyscStrLen) :: displayname
  integer(kind=4) :: tensortype
  logical :: isextensive
  integer(kind=4) :: datatype
end type syscvariablef
!
!**********************************************************************
!**********************************************************************
!
interface syscgetvariablef
!
!**********************************************************************
!**********************************************************************
function syscgetvariablef(variableName) result(ret)
!
  import :: syscvariablef
  character(len=*), intent(in) :: variablename
  type(syscvariablef) :: ret
!
!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetVariableF
!DIR$ ENDIF
!
end function syscgetvariablef
!
!**********************************************************************
!**********************************************************************
function syscgetvariablef_te(&
    variableName, tensorType, isExtensive,&
    location) result(ret)
!
  import :: syscvariablef
  character(len=*), intent(in) :: variablename
  integer(kind=4), intent(in) :: tensortype
  logical, intent(in) :: isextensive
  integer(kind=4), intent(in) :: location
  type(syscvariablef) :: ret
!
!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetVariableF_TE
!DIR$ ENDIF
!
end function syscgetvariablef_te
!
!**********************************************************************
!**********************************************************************
function syscgetvariablef_q(&
    variableName, displayName, location, quantityType) result(ret)
!
  import :: syscvariablef
  character(len=*), intent(in) :: variablename
  character(len=*), intent(in) :: displayname
  integer(kind=4), intent(in) :: location
  integer(kind=4), intent(in) :: quantitytype  
  type(syscvariablef) :: ret
!
!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetVariableF_Q
!DIR$ ENDIF
!
end function syscgetvariablef_q
!
!**********************************************************************
!**********************************************************************
function syscgetvariablef_teq(&
    variableName, displayName, tensorType, isExtensive,&
    location, quantityType) result(ret)
!
  import :: syscvariablef
  character(len=*), intent(in) :: variablename
  character(len=*), intent(in) :: displayname
  integer(kind=4), intent(in) :: tensortype
  logical, intent(in) :: isextensive
  integer(kind=4), intent(in) :: location
  integer(kind=4), intent(in) :: quantitytype  
  type(syscvariablef) :: ret
!
!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetVariableF_TEQ
!DIR$ ENDIF
!
end function syscgetvariablef_teq
!
!**********************************************************************
function syscgetvariablef_dtelqd(&
  variableName, displayName, tensorType, isExtensive,&
  location, quantityType, dataType) result(ret)
!
import :: syscvariablef
character(len=*), intent(in) :: variablename
character(len=*), intent(in) :: displayname
integer(kind=4), intent(in) :: tensortype
logical, intent(in) :: isextensive
integer(kind=4), intent(in) :: location
integer(kind=4), intent(in) :: quantitytype
integer(kind=4), intent(in) :: datatype
type(syscvariablef) :: ret
!
!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!DIR$ ATTRIBUTES DLLIMPORT :: syscGetVariableF_DTELQD
!DIR$ ENDIF
!
end function syscgetvariablef_dtelqd
!
!**********************************************************************
!
end interface syscgetvariablef
!
!**********************************************************************
interface syscvariableaddrealattributef
!
function syscvariableaddrealattributef(variable, attribute) result(ret)
!
import :: syscvariablef, syscrealattributef, syscerrorf
type(SyscVariableF) :: variable
type(SyscRealAttributeF) :: attribute
type(SyscErrorF) :: ret
!
!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!DIR$ ATTRIBUTES DLLIMPORT :: syscVariableAddRealAttributeF
!DIR$ ENDIF
!
end function syscvariableaddrealattributef
!
!**********************************************************************
!
end interface syscvariableaddrealattributef
!
!**********************************************************************
interface syscvariableaddintegerattributef
!
function syscvariableaddintegerattributef(variable, attribute) &
  result(ret)
!
import :: syscvariablef, syscintegerattributef, syscerrorf
type(SyscVariableF) :: variable
type(SyscIntegerAttributeF) :: attribute
type(SyscErrorF) :: ret
!
!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!DIR$ ATTRIBUTES DLLIMPORT :: syscVariableAddIntegerAttributeF
!DIR$ ENDIF
!
end function syscvariableaddintegerattributef
!
!**********************************************************************
!
end interface syscvariableaddintegerattributef
!
!**********************************************************************
interface syscvariablegetnumrealattributesf
!
function syscvariablegetnumrealattributesf(variable) result(ret)
!
import :: syscvariablef
type(SyscVariableF) :: variable
integer(kind=8) :: ret
!
!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!DIR$ ATTRIBUTES DLLIMPORT :: syscVariableGetNumRealAttributesF
!DIR$ ENDIF
!
end function syscvariablegetnumrealattributesf
!
end interface syscvariablegetnumrealattributesf
!
!**********************************************************************
interface syscvariablegetnumintegerattributesf
!
function syscvariablegetnumintegerattributesf(variable) result(ret)
!
import :: syscvariablef
type(SyscVariableF) :: variable
integer(kind=8) :: ret
!
!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!DIR$ ATTRIBUTES DLLIMPORT :: syscVariableGetNumIntegerAttributesF
!DIR$ ENDIF
!
end function syscvariablegetnumintegerattributesf
!
end interface syscvariablegetnumintegerattributesf
!
!**********************************************************************
interface syscvariablegetrealattributef
!
function syscvariablegetrealattributef(variable, index) result(ret)
!
import :: syscvariablef, syscrealattributef
type(SyscVariableF) :: variable
integer(kind=8) :: index
type(SyscRealAttributeF) :: ret
!
!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!DIR$ ATTRIBUTES DLLIMPORT :: syscVariableGetRealAttributeF
!DIR$ ENDIF
!
end function syscvariablegetrealattributef
!
end interface syscvariablegetrealattributef
!
!**********************************************************************
interface syscvariablegetintegerattributef
!
function syscvariablegetintegerattributef(variable, index) result(ret)
!
import :: syscvariablef, syscintegerattributef
type(SyscVariableF) :: variable
integer(kind=8) :: index
type(SyscIntegerAttributeF) :: ret
!
!DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
!DIR$ ATTRIBUTES DLLIMPORT :: syscVariableGetIntegerAttributeF
!DIR$ ENDIF
!
end function syscvariablegetintegerattributef
!
end interface syscvariablegetintegerattributef
!
end module fortran

Connect with Ansys