Lines Matching refs:NSUPCOL
1735 & NSUPROW, NSUPCOL, argument
1749 INTEGER NSUPROW, NSUPCOL local
1784 & min(NSUPROW,NSUPCOL) .GT.0) THEN
1787 CALL MPI_PACK_SIZE(NSUPCOL, MPI_INTEGER, COMM,
1790 CALL MPI_PACK_SIZE(NSUPROW*NSUPCOL,
1797 NSUBSET_COL_EFF = NSUBSET_COL - NSUPCOL
1801 NSUPCOL_EFF = NSUPCOL
1875 CALL MPI_PACK( NSUPCOL, 1, MPI_INTEGER,
1889 & min(NSUPROW, NSUPCOL) .GT. 0) THEN
1900 DO ISUB = NSUBSET_COL-NSUPCOL+1, NSUBSET_COL
1910 IF ( TABSIZE.GE.int(NSUPROW,8)*int(NSUPCOL,8) ) THEN
1914 DO ISUB = NSUBSET_COL - NSUPCOL+1, NSUBSET_COL
1920 CALL MPI_PACK(TAB(1), NSUPROW*NSUPCOL,
1927 DO ISUB = NSUBSET_COL - NSUPCOL+1, NSUBSET_COL