1!$Id:$ 2 subroutine uface03(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