warning_neci Module Subroutine

module subroutine warning_neci(sub_name, error_msg)

Arguments

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

Source Code

    module subroutine warning_neci(sub_name,error_msg)
        != Print a warning message in a (helpfully consistent) format.
        !=
        != In:
        !=    sub_name:  calling subroutine name.
        !=    error_msg: error message.
        character(*), intent(in) :: sub_name, error_msg

        write (stderr,'(/a)') 'WARNING.  Error in '//adjustl(sub_name)
        write (stderr,'(a/)') adjustl(error_msg)
    end subroutine warning_neci