real(kind=c_double),
|
intent(in), |
|
VALUE
|
:: |
c_alpha |
|
type(c_ptr),
|
intent(in), |
|
VALUE
|
:: |
c_tensor_1 |
|
type(c_ptr),
|
intent(in), |
|
VALUE
|
:: |
c_tensor_2 |
|
real(kind=c_double),
|
intent(in), |
|
VALUE
|
:: |
c_beta |
|
type(c_ptr),
|
intent(in), |
|
VALUE
|
:: |
c_tensor_3 |
|
integer(kind=c_int),
|
intent(in) |
|
|
:: |
c_contract_1(contract_1_size) |
|
integer(kind=c_int),
|
intent(in), |
|
VALUE
|
:: |
contract_1_size |
|
integer(kind=c_int),
|
intent(in) |
|
|
:: |
c_notcontract_1(notcontract_1_size) |
|
integer(kind=c_int),
|
intent(in), |
|
VALUE
|
:: |
notcontract_1_size |
|
integer(kind=c_int),
|
intent(in) |
|
|
:: |
c_contract_2(contract_2_size) |
|
integer(kind=c_int),
|
intent(in), |
|
VALUE
|
:: |
contract_2_size |
|
integer(kind=c_int),
|
intent(in) |
|
|
:: |
c_notcontract_2(notcontract_2_size) |
|
integer(kind=c_int),
|
intent(in), |
|
VALUE
|
:: |
notcontract_2_size |
|
integer(kind=c_int),
|
intent(in) |
|
|
:: |
c_map_1(map_1_size) |
|
integer(kind=c_int),
|
intent(in), |
|
VALUE
|
:: |
map_1_size |
|
integer(kind=c_int),
|
intent(in) |
|
|
:: |
c_map_2(map_2_size) |
|
integer(kind=c_int),
|
intent(in), |
|
VALUE
|
:: |
map_2_size |
|
integer(kind=c_int),
|
intent(in), |
optional, |
DIMENSION(2, contract_1_size)
|
:: |
c_bounds_1 |
|
integer(kind=c_int),
|
intent(in), |
optional, |
DIMENSION(2, notcontract_1_size)
|
:: |
c_bounds_2 |
|
integer(kind=c_int),
|
intent(in), |
optional, |
DIMENSION(2, notcontract_2_size)
|
:: |
c_bounds_3 |
|
real(kind=c_double),
|
intent(in), |
optional |
|
:: |
c_filter_eps |
|
integer(kind=c_int),
|
intent(out) |
|
|
:: |
c_nblks_local |
|
integer(kind=c_int),
|
intent(out), |
|
DIMENSION(result_index_size, tensor3_dim)
|
:: |
c_result_index |
|
integer(kind=c_long_long),
|
intent(in), |
|
VALUE
|
:: |
result_index_size |
|
integer(kind=c_int),
|
intent(in), |
|
VALUE
|
:: |
tensor3_dim |
|