I.1.22 Get_Version_Multi_Mesh Procedure

The main documentation of the Get_Version_Multi_Mesh Procedure contains additional explanation of this code listing.

  function Get_Version_Multi_Mesh (Mesh) result(Version)

    ! Input variable.

    type(Multi_Mesh_type), intent(in) :: Mesh   ! Variable to be queried.

    ! Output variable.

    type(integer) :: Version                       ! Version number.

    !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    ! Verify requirements.

    VERIFY(Valid_State(Mesh),5)      ! Mesh is valid.

    ! Get the value.

    Version = Mesh%Version

    ! Verify guarantees - none.

    return
  end function Get_Version_Multi_Mesh