1!$Id:$
2        subroutine uface02(uptyp,nel,iu,ufac)
3
4!      * * F E A P * * A Finite Element Analysis Program
5
6!....  Copyright (c) 1984-2017: Regents of the University of California
7!                               All rights reserved
8
9!-----[--.----+----.----+----.-----------------------------------------]
10!      Purpose: Set plot data for user element
11
12!      Inputs:
13!         uptyp   - User element topology
14!         nel     - Number of element nodes
15
16!      Output:
17!         iu(4,*) - 4-node quadrilateral face
18!         ufac    - Number of faces
19!-----[--.----+----.----+----.-----------------------------------------]
20      implicit   none
21
22      integer    uptyp,nel,ufac
23      integer    iu(4,*)
24
25      end
26