criado subprog05