*** ASRE1BAD - Recombine antisymmetric and symmetric parts - adjoint
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(out) | :: | PAOA(:,:) | |||
real(kind=JPRB), | intent(out) | :: | PSOA(:,:) |