COMPUTE_ID Subroutine

public subroutine COMPUTE_ID(PEPS, KM, KN, PMAT, KRANK, KBCLIST, PNONIM)

$IF(KRANK < KN) THEN $ PRINT *,'MAXVAL PNONIM ',KM,KM,KRANK,MAXVAL( PNONIM(1:KRANK,1:KN-KRANK)) $ENDIF

Arguments

Type IntentOptional Attributes Name
real(kind=JPRD), intent(in) :: PEPS
integer(kind=JPIM), intent(in) :: KM
integer(kind=JPIM), intent(in) :: KN
real(kind=JPRD), intent(in) :: PMAT(:,:)
integer(kind=JPIM), intent(out) :: KRANK
integer(kind=JPIM), intent(out) :: KBCLIST(:)
real(kind=JPRD), intent(out) :: PNONIM(:,:)

Calls

proc~~compute_id~~CallsGraph proc~compute_id COMPUTE_ID abor1 abor1 proc~compute_id->abor1 dtrsm dtrsm proc~compute_id->dtrsm proc~alg541 ALG541 proc~compute_id->proc~alg541 dlarf dlarf proc~alg541->dlarf proc~alg511 ALG511 proc~alg541->proc~alg511

Called by

proc~~compute_id~~CalledByGraph proc~compute_id COMPUTE_ID proc~construct_butterfly CONSTRUCT_BUTTERFLY proc~construct_butterfly->proc~compute_id proc~suleg~2 SULEG proc~suleg~2->proc~construct_butterfly