subprogram parameter check OK!