mumps_print_defined.F File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	mumps_print_if_defined (mpg)

Function/Subroutine Documentation

mumps_print_if_defined()

subroutine mumps_print_if_defined

(

integer, intent(in)

mpg

)

Definition at line 14 of file mumps_print_defined.F.

      IMPLICIT NONE
      INTEGER, INTENT(IN) :: MPG
      IF (mpg.LE.0) RETURN
      write(mpg,*) "================================================="
#if defined(ZERO_TRIANGLE)
      write(mpg,*) "MUMPS compiled with option -DZERO_TRIANGLE"
#endif
#if defined(GEMMT_AVAILABLE)
      write(mpg, *) "MUMPS compiled with option -DGEMMT_AVAILABLE"
#endif
#if defined(WORKAROUNDINTELILP64MPI2INTEGER)
      write(mpg,*) "MUMPS compiled with option"
     &     ," -DWORKAROUNDINTELILP64MPI2INTEGER"
#endif
#if defined(WORKAROUNDILP64MPICUSTOMREDUCE)
      write(mpg,*) "MUMPS compiled with option"
     &     ," -DWORKAROUNDILP64MPICUSTOMREDUCE"
#endif
#if defined(DETERMINISTIC_PARALLEL_GRAPH)
      write(mpg,*) "MUMPS compiled with option"
     &     ," -DDETERMINISTIC_PARALLEL_GRAPH"
#endif
#if defined(metis)
      write(mpg,*) "MUMPS compiled with option -Dmetis"
#endif
#if defined(metis4)
      write(mpg,*) "MUMPS compiled with option -Dmetis4"
#endif
#if defined(MUMPS_F2003)
      write(mpg,*) "MUMPS compiled with option -DMUMPS_F2003"
#endif
#if defined(OLD_OOC_NOPANEL)
      write(mpg,*) "MUMPS compiled with option -DOLD_OOC_NOPANEL"
#endif
#if defined(parmetis)
      write(mpg,*) "MUMPS compiled with option -Dparmetis"
#endif
#if defined(parmetis3)
      write(mpg,*) "MUMPS compiled with option -Dparmetis3"
#endif
#if defined(ptscotch)
      write(mpg,*) "MUMPS compiled with option -Dptscotch"
#endif
#if defined(scotch)
      write(mpg,*) "MUMPS compiled with option -Dscotch"
#endif
#if defined(MUMPS_USE_BLAS2)
      write(mpg,*) "MUMPS compiled with option -DMUMPS_USE_BLAS2"
#endif
#if defined(BLR_MT)
      write(mpg,*) "MUMPS compiled with option -DBLR_MT"
#endif
#if defined(NODYNAMICCB)
      write(mpg,*) "MUMPS compiled with option -DNODYNAMICCB"
#endif
      write(mpg,*) "================================================="
      RETURN