File indexing completed on 2023-05-28 05:10:56 UTC
view on githubraw file Latest commit b4daa243 on 2023-05-28 03:53:22 UTC
b4daa24319 Shre*0001 MODULE ADMM_TAPENADE_INTERFACE
0002 IMPLICIT NONE
0003 INTERFACE PUSHPOINTER8
0004 SUBROUTINE PUSHPOINTER8(pp) BIND(c, name='pushPointer8')
0005 USE ISO_C_BINDING
0006 TYPE(C_PTR), VALUE :: pp
0007 END SUBROUTINE PUSHPOINTER8
0008 END INTERFACE PUSHPOINTER8
0009
0010 INTERFACE POPPOINTER8
0011 SUBROUTINE POPPOINTER8(pp) BIND(c, name='popPointer8')
0012 USE ISO_C_BINDING
0013 TYPE(C_PTR) :: pp
0014 END SUBROUTINE POPPOINTER8
0015 END INTERFACE POPPOINTER8
0016
0017 INTERFACE ADMM_REGISTERSHADOWED
0018 SUBROUTINE ADMM_REGISTERSHADOWED(base, obase, size, baseb, obaseb&
0019 & , sizeb, nbelem) BIND(c, name='ADMM_registerShadowed')
0020 USE ISO_C_BINDING
0021 TYPE(C_PTR), VALUE :: base, obase
0022 TYPE(C_PTR), VALUE :: baseb, obaseb
0023 INTEGER, VALUE :: size, sizeb
0024 INTEGER, VALUE :: nbelem
0025 END SUBROUTINE ADMM_REGISTERSHADOWED
0026 END INTERFACE ADMM_REGISTERSHADOWED
0027
0028 INTERFACE ADMM_REGISTER
0029 SUBROUTINE ADMM_REGISTER(base, obase, size, nbelem) BIND(c, name=&
0030 & 'ADMM_register')
0031 USE ISO_C_BINDING
0032 TYPE(C_PTR), VALUE :: base, obase
0033 INTEGER, VALUE :: size
0034 INTEGER, VALUE :: nbelem
0035 END SUBROUTINE ADMM_REGISTER
0036 END INTERFACE ADMM_REGISTER
0037
0038 INTERFACE ADMM_UNREGISTERSHADOWED
0039 SUBROUTINE ADMM_UNREGISTERSHADOWED(base, baseb, nbelem) BIND(c, &
0040 & name='ADMM_unregisterShadowed')
0041 USE ISO_C_BINDING
0042 TYPE(C_PTR), VALUE :: base, baseb
0043 INTEGER :: nbelem
0044 END SUBROUTINE ADMM_UNREGISTERSHADOWED
0045 END INTERFACE ADMM_UNREGISTERSHADOWED
0046
0047 INTERFACE ADMM_UNREGISTER
0048 SUBROUTINE ADMM_UNREGISTER(base, nbelem) BIND(c, name=&
0049 & 'ADMM_unregister')
0050 USE ISO_C_BINDING
0051 TYPE(C_PTR), VALUE :: base
0052 INTEGER :: nbelem
0053 END SUBROUTINE ADMM_UNREGISTER
0054 END INTERFACE ADMM_UNREGISTER
0055
0056 INTERFACE ADMM_REBASESHADOWED
0057 SUBROUTINE ADMM_REBASESHADOWED(base, baseb) BIND(c, name=&
0058 & 'ADMM_rebaseShadowed')
0059 USE ISO_C_BINDING
0060 TYPE(C_PTR) :: base, baseb
0061 END SUBROUTINE ADMM_REBASESHADOWED
0062 END INTERFACE ADMM_REBASESHADOWED
0063
0064 INTERFACE ADMM_REBASE
0065 SUBROUTINE ADMM_REBASE(base) BIND(c, name='ADMM_rebase')
0066 USE ISO_C_BINDING
0067 TYPE(C_PTR) :: base
0068 END SUBROUTINE ADMM_REBASE
0069 END INTERFACE ADMM_REBASE
0070
0071 END MODULE ADMM_TAPENADE_INTERFACE
0072
