1!$Id:$ 2 subroutine pelnum(tx,iel,errck) 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: Get material set numbers for FEAPpv elements 11 12! Current FEAPpv Element Types 13! Name | iel 14! ------------+------------- 15! Solid | -1 16! Truss | -2 17! Frame | -3 18! Plate | -4 19! Shell | -5 20! Membrane | -6 21! Thermal | -7 22! Convection | -8 23! Point | -9 24 25! Inputs: 26! tx - Name of element type requested 27 28! Outputs: 29! iel - Element type for request 30! errck - Flag, true if request found 31!-----[--.----+----.----+----.-----------------------------------------] 32 33 implicit none 34 35 logical pcomp, errck 36 character tx*15 37 integer iel 38 39 save 40 41 errck = .false. 42 43! Register program element type names 44 45 if (pcomp(tx,'soli',4)) then 46 iel = -1 47 elseif(pcomp(tx,'trus',4)) then 48 iel = -2 49 elseif(pcomp(tx,'fram',4)) then 50 iel = -3 51 elseif(pcomp(tx,'plat',4)) then 52 iel = -4 53 elseif(pcomp(tx,'shel',4)) then 54 iel = -5 55 elseif(pcomp(tx,'memb',4)) then 56 iel = -6 57 elseif(pcomp(tx,'ther',4)) then 58 iel = -7 59 elseif(pcomp(tx,'conv',4)) then 60 iel = -8 61 elseif(pcomp(tx,'poin',4)) then 62 iel = -9 63 else 64 errck = .true. 65 endif 66 67 end 68