warning_neci Module Subroutine

    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