*** ASRE1B - Recombine antisymmetric and symmetric parts
Interface. ---------- CALL *ASRE1B(..)
1.2 RECOMBINE
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=JPIM), | intent(in) | :: | KFIELD | |||
integer(kind=JPIM), | intent(in) | :: | KM | |||
integer(kind=JPIM), | intent(in) | :: | KMLOC | |||
real(kind=JPRB), | intent(in) | :: | PAOA(:,:) | |||
real(kind=JPRB), | intent(in) | :: | PSOA(:,:) |