syscOutputScalarDataF.fi | Ansys Developer Portal

 module fortran
 !
 ! Copyright ANSYS, Inc. 
 ! Unauthorized use, distribution, or duplication is prohibited.
 !
 ! Provide free-form Fortran interface for
 ! System Coupling Participant Library.
 !
 ! *********************************************************************
 !
 type :: syscoutputscalardataf
   integer(kind=8) :: primitivetype
   integer(kind=8) :: dataptr
   integer(kind=8) :: datasize
 end type syscoutputscalardataf
 !
 !**********************************************************************
 !**********************************************************************
 interface syscgetoutputscalardataf
 !
 !**********************************************************************
 !! \brief Create an output scalar data access type.
 !!
 !! Primitive type will default to double-precision (64-bit).
 !! Data size will be set to zero.
 !! Data pointer will be set to null.
 !**********************************************************************
 function syscgetoutputscalardataf() result (ret)
   import :: syscoutputscalardataf
   type(SyscOutputScalarDataF) :: ret
 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputScalarDataF
 !DIR$ ENDIF
 end function syscgetoutputscalardataf
 !
 !**********************************************************************
 !**********************************************************************
 function syscgetoutputscalardataf_r4(data, dataSize) result (ret)
 !
   import :: syscoutputscalardataf
   integer(kind=8), intent(in) :: datasize  
   real(kind=4), intent(in), target :: data(datasize)
   type(syscoutputscalardataf) :: ret
 !
 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputScalarDataF_R4
 !DIR$ ENDIF
 !
 end function syscgetoutputscalardataf_r4
 !
 !**********************************************************************
 !**********************************************************************
 function syscgetoutputscalardataf_r8(data, dataSize) result (ret)
 !
   import :: syscoutputscalardataf
   integer(kind=8), intent(in) :: datasize  
   real(kind=8), intent(in), target :: data(datasize)
   type(syscoutputscalardataf) :: ret
 !
 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputScalarDataF_R8
 !DIR$ ENDIF
 !
 end function syscgetoutputscalardataf_r8
 !
 !**********************************************************************
 !**********************************************************************
 function syscgetoutputscalardataf_i4(data, dataSize) result (ret)
 !
   import :: syscoutputscalardataf
   integer(kind=8), intent(in) :: datasize  
   integer(kind=4), intent(in), target :: data(datasize)
   type(syscoutputscalardataf) :: ret
 !
 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputScalarDataF_I4
 !DIR$ ENDIF
 !
 end function syscgetoutputscalardataf_i4
 !
 !**********************************************************************
 !**********************************************************************
 function syscgetoutputscalardataf_i8(data, dataSize) result (ret)
 !
   import :: syscoutputscalardataf
   integer(kind=8), intent(in) :: datasize  
   integer(kind=8), intent(in), target :: data(datasize)
   type(syscoutputscalardataf) :: ret
 !
 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetOutputScalarDataF_I8
 !DIR$ ENDIF
 !
 end function syscgetoutputscalardataf_i8
 !
 end interface syscgetoutputscalardataf
 !
 end module fortran
System Coupling Fortran library 2025 R1

syscOutputScalarDataF

Connect with Ansys
