Commit b8702160 authored by Roy Fabrice's avatar Roy Fabrice
Browse files

remove pure keyword for is_equal

parent 81706f8e
......@@ -122,7 +122,7 @@ contains
!------------------------------------------------------------------------------------------------------------------------------------
!> Comparison function for cells: ==
pure function Is_eq(this,other_cell) result (is_equal)
function Is_eq(this,other_cell) result (is_equal)
class(cell_t(*,*)), intent(in) :: this
class(cell_t(*,*)), intent(in) :: other_cell
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment