criado subprog04