! ! contains Gauss point information ! ! gauss2d1: quad, 1-point integration (1 integration point) ! gauss2d2: quad, 2-point integration (4 integration points) ! gauss2d3: quad, 3-point integration (9 integration points) ! gauss2d4: tri, 1 integration point ! gauss2d5: tri, 3 integration points ! gauss3d1: hex, 1-point integration (1 integration point) ! gauss3d2: hex, 2-point integration (8 integration points) ! gauss3d3: hex, 3-point integration (27 integration points) ! gauss3d4: tet, 1 integration point ! gauss3d5: tet, 4 integration points ! gauss3d6: tet, 15 integration points ! gauss3d7: wedge, 2 integration points ! gauss3d8: wedge, 9 integration points ! gauss3d9: wedge, 18 integration points ! ! weight2d1,... contains the weights ! data gauss2d1 /0.,0./ ! ! the order of the Gauss points in gauss2d2 is important ! and should not be changed (used to accelerate the code ! for CAX8R axisymmetric elements in e_c3d_th.f) ! data gauss2d2 / & -0.577350269189626d0,-0.577350269189626d0, & 0.577350269189626d0,-0.577350269189626d0, & -0.577350269189626d0,0.577350269189626d0, & 0.577350269189626d0,0.577350269189626d0/ ! data gauss2d3 / & -0.774596669241483d0,-0.774596669241483d0, & -0.774596669241483d0,0.d0, & -0.774596669241483d0,0.774596669241483d0, & -0.d0,-0.774596669241483d0, & -0.d0,0.d0, & -0.d0,0.774596669241483d0, & 0.774596669241483d0,-0.774596669241483d0, & 0.774596669241483d0,0.d0, & 0.774596669241483d0,0.774596669241483d0/ ! data gauss2d4 /0.333333333333333d0,0.333333333333333d0/ ! data gauss2d5 / & 0.166666666666667d0,0.166666666666667d0, & 0.666666666666667d0,0.166666666666667d0, & 0.166666666666667d0,0.666666666666667d0/ ! data gauss3d1 /0.,0.,0./ ! ! the order of the Gauss points in gauss3d2 is important ! and should not be changed (used to accelerate the code ! for CAX8R axisymmetric elements in e_c3d_th.f) ! data gauss3d2 / & -0.577350269189626d0,-0.577350269189626d0,-0.577350269189626d0, & 0.577350269189626d0,-0.577350269189626d0,-0.577350269189626d0, & -0.577350269189626d0,0.577350269189626d0,-0.577350269189626d0, & 0.577350269189626d0,0.577350269189626d0,-0.577350269189626d0, & -0.577350269189626d0,-0.577350269189626d0,0.577350269189626d0, & 0.577350269189626d0,-0.577350269189626d0,0.577350269189626d0, & -0.577350269189626d0,0.577350269189626d0,0.577350269189626d0, & 0.577350269189626d0,0.577350269189626d0,0.577350269189626d0/ ! data gauss3d3 / & -0.774596669241483d0,-0.774596669241483d0,-0.774596669241483d0, & 0.d0,-0.774596669241483d0,-0.774596669241483d0, & 0.774596669241483d0,-0.774596669241483d0,-0.774596669241483d0, & -0.774596669241483d0,0.d0,-0.774596669241483d0, & 0.d0,0.d0,-0.774596669241483d0, & 0.774596669241483d0,0.d0,-0.774596669241483d0, & -0.774596669241483d0,0.774596669241483d0,-0.774596669241483d0, & 0.d0,0.774596669241483d0,-0.774596669241483d0, & 0.774596669241483d0,0.774596669241483d0,-0.774596669241483d0, & -0.774596669241483d0,-0.774596669241483d0,0.d0, & 0.d0,-0.774596669241483d0,0.d0, & 0.774596669241483d0,-0.774596669241483d0,0.d0, & -0.774596669241483d0,0.d0,0.d0, & 0.d0,0.d0,0.d0, & 0.774596669241483d0,0.d0,0.d0, & -0.774596669241483d0,0.774596669241483d0,0.d0, & 0.d0,0.774596669241483d0,0.d0, & 0.774596669241483d0,0.774596669241483d0,0.d0, & -0.774596669241483d0,-0.774596669241483d0,0.774596669241483d0, & 0.d0,-0.774596669241483d0,0.774596669241483d0, & 0.774596669241483d0,-0.774596669241483d0,0.774596669241483d0, & -0.774596669241483d0,0.d0,0.774596669241483d0, & 0.d0,0.d0,0.774596669241483d0, & 0.774596669241483d0,0.d0,0.774596669241483d0, & -0.774596669241483d0,0.774596669241483d0,0.774596669241483d0, & 0.d0,0.774596669241483d0,0.774596669241483d0, & 0.774596669241483d0,0.774596669241483d0,0.774596669241483d0/ ! data gauss3d4 /0.25d0,0.25d0,0.25d0/ ! data gauss3d5 / & 0.138196601125011d0,0.138196601125011d0,0.138196601125011d0, & 0.585410196624968d0,0.138196601125011d0,0.138196601125011d0, & 0.138196601125011d0,0.585410196624968d0,0.138196601125011d0, & 0.138196601125011d0,0.138196601125011d0,0.585410196624968d0/ ! data gauss3d6 / & 0.25,0.25,0.25d0, & 0.091971078052723d0,0.091971078052723d0,0.091971078052723d0, & 0.091971078052723d0,0.091971078052723d0,0.724086765841831d0, & 0.091971078052723d0,0.724086765841831d0,0.091971078052723d0, & 0.724086765841831d0,0.091971078052723d0,0.091971078052723d0, & 0.319793627829630d0,0.319793627829630d0,0.319793627829630d0, & 0.319793627829630d0,0.319793627829630d0,0.040619116511110d0, & 0.319793627829630d0,0.040619116511110d0,0.319793627829630d0, & 0.040619116511110d0,0.319793627829630d0,0.319793627829630d0, & 0.056350832689629d0,0.056350832689629d0,0.443649167310371d0, & 0.056350832689629d0,0.443649167310371d0,0.056350832689629d0, & 0.443649167310371d0,0.056350832689629d0,0.056350832689629d0, & 0.443649167310371d0,0.443649167310371d0,0.056350832689629d0, & 0.443649167310371d0,0.056350832689629d0,0.443649167310371d0, & 0.056350832689629d0,0.443649167310371d0,0.443649167310371d0/ ! data gauss3d7 / & 0.333333333333333d0,0.333333333333333d0,-0.577350269189626d0, & 0.333333333333333d0,0.333333333333333d0,0.577350269189626d0/ ! data gauss3d8 / & 0.166666666666667d0,0.166666666666667d0,-0.774596669241483d0, & 0.666666666666667d0,0.166666666666667d0,-0.774596669241483d0, & 0.166666666666667d0,0.666666666666667d0,-0.774596669241483d0, & 0.166666666666667d0,0.166666666666667d0,0.d0, & 0.666666666666667d0,0.166666666666667d0,0.d0, & 0.166666666666667d0,0.666666666666667d0,0.d0, & 0.166666666666667d0,0.166666666666667d0,0.774596669241483d0, & 0.666666666666667d0,0.166666666666667d0,0.774596669241483d0, & 0.166666666666667d0,0.666666666666667d0,0.774596669241483d0/ ! data gauss3d9 / & 0.166666666666667d0,0.166666666666667d0,-0.774596669241483d0, & 0.166666666666667d0,0.666666666666667d0,-0.774596669241483d0, & 0.666666666666667d0,0.166666666666667d0,-0.774596669241483d0, & 0.000000000000000d0,0.500000000000000d0,-0.774596669241483d0, & 0.500000000000000d0,0.000000000000000d0,-0.774596669241483d0, & 0.500000000000000d0,0.500000000000000d0,-0.774596669241483d0, & 0.166666666666667d0,0.166666666666667d0,0.d0, & 0.166666666666667d0,0.666666666666667d0,0.d0, & 0.666666666666667d0,0.166666666666667d0,0.d0, & 0.000000000000000d0,0.500000000000000d0,0.d0, & 0.500000000000000d0,0.000000000000000d0,0.d0, & 0.500000000000000d0,0.500000000000000d0,0.d0, & 0.166666666666667d0,0.166666666666667d0,0.774596669241483d0, & 0.166666666666667d0,0.666666666666667d0,0.774596669241483d0, & 0.666666666666667d0,0.166666666666667d0,0.774596669241483d0, & 0.000000000000000d0,0.500000000000000d0,0.774596669241483d0, & 0.500000000000000d0,0.000000000000000d0,0.774596669241483d0, & 0.500000000000000d0,0.500000000000000d0,0.774596669241483d0/ ! data weight2d1 /4.d0/ ! data weight2d2 /1.d0,1.d0,1.d0,1.d0/ ! data weight2d3 / & 0.308641975308642d0,0.493827160493827d0,0.308641975308642d0, & 0.493827160493827d0,0.790123456790123d0,0.493827160493827d0, & 0.308641975308642d0,0.493827160493827d0,0.308641975308642d0/ ! data weight2d4 /0.5d0/ ! data weight2d5 / & 0.166666666666666d0,0.166666666666666d0,0.166666666666666d0/ ! data weight3d1 /8.d0/ ! data weight3d2 /1.d0,1.d0,1.d0,1.d0,1.d0,1.d0,1.d0,1.d0/ ! data weight3d3 / & 0.171467764060357d0,0.274348422496571d0,0.171467764060357d0, & 0.274348422496571d0,0.438957475994513d0,0.274348422496571d0, & 0.171467764060357d0,0.274348422496571d0,0.171467764060357d0, & 0.274348422496571d0,0.438957475994513d0,0.274348422496571d0, & 0.438957475994513d0,0.702331961591221d0,0.438957475994513d0, & 0.274348422496571d0,0.438957475994513d0,0.274348422496571d0, & 0.171467764060357d0,0.274348422496571d0,0.171467764060357d0, & 0.274348422496571d0,0.438957475994513d0,0.274348422496571d0, & 0.171467764060357d0,0.274348422496571d0,0.171467764060357d0/ ! data weight3d4 /0.166666666666667d0/ ! data weight3d5 / & 0.041666666666667d0,0.041666666666667d0,0.041666666666667d0, & 0.041666666666667d0/ ! data weight3d6 / & 0.019753086419753d0,0.011989513963170d0,0.011989513963170d0, & 0.011989513963170d0,0.011989513963170d0,0.011511367871045d0, & 0.011511367871045d0,0.011511367871045d0,0.011511367871045d0, & 0.008818342151675d0,0.008818342151675d0,0.008818342151675d0, & 0.008818342151675d0,0.008818342151675d0,0.008818342151675d0/ ! data weight3d7 /0.5d0,0.5d0/ ! data weight3d8 / & 0.092592592592593d0,0.092592592592593d0,0.092592592592593d0, & 0.148148148148148d0,0.148148148148148d0,0.148148148148148d0, & 0.092592592592593d0,0.092592592592593d0,0.092592592592593d0/ ! data weight3d9 / & 0.083333333333333d0,0.083333333333333d0,0.083333333333333d0, & 0.009259259259259d0,0.009259259259259d0,0.009259259259259d0, & 0.133333333333333d0,0.133333333333333d0,0.133333333333333d0, & 0.014814814814815d0,0.014814814814815d0,0.014814814814815d0, & 0.083333333333333d0,0.083333333333333d0,0.083333333333333d0, & 0.009259259259259d0,0.009259259259259d0,0.009259259259259d0/ !