complex(kind=c_double_complex),
|
intent(in), |
|
VALUE
|
:: |
c_alpha |
|
type(c_ptr),
|
intent(in), |
|
VALUE
|
:: |
c_tensor_1 |
|
type(c_ptr),
|
intent(in), |
|
VALUE
|
:: |
c_tensor_2 |
|
complex(kind=c_double_complex),
|
intent(in), |
|
VALUE
|
:: |
c_beta |
|
type(c_ptr),
|
intent(in), |
|
VALUE
|
:: |
c_tensor_3 |
|
integer(kind=c_int),
|
intent(in), |
|
TARGET
|
:: |
c_contract_1(contract_1_size) |
|
integer(kind=c_int),
|
intent(in), |
|
VALUE
|
:: |
contract_1_size |
|
integer(kind=c_int),
|
intent(in), |
|
TARGET
|
:: |
c_notcontract_1(notcontract_1_size) |
|
integer(kind=c_int),
|
intent(in), |
|
VALUE
|
:: |
notcontract_1_size |
|
integer(kind=c_int),
|
intent(in), |
|
TARGET
|
:: |
c_contract_2(contract_2_size) |
|
integer(kind=c_int),
|
intent(in), |
|
VALUE
|
:: |
contract_2_size |
|
integer(kind=c_int),
|
intent(in), |
|
TARGET
|
:: |
c_notcontract_2(notcontract_2_size) |
|
integer(kind=c_int),
|
intent(in), |
|
VALUE
|
:: |
notcontract_2_size |
|
integer(kind=c_int),
|
intent(in), |
|
TARGET
|
:: |
c_map_1(map_1_size) |
|
integer(kind=c_int),
|
intent(in), |
|
VALUE
|
:: |
map_1_size |
|
integer(kind=c_int),
|
intent(in), |
|
TARGET
|
:: |
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 |
|
logical(kind=c_bool),
|
intent(in), |
optional |
|
:: |
c_optimize_dist |
|
type(c_ptr),
|
intent(out), |
optional |
|
:: |
c_pgrid_opt_1 |
|
type(c_ptr),
|
intent(out), |
optional |
|
:: |
c_pgrid_opt_2 |
|
type(c_ptr),
|
intent(out), |
optional |
|
:: |
c_pgrid_opt_3 |
|
real(kind=c_double),
|
intent(in), |
optional |
|
:: |
c_filter_eps |
|
integer(kind=c_long_long),
|
intent(inout), |
optional |
|
:: |
c_flop |
|
logical(kind=c_bool),
|
intent(in), |
optional |
|
:: |
c_move_data |
|
logical(kind=c_bool),
|
intent(in), |
optional |
|
:: |
c_retain_sparsity |
|
integer(kind=c_int),
|
intent(in), |
optional |
|
:: |
c_unit_nr |
|
logical(kind=c_bool),
|
intent(in), |
optional |
|
:: |
c_log_verbose |
|