mumps_version.F File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	mumps_set_version (version_str)

Function/Subroutine Documentation

mumps_set_version()

subroutine mumps_set_version

(

character(len=*)

version_str

)

Definition at line 14 of file mumps_version.F.

      IMPLICIT NONE
      CHARACTER(LEN=*) :: VERSION_STR
      CHARACTER(LEN=*) :: V;
      parameter(v = "5.5.1" )
      IF ( len(v) .GT. 30 ) THEN
         WRITE(*,*) "Version string too long ( >30 characters )"
         CALL mumps_abort()
      END IF
      version_str = v
      RETURN