This is routine to perform apply_givens_rotation
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| complex(kind=realdp), | intent(inout), | dimension(cslp_mg_miter+1,cslp_mg_miter) | :: | H | ||
| complex(kind=realdp), | intent(inout), | dimension(cslp_mg_miter+1) | :: | cs | ||
| complex(kind=realdp), | intent(inout), | dimension(cslp_mg_miter+1) | :: | sn | ||
| integer, | intent(in) | :: | k |