veq Subroutine
-
- numerical-tools, KKRhost
- 9 statements
- Source File
public subroutine veq(a, b)
Sets two vectors to be equal
Note
Jonathan Chico: This seems unnecessary, it could be replace by a call like
b(:)=a(:)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=dp), | intent(in), | dimension(*) | :: | a |
Input vector |
|
| real(kind=dp), | intent(out), | dimension(*) | :: | b |
Output vector |