report_status Subroutine

subroutine report_status(label, st)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: label
integer, intent(in) :: st