68 if (side.eq.
'x2')
then
70 else if (side.eq.
'y1')
then
72 else if (side.eq.
'y2')
then
83 subroutine afunbl (nfree,x,y,z,coeff)
84 real*8 x, y, z, coeff(100)
87 coeff((j-1)*nfree+i) = 0.0d0
89 coeff((j-1)*nfree+j) = -1.0d0
94 subroutine bfunbl (nfree,x,y,z,coeff)
95 real*8 x, y, z, coeff(100)
98 coeff((j-1)*nfree+i) = 0.0d0
100 coeff((j-1)*nfree+j) = -1.0d0
106 real*8 x, y, z, coeff(100)
109 coeff((j-1)*nfree+i) = 0.0d0
111 coeff((j-1)*nfree+j) = -1.0d0
117 real*8 x, y, z, coeff(100)
120 coeff((j-1)*nfree+i) = 0.0d0
127 real*8 x, y, z, coeff(100)
130 coeff((j-1)*nfree+i) = 0.0d0
137 real*8 x, y, z, coeff(100)
140 coeff((j-1)*nfree+i) = 0.0d0
147 real*8 x, y, z, coeff(100)
150 coeff((j-1)*nfree+i) = 0.0d0
159 subroutine xyk(nel,xyke,x,y,ijk,node)
160 implicit real*8 (a-h,o-z)
161 dimension xyke(2,2), x(*), y(*), ijk(node,*)
subroutine xyk(nel, xyke, x, y, ijk, node)
real *8 function efun(x, y, z)
real *8 function betfun(side, x, y, z)
subroutine bfunbl(nfree, x, y, z, coeff)
subroutine dfunbl(nfree, x, y, z, coeff)
subroutine ffunbl(nfree, x, y, z, coeff)
real *8 function ffun(x, y, z)
real *8 function cfun(x, y, z)
real *8 function gamfun(side, x, y, z)
real *8 function gfun(x, y, z)
subroutine cfunbl(nfree, x, y, z, coeff)
real *8 function dfun(x, y, z)
real *8 function hfun(x, y, z)
subroutine gfunbl(nfree, x, y, z, coeff)
subroutine efunbl(nfree, x, y, z, coeff)
real *8 function afun(x, y, z)
subroutine afunbl(nfree, x, y, z, coeff)
real *8 function bfun(x, y, z)