// This file is part of the Herezh++ application. // // The finite element software Herezh++ is dedicated to the field // of mechanics for large transformations of solid structures. // It is developed by Gérard Rio (APP: IDDN.FR.010.0106078.000.R.P.2006.035.20600) // INSTITUT DE RECHERCHE DUPUY DE LÔME (IRDL) . // // Herezh++ is distributed under GPL 3 license ou ultérieure. // // Copyright (C) 1997-2022 Université Bretagne Sud (France) // AUTHOR : Gérard Rio // E-MAIL : gerardrio56@free.fr // // This program is free software: you can redistribute it and/or modify // it under the terms of the GNU General Public License as published by // the Free Software Foundation, either version 3 of the License, // or (at your option) any later version. // // This program is distributed in the hope that it will be useful, // but WITHOUT ANY WARRANTY; without even the implied warranty // of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. // See the GNU General Public License for more details. // // You should have received a copy of the GNU General Public License // along with this program. If not, see . // // For more information, please consult: . #include "GeomHexaQuad.h" void GeomHexaQuad::Phiphi() { // fonctions d'interpolation globales PHI(7,3) = -0.1870014113213579E0; PHI(3,6) = -0.1870014113213579E0; PHI(20,7) = 0.4146723119520977E0; PHI(19,6) = 0.1111111111111112E0; PHI(15,3) = 0.1111111111111112E0; PHI(19,1) = 0.4146723119520977E0; PHI(10,6) = 0.1111111111111112E0; PHI(3,4) = -0.1870014113213579E0; PHI(7,6) = -0.9077636645642013E-1; PHI(14,3) = 0.4146723119520977E0; PHI(16,5) = 0.4146723119520977E0; PHI(15,4) = 0.1111111111111112E0; PHI(12,4) = 0.1111111111111112E0; PHI(4,8) = -0.1870014113213579E0; PHI(16,1) = 0.1111111111111112E0; PHI(14,6) = 0.2977213249234699E-1; PHI(9,8) = 0.4146723119520977E0; PHI(20,4) = 0.2977213249234699E-1; PHI(18,4) = 0.1111111111111112E0; PHI(9,5) = 0.2977213249234699E-1; PHI(11,5) = 0.1111111111111112E0; PHI(5,5) = -0.1870014113213579E0; PHI(12,3) = 0.2977213249234699E-1; PHI(5,1) = -0.9077636645642013E-1; PHI(12,6) = 0.4146723119520977E0; PHI(17,5) = 0.1111111111111112E0; PHI(5,2) = -0.3522081090086456E-1; PHI(16,6) = 0.4146723119520977E0; PHI(7,8) = -0.3522081090086456E-1; PHI(12,7) = 0.1111111111111112E0; PHI(10,5) = 0.2977213249234699E-1; PHI(17,6) = 0.2977213249234699E-1; PHI(8,8) = -0.9077636645642013E-1; PHI(9,7) = 0.1111111111111112E0; PHI(16,7) = 0.1111111111111112E0; PHI(8,7) = -0.1870014113213579E0; PHI(5,3) = -0.1870014113213579E0; PHI(13,8) = 0.4146723119520977E0; PHI(2,2) = -0.1870014113213579E0; PHI(9,4) = 0.4146723119520977E0; PHI(12,5) = 0.1111111111111112E0; PHI(5,4) = -0.9077636645642013E-1; PHI(2,5) = -0.3522081090086456E-1; PHI(3,7) = -0.3522081090086456E-1; PHI(18,7) = 0.1111111111111112E0; PHI(15,8) = 0.2977213249234699E-1; PHI(3,1) = -0.1870014113213579E0; PHI(5,7) = -0.1314458557658024E0; PHI(18,3) = 0.4146723119520977E0; PHI(12,2) = 0.1111111111111112E0; PHI(2,8) = -0.1870014113213579E0; PHI(6,6) = -0.3522081090086456E-1; PHI(4,7) = -0.9077636645642013E-1; PHI(19,8) = 0.2977213249234699E-1; PHI(3,3) = -0.9077636645642013E-1; PHI(4,4) = -0.9077636645642013E-1; PHI(2,6) = -0.9077636645642013E-1; PHI(17,4) = 0.1111111111111112E0; PHI(13,5) = 0.1111111111111112E0; PHI(9,1) = 0.2977213249234699E-1; PHI(9,6) = 0.1111111111111112E0; PHI(10,4) = 0.4146723119520977E0; PHI(20,3) = 0.1111111111111112E0; PHI(1,7) = -0.1870014113213579E0; PHI(10,7) = 0.2977213249234699E-1; PHI(14,1) = 0.1111111111111112E0; PHI(19,2) = 0.1111111111111112E0; PHI(17,3) = 0.4146723119520977E0; PHI(8,5) = -0.1314458557658024E0; PHI(5,6) = -0.9077636645642013E-1; PHI(4,6) = -0.1314458557658024E0; PHI(13,6) = 0.1111111111111112E0; PHI(18,8) = 0.2977213249234699E-1; PHI(4,1) = -0.9077636645642013E-1; PHI(18,1) = 0.4146723119520977E0; PHI(20,1) = 0.1111111111111112E0; PHI(8,4) = -0.3522081090086456E-1; PHI(1,3) = -0.9077636645642013E-1; PHI(7,4) = -0.9077636645642013E-1; PHI(3,5) = -0.9077636645642013E-1; PHI(19,4) = 0.2977213249234699E-1; PHI(13,7) = 0.4146723119520977E0; PHI(17,2) = 0.2977213249234699E-1; PHI(13,3) = 0.1111111111111112E0; PHI(6,5) = -0.9077636645642013E-1; PHI(8,3) = -0.9077636645642013E-1; PHI(16,4) = 0.2977213249234699E-1; PHI(15,7) = 0.2977213249234699E-1; PHI(10,1) = 0.1111111111111112E0; PHI(7,2) = -0.1870014113213579E0; PHI(6,7) = -0.1870014113213579E0; PHI(15,1) = 0.4146723119520977E0; PHI(2,4) = -0.1314458557658024E0; PHI(18,5) = 0.1111111111111112E0; PHI(20,2) = 0.2977213249234699E-1; PHI(14,4) = 0.4146723119520977E0; PHI(15,2) = 0.4146723119520977E0; PHI(10,2) = 0.4146723119520977E0; PHI(14,5) = 0.2977213249234699E-1; PHI(11,2) = 0.4146723119520977E0; PHI(8,6) = -0.1870014113213579E0; PHI(16,8) = 0.1111111111111112E0; PHI(1,5) = -0.9077636645642013E-1; PHI(2,1) = -0.9077636645642013E-1; PHI(13,1) = 0.2977213249234699E-1; PHI(20,5) = 0.4146723119520977E0; PHI(6,8) = -0.9077636645642013E-1; PHI(12,8) = 0.4146723119520977E0; PHI(4,5) = -0.1870014113213579E0; PHI(20,8) = 0.1111111111111112E0; PHI(13,4) = 0.1111111111111112E0; PHI(1,8) = -0.1314458557658024E0; PHI(6,3) = -0.1314458557658024E0; PHI(19,3) = 0.1111111111111112E0; PHI(11,3) = 0.2977213249234699E-1; PHI(15,6) = 0.1111111111111112E0; PHI(7,7) = -0.9077636645642013E-1; PHI(17,7) = 0.4146723119520977E0; PHI(19,7) = 0.1111111111111112E0; PHI(1,1) = -0.3522081090086456E-1; PHI(5,8) = -0.1870014113213579E0; PHI(3,8) = -0.9077636645642013E-1; PHI(8,2) = -0.9077636645642013E-1; PHI(14,2) = 0.1111111111111112E0; PHI(6,4) = -0.1870014113213579E0; PHI(12,1) = 0.2977213249234699E-1; PHI(16,2) = 0.1111111111111112E0; PHI(6,2) = -0.9077636645642013E-1; PHI(16,3) = 0.2977213249234699E-1; PHI(10,8) = 0.1111111111111112E0; PHI(1,2) = -0.9077636645642013E-1; PHI(11,6) = 0.4146723119520977E0; PHI(9,2) = 0.1111111111111112E0; PHI(10,3) = 0.1111111111111112E0; PHI(11,7) = 0.2977213249234699E-1; PHI(20,6) = 0.1111111111111112E0; PHI(2,7) = -0.9077636645642013E-1; PHI(13,2) = 0.2977213249234699E-1; PHI(9,3) = 0.1111111111111112E0; PHI(6,1) = -0.1870014113213579E0; PHI(18,2) = 0.1111111111111112E0; PHI(3,2) = -0.1314458557658024E0; PHI(14,8) = 0.1111111111111112E0; PHI(14,7) = 0.1111111111111112E0; PHI(15,5) = 0.1111111111111112E0; PHI(17,8) = 0.1111111111111112E0; PHI(11,1) = 0.1111111111111112E0; PHI(11,4) = 0.1111111111111112E0; PHI(19,5) = 0.4146723119520977E0; PHI(4,2) = -0.1870014113213579E0; PHI(2,3) = -0.1870014113213579E0; PHI(1,6) = -0.1870014113213579E0; PHI(7,1) = -0.1314458557658024E0; PHI(17,1) = 0.1111111111111112E0; PHI(7,5) = -0.1870014113213579E0; PHI(8,1) = -0.1870014113213579E0; PHI(4,3) = -0.3522081090086456E-1; PHI(18,6) = 0.2977213249234699E-1; PHI(11,8) = 0.1111111111111112E0; PHI(1,4) = -0.1870014113213579E0; }; void GeomHexaQuad::DphiDphi() { // derivees des fonctions d'interpolations DPHI(1,6,6) = -0.7389594549567744E-1; DPHI(3,10,7) = -0.7044162180172908E-1; DPHI(1,10,4) = 0.2628917115316043E0; DPHI(2,12,5) = -0.1924500897298754E0; DPHI(3,3,6) = -0.128917115316044E-1; DPHI(2,1,1) = 0.7389594549567744E-1; DPHI(2,11,5) = 0.7044162180172908E-1; DPHI(1,16,2) = -0.2628917115316043E0; DPHI(1,13,8) = -0.2628917115316043E0; DPHI(2,17,8) = -0.7044162180172908E-1; DPHI(3,16,8) = 0.1924500897298754E0; DPHI(3,17,2) = 0.7044162180172908E-1; DPHI(1,14,3) = 0.2628917115316043E0; DPHI(1,4,7) = 0.2232909936926024E-1; DPHI(3,16,2) = 0.1924500897298754E0; DPHI(3,2,8) = -0.128917115316044E-1; DPHI(1,14,7) = 0.2628917115316043E0; DPHI(2,13,1) = -0.7044162180172908E-1; DPHI(1,19,5) = 0.7182335127930841E0; DPHI(3,13,8) = 0.7182335127930841E0; DPHI(3,14,3) = -0.7182335127930841E0; DPHI(1,12,6) = -0.2628917115316043E0; DPHI(2,19,7) = 0.2628917115316043E0; DPHI(3,4,1) = 0.1795583781982711E0; DPHI(2,7,1) = 0.4072292788290108E0; DPHI(3,18,1) = 0.2628917115316043E0; DPHI(3,3,4) = -0.128917115316044E-1; DPHI(3,7,7) = -0.2232909936926024E-1; DPHI(3,14,7) = -0.1924500897298754E0; DPHI(2,8,8) = -0.1795583781982711E0; DPHI(1,16,3) = -0.7044162180172908E-1; DPHI(1,20,3) = -0.2628917115316043E0; DPHI(2,5,4) = 0.2232909936926024E-1; DPHI(1,19,3) = -0.1924500897298754E0; DPHI(1,20,4) = -0.7044162180172908E-1; DPHI(1,2,3) = 0.128917115316044E-1; DPHI(3,16,3) = -0.5156684612641721E-1; DPHI(1,7,8) = -0.7389594549567744E-1; DPHI(2,14,2) = -0.2628917115316043E0; DPHI(3,17,5) = 0.7044162180172908E-1; DPHI(1,6,2) = -0.2232909936926024E-1; DPHI(3,11,6) = -0.2628917115316043E0; DPHI(3,9,4) = -0.2628917115316043E0; DPHI(1,2,8) = -0.3110042339640731E0; DPHI(1,5,6) = 0.2232909936926024E-1; DPHI(1,14,4) = 0.2628917115316043E0; DPHI(2,7,5) = 0.128917115316044E-1; DPHI(3,18,6) = 0.7044162180172908E-1; DPHI(3,20,6) = 0.2628917115316043E0; DPHI(1,5,2) = 0.7389594549567744E-1; DPHI(3,19,4) = 0.7044162180172908E-1; DPHI(2,20,5) = -0.7182335127930841E0; DPHI(3,20,1) = 0.7044162180172908E-1; DPHI(2,10,6) = -0.1924500897298754E0; DPHI(1,4,5) = -0.128917115316044E-1; DPHI(1,10,7) = 0.7044162180172908E-1; DPHI(2,8,4) = -0.7389594549567744E-1; DPHI(1,15,6) = 0.2628917115316043E0; DPHI(1,10,1) = 0.7044162180172908E-1; DPHI(2,20,1) = -0.1924500897298754E0; DPHI(1,18,2) = 0.7044162180172908E-1; DPHI(3,14,4) = 0.7182335127930841E0; DPHI(1,17,4) = -0.1924500897298754E0; DPHI(3,12,5) = -0.2628917115316043E0; DPHI(1,8,8) = 0.2232909936926024E-1; DPHI(2,7,4) = -0.1795583781982711E0; DPHI(1,14,1) = 0.7044162180172908E-1; DPHI(1,11,6) = 0.7182335127930841E0; DPHI(3,6,4) = -0.3110042339640731E0; DPHI(2,13,5) = -0.2628917115316043E0; DPHI(1,3,8) = -0.1795583781982711E0; DPHI(1,4,3) = 0.7389594549567744E-1; DPHI(3,6,3) = 0.4072292788290108E0; DPHI(3,12,4) = -0.7044162180172908E-1; DPHI(1,18,4) = 0.7044162180172908E-1; DPHI(3,7,8) = -0.7389594549567744E-1; DPHI(3,9,7) = -0.2628917115316043E0; DPHI(2,17,3) = -0.2628917115316043E0; DPHI(1,18,7) = 0.2628917115316043E0; DPHI(2,2,8) = -0.128917115316044E-1; DPHI(3,4,2) = -0.128917115316044E-1; DPHI(2,11,7) = 0.7044162180172908E-1; DPHI(3,7,4) = -0.1795583781982711E0; DPHI(1,11,1) = -0.1924500897298754E0; DPHI(3,3,2) = -0.4072292788290108E0; DPHI(1,19,2) = -0.1924500897298754E0; DPHI(1,15,1) = 0.2628917115316043E0; DPHI(2,19,5) = 0.2628917115316043E0; DPHI(1,18,6) = 0.7044162180172908E-1; DPHI(2,4,2) = 0.128917115316044E-1; DPHI(1,3,4) = 0.128917115316044E-1; DPHI(3,6,8) = -0.1795583781982711E0; DPHI(1,6,7) = -0.3110042339640731E0; DPHI(1,12,2) = -0.2628917115316043E0; DPHI(3,15,1) = -0.7182335127930841E0; DPHI(1,9,6) = 0.1924500897298754E0; DPHI(3,3,7) = 0.7389594549567744E-1; DPHI(2,15,7) = 0.7044162180172908E-1; DPHI(2,18,1) = -0.7182335127930841E0; DPHI(3,5,3) = 0.128917115316044E-1; DPHI(2,4,5) = 0.128917115316044E-1; DPHI(3,8,5) = 0.4072292788290108E0; DPHI(2,12,8) = 0.7182335127930841E0; DPHI(1,12,1) = -0.7044162180172908E-1; DPHI(2,10,3) = 0.1924500897298754E0; DPHI(2,10,5) = -0.5156684612641721E-1; DPHI(1,10,8) = 0.2628917115316043E0; DPHI(1,5,7) = -0.4072292788290108E0; DPHI(2,12,3) = 0.5156684612641721E-1; DPHI(2,17,1) = -0.2628917115316043E0; DPHI(2,5,3) = -0.128917115316044E-1; DPHI(3,17,6) = 0.7044162180172908E-1; DPHI(2,11,8) = 0.2628917115316043E0; DPHI(3,8,1) = 0.128917115316044E-1; DPHI(1,6,4) = 0.128917115316044E-1; DPHI(1,14,5) = 0.7044162180172908E-1; DPHI(2,11,3) = 0.7044162180172908E-1; DPHI(1,4,6) = -0.4072292788290108E0; DPHI(3,2,7) = 0.1795583781982711E0; DPHI(3,11,1) = -0.2628917115316043E0; DPHI(1,6,5) = -0.1795583781982711E0; DPHI(3,14,5) = -0.5156684612641721E-1; DPHI(3,9,5) = -0.7044162180172908E-1; DPHI(2,12,7) = 0.1924500897298754E0; DPHI(3,19,1) = 0.2628917115316043E0; DPHI(2,19,3) = 0.2628917115316043E0; DPHI(1,9,5) = 0.5156684612641721E-1; DPHI(2,13,6) = -0.2628917115316043E0; DPHI(2,15,4) = 0.2628917115316043E0; DPHI(2,18,7) = 0.1924500897298754E0; DPHI(1,12,5) = -0.7044162180172908E-1; DPHI(2,15,6) = 0.7044162180172908E-1; DPHI(1,11,8) = 0.1924500897298754E0; DPHI(2,6,6) = 0.7389594549567744E-1; DPHI(1,15,8) = 0.7044162180172908E-1; DPHI(3,1,1) = 0.7389594549567744E-1; DPHI(3,7,3) = 0.128917115316044E-1; DPHI(3,11,4) = -0.7044162180172908E-1; DPHI(1,3,3) = -0.2232909936926024E-1; DPHI(1,2,7) = -0.1795583781982711E0; DPHI(3,4,4) = 0.2232909936926024E-1; DPHI(3,10,4) = -0.2628917115316043E0; DPHI(2,3,5) = -0.2232909936926024E-1; DPHI(1,16,7) = -0.7044162180172908E-1; DPHI(3,7,1) = 0.4072292788290108E0; DPHI(3,6,5) = -0.2232909936926024E-1; DPHI(3,8,8) = -0.1795583781982711E0; DPHI(3,15,8) = 0.5156684612641721E-1; DPHI(1,16,8) = -0.7044162180172908E-1; DPHI(1,15,2) = 0.2628917115316043E0; DPHI(1,11,5) = 0.1924500897298754E0; DPHI(2,17,7) = -0.2628917115316043E0; DPHI(1,11,3) = -0.5156684612641721E-1; DPHI(2,5,1) = 0.1795583781982711E0; DPHI(2,8,1) = 0.128917115316044E-1; DPHI(2,4,4) = -0.1795583781982711E0; DPHI(2,17,4) = -0.7044162180172908E-1; DPHI(3,15,6) = 0.1924500897298754E0; DPHI(2,20,6) = -0.1924500897298754E0; DPHI(3,16,7) = -0.1924500897298754E0; DPHI(2,9,1) = -0.7044162180172908E-1; DPHI(1,13,3) = -0.2628917115316043E0; DPHI(3,15,2) = 0.7182335127930841E0; DPHI(3,3,3) = 0.1795583781982711E0; DPHI(1,17,3) = -0.7182335127930841E0; DPHI(2,7,8) = -0.7389594549567744E-1; DPHI(1,11,7) = 0.5156684612641721E-1; DPHI(1,17,5) = 0.1924500897298754E0; DPHI(1,5,1) = 0.1795583781982711E0; DPHI(2,11,2) = 0.2628917115316043E0; DPHI(2,4,3) = -0.7389594549567744E-1; DPHI(3,13,3) = -0.1924500897298754E0; DPHI(1,4,4) = 0.1795583781982711E0; DPHI(3,2,6) = 0.2232909936926024E-1; DPHI(2,9,6) = -0.2628917115316043E0; DPHI(2,16,5) = 0.2628917115316043E0; DPHI(2,3,3) = -0.1795583781982711E0; DPHI(2,3,4) = -0.3110042339640731E0; DPHI(2,20,2) = -0.5156684612641721E-1; DPHI(1,15,3) = 0.7044162180172908E-1; DPHI(2,15,5) = 0.7044162180172908E-1; DPHI(3,9,3) = -0.2628917115316043E0; DPHI(2,2,4) = -0.4072292788290108E0; DPHI(3,5,5) = 0.128917115316044E-1; DPHI(1,13,7) = -0.2628917115316043E0; DPHI(2,16,1) = 0.7044162180172908E-1; DPHI(1,20,7) = -0.2628917115316043E0; DPHI(2,5,2) = 0.7389594549567744E-1; DPHI(1,18,3) = 0.2628917115316043E0; DPHI(1,1,4) = 0.3110042339640731E0; DPHI(3,15,3) = -0.1924500897298754E0; DPHI(2,13,2) = -0.7044162180172908E-1; DPHI(2,19,2) = 0.7044162180172908E-1; DPHI(3,8,4) = -0.7389594549567744E-1; DPHI(3,13,7) = -0.7182335127930841E0; DPHI(2,4,8) = -0.3110042339640731E0; DPHI(1,10,2) = 0.2628917115316043E0; DPHI(3,20,4) = 0.7044162180172908E-1; DPHI(3,19,6) = 0.2628917115316043E0; DPHI(1,6,8) = -0.1795583781982711E0; DPHI(1,9,8) = 0.7182335127930841E0; DPHI(3,18,5) = 0.7044162180172908E-1; DPHI(1,16,5) = -0.2628917115316043E0; DPHI(1,18,8) = 0.7044162180172908E-1; DPHI(1,17,1) = -0.1924500897298754E0; DPHI(1,18,5) = 0.2628917115316043E0; DPHI(2,6,8) = 0.2232909936926024E-1; DPHI(3,11,7) = -0.7044162180172908E-1; DPHI(3,6,2) = -0.1795583781982711E0; DPHI(1,12,4) = -0.2628917115316043E0; DPHI(3,10,3) = -0.2628917115316043E0; DPHI(2,16,6) = 0.2628917115316043E0; DPHI(1,9,7) = 0.1924500897298754E0; DPHI(3,9,2) = -0.7044162180172908E-1; DPHI(1,14,6) = 0.7044162180172908E-1; DPHI(2,9,8) = -0.2628917115316043E0; DPHI(3,13,4) = 0.1924500897298754E0; DPHI(1,16,4) = -0.7044162180172908E-1; DPHI(2,6,2) = 0.1795583781982711E0; DPHI(2,1,8) = -0.4072292788290108E0; DPHI(3,12,7) = -0.2628917115316043E0; DPHI(3,12,3) = -0.7044162180172908E-1; DPHI(3,11,5) = -0.2628917115316043E0; DPHI(3,14,6) = 0.5156684612641721E-1; DPHI(2,13,4) = -0.7044162180172908E-1; DPHI(3,16,4) = 0.5156684612641721E-1; DPHI(2,6,5) = 0.1795583781982711E0; DPHI(3,20,8) = 0.2628917115316043E0; DPHI(1,1,1) = 0.7389594549567744E-1; DPHI(2,2,7) = 0.2232909936926024E-1; DPHI(3,12,8) = -0.2628917115316043E0; DPHI(2,10,4) = 0.7182335127930841E0; DPHI(2,11,6) = 0.2628917115316043E0; DPHI(3,19,7) = 0.7044162180172908E-1; DPHI(1,13,4) = -0.2628917115316043E0; DPHI(3,1,6) = -0.128917115316044E-1; DPHI(3,12,6) = -0.2628917115316043E0; DPHI(3,18,7) = 0.7044162180172908E-1; DPHI(1,17,7) = 0.7182335127930841E0; DPHI(3,2,1) = 0.1795583781982711E0; DPHI(2,17,2) = -0.7044162180172908E-1; DPHI(2,1,5) = 0.1795583781982711E0; DPHI(2,5,7) = -0.4072292788290108E0; DPHI(1,9,1) = -0.5156684612641721E-1; DPHI(2,16,2) = 0.7044162180172908E-1; DPHI(1,13,1) = -0.7044162180172908E-1; DPHI(1,8,5) = -0.4072292788290108E0; DPHI(2,13,8) = -0.2628917115316043E0; DPHI(3,17,8) = 0.2628917115316043E0; DPHI(2,2,1) = 0.1795583781982711E0; DPHI(2,7,2) = 0.128917115316044E-1; DPHI(2,14,3) = -0.2628917115316043E0; DPHI(2,20,8) = 0.1924500897298754E0; DPHI(3,5,6) = -0.1795583781982711E0; DPHI(3,14,1) = -0.1924500897298754E0; DPHI(1,3,7) = -0.7389594549567744E-1; DPHI(2,14,7) = -0.7044162180172908E-1; DPHI(3,5,8) = -0.3110042339640731E0; DPHI(2,19,8) = 0.7044162180172908E-1; DPHI(3,13,1) = -0.5156684612641721E-1; DPHI(3,1,3) = 0.1795583781982711E0; DPHI(2,4,7) = -0.1795583781982711E0; DPHI(1,7,2) = 0.128917115316044E-1; DPHI(3,19,5) = 0.2628917115316043E0; DPHI(2,16,3) = 0.7044162180172908E-1; DPHI(3,12,1) = -0.7044162180172908E-1; DPHI(1,14,2) = 0.7044162180172908E-1; DPHI(2,17,5) = -0.2628917115316043E0; DPHI(3,8,3) = -0.2232909936926024E-1; DPHI(2,20,3) = 0.1924500897298754E0; DPHI(2,9,4) = -0.2628917115316043E0; DPHI(2,19,4) = 0.7044162180172908E-1; DPHI(2,20,4) = 0.5156684612641721E-1; DPHI(2,2,6) = 0.1795583781982711E0; DPHI(3,7,6) = -0.1795583781982711E0; DPHI(3,1,5) = 0.1795583781982711E0; DPHI(3,14,2) = 0.1924500897298754E0; DPHI(1,1,3) = 0.1795583781982711E0; DPHI(2,8,3) = -0.1795583781982711E0; DPHI(1,6,3) = 0.4072292788290108E0; DPHI(1,20,5) = -0.2628917115316043E0; DPHI(1,10,6) = 0.2628917115316043E0; DPHI(1,4,2) = 0.3110042339640731E0; DPHI(3,8,7) = 0.128917115316044E-1; DPHI(1,20,1) = -0.2628917115316043E0; DPHI(2,14,4) = -0.2628917115316043E0; DPHI(3,20,7) = 0.2628917115316043E0; DPHI(1,8,3) = 0.1795583781982711E0; DPHI(1,3,1) = 0.128917115316044E-1; DPHI(3,4,7) = 0.1795583781982711E0; DPHI(2,10,7) = 0.5156684612641721E-1; DPHI(3,2,3) = 0.3110042339640731E0; DPHI(1,2,5) = -0.7389594549567744E-1; DPHI(2,4,6) = 0.4072292788290108E0; DPHI(2,10,1) = -0.1924500897298754E0; DPHI(2,18,2) = -0.1924500897298754E0; DPHI(3,4,3) = 0.7389594549567744E-1; DPHI(1,2,4) = 0.4072292788290108E0; DPHI(1,13,5) = -0.7044162180172908E-1; DPHI(3,4,8) = -0.128917115316044E-1; DPHI(2,14,1) = -0.2628917115316043E0; DPHI(3,14,8) = 0.1924500897298754E0; DPHI(3,2,4) = -0.4072292788290108E0; DPHI(2,9,7) = -0.7044162180172908E-1; DPHI(2,2,3) = -0.128917115316044E-1; DPHI(1,9,3) = -0.1924500897298754E0; DPHI(1,11,4) = -0.1924500897298754E0; DPHI(1,1,5) = 0.2232909936926024E-1; DPHI(3,13,5) = -0.1924500897298754E0; DPHI(3,1,2) = 0.2232909936926024E-1; DPHI(3,5,2) = -0.7389594549567744E-1; DPHI(3,8,2) = -0.1795583781982711E0; DPHI(2,12,6) = -0.7182335127930841E0; DPHI(2,18,4) = 0.1924500897298754E0; DPHI(2,5,5) = 0.3110042339640731E0; DPHI(1,3,2) = 0.4072292788290108E0; DPHI(1,17,2) = -0.5156684612641721E-1; DPHI(1,3,6) = -0.3110042339640731E0; DPHI(2,1,2) = 0.1795583781982711E0; DPHI(3,2,2) = -0.128917115316044E-1; DPHI(3,17,3) = 0.2628917115316043E0; DPHI(2,5,6) = 0.1795583781982711E0; DPHI(1,19,6) = 0.1924500897298754E0; DPHI(1,20,8) = -0.7044162180172908E-1; DPHI(1,14,8) = 0.2628917115316043E0; DPHI(3,6,6) = -0.7389594549567744E-1; DPHI(1,7,1) = 0.4072292788290108E0; DPHI(1,11,2) = -0.7182335127930841E0; DPHI(3,6,1) = 0.128917115316044E-1; DPHI(1,7,3) = 0.128917115316044E-1; DPHI(1,4,1) = 0.1795583781982711E0; DPHI(2,15,1) = 0.2628917115316043E0; DPHI(1,15,7) = 0.7044162180172908E-1; DPHI(1,18,1) = 0.2628917115316043E0; DPHI(1,1,2) = 0.1795583781982711E0; DPHI(2,18,6) = -0.5156684612641721E-1; DPHI(1,19,8) = 0.5156684612641721E-1; DPHI(1,8,2) = 0.1795583781982711E0; DPHI(1,5,3) = 0.3110042339640731E0; DPHI(1,12,8) = -0.2628917115316043E0; DPHI(1,10,3) = 0.7044162180172908E-1; DPHI(1,10,5) = 0.7044162180172908E-1; DPHI(3,1,7) = 0.3110042339640731E0; DPHI(2,12,2) = -0.1924500897298754E0; DPHI(1,9,2) = -0.1924500897298754E0; DPHI(1,1,6) = -0.128917115316044E-1; DPHI(3,15,7) = -0.5156684612641721E-1; DPHI(1,12,3) = -0.7044162180172908E-1; DPHI(3,18,3) = 0.2628917115316043E0; DPHI(3,1,8) = -0.4072292788290108E0; DPHI(2,2,5) = 0.7389594549567744E-1; DPHI(2,17,6) = -0.7044162180172908E-1; DPHI(2,3,8) = -0.1795583781982711E0; DPHI(2,12,1) = -0.5156684612641721E-1; DPHI(2,8,5) = 0.4072292788290108E0; DPHI(3,10,2) = -0.2628917115316043E0; DPHI(3,20,2) = 0.7044162180172908E-1; DPHI(2,1,7) = -0.128917115316044E-1; DPHI(2,10,8) = 0.1924500897298754E0; DPHI(1,8,1) = 0.3110042339640731E0; DPHI(3,19,8) = 0.7044162180172908E-1; DPHI(1,9,4) = -0.7182335127930841E0; DPHI(1,7,5) = -0.3110042339640731E0; DPHI(3,4,6) = -0.4072292788290108E0; DPHI(2,3,7) = -0.7389594549567744E-1; DPHI(3,17,1) = 0.7044162180172908E-1; DPHI(3,18,8) = 0.7044162180172908E-1; DPHI(2,1,3) = 0.2232909936926024E-1; DPHI(3,11,8) = -0.7044162180172908E-1; DPHI(2,11,1) = 0.7044162180172908E-1; DPHI(2,14,5) = -0.7044162180172908E-1; DPHI(2,9,5) = -0.7044162180172908E-1; DPHI(3,16,5) = -0.7182335127930841E0; DPHI(1,8,6) = -0.128917115316044E-1; DPHI(1,1,7) = -0.128917115316044E-1; DPHI(1,12,7) = -0.7044162180172908E-1; DPHI(2,19,1) = 0.2628917115316043E0; DPHI(3,4,5) = 0.3110042339640731E0; DPHI(3,10,6) = -0.7044162180172908E-1; DPHI(1,13,6) = -0.7044162180172908E-1; DPHI(3,3,1) = 0.3110042339640731E0; DPHI(3,11,3) = -0.7044162180172908E-1; DPHI(1,15,4) = 0.7044162180172908E-1; DPHI(3,5,1) = -0.2232909936926024E-1; DPHI(3,7,2) = -0.3110042339640731E0; DPHI(3,20,3) = 0.7044162180172908E-1; DPHI(3,5,7) = 0.4072292788290108E0; DPHI(3,19,3) = 0.7044162180172908E-1; DPHI(3,13,6) = 0.1924500897298754E0; DPHI(3,15,4) = 0.1924500897298754E0; DPHI(2,7,6) = -0.2232909936926024E-1; DPHI(3,8,6) = -0.3110042339640731E0; DPHI(1,2,2) = 0.128917115316044E-1; DPHI(1,6,1) = 0.128917115316044E-1; DPHI(1,19,1) = -0.7182335127930841E0; DPHI(2,15,8) = 0.7044162180172908E-1; DPHI(1,7,4) = -0.2232909936926024E-1; DPHI(1,7,6) = -0.1795583781982711E0; DPHI(2,8,6) = 0.128917115316044E-1; DPHI(3,17,4) = 0.2628917115316043E0; DPHI(1,4,8) = -0.128917115316044E-1; DPHI(2,1,6) = 0.3110042339640731E0; DPHI(1,20,6) = -0.7044162180172908E-1; DPHI(2,16,7) = 0.2628917115316043E0; DPHI(1,19,7) = 0.1924500897298754E0; DPHI(2,16,8) = 0.2628917115316043E0; DPHI(2,15,2) = 0.2628917115316043E0; DPHI(1,19,4) = -0.5156684612641721E-1; DPHI(2,7,7) = -0.1795583781982711E0; DPHI(3,17,7) = 0.2628917115316043E0; DPHI(1,3,5) = -0.1795583781982711E0; DPHI(3,10,1) = -0.2628917115316043E0; DPHI(3,18,2) = 0.2628917115316043E0; DPHI(3,5,4) = -0.1795583781982711E0; DPHI(1,8,4) = 0.7389594549567744E-1; DPHI(3,3,5) = 0.1795583781982711E0; DPHI(3,9,1) = -0.7044162180172908E-1; DPHI(2,13,3) = -0.7044162180172908E-1; DPHI(2,3,1) = 0.128917115316044E-1; DPHI(1,20,2) = -0.7044162180172908E-1; DPHI(1,15,5) = 0.2628917115316043E0; DPHI(3,6,7) = 0.128917115316044E-1; DPHI(2,7,3) = -0.3110042339640731E0; DPHI(2,9,3) = -0.7044162180172908E-1; DPHI(2,11,4) = 0.2628917115316043E0; DPHI(2,3,6) = 0.128917115316044E-1; DPHI(2,4,1) = -0.2232909936926024E-1; DPHI(1,16,1) = -0.2628917115316043E0; DPHI(3,11,2) = -0.2628917115316043E0; DPHI(1,2,6) = -0.1795583781982711E0; DPHI(3,9,6) = -0.7044162180172908E-1; DPHI(2,6,3) = -0.4072292788290108E0; DPHI(2,8,2) = -0.2232909936926024E-1; DPHI(3,18,4) = 0.2628917115316043E0; DPHI(3,2,5) = 0.7389594549567744E-1; DPHI(2,15,3) = 0.2628917115316043E0; DPHI(3,15,5) = -0.1924500897298754E0; DPHI(1,13,2) = -0.7044162180172908E-1; DPHI(2,6,4) = -0.128917115316044E-1; DPHI(2,6,7) = -0.128917115316044E-1; DPHI(2,13,7) = -0.2628917115316043E0; DPHI(3,16,1) = -0.1924500897298754E0; DPHI(2,20,7) = 0.7182335127930841E0; DPHI(3,1,4) = -0.128917115316044E-1; DPHI(1,5,4) = 0.1795583781982711E0; DPHI(3,7,5) = 0.128917115316044E-1; DPHI(2,19,6) = 0.7044162180172908E-1; DPHI(2,2,2) = 0.3110042339640731E0; DPHI(2,18,3) = 0.7182335127930841E0; DPHI(1,17,6) = 0.5156684612641721E-1; DPHI(3,13,2) = 0.5156684612641721E-1; DPHI(3,19,2) = 0.2628917115316043E0; DPHI(2,3,2) = 0.4072292788290108E0; DPHI(2,10,2) = -0.7182335127930841E0; DPHI(2,6,1) = 0.3110042339640731E0; DPHI(1,8,7) = -0.128917115316044E-1; DPHI(2,14,8) = -0.7044162180172908E-1; DPHI(2,1,4) = -0.128917115316044E-1; DPHI(1,7,7) = -0.1795583781982711E0; DPHI(2,18,8) = 0.5156684612641721E-1; DPHI(2,18,5) = -0.1924500897298754E0; DPHI(2,5,8) = -0.128917115316044E-1; DPHI(1,17,8) = 0.1924500897298754E0; DPHI(1,2,1) = -0.2232909936926024E-1; DPHI(3,12,2) = -0.7044162180172908E-1; DPHI(1,16,6) = -0.2628917115316043E0; DPHI(1,1,8) = -0.4072292788290108E0; DPHI(2,9,2) = -0.2628917115316043E0; DPHI(3,10,5) = -0.7044162180172908E-1; DPHI(3,20,5) = 0.2628917115316043E0; DPHI(2,12,4) = 0.1924500897298754E0; DPHI(3,16,6) = 0.7182335127930841E0; DPHI(3,3,8) = 0.2232909936926024E-1; DPHI(1,5,8) = -0.128917115316044E-1; DPHI(3,10,8) = -0.7044162180172908E-1; DPHI(1,5,5) = -0.128917115316044E-1; DPHI(2,14,6) = -0.7044162180172908E-1; DPHI(2,8,7) = -0.3110042339640731E0; DPHI(3,9,8) = -0.2628917115316043E0; DPHI(2,16,4) = 0.7044162180172908E-1; };