Searched refs:ICNTL7 (Results 1 – 1 of 1) sorted by relevance
565 FUNCTION MUMPS_SEQANA_AVAIL(ICNTL7)567 INTEGER, INTENT(IN) :: ICNTL7 local576 IF ( ICNTL7 .LT. 0 .OR. ICNTL7 .GT. 7 ) THEN581 IF ( ICNTL7 .EQ. 5 ) MUMPS_SEQANA_AVAIL = METIS582 IF ( ICNTL7 .EQ. 3 ) MUMPS_SEQANA_AVAIL = SCOTCH