compute the CIS gradient
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(c_ptr), | intent(inout) | :: | xdata_cptr | |||
integer(kind=c_int), | intent(in) | :: | state | |||
real(kind=c_double), | intent(inout) | :: | grad(3*l_grad) | |||
integer(kind=c_int), | intent(inout) | :: | l_grad |