*** PE2SET - Convert from PE number to set numbers
Interface. ---------- CALL *PE2SET(KPE,KPRGPNS,KPRGPEW,KPRTRW,KPRTRV)
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=JPIM), | intent(in) | :: | KPE | |||
integer(kind=JPIM), | intent(out) | :: | KPRGPNS | |||
integer(kind=JPIM), | intent(out) | :: | KPRGPEW | |||
integer(kind=JPIM), | intent(out) | :: | KPRTRW | |||
integer(kind=JPIM), | intent(out) | :: | KPRTRV |