System Coupling Fortran library 2025 R1

syscInputScalarDataF

Last update: 17.07.2025
1 module fortran
2 !
3 ! Copyright ANSYS, Inc.
4 ! Unauthorized use, distribution, or duplication is prohibited.
5 !
6 ! Provide free-form Fortran interface for
7 ! System Coupling Participant Library.
8 !
9 ! *********************************************************************
24 ! *********************************************************************
25 type :: syscinputscalardataf
26  integer(kind=8) :: primitivetype
27  integer(kind=8) :: dataptr
28  integer(kind=8) :: datasize
29 end type syscinputscalardataf
30 !
31 !**********************************************************************
33 !**********************************************************************
34 interface syscgetinputscalardataf
35 !
36 !**********************************************************************
42 !**********************************************************************
43 function syscgetinputscalardataf() result (ret)
44  import :: syscinputscalardataf
45  type(syscinputscalardataf) :: ret
46 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
47 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputScalarDataF
48 !DIR$ ENDIF
49 end function syscgetinputscalardataf
50 !
51 !**********************************************************************
56 !**********************************************************************
57 function syscgetinputscalardataf_r4(data, dataSize) result (ret)
58  import :: syscinputscalardataf
59  integer(kind=8), intent(in) :: datasize
60  real(kind=4), intent(in), target :: data(datasize)
61  type(syscinputscalardataf) :: ret
62 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
63 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputScalarDataF_R4
64 !DIR$ ENDIF
65 end function syscgetinputscalardataf_r4
66 !
67 !**********************************************************************
72 !**********************************************************************
73 function syscgetinputscalardataf_r8(data, dataSize) result (ret)
74  import :: syscinputscalardataf
75  integer(kind=8), intent(in) :: datasize
76  real(kind=8), intent(in), target :: data(datasize)
77  type(syscinputscalardataf) :: ret
78 !DIR$ IF DEFINED(_WIN32) .and. ( .not. DEFINED(SYSTEM_COUPLING_PARTICIPANT_PROXY))
79 !DIR$ ATTRIBUTES DLLIMPORT :: syscGetInputScalarDataF_R8
80 !DIR$ ENDIF
81 end function syscgetinputscalardataf_r8
82 !
83 end interface syscgetinputscalardataf
84 !
85 end module fortran
fortran::syscgetinputscalardataf
Provide an interface to get input scalar data.
Definition: syscInputScalarDataF.fi:34
fortran::syscinputscalardataf
Provide an input scalar data access type.
Definition: syscInputScalarDataF.fi:25

Connect with Ansys