criado subprog01