stop Subroutine

public subroutine stop(text)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: text

Source Code

  subroutine stop(text)
    character(len=*), intent(in)   :: text
    print*, text
    STOP
  end subroutine stop