Searched refs:MUMPS_SEQANA_AVAIL (Results 1 – 1 of 1) sorted by relevance
565 FUNCTION MUMPS_SEQANA_AVAIL(ICNTL7) function566 LOGICAL :: MUMPS_SEQANA_AVAIL local577 MUMPS_SEQANA_AVAIL = .FALSE.579 MUMPS_SEQANA_AVAIL = .TRUE.581 IF ( ICNTL7 .EQ. 5 ) MUMPS_SEQANA_AVAIL = METIS582 IF ( ICNTL7 .EQ. 3 ) MUMPS_SEQANA_AVAIL = SCOTCH584 END FUNCTION MUMPS_SEQANA_AVAIL