assert_s.F90 Source File


This file depends on

sourcefile~~assert_s.f90~~EfferentGraph sourcefile~assert_s.f90 assert_s.F90 sourcefile~assert_m.f90 assert_m.F90 sourcefile~assert_s.f90->sourcefile~assert_m.f90

Contents

Source Code


Source Code

submodule(assert_m) assert_s
  implicit none

contains

  module procedure assert

    if (enforce_assertions) then
#ifdef XLF
      if (.not. assertion) error stop 999
#else
      if (.not. assertion) error stop description
#endif
    end if

  end procedure

end submodule assert_s