sumupint Subroutine
-
- dirac, undefined, KKRhost
- 18 statements
- Source File
public subroutine sumupint(sum, vg, g, wg, vf, f, wf, n)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| complex(kind=dp), | intent(out) | :: | sum | |||
| real(kind=dp), | intent(in) | :: | vg | |||
| complex(kind=dp), | intent(in), | dimension(2,2) | :: | g | ||
| real(kind=dp), | intent(in), | dimension(2,2) | :: | wg | ||
| real(kind=dp), | intent(in) | :: | vf | |||
| complex(kind=dp), | intent(in), | dimension(2,2) | :: | f | ||
| real(kind=dp), | intent(in), | dimension(2,2) | :: | wf | ||
| integer, | intent(in) | :: | n |