Lines Matching defs:lesmodels
849 subroutine lesmodels(y, ac, shgl, shp, subroutine
856 real*8 y(nshg,ndof), ac(nshg,ndof),
857 & x(numnp,nsd),
858 & BC(nshg,ndofBC)
859 real*8 shp(MAXTOP,maxsh,MAXQPT),
860 & shgl(MAXTOP,nsd,maxsh,MAXQPT)
863 integer rowp(nshg,nnz), colm(nshg+1),
864 & iBC(nshg),
865 & ilwork(nlwork),
866 & iper(nshg)
869 real*8, allocatable, dimension(:) :: fwr2,fwr3,fwr4
870 real*8, allocatable, dimension(:) :: stabdis,cdelsq1
871 real*8, allocatable, dimension(:,:) :: xavegt, xavegt2,xavegt3