checked_int8 Function

public function checked_int8(i, upper) result(i8)

Receives a default kind integer, checks its MIDI bounds (15 or 127), fixes it if needed, and returns an int8:

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: i
integer, intent(in), optional :: upper

Return Value integer(kind=int8)


Called by

proc~~checked_int8~~CalledByGraph proc~checked_int8 checked_int8 proc~control_change MIDI_file%Control_Change proc~control_change->proc~checked_int8 proc~new MIDI_file%new proc~new->proc~checked_int8 proc~set_time_signature MIDI_file%set_time_signature proc~new->proc~set_time_signature proc~copyright_notice MIDI_file%copyright_notice proc~new->proc~copyright_notice proc~text_event MIDI_file%text_event proc~new->proc~text_event proc~track_header MIDI_file%track_header proc~new->proc~track_header proc~note_name note_name proc~note_name->proc~checked_int8 proc~note_off MIDI_file%Note_OFF proc~note_off->proc~checked_int8 proc~note_on MIDI_file%Note_ON proc~note_on->proc~checked_int8 proc~pitch_bend MIDI_file%Pitch_Bend proc~pitch_bend->proc~checked_int8 proc~program_change MIDI_file%Program_Change proc~program_change->proc~checked_int8 proc~set_time_signature->proc~checked_int8 proc~write_string MIDI_file%write_string proc~write_string->proc~checked_int8 proc~copyright_notice->proc~write_string proc~cue_point MIDI_file%cue_point proc~cue_point->proc~write_string proc~instrument_name MIDI_file%instrument_name proc~instrument_name->proc~write_string proc~lyric MIDI_file%lyric proc~lyric->proc~write_string proc~marker MIDI_file%marker proc~marker->proc~write_string proc~play_broken_chord MIDI_file%play_broken_chord proc~play_broken_chord->proc~note_off proc~play_broken_chord->proc~note_on proc~play_chord MIDI_file%play_chord proc~play_chord->proc~note_off proc~play_chord->proc~note_on proc~play_note MIDI_file%play_note proc~play_note->proc~note_off proc~play_note->proc~note_on proc~sequence_track_name MIDI_file%sequence_track_name proc~sequence_track_name->proc~write_string proc~text_event->proc~write_string program~blues blues program~blues->proc~control_change program~blues->proc~new program~blues->proc~note_off program~blues->proc~note_on program~blues->proc~program_change program~blues->proc~play_chord program~blues->proc~track_header program~canon canon program~canon->proc~control_change program~canon->proc~new program~canon->proc~program_change program~canon->proc~play_note program~canon->proc~track_header program~circle_of_fifths circle_of_fifths program~circle_of_fifths->proc~control_change program~circle_of_fifths->proc~new program~circle_of_fifths->proc~program_change program~circle_of_fifths->proc~play_chord program~circle_of_fifths->proc~track_header program~la_folia la_folia program~la_folia->proc~control_change program~la_folia->proc~new program~la_folia->proc~program_change program~la_folia->proc~play_broken_chord program~la_folia->proc~play_chord program~la_folia->proc~track_header program~motifs motifs program~motifs->proc~control_change program~motifs->proc~new program~motifs->proc~program_change program~motifs->proc~play_broken_chord program~motifs->proc~play_chord program~motifs->proc~play_note program~motifs->proc~track_header program~third_kind third_kind program~third_kind->proc~new program~third_kind->proc~program_change program~third_kind->proc~play_note program~third_kind->proc~track_header proc~track_header->proc~sequence_track_name proc~track_header->proc~text_event