| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=R8), | intent(in), | DIMENSION(2) | :: | XXXX | ||
| real(kind=R8), | intent(in), | DIMENSION(2) | :: | YYYY | ||
| real(kind=R8), | intent(out), | DIMENSION(2) | :: | ZZZZ |
SUBROUTINE MULP(XXXX,YYYY,ZZZZ) USE REAL_PRECISION REAL (KIND=R8), DIMENSION(2), INTENT(IN):: XXXX,YYYY REAL (KIND=R8), DIMENSION(2), INTENT(OUT):: ZZZZ END SUBROUTINE MULP