criado subprog02