text:
!**************************************************************
!* AceGen    6.702 Windows (4 May 16)                         *
!*           Co. J. Korelc  2013           19 Mar 17 12:20:48 *
!**************************************************************
! User     : Full professional version
! Notebook : JacobianFunction
! Evaluation time                 : 65 s    Mode  : Optimal
! Number of formulae              : 1200    Method: Automatic
! Subroutine                      : dRdX1 size: 22445
! Total size of Mathematica  code : 22445 subexpressions
! Total size of Fortran code      : 57420 bytes

!******************* S U B R O U T I N E **********************
SUBROUTINE dRdX1(v,x,props,statev,Fnew,dRdX)
USE SMSUtility
IMPLICIT NONE
LOGICAL b123
DOUBLE PRECISION v(1724),x(19),props(9),statev(19),Fnew(9),dRdX(19,19)
v(1559)=props(4)*x(1)
v(1540)=x(11)*x(14)+x(12)*x(18)+x(16)*x(19)
v(1541)=2d0*v(1540)
v(1538)=x(13)*x(16)+x(11)*x(17)+x(15)*x(18)
v(1537)=x(12)*x(15)+x(14)*x(17)+x(13)*x(19)
v(1539)=2d0*v(1537)
v(1536)=x(19)**2
v(1535)=x(18)**2
v(1534)=x(16)**2
v(1533)=x(15)**2
v(1532)=x(13)**2
v(1531)=x(12)**2
v(1530)=x(17)**2
v(1529)=x(14)**2
v(1528)=x(11)**2
v(1470)=x(14)*x(16)-x(11)*x(19)
v(1718)=-(statev(13)*v(1470))
v(1683)=-(statev(17)*v(1470))
v(1669)=-(statev(15)*v(1470))
v(1467)=-(x(13)*x(14))+x(17)*x(19)
v(1716)=-(statev(16)*v(1467))
v(1719)=v(1716)+v(1718)
v(1681)=-(statev(11)*v(1467))
v(1684)=v(1681)+v(1683)
v(1667)=-(statev(18)*v(1467))
v(1670)=v(1667)+v(1669)
v(1465)=x(12)*x(13)-x(15)*x(19)
v(1709)=-(statev(18)*v(1465))
v(1695)=-(statev(16)*v(1465))
v(1660)=-(statev(11)*v(1465))
v(1463)=-(x(12)*x(16))+x(18)*x(19)
v(1711)=-(statev(15)*v(1463))
v(1707)=v(1709)+v(1711)
v(1697)=-(statev(13)*v(1463))
v(1693)=v(1695)+v(1697)
v(1662)=-(statev(17)*v(1463))
v(1658)=v(1660)+v(1662)
v(1462)=2d0*x(19)
v(1461)=x(13)*x(15)+x(16)*x(18)+x(12)*x(19)
v(1551)=-(props(7)*v(1461))
v(1460)=x(11)*x(16)+x(13)*x(17)+x(14)*x(19)
v(1550)=-(props(7)*v(1460))
v(1456)=x(11)*x(12)-x(14)*x(18)
v(1700)=-(statev(17)*v(1456))
v(1686)=-(statev(15)*v(1456))
v(1672)=-(statev(13)*v(1456))
v(1455)=-(x(11)*x(15))+x(17)*x(18)
v(1702)=-(statev(14)*v(1455))
v(1699)=v(1700)+v(1702)
v(1688)=-(statev(12)*v(1455))
v(1685)=v(1686)+v(1688)
v(1674)=-(statev(19)*v(1455))
v(1671)=v(1672)+v(1674)
v(1454)=x(15)*x(16)-x(13)*x(18)
v(1708)=-(statev(12)*v(1454))
v(1712)=v(1708)+v(1711)
v(1710)=v(1708)+v(1709)
v(1706)=v(1707)+v(1708)
v(1694)=-(statev(19)*v(1454))
v(1698)=v(1694)+v(1697)
v(1696)=v(1694)+v(1695)
v(1692)=v(1693)+v(1694)
v(1659)=-(statev(14)*v(1454))
v(1663)=v(1659)+v(1662)
v(1661)=v(1659)+v(1660)
v(1657)=v(1658)+v(1659)
v(1453)=2d0*x(18)
v(1452)=x(12)*x(14)+x(15)*x(17)+x(11)*x(18)
v(1548)=-(props(7)*v(1452))
v(1451)=x(11)*x(13)-x(16)*x(17)
v(1715)=-(statev(19)*v(1451))
v(1717)=v(1715)+v(1716)
v(1713)=v(1715)+v(1718)
v(1714)=v(1713)+v(1716)
v(1680)=-(statev(14)*v(1451))
v(1682)=v(1680)+v(1681)
v(1678)=v(1680)+v(1683)
v(1679)=v(1678)+v(1681)
v(1666)=-(statev(12)*v(1451))
v(1668)=v(1666)+v(1667)
v(1664)=v(1666)+v(1669)
v(1665)=v(1664)+v(1667)
v(1450)=x(14)*x(15)-x(12)*x(17)
v(1704)=-(statev(11)*v(1450))
v(1705)=v(1702)+v(1704)
v(1701)=v(1700)+v(1704)
v(1703)=v(1701)+v(1702)
v(1690)=-(statev(18)*v(1450))
v(1691)=v(1688)+v(1690)
v(1687)=v(1686)+v(1690)
v(1689)=v(1687)+v(1688)
v(1676)=-(statev(16)*v(1450))
v(1677)=v(1674)+v(1676)
v(1673)=v(1672)+v(1676)
v(1675)=v(1673)+v(1674)
v(1449)=2d0*x(17)
v(1448)=2d0*x(16)
v(1447)=2d0*x(15)
v(1446)=2d0*x(14)
v(1445)=2d0*x(13)
v(1444)=2d0*x(12)
v(1443)=2d0*x(11)
v(1431)=x(3)*x(4)-x(10)*x(6)
v(1646)=-(statev(9)*v(1431))
v(1632)=-(statev(7)*v(1431))
v(1595)=-(statev(2)*v(1431))
v(1428)=-(x(3)*x(7))+x(10)*x(9)
v(1648)=-(statev(6)*v(1428))
v(1644)=v(1646)+v(1648)
v(1634)=-(statev(4)*v(1428))
v(1630)=v(1632)+v(1634)
v(1597)=-(statev(8)*v(1428))
v(1593)=v(1595)+v(1597)
v(1426)=-(x(10)*x(2))+x(5)*x(7)
v(1655)=-(statev(4)*v(1426))
v(1620)=-(statev(8)*v(1426))
v(1605)=-(statev(6)*v(1426))
v(1424)=-(x(4)*x(5))+x(10)*x(8)
v(1653)=-(statev(7)*v(1424))
v(1656)=v(1653)+v(1655)
v(1618)=-(statev(2)*v(1424))
v(1621)=v(1618)+v(1620)
v(1603)=-(statev(9)*v(1424))
v(1606)=v(1603)+v(1605)
v(1420)=x(6)*x(7)-x(4)*x(9)
v(1645)=-(statev(3)*v(1420))
v(1649)=v(1645)+v(1648)
v(1647)=v(1645)+v(1646)
v(1643)=v(1644)+v(1645)
v(1631)=-(statev(10)*v(1420))
v(1635)=v(1631)+v(1634)
v(1633)=v(1631)+v(1632)
v(1629)=v(1630)+v(1631)
v(1594)=-(statev(5)*v(1420))
v(1598)=v(1594)+v(1597)
v(1596)=v(1594)+v(1595)
v(1592)=v(1593)+v(1594)
v(1419)=x(2)*x(3)-x(5)*x(9)
v(1637)=-(statev(8)*v(1419))
v(1623)=-(statev(6)*v(1419))
v(1609)=-(statev(4)*v(1419))
v(1418)=-(x(2)*x(6))+x(8)*x(9)
v(1639)=-(statev(5)*v(1418))
v(1636)=v(1637)+v(1639)
v(1625)=-(statev(3)*v(1418))
v(1622)=v(1623)+v(1625)
v(1611)=-(statev(10)*v(1418))
v(1608)=v(1609)+v(1611)
v(1417)=x(2)*x(4)-x(7)*x(8)
v(1652)=-(statev(10)*v(1417))
v(1654)=v(1652)+v(1653)
v(1650)=v(1652)+v(1655)
v(1651)=v(1650)+v(1653)
v(1617)=-(statev(5)*v(1417))
v(1619)=v(1617)+v(1618)
v(1615)=v(1617)+v(1620)
v(1616)=v(1615)+v(1618)
v(1602)=-(statev(3)*v(1417))
v(1604)=v(1602)+v(1603)
v(1600)=v(1602)+v(1605)
v(1601)=v(1600)+v(1603)
v(1416)=x(5)*x(6)-x(3)*x(8)
v(1641)=-(statev(2)*v(1416))
v(1642)=v(1639)+v(1641)
v(1638)=v(1637)+v(1641)
v(1640)=v(1638)+v(1639)
v(1627)=-(statev(9)*v(1416))
v(1628)=v(1625)+v(1627)
v(1624)=v(1623)+v(1627)
v(1626)=v(1624)+v(1625)
v(1613)=-(statev(7)*v(1416))
v(1614)=v(1611)+v(1613)
v(1610)=v(1609)+v(1613)
v(1612)=v(1610)+v(1611)
v(1415)=-statev(1)+x(1)
v(1414)=0.15d1*props(6)*props(8)
v(1413)=1d0-props(6)
v(1563)=props(8)*v(1413)
v(186)=v(1418)*x(10)+v(1419)*x(4)+v(1416)*x(7)
v(1442)=-(x(7)/v(186))
v(1441)=-(x(3)/v(186))
v(1440)=-(x(5)/v(186))
v(1439)=-(x(4)/v(186))
v(1438)=x(10)/v(186)
v(1437)=-(x(2)/v(186))
v(1436)=x(8)/v(186)
v(1435)=-(x(6)/v(186))
v(1434)=x(9)/v(186)
v(188)=1d0/v(186)**2
v(196)=-(v(1418)*v(188))
v(231)=v(1418)*v(196)
v(220)=v(1419)*v(196)
v(213)=v(1417)*v(196)
v(193)=-(v(1416)*v(188))
v(1425)=-(v(1424)*v(193))
v(238)=v(1416)*v(193)
v(229)=v(1418)*v(193)
v(226)=v(1417)*v(193)
v(217)=v(1419)*v(193)
v(191)=-(v(1420)*v(188))
v(1421)=-(v(1418)*v(191))
v(1214)=statev(3)*v(1421)
v(1209)=statev(10)*v(1421)
v(1195)=statev(5)*v(1421)
v(239)=v(1420)*v(191)
v(230)=v(1419)*v(191)
v(208)=v(1417)*v(191)
v(190)=-(v(1419)*v(188))
v(1429)=-(v(1428)*v(190))
v(1427)=-(v(1426)*v(190))
v(228)=v(1417)*v(190)
v(214)=v(1419)*v(190)
v(189)=-(v(1417)*v(188))
v(1423)=-(v(1420)*v(189))
v(1422)=-(v(1418)*v(189))
v(1218)=statev(10)*v(1422)
v(1204)=statev(5)*v(1422)
v(1199)=statev(3)*v(1422)
v(1086)=statev(10)*v(1423)
v(1078)=statev(5)*v(1423)
v(1073)=statev(3)*v(1423)
v(206)=v(1417)*v(189)
v(1183)=statev(2)*v(1425)
v(1175)=statev(9)*v(1425)
v(1170)=statev(7)*v(1425)
v(195)=-(v(1424)*v(188))
v(237)=v(1419)*v(195)
v(225)=v(1424)*v(195)
v(212)=v(1417)*v(195)
v(1105)=statev(8)*v(1427)
v(1100)=statev(6)*v(1427)
v(1095)=statev(4)*v(1427)
v(192)=-(v(1426)*v(188))
v(1430)=-(v(1428)*v(192))
v(241)=v(1426)*v(192)
v(222)=v(1424)*v(192)
v(209)=v(1417)*v(192)
v(1158)=statev(4)*v(1430)
v(1153)=statev(8)*v(1429)
v(1148)=statev(6)*v(1429)
v(1144)=statev(8)*v(1430)
v(1140)=statev(4)*v(1429)
v(1136)=statev(6)*v(1430)
v(232)=v(1428)*v(191)
v(194)=-(v(1428)*v(188))
v(240)=v(1417)*v(194)
v(235)=v(1428)*v(194)
v(236)=v(1431)*v(196)
v(234)=v(1431)*v(190)
v(224)=v(1431)*v(192)
v(221)=v(1431)*v(189)
v(204)=v(1431)*v(195)
v(203)=v(1431)*v(194)
v(202)=v(1431)*v(193)
v(200)=v(1431)*v(191)
v(187)=-(v(1431)*v(188))
v(1433)=-(v(1416)*v(187))
v(1432)=-(v(1424)*v(187))
v(1187)=statev(9)*v(1432)
v(1179)=statev(7)*v(1432)
v(1165)=statev(2)*v(1432)
v(1127)=statev(9)*v(1433)
v(1122)=statev(7)*v(1433)
v(1114)=statev(2)*v(1433)
v(197)=v(1431)*v(187)
v(1217)=statev(7)*v(1436)
v(1216)=statev(4)*v(1437)
v(1213)=statev(6)*v(1434)
v(1212)=statev(9)*v(1435)
v(1208)=statev(4)*v(1434)
v(1207)=statev(7)*v(1435)
v(1203)=statev(2)*v(1436)
v(1202)=statev(8)*v(1437)
v(1198)=statev(9)*v(1436)
v(1197)=statev(6)*v(1437)
v(1194)=statev(8)*v(1434)
v(1193)=statev(2)*v(1435)
v(1186)=statev(6)*v(1438)
v(1185)=statev(3)*v(1439)
v(1182)=statev(5)*v(1436)
v(1181)=statev(8)*v(1440)
v(1178)=statev(4)*v(1438)
v(1177)=statev(10)*v(1439)
v(1174)=statev(3)*v(1436)
v(1173)=statev(6)*v(1440)
v(1169)=statev(10)*v(1436)
v(1168)=statev(4)*v(1440)
v(1164)=statev(8)*v(1438)
v(1163)=statev(5)*v(1439)
v(1157)=statev(7)*v(1438)
v(1156)=statev(10)*v(1442)
v(1152)=statev(5)*v(1434)
v(1151)=statev(2)*v(1441)
v(1147)=statev(3)*v(1434)
v(1146)=statev(9)*v(1441)
v(1143)=statev(2)*v(1438)
v(1142)=statev(5)*v(1442)
v(1139)=statev(10)*v(1434)
v(1138)=statev(7)*v(1441)
v(1135)=statev(9)*v(1438)
v(1134)=statev(3)*v(1442)
v(1126)=-(statev(3)*v(1435))
v(1125)=statev(6)*v(1441)
v(1121)=-(statev(10)*v(1435))
v(1120)=statev(4)*v(1441)
v(1113)=-(statev(5)*v(1435))
v(1112)=statev(8)*v(1441)
v(1104)=-(statev(2)*v(1440))
v(1103)=statev(5)*v(1437)
v(1099)=-(statev(9)*v(1440))
v(1098)=statev(3)*v(1437)
v(1094)=-(statev(7)*v(1440))
v(1093)=statev(10)*v(1437)
v(1085)=-(statev(4)*v(1442))
v(1084)=statev(7)*v(1439)
v(1077)=-(statev(8)*v(1442))
v(1076)=statev(2)*v(1439)
v(1072)=-(statev(6)*v(1442))
v(1071)=statev(9)*v(1439)
v(219)=v(1440)+v(237)
v(215)=-v(1434)+v(230)
v(211)=v(1442)+v(240)
v(210)=-v(1436)+v(226)
v(207)=-v(1437)+v(228)
v(205)=v(1435)+v(236)
v(201)=-v(1438)+v(224)
v(199)=-v(1441)+v(234)
v(198)=-v(1439)+v(221)
v(482)=-v(1443)/3d0
v(483)=-v(1444)/3d0
v(484)=-v(1445)/3d0
v(485)=-v(1446)/3d0
v(486)=-v(1447)/3d0
v(487)=-v(1448)/3d0
v(488)=-v(1449)/3d0
v(489)=-v(1453)/3d0
v(1008)=v(1456)*x(13)+v(1450)*x(16)+v(1455)*x(19)
v(1583)=-(x(16)/v(1008))
v(1582)=-(x(12)/v(1008))
v(1581)=-(x(14)/v(1008))
v(1580)=-(x(13)/v(1008))
v(1579)=x(19)/v(1008)
v(1578)=-(x(11)/v(1008))
v(1577)=x(17)/v(1008)
v(1576)=-(x(15)/v(1008))
v(1575)=x(18)/v(1008)
v(1010)=1d0/v(1008)**2
v(1018)=-(v(1010)*v(1455))
v(1015)=-(v(1010)*v(1450))
v(1469)=-(v(1015)*v(1467))
v(1013)=-(v(1010)*v(1454))
v(1457)=-(v(1013)*v(1455))
v(1406)=statev(12)*v(1457)
v(1401)=statev(19)*v(1457)
v(1387)=statev(14)*v(1457)
v(1012)=-(v(1010)*v(1456))
v(1471)=-(v(1012)*v(1470))
v(1464)=-(v(1012)*v(1463))
v(1011)=-(v(1010)*v(1451))
v(1459)=-(v(1011)*v(1454))
v(1458)=-(v(1011)*v(1455))
v(1410)=statev(19)*v(1458)
v(1396)=statev(14)*v(1458)
v(1391)=statev(12)*v(1458)
v(1278)=statev(19)*v(1459)
v(1270)=statev(14)*v(1459)
v(1265)=statev(12)*v(1459)
v(490)=-v(1462)/3d0
v(1345)=statev(17)*v(1464)
v(1340)=statev(15)*v(1464)
v(1332)=statev(13)*v(1464)
v(1016)=-(v(1010)*v(1463))
v(1009)=-(v(1010)*v(1465))
v(1468)=-(v(1009)*v(1467))
v(1466)=-(v(1009)*v(1450))
v(1319)=statev(18)*v(1466)
v(1314)=statev(16)*v(1466)
v(1306)=statev(11)*v(1466)
v(1379)=statev(18)*v(1468)
v(1375)=statev(11)*v(1469)
v(1371)=statev(16)*v(1468)
v(1367)=statev(18)*v(1469)
v(1362)=statev(16)*v(1469)
v(1357)=statev(11)*v(1468)
v(1017)=-(v(1010)*v(1467))
v(1297)=statev(17)*v(1471)
v(1292)=statev(15)*v(1471)
v(1287)=statev(13)*v(1471)
v(1014)=-(v(1010)*v(1470))
v(1472)=-(v(1014)*v(1463))
v(1350)=statev(13)*v(1472)
v(1336)=statev(17)*v(1472)
v(1328)=statev(15)*v(1472)
v(317)=-(Fnew(1)*v(1425))
v(305)=Fnew(1)*v(202)
v(269)=Fnew(1)*v(204)
v(333)=-(Fnew(2)*v(1421))
v(321)=Fnew(2)*v(208)
v(282)=Fnew(2)*v(213)
v(345)=-(Fnew(3)*v(1430))
v(338)=-(Fnew(3)*v(1427))
v(295)=-(Fnew(3)*v(1429))
v(310)=-(Fnew(4)*v(1421))
v(307)=Fnew(4)*v(213)
v(273)=Fnew(4)*v(208)
v(326)=-(Fnew(5)*v(1430))
v(323)=-(Fnew(5)*v(1429))
v(286)=-(Fnew(5)*v(1427))
v(343)=-(Fnew(6)*v(1425))
v(335)=Fnew(6)*v(204)
v(299)=Fnew(6)*v(202)
v(319)=Fnew(7)*v(220)+Fnew(1)*v(229)+Fnew(4)*v(231)
v(318)=Fnew(7)*v(219)+Fnew(4)*v(226)+v(317)
v(315)=-(Fnew(7)*v(1429))
v(316)=Fnew(4)*v(230)+Fnew(1)*v(234)+v(315)
v(314)=Fnew(7)*v(217)+Fnew(4)*v(229)+Fnew(1)*v(238)
v(312)=-(Fnew(7)*v(1427))
v(313)=Fnew(4)*v(228)+Fnew(1)*v(237)+v(312)
v(311)=Fnew(7)*v(215)+Fnew(1)*v(236)+v(310)
v(309)=Fnew(7)*v(214)+Fnew(1)*v(217)+Fnew(4)*v(220)
v(308)=Fnew(7)*v(207)+Fnew(1)*v(210)+v(307)
v(306)=Fnew(7)*v(199)+Fnew(4)*v(205)+v(305)
v(280)=Fnew(1)*v(226)+Fnew(7)*v(228)+v(307)
v(279)=Fnew(4)*v(212)+Fnew(7)*v(222)+Fnew(1)*v(225)
v(277)=-(Fnew(7)*v(1430))
v(278)=Fnew(4)*v(211)+Fnew(1)*v(224)+v(277)
v(276)=Fnew(4)*v(210)+Fnew(7)*v(237)+v(317)
v(275)=Fnew(4)*v(209)+Fnew(1)*v(222)+Fnew(7)*v(241)
v(274)=Fnew(1)*v(221)+Fnew(7)*v(240)+v(273)
v(272)=Fnew(4)*v(207)+Fnew(1)*v(219)+v(312)
v(271)=Fnew(4)*v(206)+Fnew(7)*v(209)+Fnew(1)*v(212)
v(270)=Fnew(4)*v(198)+Fnew(7)*v(201)+v(269)
v(250)=Fnew(1)*v(205)+Fnew(7)*v(230)+v(310)
v(249)=Fnew(4)*v(221)+Fnew(7)*v(224)+v(269)
v(248)=Fnew(1)*v(203)+Fnew(4)*v(232)+Fnew(7)*v(235)
v(247)=Fnew(7)*v(234)+Fnew(4)*v(236)+v(305)
v(246)=Fnew(1)*v(201)+Fnew(4)*v(240)+v(277)
v(245)=Fnew(1)*v(200)+Fnew(7)*v(232)+Fnew(4)*v(239)
v(244)=Fnew(1)*v(199)+Fnew(4)*v(215)+v(315)
v(243)=Fnew(1)*v(198)+Fnew(7)*v(211)+v(273)
v(242)=Fnew(1)*v(197)+Fnew(4)*v(200)+Fnew(7)*v(203)
v(334)=Fnew(8)*v(205)+Fnew(5)*v(230)+v(333)
v(331)=Fnew(8)*v(204)
v(332)=Fnew(2)*v(221)+Fnew(5)*v(224)+v(331)
v(330)=Fnew(8)*v(203)+Fnew(2)*v(232)+Fnew(5)*v(235)
v(328)=Fnew(8)*v(202)
v(329)=Fnew(5)*v(234)+Fnew(2)*v(236)+v(328)
v(327)=Fnew(8)*v(201)+Fnew(2)*v(240)+v(326)
v(325)=Fnew(8)*v(200)+Fnew(5)*v(232)+Fnew(2)*v(239)
v(324)=Fnew(8)*v(199)+Fnew(2)*v(215)+v(323)
v(322)=Fnew(8)*v(198)+Fnew(5)*v(211)+v(321)
v(320)=Fnew(8)*v(197)+Fnew(2)*v(200)+Fnew(5)*v(203)
v(292)=Fnew(5)*v(220)+Fnew(8)*v(229)+Fnew(2)*v(231)
v(290)=-(Fnew(8)*v(1425))
v(291)=Fnew(5)*v(219)+Fnew(2)*v(226)+v(290)
v(289)=Fnew(2)*v(230)+Fnew(8)*v(234)+v(323)
v(288)=Fnew(5)*v(217)+Fnew(2)*v(229)+Fnew(8)*v(238)
v(287)=Fnew(2)*v(228)+Fnew(8)*v(237)+v(286)
v(285)=Fnew(5)*v(215)+Fnew(8)*v(236)+v(333)
v(284)=Fnew(5)*v(214)+Fnew(8)*v(217)+Fnew(2)*v(220)
v(283)=Fnew(5)*v(207)+Fnew(8)*v(210)+v(282)
v(281)=Fnew(5)*v(199)+Fnew(2)*v(205)+v(328)
v(259)=Fnew(8)*v(226)+Fnew(5)*v(228)+v(282)
v(258)=Fnew(2)*v(212)+Fnew(5)*v(222)+Fnew(8)*v(225)
v(257)=Fnew(2)*v(211)+Fnew(8)*v(224)+v(326)
v(256)=Fnew(2)*v(210)+Fnew(5)*v(237)+v(290)
v(255)=Fnew(2)*v(209)+Fnew(8)*v(222)+Fnew(5)*v(241)
v(254)=Fnew(8)*v(221)+Fnew(5)*v(240)+v(321)
v(253)=Fnew(2)*v(207)+Fnew(8)*v(219)+v(286)
v(252)=Fnew(2)*v(206)+Fnew(5)*v(209)+Fnew(8)*v(212)
v(251)=Fnew(2)*v(198)+Fnew(5)*v(201)+v(331)
v(348)=Fnew(9)*v(213)
v(349)=Fnew(6)*v(226)+Fnew(3)*v(228)+v(348)
v(347)=Fnew(9)*v(212)+Fnew(3)*v(222)+Fnew(6)*v(225)
v(346)=Fnew(9)*v(211)+Fnew(6)*v(224)+v(345)
v(344)=Fnew(9)*v(210)+Fnew(3)*v(237)+v(343)
v(342)=Fnew(9)*v(209)+Fnew(6)*v(222)+Fnew(3)*v(241)
v(340)=Fnew(9)*v(208)
v(341)=Fnew(6)*v(221)+Fnew(3)*v(240)+v(340)
v(339)=Fnew(9)*v(207)+Fnew(6)*v(219)+v(338)
v(337)=Fnew(9)*v(206)+Fnew(3)*v(209)+Fnew(6)*v(212)
v(336)=Fnew(9)*v(198)+Fnew(3)*v(201)+v(335)
v(303)=-(Fnew(9)*v(1421))
v(304)=Fnew(6)*v(205)+Fnew(3)*v(230)+v(303)
v(302)=Fnew(9)*v(221)+Fnew(3)*v(224)+v(335)
v(301)=Fnew(6)*v(203)+Fnew(9)*v(232)+Fnew(3)*v(235)
v(300)=Fnew(3)*v(234)+Fnew(9)*v(236)+v(299)
v(298)=Fnew(6)*v(201)+Fnew(9)*v(240)+v(345)
v(297)=Fnew(6)*v(200)+Fnew(3)*v(232)+Fnew(9)*v(239)
v(296)=Fnew(6)*v(199)+Fnew(9)*v(215)+v(295)
v(294)=Fnew(6)*v(198)+Fnew(3)*v(211)+v(340)
v(293)=Fnew(6)*v(197)+Fnew(9)*v(200)+Fnew(3)*v(203)
v(268)=Fnew(3)*v(220)+Fnew(6)*v(229)+Fnew(9)*v(231)
v(267)=Fnew(3)*v(219)+Fnew(9)*v(226)+v(343)
v(266)=Fnew(9)*v(230)+Fnew(6)*v(234)+v(295)
v(265)=Fnew(3)*v(217)+Fnew(9)*v(229)+Fnew(6)*v(238)
v(264)=Fnew(9)*v(228)+Fnew(6)*v(237)+v(338)
v(263)=Fnew(3)*v(215)+Fnew(6)*v(236)+v(303)
v(262)=Fnew(3)*v(214)+Fnew(6)*v(217)+Fnew(9)*v(220)
v(261)=Fnew(3)*v(207)+Fnew(6)*v(210)+v(348)
v(260)=Fnew(3)*v(199)+Fnew(9)*v(205)+v(299)
v(57)=v(1431)/v(186)
v(59)=v(1417)/v(186)
v(60)=v(1419)/v(186)
v(61)=v(1424)/v(186)
v(62)=v(1418)/v(186)
v(63)=v(1428)/v(186)
v(64)=v(1416)/v(186)
v(65)=v(1420)/v(186)
v(66)=v(1426)/v(186)
v(67)=Fnew(1)*v(57)+Fnew(7)*v(63)+Fnew(4)*v(65)
v(68)=Fnew(2)*v(59)+Fnew(8)*v(61)+Fnew(5)*v(66)
v(69)=Fnew(3)*v(60)+Fnew(9)*v(62)+Fnew(6)*v(64)
v(70)=Fnew(4)*v(59)+Fnew(1)*v(61)+Fnew(7)*v(66)
v(71)=Fnew(5)*v(60)+Fnew(2)*v(62)+Fnew(8)*v(64)
v(72)=Fnew(6)*v(57)+Fnew(3)*v(63)+Fnew(9)*v(65)
v(73)=Fnew(7)*v(60)+Fnew(4)*v(62)+Fnew(1)*v(64)
v(1489)=v(342)*v(69)+v(255)*v(71)+v(275)*v(73)
v(1487)=v(347)*v(69)+v(258)*v(71)+v(279)*v(73)
v(1485)=v(337)*v(69)+v(252)*v(71)+v(271)*v(73)
v(1481)=v(264)*v(69)+v(287)*v(71)+v(313)*v(73)
v(1480)=v(267)*v(69)+v(291)*v(71)+v(318)*v(73)
v(1479)=v(261)*v(69)+v(283)*v(71)+v(308)*v(73)
v(1478)=v(301)*v(69)+v(330)*v(71)+v(248)*v(73)
v(1477)=v(293)*v(69)+v(320)*v(71)+v(242)*v(73)
v(1476)=v(297)*v(69)+v(325)*v(71)+v(245)*v(73)
v(1475)=v(266)*v(69)+v(289)*v(71)+v(316)*v(73)
v(1474)=v(260)*v(69)+v(281)*v(71)+v(306)*v(73)
v(1473)=v(263)*v(69)+v(285)*v(71)+v(311)*v(73)
v(394)=2d0*(v(268)*v(69)+v(292)*v(71)+v(319)*v(73))
v(403)=-v(394)/3d0
v(393)=2d0*v(1480)
v(402)=-v(393)/3d0
v(392)=2d0*v(1475)
v(401)=-v(392)/3d0
v(391)=2d0*(v(265)*v(69)+v(288)*v(71)+v(314)*v(73))
v(400)=-v(391)/3d0
v(390)=2d0*v(1481)
v(399)=-v(390)/3d0
v(389)=2d0*v(1473)
v(398)=-v(389)/3d0
v(388)=2d0*(v(262)*v(69)+v(284)*v(71)+v(309)*v(73))
v(397)=-v(388)/3d0
v(387)=2d0*v(1479)
v(396)=-v(387)/3d0
v(386)=2d0*v(1474)
v(395)=-v(386)/3d0
v(74)=Fnew(8)*v(57)+Fnew(5)*v(63)+Fnew(2)*v(65)
v(1490)=v(279)*v(67)+v(347)*v(72)+v(258)*v(74)
v(1488)=v(271)*v(67)+v(337)*v(72)+v(252)*v(74)
v(1486)=v(275)*v(67)+v(342)*v(72)+v(255)*v(74)
v(1484)=v(249)*v(67)+v(302)*v(72)+v(332)*v(74)
v(1483)=v(243)*v(67)+v(294)*v(72)+v(322)*v(74)
v(1482)=v(246)*v(67)+v(298)*v(72)+v(327)*v(74)
v(433)=v(1473)+v(304)*v(69)+v(334)*v(71)+v(250)*v(73)
v(431)=v(1478)+v(316)*v(67)+v(266)*v(72)+v(289)*v(74)
v(430)=v(1474)+v(300)*v(69)+v(329)*v(71)+v(247)*v(73)
v(428)=v(1476)+v(311)*v(67)+v(263)*v(72)+v(285)*v(74)
v(427)=v(1475)+v(296)*v(69)+v(324)*v(71)+v(244)*v(73)
v(425)=v(1477)+v(306)*v(67)+v(260)*v(72)+v(281)*v(74)
v(421)=v(272)*v(67)+v(339)*v(72)+v(253)*v(74)
v(417)=v(280)*v(67)+v(349)*v(72)+v(259)*v(74)
v(413)=v(276)*v(67)+v(344)*v(72)+v(256)*v(74)
v(358)=2d0*v(1476)
v(367)=-v(358)/3d0
v(357)=2d0*v(1484)
v(366)=-v(357)/3d0
v(356)=2d0*(v(248)*v(67)+v(301)*v(72)+v(330)*v(74))
v(365)=-v(356)/3d0
v(355)=2d0*v(1477)
v(364)=-v(355)/3d0
v(354)=2d0*v(1482)
v(363)=-v(354)/3d0
v(353)=2d0*(v(245)*v(67)+v(297)*v(72)+v(325)*v(74))
v(362)=-v(353)/3d0
v(352)=2d0*v(1478)
v(361)=-v(352)/3d0
v(351)=2d0*v(1483)
v(360)=-v(351)/3d0
v(350)=2d0*(v(242)*v(67)+v(293)*v(72)+v(320)*v(74))
v(359)=-v(350)/3d0
v(75)=Fnew(9)*v(59)+Fnew(6)*v(61)+Fnew(3)*v(66)
v(424)=v(1479)+v(349)*v(69)+v(259)*v(71)+v(280)*v(73)
v(423)=v(1487)+v(291)*v(68)+v(318)*v(70)+v(267)*v(75)
v(422)=v(421)+v(289)*v(68)+v(316)*v(70)+v(266)*v(75)
v(420)=v(1480)+v(344)*v(69)+v(256)*v(71)+v(276)*v(73)
v(419)=v(1489)+v(287)*v(68)+v(313)*v(70)+v(264)*v(75)
v(418)=v(417)+v(285)*v(68)+v(311)*v(70)+v(263)*v(75)
v(416)=v(1481)+v(339)*v(69)+v(253)*v(71)+v(272)*v(73)
v(415)=v(1485)+v(283)*v(68)+v(308)*v(70)+v(261)*v(75)
v(414)=v(413)+v(281)*v(68)+v(306)*v(70)+v(260)*v(75)
v(412)=v(417)+v(334)*v(68)+v(250)*v(70)+v(304)*v(75)
v(426)=v(412)-2d0*v(417)+v(418)
v(411)=v(1490)+v(332)*v(68)+v(249)*v(70)+v(302)*v(75)
v(410)=v(1482)+v(278)*v(67)+v(346)*v(72)+v(257)*v(74)
v(409)=v(413)+v(329)*v(68)+v(247)*v(70)+v(300)*v(75)
v(432)=v(409)-2d0*v(413)+v(414)
v(408)=v(1486)+v(327)*v(68)+v(246)*v(70)+v(298)*v(75)
v(407)=v(1483)+v(274)*v(67)+v(341)*v(72)+v(254)*v(74)
v(406)=v(421)+v(324)*v(68)+v(244)*v(70)+v(296)*v(75)
v(429)=v(406)-2d0*v(421)+v(422)
v(405)=v(1488)+v(322)*v(68)+v(243)*v(70)+v(294)*v(75)
v(404)=v(1484)+v(270)*v(67)+v(336)*v(72)+v(251)*v(74)
v(376)=2d0*v(1485)
v(385)=-v(376)/3d0
v(375)=2d0*(v(258)*v(68)+v(279)*v(70)+v(347)*v(75))
v(384)=-v(375)/3d0
v(374)=2d0*v(1486)
v(383)=-v(374)/3d0
v(373)=2d0*v(1487)
v(382)=-v(373)/3d0
v(372)=2d0*(v(255)*v(68)+v(275)*v(70)+v(342)*v(75))
v(381)=-v(372)/3d0
v(371)=2d0*v(1488)
v(380)=-v(371)/3d0
v(370)=2d0*v(1489)
v(379)=-v(370)/3d0
v(369)=2d0*(v(252)*v(68)+v(271)*v(70)+v(337)*v(75))
v(378)=-v(369)/3d0
v(368)=2d0*v(1490)
v(377)=-v(368)/3d0
v(76)=(v(67)*v(67))+(v(72)*v(72))+(v(74)*v(74))
v(88)=-v(76)/3d0
v(77)=(v(68)*v(68))+(v(70)*v(70))+(v(75)*v(75))
v(89)=-v(77)/3d0
v(78)=(v(69)*v(69))+(v(71)*v(71))+(v(73)*v(73))
v(609)=(2d0/3d0)*v(78)+v(88)+v(89)
v(84)=-v(78)/3d0
v(599)=(2d0/3d0)*v(77)+v(84)+v(88)
v(589)=(2d0/3d0)*v(76)+v(84)+v(89)
v(79)=v(67)*v(70)+v(68)*v(74)+v(72)*v(75)
v(1491)=2d0*v(79)
v(439)=-(v(1491)*v(78))
v(436)=(v(79)*v(79))
v(1495)=-v(436)+v(76)*v(77)
v(80)=v(68)*v(71)+v(70)*v(73)+v(69)*v(75)
v(442)=v(1491)*v(80)
v(440)=(-2d0)*v(76)*v(80)
v(434)=(v(80)*v(80))
v(1493)=-v(434)+v(77)*v(78)
v(81)=v(69)*v(72)+v(67)*v(73)+v(71)*v(74)
v(1492)=2d0*v(81)
v(443)=-(v(1492)*v(77))
v(1498)=v(442)+v(443)
v(441)=v(1492)*v(79)
v(1497)=v(440)+v(441)
v(437)=v(1492)*v(80)
v(1496)=v(437)+v(439)
v(435)=(v(81)*v(81))
v(1494)=-v(435)+v(76)*v(78)
v(451)=v(1493)*v(358)+v(1494)*v(376)+v(1495)*v(394)+v(1496)*v(412)+v(1497)*v(424)+v(1498)*v(433)
v(450)=v(1493)*v(357)+v(1494)*v(375)+v(1495)*v(393)+v(1496)*v(411)+v(1497)*v(423)+v(1498)*v(432)
v(449)=v(1493)*v(356)+v(1494)*v(374)+v(1495)*v(392)+v(1496)*v(410)+v(1497)*v(422)+v(1498)*v(431)
v(448)=v(1493)*v(355)+v(1494)*v(373)+v(1495)*v(391)+v(1496)*v(409)+v(1497)*v(420)+v(1498)*v(430)
v(447)=v(1493)*v(354)+v(1494)*v(372)+v(1495)*v(390)+v(1496)*v(408)+v(1497)*v(419)+v(1498)*v(429)
v(446)=v(1493)*v(353)+v(1494)*v(371)+v(1495)*v(389)+v(1496)*v(407)+v(1497)*v(418)+v(1498)*v(428)
v(445)=v(1493)*v(352)+v(1494)*v(370)+v(1495)*v(388)+v(1496)*v(406)+v(1497)*v(416)+v(1498)*v(427)
v(444)=v(1493)*v(351)+v(1494)*v(369)+v(1495)*v(387)+v(1496)*v(405)+v(1497)*v(415)+v(1498)*v(426)
v(438)=v(1493)*v(350)+v(1494)*v(368)+v(1495)*v(386)+v(1496)*v(404)+v(1497)*v(414)+v(1498)*v(425)
v(82)=-(v(434)*v(76))-v(435)*v(77)+v(1495)*v(78)+v(437)*v(79)
v(464)=1d0/v(82)**0.13333333333333333d1
v(1499)=-v(464)/3d0
v(472)=v(1499)*v(451)
v(471)=v(1499)*v(450)
v(470)=v(1499)*v(449)
v(469)=v(1499)*v(448)
v(468)=v(1499)*v(447)
v(467)=v(1499)*v(446)
v(466)=v(1499)*v(445)
v(465)=v(1499)*v(444)
v(463)=v(1499)*v(438)
v(452)=sqrt(v(82))
v(86)=props(2)*(-v(452)+v(82))
v(85)=1d0/v(82)**0.3333333333333333d0
v(1556)=props(1)*v(85)
v(1527)=props(1)*(v(463)*v(589)+((2d0/3d0)*v(350)+v(377)+v(395))*v(85))
v(1526)=props(1)*(v(463)*v(609)+(v(359)+v(377)+(2d0/3d0)*v(386))*v(85))
v(1525)=props(1)*(v(463)*v(599)+(v(359)+(2d0/3d0)*v(368)+v(395))*v(85))
v(1524)=props(1)*(v(465)*v(589)+((2d0/3d0)*v(351)+v(378)+v(396))*v(85))
v(1523)=props(1)*(v(465)*v(609)+(v(360)+v(378)+(2d0/3d0)*v(387))*v(85))
v(1522)=props(1)*(v(465)*v(599)+(v(360)+(2d0/3d0)*v(369)+v(396))*v(85))
v(1521)=props(1)*(v(466)*v(589)+((2d0/3d0)*v(352)+v(379)+v(397))*v(85))
v(1520)=props(1)*(v(466)*v(609)+(v(361)+v(379)+(2d0/3d0)*v(388))*v(85))
v(1519)=props(1)*(v(466)*v(599)+(v(361)+(2d0/3d0)*v(370)+v(397))*v(85))
v(1518)=props(1)*(v(467)*v(589)+((2d0/3d0)*v(353)+v(380)+v(398))*v(85))
v(1517)=props(1)*(v(467)*v(609)+(v(362)+v(380)+(2d0/3d0)*v(389))*v(85))
v(1516)=props(1)*(v(467)*v(599)+(v(362)+(2d0/3d0)*v(371)+v(398))*v(85))
v(1515)=props(1)*(v(468)*v(589)+((2d0/3d0)*v(354)+v(381)+v(399))*v(85))
v(1514)=props(1)*(v(468)*v(609)+(v(363)+v(381)+(2d0/3d0)*v(390))*v(85))
v(1513)=props(1)*(v(468)*v(599)+(v(363)+(2d0/3d0)*v(372)+v(399))*v(85))
v(1512)=props(1)*(v(469)*v(589)+((2d0/3d0)*v(355)+v(382)+v(400))*v(85))
v(1511)=props(1)*(v(469)*v(609)+(v(364)+v(382)+(2d0/3d0)*v(391))*v(85))
v(1510)=props(1)*(v(469)*v(599)+(v(364)+(2d0/3d0)*v(373)+v(400))*v(85))
v(1509)=props(1)*(v(470)*v(589)+((2d0/3d0)*v(356)+v(383)+v(401))*v(85))
v(1508)=props(1)*(v(470)*v(609)+(v(365)+v(383)+(2d0/3d0)*v(392))*v(85))
v(1507)=props(1)*(v(470)*v(599)+(v(365)+(2d0/3d0)*v(374)+v(401))*v(85))
v(1506)=props(1)*(v(471)*v(589)+((2d0/3d0)*v(357)+v(384)+v(402))*v(85))
v(1505)=props(1)*(v(471)*v(609)+(v(366)+v(384)+(2d0/3d0)*v(393))*v(85))
v(1504)=props(1)*(v(471)*v(599)+(v(366)+(2d0/3d0)*v(375)+v(402))*v(85))
v(1503)=props(1)*(v(472)*v(589)+((2d0/3d0)*v(358)+v(385)+v(403))*v(85))
v(1502)=props(1)*(v(472)*v(609)+(v(367)+v(385)+(2d0/3d0)*v(394))*v(85))
v(1501)=props(1)*(v(472)*v(599)+(v(367)+(2d0/3d0)*v(376)+v(403))*v(85))
v(645)=props(1)*(v(472)*v(81)+v(433)*v(85))
v(644)=props(1)*(v(471)*v(81)+v(432)*v(85))
v(643)=props(1)*(v(470)*v(81)+v(431)*v(85))
v(642)=props(1)*(v(469)*v(81)+v(430)*v(85))
v(641)=props(1)*(v(468)*v(81)+v(429)*v(85))
v(640)=props(1)*(v(467)*v(81)+v(428)*v(85))
v(639)=props(1)*(v(466)*v(81)+v(427)*v(85))
v(638)=props(1)*(v(465)*v(81)+v(426)*v(85))
v(637)=props(1)*(v(463)*v(81)+v(425)*v(85))
v(636)=props(1)*(v(472)*v(80)+v(424)*v(85))
v(635)=props(1)*(v(471)*v(80)+v(423)*v(85))
v(634)=props(1)*(v(470)*v(80)+v(422)*v(85))
v(633)=props(1)*(v(469)*v(80)+v(420)*v(85))
v(632)=props(1)*(v(468)*v(80)+v(419)*v(85))
v(631)=props(1)*(v(467)*v(80)+v(418)*v(85))
v(630)=props(1)*(v(466)*v(80)+v(416)*v(85))
v(629)=props(1)*(v(465)*v(80)+v(415)*v(85))
v(628)=props(1)*(v(463)*v(80)+v(414)*v(85))
v(627)=props(1)*(v(472)*v(79)+v(412)*v(85))
v(626)=props(1)*(v(471)*v(79)+v(411)*v(85))
v(625)=props(1)*(v(470)*v(79)+v(410)*v(85))
v(624)=props(1)*(v(469)*v(79)+v(409)*v(85))
v(623)=props(1)*(v(468)*v(79)+v(408)*v(85))
v(622)=props(1)*(v(467)*v(79)+v(407)*v(85))
v(621)=props(1)*(v(466)*v(79)+v(406)*v(85))
v(620)=props(1)*(v(465)*v(79)+v(405)*v(85))
v(619)=props(1)*(v(463)*v(79)+v(404)*v(85))
v(110)=(-v(1528)-v(1529)-v(1530)-v(1531)-v(1532)-v(1533)-v(1534)-v(1535)-v(1536))/3d0
v(535)=v(110)+v(1532)+v(1534)+v(1536)
v(1553)=-(props(7)*v(535))
v(521)=v(110)+v(1531)+v(1533)+v(1535)
v(1554)=-(props(7)*v(521))
v(511)=v(110)+v(1528)+v(1529)+v(1530)
v(1555)=-(props(7)*v(511))
v(103)=v(1528)+v(1534)+v(1535)
v(499)=-(v(103)*v(1539))
v(493)=(v(1537)*v(1537))
v(497)=(v(1538)*v(1538))
v(492)=v(1538)*v(1539)
v(503)=(v(1540)*v(1540))
v(501)=v(1538)*v(1541)
v(1545)=v(499)+v(501)
v(500)=v(1537)*v(1541)
v(107)=v(1530)+v(1532)+v(1533)
v(1542)=v(103)*v(107)-v(497)
v(496)=-(v(107)*v(1541))
v(1544)=v(492)+v(496)
v(108)=v(1529)+v(1531)+v(1536)
v(1549)=v(103)*v(108)-v(503)
v(1547)=v(107)*v(108)-v(493)
v(502)=(-2d0)*v(108)*v(1538)
v(1546)=v(500)+v(502)
v(491)=v(108)*v(1542)+v(1540)*v(492)-v(103)*v(493)-v(107)*v(503)
v(495)=1d0/v(491)**0.13333333333333333d1
v(1543)=-v(495)/3d0
v(510)=v(1543)*(v(1462)*v(1542)+v(1545)*x(13)+v(1544)*x(16))
v(559)=v(1548)*v(510)
v(509)=v(1543)*(v(1453)*v(1547)+v(1544)*x(12)+v(1546)*x(15))
v(586)=v(1550)*v(509)
v(508)=v(1543)*(v(1449)*v(1549)+v(1546)*x(11)+v(1545)*x(14))
v(569)=v(1551)*v(508)
v(507)=v(1543)*(v(1448)*v(1547)+v(1546)*x(13)+v(1544)*x(19))
v(556)=v(1548)*v(507)
v(506)=v(1543)*(v(1447)*v(1549)+v(1545)*x(12)+v(1546)*x(18))
v(581)=v(1550)*v(506)
v(505)=v(1543)*(v(1446)*v(1542)+v(1544)*x(11)+v(1545)*x(17))
v(565)=v(1551)*v(505)
v(504)=v(1543)*(v(1445)*v(1549)+v(1546)*x(16)+v(1545)*x(19))
v(553)=v(1548)*v(504)
v(498)=v(1543)*(v(1444)*v(1542)+v(1545)*x(15)+v(1544)*x(18))
v(576)=v(1550)*v(498)
v(494)=v(1543)*(v(1443)*v(1547)+v(1544)*x(14)+v(1546)*x(17))
v(561)=v(1551)*v(494)
v(111)=1d0/v(491)**0.3333333333333333d0
v(1552)=-(props(7)*v(111))
v(587)=v(1552)*x(14)
v(588)=v(1550)*v(510)+v(587)
v(584)=v(1552)*x(13)
v(585)=v(1550)*v(508)+v(584)
v(582)=v(1552)*x(11)
v(583)=v(1550)*v(507)+v(582)
v(579)=v(1552)*x(19)
v(580)=v(1550)*v(505)+v(579)
v(577)=v(1552)*x(17)
v(578)=v(1550)*v(504)+v(577)
v(573)=v(1552)*x(16)
v(575)=v(1550)*v(494)+v(573)
v(571)=v(1552)*x(12)
v(572)=v(1551)*v(510)+v(571)
v(570)=v(1551)*v(509)+v(573)
v(567)=v(1552)*x(18)
v(568)=v(1551)*v(507)+v(567)
v(566)=v(1551)*v(506)+v(584)
v(563)=v(1552)*x(15)
v(564)=v(1551)*v(504)+v(563)
v(562)=v(1551)*v(498)+v(579)
v(558)=v(1548)*v(509)+v(582)
v(557)=v(1548)*v(508)+v(563)
v(555)=v(1548)*v(506)+v(577)
v(554)=v(1548)*v(505)+v(571)
v(552)=v(1548)*v(498)+v(587)
v(551)=v(1548)*v(494)+v(567)
v(549)=props(7)*(-(v(111)*(v(1462)+v(490)))-v(510)*v(535))
v(547)=v(1552)*v(489)
v(548)=v(1553)*v(509)+v(547)
v(545)=v(1552)*v(488)
v(546)=v(1553)*v(508)+v(545)
v(544)=props(7)*(-(v(111)*(v(1448)+v(487)))-v(507)*v(535))
v(542)=v(1552)*v(486)
v(543)=v(1553)*v(506)+v(542)
v(540)=v(1552)*v(485)
v(541)=v(1553)*v(505)+v(540)
v(539)=props(7)*(-(v(111)*(v(1445)+v(484)))-v(504)*v(535))
v(537)=v(1552)*v(483)
v(538)=v(1553)*v(498)+v(537)
v(534)=v(1552)*v(482)
v(536)=v(1553)*v(494)+v(534)
v(532)=v(1552)*v(490)
v(533)=v(1554)*v(510)+v(532)
v(531)=props(7)*(-(v(111)*(v(1453)+v(489)))-v(509)*v(521))
v(530)=v(1554)*v(508)+v(545)
v(528)=v(1552)*v(487)
v(529)=v(1554)*v(507)+v(528)
v(527)=props(7)*(-(v(111)*(v(1447)+v(486)))-v(506)*v(521))
v(526)=v(1554)*v(505)+v(540)
v(524)=v(1552)*v(484)
v(525)=v(1554)*v(504)+v(524)
v(523)=props(7)*(-(v(111)*(v(1444)+v(483)))-v(498)*v(521))
v(522)=v(1554)*v(494)+v(534)
v(520)=v(1555)*v(510)+v(532)
v(519)=v(1555)*v(509)+v(547)
v(518)=props(7)*(-(v(111)*(v(1449)+v(488)))-v(508)*v(511))
v(517)=v(1555)*v(507)+v(528)
v(516)=v(1555)*v(506)+v(542)
v(515)=props(7)*(-(v(111)*(v(1446)+v(485)))-v(505)*v(511))
v(514)=v(1555)*v(504)+v(524)
v(513)=v(1555)*v(498)+v(537)
v(512)=props(7)*(-(v(111)*(v(1443)+v(482)))-v(494)*v(511))
v(109)=v(1552)*v(511)
v(112)=v(1552)*v(521)
v(113)=v(1552)*v(535)
v(114)=v(1452)*v(1552)
v(1564)=2d0*v(114)
v(115)=v(1461)*v(1552)
v(1565)=2d0*v(115)
v(116)=v(1460)*v(1552)
v(1566)=2d0*v(116)
v(117)=-v(109)+v(1556)*v(589)+v(86)
v(118)=-v(112)+v(1556)*v(599)+v(86)
v(119)=-v(113)+v(1556)*v(609)+v(86)
v(120)=-v(114)+v(1556)*v(79)
v(1585)=4d0*v(120)
v(121)=-v(115)+v(1556)*v(80)
v(1586)=4d0*v(121)
v(122)=-v(116)+v(1556)*v(81)
v(1587)=4d0*v(122)
IF(dabs(props(5)).lt.0.1d-11) THEN
 v(1558)=v(1559)
 v(1557)=props(4)
 v(646)=v(1557)
 v(124)=v(1558)
ELSE
 v(1560)=1d0/props(5)
 v(647)=dexp(-(props(5)*v(1559)))
 v(646)=props(4)*v(647)
 v(124)=v(1560)*(1d0-v(647))
ENDIF
v(648)=props(3)+v(124)
v(1562)=(-0.15d1)/v(648)
v(649)=-(v(646)/v(648)**2)
v(1561)=0.15d1*v(649)
v(864)=v(122)*v(1561)
v(1571)=v(1415)*v(864)
v(826)=v(121)*v(1561)
v(1574)=v(1415)*v(826)
v(788)=v(120)*v(1561)
v(1572)=v(1415)*v(788)
v(882)=v(1562)*v(588)
v(987)=-(v(1415)*v(882))
v(881)=v(1562)*v(586)
v(986)=-(v(1415)*v(881))
v(880)=v(1562)*v(585)
v(985)=-(v(1415)*v(880))
v(879)=v(1562)*v(583)
v(984)=-(v(1415)*v(879))
v(878)=v(1562)*v(581)
v(983)=-(v(1415)*v(878))
v(877)=v(1562)*v(580)
v(982)=-(v(1415)*v(877))
v(876)=v(1562)*v(578)
v(981)=-(v(1415)*v(876))
v(875)=v(1562)*v(576)
v(980)=-(v(1415)*v(875))
v(874)=v(1562)*v(575)
v(979)=-(v(1415)*v(874))
v(873)=-(v(1562)*v(645))
v(978)=-(v(1415)*v(873))
v(872)=-(v(1562)*v(644))
v(977)=-(v(1415)*v(872))
v(871)=-(v(1562)*v(643))
v(976)=-(v(1415)*v(871))
v(870)=-(v(1562)*v(642))
v(975)=-(v(1415)*v(870))
v(869)=-(v(1562)*v(641))
v(974)=-(v(1415)*v(869))
v(868)=-(v(1562)*v(640))
v(973)=-(v(1415)*v(868))
v(867)=-(v(1562)*v(639))
v(972)=-(v(1415)*v(867))
v(866)=-(v(1562)*v(638))
v(971)=-(v(1415)*v(866))
v(865)=-(v(1562)*v(637))
v(970)=-(v(1415)*v(865))
v(844)=v(1562)*v(572)
v(863)=-(v(1415)*v(844))
v(843)=v(1562)*v(570)
v(862)=-(v(1415)*v(843))
v(842)=v(1562)*v(569)
v(861)=-(v(1415)*v(842))
v(841)=v(1562)*v(568)
v(860)=-(v(1415)*v(841))
v(840)=v(1562)*v(566)
v(859)=-(v(1415)*v(840))
v(839)=v(1562)*v(565)
v(858)=-(v(1415)*v(839))
v(838)=v(1562)*v(564)
v(857)=-(v(1415)*v(838))
v(837)=v(1562)*v(562)
v(856)=-(v(1415)*v(837))
v(836)=v(1562)*v(561)
v(855)=-(v(1415)*v(836))
v(835)=-(v(1562)*v(636))
v(854)=-(v(1415)*v(835))
v(834)=-(v(1562)*v(635))
v(853)=-(v(1415)*v(834))
v(833)=-(v(1562)*v(634))
v(852)=-(v(1415)*v(833))
v(832)=-(v(1562)*v(633))
v(851)=-(v(1415)*v(832))
v(831)=-(v(1562)*v(632))
v(850)=-(v(1415)*v(831))
v(830)=-(v(1562)*v(631))
v(849)=-(v(1415)*v(830))
v(829)=-(v(1562)*v(630))
v(848)=-(v(1415)*v(829))
v(828)=-(v(1562)*v(629))
v(847)=-(v(1415)*v(828))
v(827)=-(v(1562)*v(628))
v(846)=-(v(1415)*v(827))
v(806)=v(1562)*v(559)
v(825)=-(v(1415)*v(806))
v(805)=v(1562)*v(558)
v(824)=-(v(1415)*v(805))
v(804)=v(1562)*v(557)
v(823)=-(v(1415)*v(804))
v(803)=v(1562)*v(556)
v(822)=-(v(1415)*v(803))
v(802)=v(1562)*v(555)
v(821)=-(v(1415)*v(802))
v(801)=v(1562)*v(554)
v(820)=-(v(1415)*v(801))
v(800)=v(1562)*v(553)
v(819)=-(v(1415)*v(800))
v(799)=v(1562)*v(552)
v(818)=-(v(1415)*v(799))
v(798)=v(1562)*v(551)
v(817)=-(v(1415)*v(798))
v(797)=-(v(1562)*v(627))
v(816)=-(v(1415)*v(797))
v(796)=-(v(1562)*v(626))
v(815)=-(v(1415)*v(796))
v(795)=-(v(1562)*v(625))
v(814)=-(v(1415)*v(795))
v(794)=-(v(1562)*v(624))
v(813)=-(v(1415)*v(794))
v(793)=-(v(1562)*v(623))
v(812)=-(v(1415)*v(793))
v(792)=-(v(1562)*v(622))
v(811)=-(v(1415)*v(792))
v(791)=-(v(1562)*v(621))
v(810)=-(v(1415)*v(791))
v(790)=-(v(1562)*v(620))
v(809)=-(v(1415)*v(790))
v(789)=-(v(1562)*v(619))
v(808)=-(v(1415)*v(789))
v(787)=v(1562)*v(549)
v(786)=v(1562)*v(548)
v(785)=v(1562)*v(546)
v(784)=v(1562)*v(544)
v(783)=v(1562)*v(543)
v(782)=v(1562)*v(541)
v(781)=v(1562)*v(539)
v(780)=v(1562)*v(538)
v(779)=v(1562)*v(536)
v(778)=-(v(1502)*v(1562))
v(777)=-(v(1505)*v(1562))
v(776)=-(v(1508)*v(1562))
v(775)=-(v(1511)*v(1562))
v(774)=-(v(1514)*v(1562))
v(773)=-(v(1517)*v(1562))
v(772)=-(v(1520)*v(1562))
v(771)=-(v(1523)*v(1562))
v(770)=-(v(1526)*v(1562))
v(768)=v(1562)*v(533)
v(767)=v(1562)*v(531)
v(766)=v(1562)*v(530)
v(765)=v(1562)*v(529)
v(764)=v(1562)*v(527)
v(763)=v(1562)*v(526)
v(762)=v(1562)*v(525)
v(761)=v(1562)*v(523)
v(760)=v(1562)*v(522)
v(759)=-(v(1501)*v(1562))
v(758)=-(v(1504)*v(1562))
v(757)=-(v(1507)*v(1562))
v(756)=-(v(1510)*v(1562))
v(755)=-(v(1513)*v(1562))
v(754)=-(v(1516)*v(1562))
v(753)=-(v(1519)*v(1562))
v(752)=-(v(1522)*v(1562))
v(751)=-(v(1525)*v(1562))
v(749)=v(1562)*v(520)
v(748)=v(1562)*v(519)
v(747)=v(1562)*v(518)
v(746)=v(1562)*v(517)
v(745)=v(1562)*v(516)
v(744)=v(1562)*v(515)
v(743)=v(1562)*v(514)
v(742)=v(1562)*v(513)
v(741)=v(1562)*v(512)
v(740)=-(v(1503)*v(1562))
v(893)=v(1563)*(v(109)*v(740)+v(112)*v(759)+v(113)*v(778)+v(1564)*v(797)+v(1565)*v(835)+v(1566)*v(873))
v(739)=-(v(1506)*v(1562))
v(892)=v(1563)*(v(109)*v(739)+v(112)*v(758)+v(113)*v(777)+v(1564)*v(796)+v(1565)*v(834)+v(1566)*v(872))
v(738)=-(v(1509)*v(1562))
v(891)=v(1563)*(v(109)*v(738)+v(112)*v(757)+v(113)*v(776)+v(1564)*v(795)+v(1565)*v(833)+v(1566)*v(871))
v(737)=-(v(1512)*v(1562))
v(890)=v(1563)*(v(109)*v(737)+v(112)*v(756)+v(113)*v(775)+v(1564)*v(794)+v(1565)*v(832)+v(1566)*v(870))
v(736)=-(v(1515)*v(1562))
v(889)=v(1563)*(v(109)*v(736)+v(112)*v(755)+v(113)*v(774)+v(1564)*v(793)+v(1565)*v(831)+v(1566)*v(869))
v(735)=-(v(1518)*v(1562))
v(888)=v(1563)*(v(109)*v(735)+v(112)*v(754)+v(113)*v(773)+v(1564)*v(792)+v(1565)*v(830)+v(1566)*v(868))
v(734)=-(v(1521)*v(1562))
v(887)=v(1563)*(v(109)*v(734)+v(112)*v(753)+v(113)*v(772)+v(1564)*v(791)+v(1565)*v(829)+v(1566)*v(867))
v(733)=-(v(1524)*v(1562))
v(886)=v(1563)*(v(109)*v(733)+v(112)*v(752)+v(113)*v(771)+v(1564)*v(790)+v(1565)*v(828)+v(1566)*v(866))
v(732)=-(v(1527)*v(1562))
v(885)=v(1563)*(v(109)*v(732)+v(112)*v(751)+v(113)*v(770)+v(1564)*v(789)+v(1565)*v(827)+v(1566)*v(865))
v(125)=-v(118)/3d0
v(126)=-v(119)/3d0
v(129)=(2d0/3d0)*v(117)+v(125)+v(126)
v(1590)=2d0*v(129)
v(731)=v(129)*v(1561)
v(1591)=v(1415)*v(731)
v(127)=-v(117)/3d0
v(134)=(2d0/3d0)*v(119)+v(125)+v(127)
v(1589)=2d0*v(134)
v(769)=v(134)*v(1561)
v(1607)=v(1415)*v(769)
v(131)=(2d0/3d0)*v(118)+v(126)+v(127)
v(1588)=2d0*v(131)
v(990)=1d0/sqrt(0.15d1*(2d0*v(120)**2+2d0*v(121)**2+2d0*v(122)**2+v(129)**2+v(131)**2+v(134)**2))
v(1584)=0.75d0*v(990)
v(750)=v(131)*v(1561)
v(1599)=v(1415)*v(750)
v(130)=-(v(129)*v(1562))
v(133)=-(v(131)*v(1562))
v(135)=-(v(134)*v(1562))
v(136)=-(v(120)*v(1562))
v(1567)=2d0*v(136)
v(807)=-v(136)-v(1572)
v(137)=-(v(121)*v(1562))
v(1568)=2d0*v(137)
v(845)=-v(137)-v(1574)
v(138)=-(v(122)*v(1562))
v(1569)=2d0*v(138)
v(969)=-v(138)-v(1571)
v(902)=v(1563)*(v(130)*v(520)+v(133)*v(533)+v(135)*v(549)+v(1567)*v(559)+v(1568)*v(572)+v(1569)*v(588)+v(109)*v(749)+v&
&(112)*v(768)+v(113)*v(787)+v(1564)*v(806)+v(1565)*v(844)+v(1566)*v(882))
v(901)=v(1563)*(v(130)*v(519)+v(133)*v(531)+v(135)*v(548)+v(1567)*v(558)+v(1568)*v(570)+v(1569)*v(586)+v(109)*v(748)+v&
&(112)*v(767)+v(113)*v(786)+v(1564)*v(805)+v(1565)*v(843)+v(1566)*v(881))
v(900)=v(1563)*(v(130)*v(518)+v(133)*v(530)+v(135)*v(546)+v(1567)*v(557)+v(1568)*v(569)+v(1569)*v(585)+v(109)*v(747)+v&
&(112)*v(766)+v(113)*v(785)+v(1564)*v(804)+v(1565)*v(842)+v(1566)*v(880))
v(899)=v(1563)*(v(130)*v(517)+v(133)*v(529)+v(135)*v(544)+v(1567)*v(556)+v(1568)*v(568)+v(1569)*v(583)+v(109)*v(746)+v&
&(112)*v(765)+v(113)*v(784)+v(1564)*v(803)+v(1565)*v(841)+v(1566)*v(879))
v(898)=v(1563)*(v(130)*v(516)+v(133)*v(527)+v(135)*v(543)+v(1567)*v(555)+v(1568)*v(566)+v(1569)*v(581)+v(109)*v(745)+v&
&(112)*v(764)+v(113)*v(783)+v(1564)*v(802)+v(1565)*v(840)+v(1566)*v(878))
v(897)=v(1563)*(v(130)*v(515)+v(133)*v(526)+v(135)*v(541)+v(1567)*v(554)+v(1568)*v(565)+v(1569)*v(580)+v(109)*v(744)+v&
&(112)*v(763)+v(113)*v(782)+v(1564)*v(801)+v(1565)*v(839)+v(1566)*v(877))
v(896)=v(1563)*(v(130)*v(514)+v(133)*v(525)+v(135)*v(539)+v(1567)*v(553)+v(1568)*v(564)+v(1569)*v(578)+v(109)*v(743)+v&
&(112)*v(762)+v(113)*v(781)+v(1564)*v(800)+v(1565)*v(838)+v(1566)*v(876))
v(895)=v(1563)*(v(130)*v(513)+v(133)*v(523)+v(135)*v(538)+v(1567)*v(552)+v(1568)*v(562)+v(1569)*v(576)+v(109)*v(742)+v&
&(112)*v(761)+v(113)*v(780)+v(1564)*v(799)+v(1565)*v(837)+v(1566)*v(875))
v(894)=v(1563)*(v(130)*v(512)+v(133)*v(522)+v(135)*v(536)+v(1567)*v(551)+v(1568)*v(561)+v(1569)*v(575)+v(109)*v(741)+v&
&(112)*v(760)+v(113)*v(779)+v(1564)*v(798)+v(1565)*v(836)+v(1566)*v(874))
v(165)=v(1563)*(v(109)*v(130)+v(112)*v(133)+v(113)*v(135)+v(114)*v(1567)+v(115)*v(1568)+v(116)*v(1569))
v(1573)=1d0-2d0*v(165)
v(1570)=(-1d0)+v(165)
v(968)=-(v(1415)*(v(1414)*v(588)+v(1570)*v(882)+v(138)*v(902)))
v(967)=-(v(1415)*(v(1414)*v(586)+v(1570)*v(881)+v(138)*v(901)))
v(966)=-(v(1415)*(v(1414)*v(585)+v(1570)*v(880)+v(138)*v(900)))
v(965)=-(v(1415)*(v(1414)*v(583)+v(1570)*v(879)+v(138)*v(899)))
v(964)=-(v(1415)*(v(1414)*v(581)+v(1570)*v(878)+v(138)*v(898)))
v(963)=-(v(1415)*(v(1414)*v(580)+v(1570)*v(877)+v(138)*v(897)))
v(962)=-(v(1415)*(v(1414)*v(578)+v(1570)*v(876)+v(138)*v(896)))
v(961)=-(v(1415)*(v(1414)*v(576)+v(1570)*v(875)+v(138)*v(895)))
v(960)=-(v(1415)*(v(1414)*v(575)+v(1570)*v(874)+v(138)*v(894)))
v(959)=-(v(1415)*(v(1570)*v(873)+v(138)*v(893)))
v(958)=-(v(1415)*(v(1570)*v(872)+v(138)*v(892)))
v(957)=-(v(1415)*(v(1570)*v(871)+v(138)*v(891)))
v(956)=-(v(1415)*(v(1570)*v(870)+v(138)*v(890)))
v(955)=-(v(1415)*(v(1570)*v(869)+v(138)*v(889)))
v(954)=-(v(1415)*(v(1570)*v(868)+v(138)*v(888)))
v(953)=-(v(1415)*(v(1570)*v(867)+v(138)*v(887)))
v(952)=-(v(1415)*(v(1570)*v(866)+v(138)*v(886)))
v(951)=-(v(1415)*(v(1570)*v(865)+v(138)*v(885)))
v(950)=-(v(116)*v(1414))-v(138)*v(1570)+v(1571)*v(1573)
v(946)=-(v(1415)*(v(1414)*v(559)+v(1570)*v(806)+v(136)*v(902)))
v(945)=-(v(1415)*(v(1414)*v(558)+v(1570)*v(805)+v(136)*v(901)))
v(944)=-(v(1415)*(v(1414)*v(557)+v(1570)*v(804)+v(136)*v(900)))
v(943)=-(v(1415)*(v(1414)*v(556)+v(1570)*v(803)+v(136)*v(899)))
v(942)=-(v(1415)*(v(1414)*v(555)+v(1570)*v(802)+v(136)*v(898)))
v(941)=-(v(1415)*(v(1414)*v(554)+v(1570)*v(801)+v(136)*v(897)))
v(940)=-(v(1415)*(v(1414)*v(553)+v(1570)*v(800)+v(136)*v(896)))
v(939)=-(v(1415)*(v(1414)*v(552)+v(1570)*v(799)+v(136)*v(895)))
v(938)=-(v(1415)*(v(1414)*v(551)+v(1570)*v(798)+v(136)*v(894)))
v(937)=-(v(1415)*(v(1570)*v(797)+v(136)*v(893)))
v(936)=-(v(1415)*(v(1570)*v(796)+v(136)*v(892)))
v(935)=-(v(1415)*(v(1570)*v(795)+v(136)*v(891)))
v(934)=-(v(1415)*(v(1570)*v(794)+v(136)*v(890)))
v(933)=-(v(1415)*(v(1570)*v(793)+v(136)*v(889)))
v(932)=-(v(1415)*(v(1570)*v(792)+v(136)*v(888)))
v(931)=-(v(1415)*(v(1570)*v(791)+v(136)*v(887)))
v(930)=-(v(1415)*(v(1570)*v(790)+v(136)*v(886)))
v(929)=-(v(1415)*(v(1570)*v(789)+v(136)*v(885)))
v(928)=-(v(114)*v(1414))-v(136)*v(1570)+v(1572)*v(1573)
v(924)=-(v(1415)*(v(1414)*v(572)+v(1570)*v(844)+v(137)*v(902)))
v(923)=-(v(1415)*(v(1414)*v(570)+v(1570)*v(843)+v(137)*v(901)))
v(922)=-(v(1415)*(v(1414)*v(569)+v(1570)*v(842)+v(137)*v(900)))
v(921)=-(v(1415)*(v(1414)*v(568)+v(1570)*v(841)+v(137)*v(899)))
v(920)=-(v(1415)*(v(1414)*v(566)+v(1570)*v(840)+v(137)*v(898)))
v(919)=-(v(1415)*(v(1414)*v(565)+v(1570)*v(839)+v(137)*v(897)))
v(918)=-(v(1415)*(v(1414)*v(564)+v(1570)*v(838)+v(137)*v(896)))
v(917)=-(v(1415)*(v(1414)*v(562)+v(1570)*v(837)+v(137)*v(895)))
v(916)=-(v(1415)*(v(1414)*v(561)+v(1570)*v(836)+v(137)*v(894)))
v(915)=-(v(1415)*(v(1570)*v(835)+v(137)*v(893)))
v(914)=-(v(1415)*(v(1570)*v(834)+v(137)*v(892)))
v(913)=-(v(1415)*(v(1570)*v(833)+v(137)*v(891)))
v(912)=-(v(1415)*(v(1570)*v(832)+v(137)*v(890)))
v(911)=-(v(1415)*(v(1570)*v(831)+v(137)*v(889)))
v(910)=-(v(1415)*(v(1570)*v(830)+v(137)*v(888)))
v(909)=-(v(1415)*(v(1570)*v(829)+v(137)*v(887)))
v(908)=-(v(1415)*(v(1570)*v(828)+v(137)*v(886)))
v(907)=-(v(1415)*(v(1570)*v(827)+v(137)*v(885)))
v(906)=-(v(115)*v(1414))-v(137)*v(1570)+v(1573)*v(1574)
v(1409)=statev(16)*v(1577)
v(1408)=statev(13)*v(1578)
v(1405)=statev(15)*v(1575)
v(1404)=statev(18)*v(1576)
v(1400)=statev(13)*v(1575)
v(1399)=statev(16)*v(1576)
v(1395)=statev(11)*v(1577)
v(1394)=statev(17)*v(1578)
v(1390)=statev(18)*v(1577)
v(1389)=statev(15)*v(1578)
v(1386)=statev(17)*v(1575)
v(1385)=statev(11)*v(1576)
v(1378)=statev(15)*v(1579)
v(1377)=statev(12)*v(1580)
v(1374)=statev(14)*v(1577)
v(1373)=statev(17)*v(1581)
v(1370)=statev(13)*v(1579)
v(1369)=statev(19)*v(1580)
v(1366)=statev(12)*v(1577)
v(1365)=statev(15)*v(1581)
v(1361)=statev(19)*v(1577)
v(1360)=statev(13)*v(1581)
v(1356)=statev(17)*v(1579)
v(1355)=statev(14)*v(1580)
v(1349)=statev(16)*v(1579)
v(1348)=statev(19)*v(1583)
v(1344)=statev(14)*v(1575)
v(1343)=statev(11)*v(1582)
v(1339)=statev(12)*v(1575)
v(1338)=statev(18)*v(1582)
v(1335)=statev(11)*v(1579)
v(1334)=statev(14)*v(1583)
v(1331)=statev(19)*v(1575)
v(1330)=statev(16)*v(1582)
v(1327)=statev(18)*v(1579)
v(1326)=statev(12)*v(1583)
v(1318)=-(statev(12)*v(1576))
v(1317)=statev(15)*v(1582)
v(1313)=-(statev(19)*v(1576))
v(1312)=statev(13)*v(1582)
v(1305)=-(statev(14)*v(1576))
v(1304)=statev(17)*v(1582)
v(1296)=-(statev(11)*v(1581))
v(1295)=statev(14)*v(1578)
v(1291)=-(statev(18)*v(1581))
v(1290)=statev(12)*v(1578)
v(1286)=-(statev(16)*v(1581))
v(1285)=statev(19)*v(1578)
v(1277)=-(statev(13)*v(1583))
v(1276)=statev(16)*v(1580)
v(1269)=-(statev(17)*v(1583))
v(1268)=statev(11)*v(1580)
v(1264)=-(statev(15)*v(1583))
v(1263)=statev(18)*v(1580)
dRdX(1,1)=-v(646)
dRdX(1,2)=v(1584)*(v(1525)*v(1588)+v(1526)*v(1589)+v(1527)*v(1590)+v(1585)*v(619)+v(1586)*v(628)+v(1587)*v(637))
dRdX(1,3)=v(1584)*(v(1522)*v(1588)+v(1523)*v(1589)+v(1524)*v(1590)+v(1585)*v(620)+v(1586)*v(629)+v(1587)*v(638))
dRdX(1,4)=v(1584)*(v(1519)*v(1588)+v(1520)*v(1589)+v(1521)*v(1590)+v(1585)*v(621)+v(1586)*v(630)+v(1587)*v(639))
dRdX(1,5)=v(1584)*(v(1516)*v(1588)+v(1517)*v(1589)+v(1518)*v(1590)+v(1585)*v(622)+v(1586)*v(631)+v(1587)*v(640))
dRdX(1,6)=v(1584)*(v(1513)*v(1588)+v(1514)*v(1589)+v(1515)*v(1590)+v(1585)*v(623)+v(1586)*v(632)+v(1587)*v(641))
dRdX(1,7)=v(1584)*(v(1510)*v(1588)+v(1511)*v(1589)+v(1512)*v(1590)+v(1585)*v(624)+v(1586)*v(633)+v(1587)*v(642))
dRdX(1,8)=v(1584)*(v(1507)*v(1588)+v(1508)*v(1589)+v(1509)*v(1590)+v(1585)*v(625)+v(1586)*v(634)+v(1587)*v(643))
dRdX(1,9)=v(1584)*(v(1504)*v(1588)+v(1505)*v(1589)+v(1506)*v(1590)+v(1585)*v(626)+v(1586)*v(635)+v(1587)*v(644))
dRdX(1,10)=v(1584)*(v(1501)*v(1588)+v(1502)*v(1589)+v(1503)*v(1590)+v(1585)*v(627)+v(1586)*v(636)+v(1587)*v(645))
dRdX(1,11)=v(1584)*(-(v(1590)*v(512))-v(1588)*v(522)-v(1589)*v(536)-v(1585)*v(551)-v(1586)*v(561)-v(1587)*v(575))
dRdX(1,12)=v(1584)*(-(v(1590)*v(513))-v(1588)*v(523)-v(1589)*v(538)-v(1585)*v(552)-v(1586)*v(562)-v(1587)*v(576))
dRdX(1,13)=v(1584)*(-(v(1590)*v(514))-v(1588)*v(525)-v(1589)*v(539)-v(1585)*v(553)-v(1586)*v(564)-v(1587)*v(578))
dRdX(1,14)=v(1584)*(-(v(1590)*v(515))-v(1588)*v(526)-v(1589)*v(541)-v(1585)*v(554)-v(1586)*v(565)-v(1587)*v(580))
dRdX(1,15)=v(1584)*(-(v(1590)*v(516))-v(1588)*v(527)-v(1589)*v(543)-v(1585)*v(555)-v(1586)*v(566)-v(1587)*v(581))
dRdX(1,16)=v(1584)*(-(v(1590)*v(517))-v(1588)*v(529)-v(1589)*v(544)-v(1585)*v(556)-v(1586)*v(568)-v(1587)*v(583))
dRdX(1,17)=v(1584)*(-(v(1590)*v(518))-v(1588)*v(530)-v(1589)*v(546)-v(1585)*v(557)-v(1586)*v(569)-v(1587)*v(585))
dRdX(1,18)=v(1584)*(-(v(1590)*v(519))-v(1588)*v(531)-v(1589)*v(548)-v(1585)*v(558)-v(1586)*v(570)-v(1587)*v(586))
dRdX(1,19)=v(1584)*(-(v(1590)*v(520))-v(1588)*v(533)-v(1589)*v(549)-v(1585)*v(559)-v(1586)*v(572)-v(1587)*v(588))
dRdX(2,1)=-v(130)-v(1591)
dRdX(2,2)=v(1592)*v(187)-v(1415)*v(732)
dRdX(2,3)=v(1076)+v(1077)+v(1078)+v(1593)*v(189)-v(1415)*v(733)
dRdX(2,4)=v(1151)+v(1152)+v(1153)+v(1596)*v(190)-v(1415)*v(734)
dRdX(2,5)=v(1592)*v(191)-v(1415)*v(735)
dRdX(2,6)=v(1142)+v(1143)+v(1144)+v(1596)*v(192)-v(1415)*v(736)
dRdX(2,7)=-v(1112)-v(1113)+v(1114)+v(1598)*v(193)-v(1415)*v(737)
dRdX(2,8)=v(1592)*v(194)-v(1415)*v(738)
dRdX(2,9)=-v(1163)-v(1164)+v(1165)+v(1598)*v(195)-v(1415)*v(739)
dRdX(2,10)=-v(1193)-v(1194)+v(1195)+v(1593)*v(196)-v(1415)*v(740)
dRdX(2,11)=-(v(1415)*v(741))
dRdX(2,12)=-(v(1415)*v(742))
dRdX(2,13)=-(v(1415)*v(743))
dRdX(2,14)=-(v(1415)*v(744))
dRdX(2,15)=-(v(1415)*v(745))
dRdX(2,16)=-(v(1415)*v(746))
dRdX(2,17)=-(v(1415)*v(747))
dRdX(2,18)=-(v(1415)*v(748))
dRdX(2,19)=-(v(1415)*v(749))
dRdX(3,1)=-v(133)-v(1599)
dRdX(3,2)=v(1185)+v(1186)+v(1187)+v(1600)*v(187)-v(1415)*v(751)
dRdX(3,3)=v(1601)*v(189)-v(1415)*v(752)
dRdX(3,4)=v(1098)+v(1099)+v(1100)+v(1604)*v(190)-v(1415)*v(753)
dRdX(3,5)=-v(1071)-v(1072)+v(1073)+v(1606)*v(191)-v(1415)*v(754)
dRdX(3,6)=v(1601)*v(192)-v(1415)*v(755)
dRdX(3,7)=v(1173)+v(1174)+v(1175)+v(1600)*v(193)-v(1415)*v(756)
dRdX(3,8)=-v(1134)-v(1135)+v(1136)+v(1604)*v(194)-v(1415)*v(757)
dRdX(3,9)=v(1601)*v(195)-v(1415)*v(758)
dRdX(3,10)=-v(1197)-v(1198)+v(1199)+v(1606)*v(196)-v(1415)*v(759)
dRdX(3,11)=-(v(1415)*v(760))
dRdX(3,12)=-(v(1415)*v(761))
dRdX(3,13)=-(v(1415)*v(762))
dRdX(3,14)=-(v(1415)*v(763))
dRdX(3,15)=-(v(1415)*v(764))
dRdX(3,16)=-(v(1415)*v(765))
dRdX(3,17)=-(v(1415)*v(766))
dRdX(3,18)=-(v(1415)*v(767))
dRdX(3,19)=-(v(1415)*v(768))
dRdX(4,1)=-v(135)-v(1607)
dRdX(4,2)=v(1120)+v(1121)+v(1122)+v(1608)*v(187)-v(1415)*v(770)
dRdX(4,3)=v(1216)+v(1217)+v(1218)+v(1610)*v(189)-v(1415)*v(771)
dRdX(4,4)=v(1612)*v(190)-v(1415)*v(772)
dRdX(4,5)=v(1207)+v(1208)+v(1209)+v(1610)*v(191)-v(1415)*v(773)
dRdX(4,6)=-v(1093)-v(1094)+v(1095)+v(1614)*v(192)-v(1415)*v(774)
dRdX(4,7)=v(1612)*v(193)-v(1415)*v(775)
dRdX(4,8)=-v(1138)-v(1139)+v(1140)+v(1614)*v(194)-v(1415)*v(776)
dRdX(4,9)=-v(1168)-v(1169)+v(1170)+v(1608)*v(195)-v(1415)*v(777)
dRdX(4,10)=v(1612)*v(196)-v(1415)*v(778)
dRdX(4,11)=-(v(1415)*v(779))
dRdX(4,12)=-(v(1415)*v(780))
dRdX(4,13)=-(v(1415)*v(781))
dRdX(4,14)=-(v(1415)*v(782))
dRdX(4,15)=-(v(1415)*v(783))
dRdX(4,16)=-(v(1415)*v(784))
dRdX(4,17)=-(v(1415)*v(785))
dRdX(4,18)=-(v(1415)*v(786))
dRdX(4,19)=-(v(1415)*v(787))
dRdX(5,1)=v(807)
dRdX(5,2)=v(1163)+v(1164)+v(1165)+v(1615)*v(187)+v(808)
dRdX(5,3)=v(1616)*v(189)+v(809)
dRdX(5,4)=v(1103)+v(1104)+v(1105)+v(1619)*v(190)+v(810)
dRdX(5,5)=-v(1076)-v(1077)+v(1078)+v(1621)*v(191)+v(811)
dRdX(5,6)=v(1616)*v(192)+v(812)
dRdX(5,7)=v(1181)+v(1182)+v(1183)+v(1615)*v(193)+v(813)
dRdX(5,8)=-v(1142)-v(1143)+v(1144)+v(1619)*v(194)+v(814)
dRdX(5,9)=v(1616)*v(195)+v(815)
dRdX(5,10)=-v(1202)-v(1203)+v(1204)+v(1621)*v(196)+v(816)
dRdX(5,11)=v(817)
dRdX(5,12)=v(818)
dRdX(5,13)=v(819)
dRdX(5,14)=v(820)
dRdX(5,15)=v(821)
dRdX(5,16)=v(822)
dRdX(5,17)=v(823)
dRdX(5,18)=v(824)
dRdX(5,19)=v(825)
dRdX(6,1)=v(845)
dRdX(6,2)=v(1125)+v(1126)+v(1127)+v(1622)*v(187)+v(846)
dRdX(6,3)=v(1197)+v(1198)+v(1199)+v(1624)*v(189)+v(847)
dRdX(6,4)=v(1626)*v(190)+v(848)
dRdX(6,5)=v(1212)+v(1213)+v(1214)+v(1624)*v(191)+v(849)
dRdX(6,6)=-v(1098)-v(1099)+v(1100)+v(1628)*v(192)+v(850)
dRdX(6,7)=v(1626)*v(193)+v(851)
dRdX(6,8)=-v(1146)-v(1147)+v(1148)+v(1628)*v(194)+v(852)
dRdX(6,9)=-v(1173)-v(1174)+v(1175)+v(1622)*v(195)+v(853)
dRdX(6,10)=v(1626)*v(196)+v(854)
dRdX(6,11)=v(855)
dRdX(6,12)=v(856)
dRdX(6,13)=v(857)
dRdX(6,14)=v(858)
dRdX(6,15)=v(859)
dRdX(6,16)=v(860)
dRdX(6,17)=v(861)
dRdX(6,18)=v(862)
dRdX(6,19)=v(863)
dRdX(7,1)=v(969)
dRdX(7,2)=v(1629)*v(187)+v(970)
dRdX(7,3)=v(1084)+v(1085)+v(1086)+v(1630)*v(189)+v(971)
dRdX(7,4)=v(1138)+v(1139)+v(1140)+v(1633)*v(190)+v(972)
dRdX(7,5)=v(1629)*v(191)+v(973)
dRdX(7,6)=v(1156)+v(1157)+v(1158)+v(1633)*v(192)+v(974)
dRdX(7,7)=-v(1120)-v(1121)+v(1122)+v(1635)*v(193)+v(975)
dRdX(7,8)=v(1629)*v(194)+v(976)
dRdX(7,9)=-v(1177)-v(1178)+v(1179)+v(1635)*v(195)+v(977)
dRdX(7,10)=-v(1207)-v(1208)+v(1209)+v(1630)*v(196)+v(978)
dRdX(7,11)=v(979)
dRdX(7,12)=v(980)
dRdX(7,13)=v(981)
dRdX(7,14)=v(982)
dRdX(7,15)=v(983)
dRdX(7,16)=v(984)
dRdX(7,17)=v(985)
dRdX(7,18)=v(986)
dRdX(7,19)=v(987)
dRdX(8,1)=v(969)
dRdX(8,2)=v(1112)+v(1113)+v(1114)+v(1636)*v(187)+v(970)
dRdX(8,3)=v(1202)+v(1203)+v(1204)+v(1638)*v(189)+v(971)
dRdX(8,4)=v(1640)*v(190)+v(972)
dRdX(8,5)=v(1193)+v(1194)+v(1195)+v(1638)*v(191)+v(973)
dRdX(8,6)=-v(1103)-v(1104)+v(1105)+v(1642)*v(192)+v(974)
dRdX(8,7)=v(1640)*v(193)+v(975)
dRdX(8,8)=-v(1151)-v(1152)+v(1153)+v(1642)*v(194)+v(976)
dRdX(8,9)=-v(1181)-v(1182)+v(1183)+v(1636)*v(195)+v(977)
dRdX(8,10)=v(1640)*v(196)+v(978)
dRdX(8,11)=v(979)
dRdX(8,12)=v(980)
dRdX(8,13)=v(981)
dRdX(8,14)=v(982)
dRdX(8,15)=v(983)
dRdX(8,16)=v(984)
dRdX(8,17)=v(985)
dRdX(8,18)=v(986)
dRdX(8,19)=v(987)
dRdX(9,1)=v(807)
dRdX(9,2)=v(1643)*v(187)+v(808)
dRdX(9,3)=v(1071)+v(1072)+v(1073)+v(1644)*v(189)+v(809)
dRdX(9,4)=v(1146)+v(1147)+v(1148)+v(1647)*v(190)+v(810)
dRdX(9,5)=v(1643)*v(191)+v(811)
dRdX(9,6)=v(1134)+v(1135)+v(1136)+v(1647)*v(192)+v(812)
dRdX(9,7)=-v(1125)-v(1126)+v(1127)+v(1649)*v(193)+v(813)
dRdX(9,8)=v(1643)*v(194)+v(814)
dRdX(9,9)=-v(1185)-v(1186)+v(1187)+v(1649)*v(195)+v(815)
dRdX(9,10)=-v(1212)-v(1213)+v(1214)+v(1644)*v(196)+v(816)
dRdX(9,11)=v(817)
dRdX(9,12)=v(818)
dRdX(9,13)=v(819)
dRdX(9,14)=v(820)
dRdX(9,15)=v(821)
dRdX(9,16)=v(822)
dRdX(9,17)=v(823)
dRdX(9,18)=v(824)
dRdX(9,19)=v(825)
dRdX(10,1)=v(845)
dRdX(10,2)=v(1177)+v(1178)+v(1179)+v(1650)*v(187)+v(846)
dRdX(10,3)=v(1651)*v(189)+v(847)
dRdX(10,4)=v(1093)+v(1094)+v(1095)+v(1654)*v(190)+v(848)
dRdX(10,5)=-v(1084)-v(1085)+v(1086)+v(1656)*v(191)+v(849)
dRdX(10,6)=v(1651)*v(192)+v(850)
dRdX(10,7)=v(1168)+v(1169)+v(1170)+v(1650)*v(193)+v(851)
dRdX(10,8)=-v(1156)-v(1157)+v(1158)+v(1654)*v(194)+v(852)
dRdX(10,9)=v(1651)*v(195)+v(853)
dRdX(10,10)=-v(1216)-v(1217)+v(1218)+v(1656)*v(196)+v(854)
dRdX(10,11)=v(855)
dRdX(10,12)=v(856)
dRdX(10,13)=v(857)
dRdX(10,14)=v(858)
dRdX(10,15)=v(859)
dRdX(10,16)=v(860)
dRdX(10,17)=v(861)
dRdX(10,18)=v(862)
dRdX(10,19)=v(863)
dRdX(11,1)=-(v(109)*v(1414))-v(130)*v(1570)+v(1573)*v(1591)
dRdX(11,2)=-(v(1415)*(v(1570)*v(732)+v(130)*v(885)))
dRdX(11,3)=-(v(1415)*(v(1570)*v(733)+v(130)*v(886)))
dRdX(11,4)=-(v(1415)*(v(1570)*v(734)+v(130)*v(887)))
dRdX(11,5)=-(v(1415)*(v(1570)*v(735)+v(130)*v(888)))
dRdX(11,6)=-(v(1415)*(v(1570)*v(736)+v(130)*v(889)))
dRdX(11,7)=-(v(1415)*(v(1570)*v(737)+v(130)*v(890)))
dRdX(11,8)=-(v(1415)*(v(1570)*v(738)+v(130)*v(891)))
dRdX(11,9)=-(v(1415)*(v(1570)*v(739)+v(130)*v(892)))
dRdX(11,10)=-(v(1415)*(v(1570)*v(740)+v(130)*v(893)))
dRdX(11,11)=v(1009)*v(1657)-v(1415)*(v(1414)*v(512)+v(1570)*v(741)+v(130)*v(894))
dRdX(11,12)=v(1268)+v(1269)+v(1270)+v(1011)*v(1658)-v(1415)*(v(1414)*v(513)+v(1570)*v(742)+v(130)*v(895))
dRdX(11,13)=v(1343)+v(1344)+v(1345)+v(1012)*v(1661)-v(1415)*(v(1414)*v(514)+v(1570)*v(743)+v(130)*v(896))
dRdX(11,14)=v(1013)*v(1657)-v(1415)*(v(1414)*v(515)+v(1570)*v(744)+v(130)*v(897))
dRdX(11,15)=v(1334)+v(1335)+v(1336)+v(1014)*v(1661)-v(1415)*(v(1414)*v(516)+v(1570)*v(745)+v(130)*v(898))
dRdX(11,16)=-v(1304)-v(1305)+v(1306)+v(1015)*v(1663)-v(1415)*(v(1414)*v(517)+v(1570)*v(746)+v(130)*v(899))
dRdX(11,17)=v(1016)*v(1657)-v(1415)*(v(1414)*v(518)+v(1570)*v(747)+v(130)*v(900))
dRdX(11,18)=-v(1355)-v(1356)+v(1357)+v(1017)*v(1663)-v(1415)*(v(1414)*v(519)+v(1570)*v(748)+v(130)*v(901))
dRdX(11,19)=-v(1385)-v(1386)+v(1387)+v(1018)*v(1658)-v(1415)*(v(1414)*v(520)+v(1570)*v(749)+v(130)*v(902))
dRdX(12,1)=-(v(112)*v(1414))-v(133)*v(1570)+v(1573)*v(1599)
dRdX(12,2)=-(v(1415)*(v(1570)*v(751)+v(133)*v(885)))
dRdX(12,3)=-(v(1415)*(v(1570)*v(752)+v(133)*v(886)))
dRdX(12,4)=-(v(1415)*(v(1570)*v(753)+v(133)*v(887)))
dRdX(12,5)=-(v(1415)*(v(1570)*v(754)+v(133)*v(888)))
dRdX(12,6)=-(v(1415)*(v(1570)*v(755)+v(133)*v(889)))
dRdX(12,7)=-(v(1415)*(v(1570)*v(756)+v(133)*v(890)))
dRdX(12,8)=-(v(1415)*(v(1570)*v(757)+v(133)*v(891)))
dRdX(12,9)=-(v(1415)*(v(1570)*v(758)+v(133)*v(892)))
dRdX(12,10)=-(v(1415)*(v(1570)*v(759)+v(133)*v(893)))
dRdX(12,11)=v(1377)+v(1378)+v(1379)+v(1009)*v(1664)-v(1415)*(v(1414)*v(522)+v(1570)*v(760)+v(133)*v(894))
dRdX(12,12)=v(1011)*v(1665)-v(1415)*(v(1414)*v(523)+v(1570)*v(761)+v(133)*v(895))
dRdX(12,13)=v(1290)+v(1291)+v(1292)+v(1012)*v(1668)-v(1415)*(v(1414)*v(525)+v(1570)*v(762)+v(133)*v(896))
dRdX(12,14)=-v(1263)-v(1264)+v(1265)+v(1013)*v(1670)-v(1415)*(v(1414)*v(526)+v(1570)*v(763)+v(133)*v(897))
dRdX(12,15)=v(1014)*v(1665)-v(1415)*(v(1414)*v(527)+v(1570)*v(764)+v(133)*v(898))
dRdX(12,16)=v(1365)+v(1366)+v(1367)+v(1015)*v(1664)-v(1415)*(v(1414)*v(529)+v(1570)*v(765)+v(133)*v(899))
dRdX(12,17)=-v(1326)-v(1327)+v(1328)+v(1016)*v(1668)-v(1415)*(v(1414)*v(530)+v(1570)*v(766)+v(133)*v(900))
dRdX(12,18)=v(1017)*v(1665)-v(1415)*(v(1414)*v(531)+v(1570)*v(767)+v(133)*v(901))
dRdX(12,19)=-v(1389)-v(1390)+v(1391)+v(1018)*v(1670)-v(1415)*(v(1414)*v(533)+v(1570)*v(768)+v(133)*v(902))
dRdX(13,1)=-(v(113)*v(1414))-v(135)*v(1570)+v(1573)*v(1607)
dRdX(13,2)=-(v(1415)*(v(1570)*v(770)+v(135)*v(885)))
dRdX(13,3)=-(v(1415)*(v(1570)*v(771)+v(135)*v(886)))
dRdX(13,4)=-(v(1415)*(v(1570)*v(772)+v(135)*v(887)))
dRdX(13,5)=-(v(1415)*(v(1570)*v(773)+v(135)*v(888)))
dRdX(13,6)=-(v(1415)*(v(1570)*v(774)+v(135)*v(889)))
dRdX(13,7)=-(v(1415)*(v(1570)*v(775)+v(135)*v(890)))
dRdX(13,8)=-(v(1415)*(v(1570)*v(776)+v(135)*v(891)))
dRdX(13,9)=-(v(1415)*(v(1570)*v(777)+v(135)*v(892)))
dRdX(13,10)=-(v(1415)*(v(1570)*v(778)+v(135)*v(893)))
dRdX(13,11)=v(1312)+v(1313)+v(1314)+v(1009)*v(1671)-v(1415)*(v(1414)*v(536)+v(1570)*v(779)+v(135)*v(894))
dRdX(13,12)=v(1408)+v(1409)+v(1410)+v(1011)*v(1673)-v(1415)*(v(1414)*v(538)+v(1570)*v(780)+v(135)*v(895))
dRdX(13,13)=v(1012)*v(1675)-v(1415)*(v(1414)*v(539)+v(1570)*v(781)+v(135)*v(896))
dRdX(13,14)=v(1399)+v(1400)+v(1401)+v(1013)*v(1673)-v(1415)*(v(1414)*v(541)+v(1570)*v(782)+v(135)*v(897))
dRdX(13,15)=-v(1285)-v(1286)+v(1287)+v(1014)*v(1677)-v(1415)*(v(1414)*v(543)+v(1570)*v(783)+v(135)*v(898))
dRdX(13,16)=v(1015)*v(1675)-v(1415)*(v(1414)*v(544)+v(1570)*v(784)+v(135)*v(899))
dRdX(13,17)=-v(1330)-v(1331)+v(1332)+v(1016)*v(1677)-v(1415)*(v(1414)*v(546)+v(1570)*v(785)+v(135)*v(900))
dRdX(13,18)=-v(1360)-v(1361)+v(1362)+v(1017)*v(1671)-v(1415)*(v(1414)*v(548)+v(1570)*v(786)+v(135)*v(901))
dRdX(13,19)=v(1018)*v(1675)-v(1415)*(v(1414)*v(549)+v(1570)*v(787)+v(135)*v(902))
dRdX(14,1)=v(928)
dRdX(14,2)=v(929)
dRdX(14,3)=v(930)
dRdX(14,4)=v(931)
dRdX(14,5)=v(932)
dRdX(14,6)=v(933)
dRdX(14,7)=v(934)
dRdX(14,8)=v(935)
dRdX(14,9)=v(936)
dRdX(14,10)=v(937)
dRdX(14,11)=v(1355)+v(1356)+v(1357)+v(1009)*v(1678)+v(938)
dRdX(14,12)=v(1011)*v(1679)+v(939)
dRdX(14,13)=v(1295)+v(1296)+v(1297)+v(1012)*v(1682)+v(940)
dRdX(14,14)=-v(1268)-v(1269)+v(1270)+v(1013)*v(1684)+v(941)
dRdX(14,15)=v(1014)*v(1679)+v(942)
dRdX(14,16)=v(1373)+v(1374)+v(1375)+v(1015)*v(1678)+v(943)
dRdX(14,17)=-v(1334)-v(1335)+v(1336)+v(1016)*v(1682)+v(944)
dRdX(14,18)=v(1017)*v(1679)+v(945)
dRdX(14,19)=-v(1394)-v(1395)+v(1396)+v(1018)*v(1684)+v(946)
dRdX(15,1)=v(906)
dRdX(15,2)=v(907)
dRdX(15,3)=v(908)
dRdX(15,4)=v(909)
dRdX(15,5)=v(910)
dRdX(15,6)=v(911)
dRdX(15,7)=v(912)
dRdX(15,8)=v(913)
dRdX(15,9)=v(914)
dRdX(15,10)=v(915)
dRdX(15,11)=v(1317)+v(1318)+v(1319)+v(1009)*v(1685)+v(916)
dRdX(15,12)=v(1389)+v(1390)+v(1391)+v(1011)*v(1687)+v(917)
dRdX(15,13)=v(1012)*v(1689)+v(918)
dRdX(15,14)=v(1404)+v(1405)+v(1406)+v(1013)*v(1687)+v(919)
dRdX(15,15)=-v(1290)-v(1291)+v(1292)+v(1014)*v(1691)+v(920)
dRdX(15,16)=v(1015)*v(1689)+v(921)
dRdX(15,17)=-v(1338)-v(1339)+v(1340)+v(1016)*v(1691)+v(922)
dRdX(15,18)=-v(1365)-v(1366)+v(1367)+v(1017)*v(1685)+v(923)
dRdX(15,19)=v(1018)*v(1689)+v(924)
dRdX(16,1)=v(950)
dRdX(16,2)=v(951)
dRdX(16,3)=v(952)
dRdX(16,4)=v(953)
dRdX(16,5)=v(954)
dRdX(16,6)=v(955)
dRdX(16,7)=v(956)
dRdX(16,8)=v(957)
dRdX(16,9)=v(958)
dRdX(16,10)=v(959)
dRdX(16,11)=v(1009)*v(1692)+v(960)
dRdX(16,12)=v(1276)+v(1277)+v(1278)+v(1011)*v(1693)+v(961)
dRdX(16,13)=v(1330)+v(1331)+v(1332)+v(1012)*v(1696)+v(962)
dRdX(16,14)=v(1013)*v(1692)+v(963)
dRdX(16,15)=v(1348)+v(1349)+v(1350)+v(1014)*v(1696)+v(964)
dRdX(16,16)=-v(1312)-v(1313)+v(1314)+v(1015)*v(1698)+v(965)
dRdX(16,17)=v(1016)*v(1692)+v(966)
dRdX(16,18)=-v(1369)-v(1370)+v(1371)+v(1017)*v(1698)+v(967)
dRdX(16,19)=-v(1399)-v(1400)+v(1401)+v(1018)*v(1693)+v(968)
dRdX(17,1)=v(950)
dRdX(17,2)=v(951)
dRdX(17,3)=v(952)
dRdX(17,4)=v(953)
dRdX(17,5)=v(954)
dRdX(17,6)=v(955)
dRdX(17,7)=v(956)
dRdX(17,8)=v(957)
dRdX(17,9)=v(958)
dRdX(17,10)=v(959)
dRdX(17,11)=v(1304)+v(1305)+v(1306)+v(1009)*v(1699)+v(960)
dRdX(17,12)=v(1394)+v(1395)+v(1396)+v(1011)*v(1701)+v(961)
dRdX(17,13)=v(1012)*v(1703)+v(962)
dRdX(17,14)=v(1385)+v(1386)+v(1387)+v(1013)*v(1701)+v(963)
dRdX(17,15)=-v(1295)-v(1296)+v(1297)+v(1014)*v(1705)+v(964)
dRdX(17,16)=v(1015)*v(1703)+v(965)
dRdX(17,17)=-v(1343)-v(1344)+v(1345)+v(1016)*v(1705)+v(966)
dRdX(17,18)=-v(1373)-v(1374)+v(1375)+v(1017)*v(1699)+v(967)
dRdX(17,19)=v(1018)*v(1703)+v(968)
dRdX(18,1)=v(928)
dRdX(18,2)=v(929)
dRdX(18,3)=v(930)
dRdX(18,4)=v(931)
dRdX(18,5)=v(932)
dRdX(18,6)=v(933)
dRdX(18,7)=v(934)
dRdX(18,8)=v(935)
dRdX(18,9)=v(936)
dRdX(18,10)=v(937)
dRdX(18,11)=v(1009)*v(1706)+v(938)
dRdX(18,12)=v(1263)+v(1264)+v(1265)+v(1011)*v(1707)+v(939)
dRdX(18,13)=v(1338)+v(1339)+v(1340)+v(1012)*v(1710)+v(940)
dRdX(18,14)=v(1013)*v(1706)+v(941)
dRdX(18,15)=v(1326)+v(1327)+v(1328)+v(1014)*v(1710)+v(942)
dRdX(18,16)=-v(1317)-v(1318)+v(1319)+v(1015)*v(1712)+v(943)
dRdX(18,17)=v(1016)*v(1706)+v(944)
dRdX(18,18)=-v(1377)-v(1378)+v(1379)+v(1017)*v(1712)+v(945)
dRdX(18,19)=-v(1404)-v(1405)+v(1406)+v(1018)*v(1707)+v(946)
dRdX(19,1)=v(906)
dRdX(19,2)=v(907)
dRdX(19,3)=v(908)
dRdX(19,4)=v(909)
dRdX(19,5)=v(910)
dRdX(19,6)=v(911)
dRdX(19,7)=v(912)
dRdX(19,8)=v(913)
dRdX(19,9)=v(914)
dRdX(19,10)=v(915)
dRdX(19,11)=v(1369)+v(1370)+v(1371)+v(1009)*v(1713)+v(916)
dRdX(19,12)=v(1011)*v(1714)+v(917)
dRdX(19,13)=v(1285)+v(1286)+v(1287)+v(1012)*v(1717)+v(918)
dRdX(19,14)=-v(1276)-v(1277)+v(1278)+v(1013)*v(1719)+v(919)
dRdX(19,15)=v(1014)*v(1714)+v(920)
dRdX(19,16)=v(1360)+v(1361)+v(1362)+v(1015)*v(1713)+v(921)
dRdX(19,17)=-v(1348)-v(1349)+v(1350)+v(1016)*v(1717)+v(922)
dRdX(19,18)=v(1017)*v(1714)+v(923)
dRdX(19,19)=-v(1408)-v(1409)+v(1410)+v(1018)*v(1719)+v(924)
END

max_stars_repo_name: kengwit/MaterialModels

max_issues_repo_name: kengwit/MaterialModels

max_forks_repo_name: kengwit/MaterialModels


text:
      program tticfg

      i = 2
      call foo (i)
      print *,i
      end

      subroutine foo (j)
      k = j + 1
      call bar (k)
      end

      subroutine bar (l)
      l = l + 2
      end

ext: f


text:
HANSARD REVISE * NUMERO 80
Le mercredi 25 mars 1998
M. Guy St-Julien
LA CORPORATION DE DEVELOPPEMENT MATTHEW DA COSTA
LE PRIX DOMUS DECERNE A LA VILLE DE LACHENAIE
LE PARTI REFORMISTE DU CANADA
LES JOURNEES MONDIALES DE L'EAU ET DE LA METEOROLOGIE
M. Pierre de Savoye
LE PARTI LIBERAL DU CANADA
M. Lawrence D. O'Brien
LE GALA ANNUEL DU MERITE DES GENS D'ICI
Mme Diane St-Jacques
Le tres hon. Jean Chretien
Le tres hon. Jean Chretien
Le tres hon. Jean Chretien
Le tres hon. Jean Chretien
L'hon. Pierre S. Pettigrew
L'hon. Pierre S. Pettigrew
L'hon. Pierre S. Pettigrew
Le tres hon. Jean Chretien
Le tres hon. Jean Chretien
Le tres hon. Jean Chretien
L'hon. Pierre S. Pettigrew
L'hon. Pierre S. Pettigrew
M. Jake E. Hoeppner
M. Jake E. Hoeppner
M. Svend J. Robinson
M. Svend J. Robinson
LA FONDATION DES BOURSES D'ETUDES DU MILLENAIRE
LA STRATEGIE DU POISSON DE FOND DE L'ATLANTIQUE
L'hon. Pierre S. Pettigrew
L'hon. Pierre S. Pettigrew
Le Comite permanent de la justice et des droits de la
PARTIE III DU BUDGET PRINCIPAL DES DEPENSES
RAPPORT SUR LES PLANS ET PRIORITES POUR 1998-1999
REPONSE DU GOUVERNEMENT A DES PETITIONS
LA LOI SUR LE MARIAGE (DEGRES PROHIBES)
Presentation et premiere lecture
M. Svend J. Robinson
Presentation et premiere lecture
M. Svend J. Robinson
LOI SUR LA COORDINATION NATIONALE DES SECOURS EN CAS DE
Presentation et premiere lecture
LOI SUR LES LETTRES ET BILLETS DE DEPOT
L'Accord multilateral sur l'investissement
L'Accord multilateral sur l'investissement
M. Svend J. Robinson
L'accord multilateral sur l'investissement
L'Accord multilateral sur l'investissement
Mme Judy Wasylycia-Leis
L'Accord multilateral sur l'investissement
LOI D'EXECUTION DU BUDGET DE 1998
Projet de loi C-36-Motion d'attribution de temps
L'EUTHANASIE ET LE SUICIDE ASSISTE
LOI DE 1997 MODIFIANT L'IMPOT SUR LE REVENU
Rejet de la motion no 1.
Rejet de la motion no 2.
Rejet de la motion no 3.
L'hon. Ethel Blondin-Andrew
Mme Judy Wasylycia-Leis
La Cour supreme du Canada
HANSARD REVISE * NUMERO 80
Le mercredi 25 mars 1998
La seance est ouverte a 14 heures.
Les deputes se levent et chantent O Canada.]
M. John Cannis (Scarborough-Centre, Lib.):
M. Peter Goldring (Edmonton-Est, Ref.):
Il a tout faux.
L'esprit de l'unite nationale n'est pas ne de quelques vols bon marche.
Il ne reussira pas a entraver la volonte des Canadiens en limitant les depenses.
Il ne pourra affaiblir l'appui envers le Canada a coup de lois.
Les Canadiens ont su montrer collectivement leur solidarite envers les Quebecois.
Les Canadiens se deplaceront encore et toujours quand on le leur demandera.
Nous serons la en pensee.
Nous vous aurons prevenu, M. Cote.
Les choses sont ainsi.
Vous ne reussirez pas a briser notre volonte.
M. Hec Clouthier (Renfrew-Nippissing-Pembroke, Lib.):
Ces augustes hommes et femmes ont bati ce pays au prix d'enormes sacrifices.
Nous pouvons remercier nos remarquables aines d'avoir prepare pour nous le chemin a parcourir.
M. Guy St-Julien (Abitibi, Lib.):
Ca, c'est un grand conflit d'interets quebecois.
LA CORPORATION DE DEVELOPPEMENT MATTHEW DA COSTA
L'hon. Sheila Finestone (Mont-Royal, Lib.):
M. Keith Martin (Esquimalt-Juan de Fuca, Ref.):
Est-ce la ce qu'il appelle une priorite?
Le gouvernement doit faire passer les malades avant la politique.
LE PRIX DOMUS DECERNE A LA VILLE DE LACHENAIE
M. Benoit Sauvageau (Repentigny, BQ):
LE PARTI REFORMISTE DU CANADA
M. Paul Bonwick (Simcoe-Grey, Lib.):
Ce poste rapporte un gros salaire de un dollar par annee.
Soit dit en passant, c'est un ancien depute reformiste.
Le gouvernement liberal nomme des gens selon leurs competences et non selon leur appartenance politique.
Le chef du Parti reformiste et ses joyeux lurons se sont trompes encore une fois.
Je crois que leurs partisans de l'Ouest meritent mieux que cela.
LES JOURNEES MONDIALES DE L'EAU ET DE LA METEOROLOGIE
M. Pierre de Savoye (Portneuf, BQ):
Tout ce qui est dans l'air affecte aussi le climat.
Inondations et verglas en sont vraisemblablement la consequence.
La vie en depend.
M. Ted McWhinney (Vancouver Quadra, Lib.):
LE PARTI LIBERAL DU CANADA
M. David Chatters (Athabasca, Ref.):
Cependant, hier, le premier ministre a remporte la palme.
Les actes sont plus eloquents que les paroles.
Or, les actes des liberaux montrent leur arrogance.
Est-ce la la politique de division dont les liberaux parlent si souvent?
Mme Alexa McDonough (Halifax, NPD):
Cependant, les liberaux ecoutent-ils?
Les liberaux de la Nouvelle-Ecosse n'ont pas ecoute non plus.
Aujourd'hui, ils ne sont pas aussi suffisants.
Le probleme reside dans les compressions des liberaux federaux, dans leur indifference.
Les liberaux n'ont pas ecoute.
Ils vont peut-etre le faire maintenant.
M. Lawrence D. O'Brien (Labrador, Lib.):
Monsieur le President, j'apprecie vraiment les applaudissements.
Il fait bon etre de retour.
LE GALA ANNUEL DU MERITE DES GENS D'ICI
Mme Diane St-Jacques (Shefford, PC):
M. Preston Manning (chef de l'opposition, Ref.):
La crise du saumon en Colombie-Britannique est un probleme recent.
Les conservateurs n'y sont pour rien.
L'hon. David Anderson (ministre des Peches et des Oceans, Lib.):
M. Preston Manning (chef de l'opposition, Ref.):
Eh bien, merci quand meme.
Le tres hon. Jean Chretien (premier ministre, Lib.):
Voulez-vous d'autres exemples?
Le tres hon. Jean Chretien:
J'y reviendrai plus tard.
M. Preston Manning (chef de l'opposition, Ref.):
L'hon. David Anderson (ministre des Peches et des Oceans, Lib.):
Les reformistes nous posent enfin des questions a ce sujet.
Je les remercie de leur interet.
Des permis ont ete retires.
De plus, il y a eu le phenomene El Nino.
M. Randy White (Langley-Abbotsford, Ref.):
Le tres hon. Jean Chretien (premier ministre, Lib.):
M. Randy White (Langley-Abbotsford, Ref.):
Monsieur le President, je vais dire au gouvernement ce qu'il a fait, en realite.
Il a sabre le financement des piscicultures et laisse les Americains...
J'exhorte les deputes a ecouter les questions et les reponses.
Je vais rendre la parole au leader de l'opposition a la Chambre.
Le tres hon. Jean Chretien (premier ministre, Lib.):
M. Gilles Duceppe (Laurier-Sainte-Marie, BQ):
Monsieur le President, le projet des bourses du millenaire a du plomb dans l'aile.
Meme les liberaux du Quebec cherchent a sortir le federal du petrin.
Le tres hon. Jean Chretien (premier ministre, Lib.):
M. Gilles Duceppe (Laurier-Sainte-Marie, BQ):
L'hon. Pierre S. Pettigrew (ministre du Developpement des ressources humaines, Lib.):
C'est absolument ridicule.
J'ai deja rencontre la Federation des etudiants universitaires du Quebec.
M. Paul Crete (Kamouraska-Riviere-du-Loup-Temiscouata-Les Basques, BQ):
L'hon. Pierre S. Pettigrew (ministre du Developpement des ressources humaines, Lib.):
Il y aura complementarite avec les produits deja offerts par les gouvernements provinciaux.
M. Paul Crete (Kamouraska-Riviere-du-Loup-Temiscouata-Les Basques, BQ):
L'hon. Pierre S. Pettigrew (ministre du Developpement des ressources humaines, Lib.):
Mme Alexa McDonough (Halifax, NPD):
Les Neo-Ecossais aussi.
Le tres hon. Jean Chretien (premier ministre, Lib.):
Nous avons pris des mesures.
Nous voulons continuer de le faire dans les annees a venir...
La parole est au chef du Nouveau Parti democratique.
Mme Alexa McDonough (Halifax, NPD):
Ma question s'adresse au premier ministre et elle est fort simple.
Le fera-t-il, oui ou non?
L'hon. Anne McLellan (ministre de la Justice et procureur general du Canada, Lib.):
M. Scott Brison (Kings-Hants, PC):
Monsieur le President, le verificateur general est le chien de garde des contribuables a Ottawa.
L'hon. Paul Martin (ministre des Finances, Lib.):
Monsieur le President, le verificateur general aura acces aux registres du fonds du millenaire.
M. Scott Brison (Kings-Hants, PC):
L'hon. Paul Martin (ministre des Finances, Lib.):
M. Mike Scott (Skeena, Ref.):
Ce n'est pas le moment de pointer un doigt accusateur vers les politiciens.
Les autochtones reclament une enquete judiciaire.
L'hon. Andy Scott (solliciteur general du Canada, Lib.):
Une enquete criminelle a commence.
C'est la province de l'Alberta qui a la competence dans cette affaire.
M. Preston Manning (chef de l'opposition, Ref.):
Le soliciteur general a la parole.
L'hon. Andy Scott (solliciteur general du Canada, Lib.):
M. Richard Marceau (Charlesbourg, BQ):
Monsieur le President, ma question s'adresse au ministre du Developpement des ressources humaines.
L'hon. Paul Martin (ministre des Finances, Lib.):
Je cede maintenant la parole a l'honorable depute de Charlesbourg.
M. Richard Marceau (Charlesbourg, BQ):
L'hon. Paul Martin (ministre des Finances, Lib.):
M. Bill Gilmour (Nanaimo-Alberni, Ref.):
C'est toute une revelation sur la mentalite du Parti liberal.
Faut-il tout simplement etre liberal?
Le tres hon. Jean Chretien (premier ministre, Lib.):
Ici, il y a une limite de temps.
Certains senateurs representent leur parti, mais certains y siegent comme independants.
C'est a eux de choisir.
Le Senat etudie serieusement les projets de loi de la Chambre des communes.
Il n'est pas soumis aux pressions des prochaines elections.
Peut-etre ne devrions-nous pas...
La deputee d'Edmonton-Nord.
Mme Deborah Grey (Edmonton-Nord, Ref.):
La fiche de presence du senateur Andrew Thompson a ete epouvantable pendant des annees.
Le senateur Andrew Thompson a maintenant pris sa retraite pour pouvoir toucher son enorme pension.
La deputee demande l'opinion du premier ministre.
Il peut repondre a la question s'il le desire.
Le tres hon. Jean Chretien (premier ministre, Lib.):
M. Yvan Bernier (Bonaventure-Gaspe-Iles-de-la-Madeleine-Pabok, BQ):
Monsieur le President, ma question s'adresse au ministre du Developpement des ressources humaines.
L'hon. Pierre S. Pettigrew (ministre du Developpement des ressources humaines, Lib.):
M. Yvan Bernier (Bonaventure-Gaspe-Iles-de-la-Madeleine-Pabok, BQ):
Monsieur le President, je rappelle au ministre qu'on est rendu au printemps.
Il est temps qu'il sorte de son hibernation plutot que de sa reflexion.
L'hon. Pierre S. Pettigrew (ministre du Developpement des ressources humaines, Lib.):
On s'est souvent parle du Fonds transitoire de creation d'emplois.
Nous allons repondre au comite en temps et lieu.
M. Jake E. Hoeppner (Portage-Lisgar, Ref.):
M. Stan Keyes (secretaire parlementaire du ministre des Transports, Lib.):
La personne en question ne fait pas l'objet d'une enquete.
M. Jake E. Hoeppner (Portage-Lisgar, Ref.):
On s'y perd, monsieur le President, car les journaux disent le contraire.
M. Stan Keyes (secretaire parlementaire du ministre des Transports, Lib.):
C'est prouve et c'est tres clair.
La parole est a la deputee de Rimouski-Mitis.
Mme Suzanne Tremblay (Rimouski-Mitis, BQ):
Monsieur le President, ma question s'adresse au premier ministre.
L'hon. Sheila Copps (ministre du Patrimoine canadien, Lib.):
Monsieur le President, je l'ai ici.
Mme Sophia Leung (Vancouver Kingsway, Lib.):
L'hon. Raymond Chan (secretaire d'Etat (Asie-Pacifique), Lib.):
M. Monte Solberg (Medicine Hat, Ref.):
Meme petrole, prix different.
L'hon. David Anderson (ministre des Peches et des Oceans, Lib.):
Monsieur le President, une fois de plus, la question est tout simplement mal fondee.
Il y a, en outre, des organismes d'intervention d'urgence du secteur prive.
La parole est au depute de Medecine Hat.
M. Monte Solberg (Medicine Hat, Ref.):
Nous croyons qu'il devrait ecouter au moins les nombreux simples deputes de l'Ontario.
L'hon. David Anderson (ministre des Peches et des Oceans, Lib.):
Le depute de Burnaby-Douglas a la parole.
M. Svend J. Robinson (Burnaby-Douglas, NPD):
Monsieur le President, ma question s'adresse au ministre des Peches et des Oceans.
L'hon. David Anderson (ministre des Peches et des Oceans, Lib.):
La Colombie-Britannique aura un representant sur cette equipe de haut niveau.
M. Svend J. Robinson (Burnaby-Douglas, NPD):
L'hon. David Anderson (ministre des Peches et des Oceans, Lib.):
Monsieur le President, j'en donne ma parole au depute.
LA FONDATION DES BOURSES D'ETUDES DU MILLENAIRE
M. Charlie Power (St. John's-Ouest, PC):
L'hon. Paul Martin (ministre des Finances, Lib.):
Monsieur le President, la fondation sera un organisme externe.
Son bilan sera certainement rendu public.
M. Charlie Power (St. John's-Ouest, PC):
L'hon. Paul Martin (ministre des Finances, Lib.):
M. Janko Peri(Cambridge, Lib.):
M. Joseph Volpe (secretaire parlementaire du ministre de la Sante, Lib.):
Monsieur le President, c'est precisement ce qui se fait a l'heure actuelle.
M. John Duncan (Ile de Vancouver-Nord, Ref.):
Monsieur le President, la gestion des peches en Colombie-Britannique est lamentable.
Mais le ministre croit avoir trouve une solution a la crise du saumon coho.
L'hon. David Anderson (ministre des Peches et des Oceans, Lib.):
J'en suis tres heureux.
Mme Francine Lalonde (Mercier, BQ):
Monsieur le President, ma question s'adresse au ministre de l'Industrie.
L'hon. John Manley (ministre de l'Industrie, Lib.):
LA STRATEGIE DU POISSON DE FOND DE L'ATLANTIQUE
M. Peter Stoffer (Sackville-Eastern Shore, NPD):
Monsieur le President, ma question s'adresse au ministre des Finances.
L'hon. Pierre S. Pettigrew (ministre du Developpement des ressources humaines, Lib.):
Les mesures que nous introduirons apres la strategie seront des mesures responsables.
M. Jean Dube (Madawaska-Restigouche, PC):
L'hon. Pierre S. Pettigrew (ministre du Developpement des ressources humaines, Lib.):
M. Reg Alcock (Winnipeg-Sud, Lib.):
M. Gurmant Grewal (Surrey-Centre, Ref.):
L'hon. David Anderson (ministre des Peches et des Oceans, Lib.):
M. Zlatko Dominikovic, ministre de l'Agriculture et des Forets de la Republique de Croatie.
Je remercie le leader de l'opposition et la deputee de Windsor-St.
La premiere motion a ete presentee dans le cadre des travaux des subsides.
La deputee de Windsor-St.
PARTIE III DU BUDGET PRINCIPAL DES DEPENSES
RAPPORT SUR LES PLANS ET PRIORITES POUR 1998-1999
REPONSE DU GOUVERNEMENT A DES PETITIONS
LA LOI SUR LE MARIAGE (DEGRES PROHIBES)
LOI SUR LA COORDINATION NATIONALE DES SECOURS EN CAS DE DESASTRE AGRICOLE
LOI SUR LES LETTRES ET BILLETS DE DEPOT
(La motion est adoptee et le projet de loi est lu pour la premiere fois.)
Mme Deborah Grey (Edmonton-Nord, Ref.):
Les petitionnaires veulent attirer l'attention de la Chambre sur le fait suivant:
L'ACCORD MULTILATERAL SUR L'INVESTISSEMENT
M. Bill Blaikie (Winnipeg-Transcona, NPD):
Ils ajoutent que cet accord est antidemocratique.
M. Roy Cullen (Etobicoke-Nord, Lib.):
M. Claude Bachand (Saint-Jean, BQ):
Mme Shaughnessy Cohen (Windsor-St.
Mme Shaughnessy Cohen (Windsor-St.
M. Mike Scott (Skeena, Ref.):
M. Mike Scott (Skeena, Ref.):
Monsieur le President, ma deuxieme petition porte sur les droits des parents.
L'ACCORD MULTILATERAL SUR L'INVESTISSEMENT
M. Svend J. Robinson (Burnaby-Douglas, NPD):
Ils soulignent egalement que l'accord est antidemocratique.
M. Walt Lastewka (St. Catharines, Lib.):
L'ACCORD MULTILATERAL SUR L'INVESTISSEMENT
Mme Libby Davies (Vancouver-Est, NPD):
M. Jim Karygiannis (Scarborough-Agincourt, Lib.):
Etant le voisin d'un des petitionnaires, je suis entierement d'accord avec la petition.
J'espere qu'il ne le fera plus.
M. Maurice Vellacott (Wanuskewin, Ref.):
L'ACCORD MULTILATERAL SUR L'INVESTISSEMENT
M. Peter Stoffer (Sackville-Eastern Shore, NPD):
Je suis particulierement fier de presenter celle qui vient de Calgary.
Mme Judy Wasylycia-Leis (Winnipeg-Centre-Nord, NPD):
Tous s'inquietent vivement de l'Accord multilateral sur l'investissement.
M. Paul Szabo (Mississauga-Sud, Lib.):
L'ACCORD MULTILATERAL SUR L'INVESTISSEMENT
Mme Louise Hardy (Yukon, NPD):
En consequence, les petitionnaires demandent que le Parlement rejette l'AMI.
M. John Solomon (Regina-Lumsden-Lake Centre, NPD):
Ils sont d'avis que cet accord est vicie.
Monsieur le President, je suggere que toutes les questions soient reservees.
M. Jim Pankiw (Saskatoon-Humboldt, Ref.):
Monsieur le President, je remercie le depute de sa question.
Dans les circonstances, je ne sais ce que nous pouvons faire de plus.
LOI D'EXECUTION DU BUDGET DE 1998
PROJET DE LOI C-36-MOTION D'ATTRIBUTION DE TEMPS
L'hon. Don Boudria (leader du gouvernement a la Chambre des communes, Lib.) propose:
J'invoque le Reglement, monsieur le President.
C'est de l'hypocrisie pure.
Plait-il a la Chambre d'adopter cette motion?
Que tous ceux qui appuient la motion veuillent bien dire oui.
Que tous ceux qui sont contre veuillent bien dire non.
A mon avis, les oui l'emportent.
Et plus de cinq deputes s'etant leves:
(La motion, mise aux voix, est adoptee.)
Je declare la motion adoptee.
J'invoque le Reglement, monsieur le President.
Je ne suis pas sure que leurs votes devraient compter.
Il lui restait trois minutes.
M. Jim Jones (Markham, PC):
Le rapport recommandait de les appliquer sans tarder.
Les impots demeurent trop eleves au Canada.
M. Tony Valeri (secretaire parlementaire du ministre des Finances, Lib.):
Monsieur le President, le depute parlait de la petite entreprise.
Le depute a parle ensuite du niveau de la dette.
Je voudrais attirer l'attention du depute sur le budget Wilson de 1989.
En quoi cela aide-t-il les petites entreprises?
M. Werner Schmidt (Kelowna, Ref.):
Monsieur le President, je remercie le depute de Kelowna de sa question.
Nous siegeons au meme comite.
Nous commencons a comprendre la gravite du probleme que pose l'an 2000.
Il est question de 6 milliards de dollars environ juste pour regler le probleme.
Qui sait quelles seront les repercussions sur le plan juridique.
Hier, on nous a fait un expose sur les puces.
Il n'est pas si facile de reparer quoi que ce soit.
On parle ici du cout de leur remplacement.
C'est un probleme tres grave sur lequel le gouvernement doit se pencher serieusement.
Il planifie egalement la fete du millenaire.
M. Norman Doyle (St. John's-Est, PC):
Les services assures par les provinces dans ces domaines ont donc subi d'importantes compressions.
Les budgets precedents avaient aussi apporte leur lot de compressions.
Mais cette nouvelle est de peu de reconfort pour Terre-Neuve et le Labrador.
Notre taux de chomage est le double de celui de la moyenne nationale.
L'annee derniere, 9 200 personnes ont emigre de Terre-Neuve.
Les reductions d'impot annoncees dans le budget sont extremement modestes.
Elles ne sont pas assez importantes pour stimuler l'economie interieure.
Il nous faut une meilleure formule.
Il nous faut un regime de perequation plus genereux.
M. Paul Szabo (Mississauga-Sud, Lib.):
Monsieur le President, le depute a touche plusieurs sujets.
Chacune des provinces devra revoir cette question de pres.
Ma question decoule en fait du commentaire final du depute.
Je suis desole que le depute l'ai fait.
Plusieurs possibilites s'offrent a nous.
Elles visaient le Canada atlantique en general.
Il n'y a aucun effort de creation d'emploi dans ce budget.
C'est toujours la meme rengaine avec les liberaux.
Le depute parle des paiements de transfert aux diverses provinces.
Je regrette de n'avoir pas eu un peu plus de temps pour approfondir cela.
Ce sont les provinces qui ont ete le plus durement touchees.
C'est toujours la meme rengaine avec le gouvernement actuel.
Il y a de nombreuses choses interessantes qui se produisent a Terre-Neuve.
Quant a l'exploitation dans la baie Voisey, elle devrait, nous l'esperons, commencer bientot.
Ce sont la des projets qui vont se derouler dans l'avenir.
Il faut creer des emplois a Terre-Neuve et au Labrador.
Chaque annee, 9 200 personnes quittent notre province.
J'ai vraiment peur pour cette petite province.
Terre-Neuve ne devrait pas subir pareille hemorragie.
Cette situation nous preoccupe vivement.
Nous passons donc aux discours de 10 minutes, sans questions ni observations.
M. Yvon Charbonneau (Anjou-Riviere-des-Prairies, Lib.):
Cela, en soi, merite d'etre commente longuement.
Je voudrais aborder un autre angle en particulier.
On sait qu'il est le porte-parole en matiere de finances du Bloc quebecois.
C'est un programme tout a fait inacceptable pour nous.
Il faudrait qu'il se fasse une idee.
C'est egalement la cle de la mobilite pour toute leur carriere.
Le Canada est beaucoup plus qu'un marche, c'est une collectivite.
Notre pays repose sur le partage des risques et le partage des avantages.
Nous y croyons enormement.
Cette strategie comporte plusieurs volets.
Je pense que ce sont des sommes importantes.
Les citoyens, les Canadiens et les Canadiennes, ont le droit de connaitre ces realites.
Encore une fois, il s'agit d'ouvrir la porte a la cooperation.
Je pense que la jeunesse canadienne et quebecoise pourrait en profiter.
M. Bob Mills (Red Deer, Ref.):
Il nous a fait ca 38 fois.
Ce budget est tres trompeur.
Pourtant, le verificateur general deplore les methodes comptables du ministre des Finances.
En 1969, la dette etait inexistante.
En tout juste trois ans, elle est passee a 18 milliards de dollars.
C'est de ca dont on devrait parler.
C'est de ca dont les gens disent que nous devrions nous occuper.
C'est ca qui menace notre filet de securite sociale.
Voila ce qui menace nos regimes de sante, d'enseignement et de retraite.
Voila ce qui nuira plus que tout aux generations a venir.
Le gouvernement decide d'en faire abstraction et il recommence a depenser.
Ils se retrouvent dans la rue parce qu'ils ont perdu leurs sources de revenu.
Les prix du riz augmentent constamment.
Le Japon a trop emprunte aupres des banques.
Il ne tient absolument pas compte du monde dans lequel nous vivons.
Que se passe-t-il lorsque des produits concurrentiels peu couteux arrivent sur le marche?
L'economie des Etats-Unis en souffre.
Lorsque leur economie va mal, celle du Canada empire.
Le gouvernement a totalement esquive ses responsabilites lorsqu'il s'est prepare pour cet avenir.
Examinons les chiffres concernant notre dette.
Notre paiement d'interets s'eleve a 45 milliards de dollars.
Nous accusons un recul par rapport a bien d'autres pays du monde.
Notre revenu disponible diminue.
Le gouvernement avait le choix.
Il pouvait s'occuper de la dette et des problemes qui en decoulent.
C'est cette troisieme option qu'il a choisie.
La croissance n'a jamais regle tous les problemes et elle ne les reglera jamais.
Des economies sont-elles possibles?
Un futur gouvernement heritera de ce fardeau.
Les Canadiens ne sont pas stupides.
Ils savent bien que ce n'est pas la verite.
Le gouvernement a decide de faire la sourde oreille.
Leur reaction ne sera certes pas favorable au ministre des Finances ou a son gouvernement.
M. Lynn Myers (Waterloo-Wellington, Lib.):
Le projet de loi cree notamment la Fondation canadienne des bourses d'etudes du millenaire.
Je voudrais souligner d'autres elements de cette strategie.
Nous proposons donc deux nouvelles mesures pour leur venir en aide.
Jusqu'a 250 000 Canadiens profiteront de cette mesure.
Quelque 50 000 etudiants a temps partiel avec enfants profiteront de cette mesure.
Enfin, notre strategie prevoit des mesures pour accroitre l'acces des Canadiens a l'inforoute.
M. Antoine Dube (Levis, BQ):
Premierement, on parle des bourses du millenaire.
C'est un projet que caressait le premier ministre depuis longtemps, semble-t-il.
J'ai note, au fur et a mesure, quelques petits details.
4. La fondation n'est pas mandataire de Sa Majeste.
C'est donc une Fondation qui n'est pas directement mandataire du gouvernement.
En principe, ce serait une fondation carrement independante.
Ces six membres vont nommer les autres.
Il y a des choses qui sont parfois insolites.
En premier lieu, on dit: [...]
Cela est assez curieux, car c'est une evidence.
Mais la n'est pas le probleme, et on le sait bien.
Pourquoi en l'an 2000?
C'est une recherche de visibilite.
Ce programme est de l'ordre de 60 millions de dollars, incluant les drapeaux.
Je suis le porte-parole du Bloc quebecois en matiere de developpement regional.
Pour devenir l'Agence de developpement economique du Canada pour les regions du Quebec.
Tout cela est une recherche de visibilite.
Je vais passer par-dessus les petits chiffres.
Finalement, dans ce cas, il y a des coupures pour des programmes tres precis.
M. John Bryden (Wentworth-Burlington, Lib.):
Cela est tres important pour les etudiants.
Que faire a ce sujet?
Nous avons plusieurs possibilites.
La presidente suppleante (Mme Thibeault):
L'EUTHANASIE ET LE SUICIDE ASSISTE
Mme Pauline Picard (Drummond, BQ):
La motion se lit comme suit:
La mort est l'acte final du theatre de la vie.
Elle demandait le droit d'interrompre ce traitement de soutien.
Deux autres cas meritent d'etre mentionnes ici.
Ce n'est pas ca, mourir dans la dignite.
Finalement, le cas de Robert Latimer pose d'autres questions.
Cette fois, il n'etait pas celui qui etait malade.
Elle n'avait aucun espoir de voir son etat s'ameliorer.
Il faudra, un jour ou l'autre, que le Parlement se prononce.
Autre chose que la liberte de choisir?
M. Paul Steckle (Huron-Bruce, Lib.):
Il ne s'agit pas d'une idee nouvelle.
L'euthanasie est aussi vieille que la maladie.
Elle occupe l'avant-scene des debats politiques depuis de nombreuses annees.
Cela est aussi conforme a des milliers d'annees d'ideologie religieuse etablie.
Je me dois de mentionner la question de l'aide au suicide.
Elle ne veut pas que ses membres pratiquent l'aide au suicide.
Je ne siege a la Chambre que depuis quelques annees.
Nous l'avons deja fait.
Mon opinion personnelle en ce qui a trait a l'euthanasie est fort simple.
Ce n'est pas du tout la meme chose.
Je ne suis pas du tout d'accord.
Je sais qu'il s'agit d'un exemple extreme.
C'est absolument inacceptable.
Je tiens a reiterer de nouveau mon opposition a la motion a l'etude.
J'ai toujours appuye et je continue d'appuyer la loi telle qu'elle est.
M. Maurice Vellacott (Wanuskewin, Ref.):
Ceci n'est pas considere comme l'euthanasie.
C'est la deuxieme chose qui pourrait faire disparaitre cette faible majorite.
Il faut que le public le sache.
La disponibilite de ces services varie d'une region a l'autre.
Ce n'est guere representatif de la volonte democratique.
M. Jason Kenney (Calgary-Sud-Est, Ref.):
Ce n'est pas par hasard.
Les droits humains fondamentaux, comme le droit a la vie, sont inalienables.
C'est ce que laisse entendre le preambule de la Constitution.
Mme Libby Davies (Vancouver-Est, NPD):
Il l'a fait avec courage.
Ce n'est pas une question facile.
Je voudrais soulever quelques points.
Cette question ne se reglera pas d'elle-meme.
Il suffit de penser a la fin tragique de Sue Rodriguez pour s'en convaincre.
Le statu quo est inacceptable en partie a cause de notre inaction.
De plus en plus de gens ont decide d'en savoir davantage sur leur sante.
C'est dans ce contexte qu'un debat public a eu lieu.
Un sondage Pollara realise en decembre 1997 m'a vivement interessee.
Je sais ce que c'est que d'accompagner un etre cher qui meurt.
Je sais ce que c'est que de soutenir une personne dans ces circonstances.
Je suis une fervente partisane des soins palliatifs.
C'est une chose que nous ne pouvons leur enlever.
C'est assurement la chose a faire que d'adopter cette motion.
J'exhorte tous les deputes a appuyer cette motion.
Mme Aileen Carroll (Barrie-Simcoe-Bradford, Lib.):
Il faut bien comprendre cela.
Examinons d'abord la relation medecin-patient.
Il faut preserver la confiance qui est inherente en pareil cas.
Nous aurons a justifier notre propre survie.
Le cadre juridique doit proteger le bien commun.
Dans le premier cas, on permet au malade de mourir.
Dans le second, on le tue.
La distinction est essentielle.
Nous ne devons pas accepter le concept du meurtre.
La Chambre decidera du moment le plus propice a ce debat.
L'essence du debat est tel que je viens de la decrire.
Nous devons etudier la question dans son ensemble.
Nous n'avons pas le droit de nous laisser emporter par nos emotions.
Nous ne devons pas suivre le chemin de la facilite.
C'est egalement la preoccupation premiere du legislateur.
La question porte sur l'amendement.
Plait-il a la Chambre d'adopter l'amendement?
Que tous ceux qui sont en faveur de l'amendement veuillent bien dire oui.
Que tous ceux qui s'y opposent veuillent bien dire non.
A mon avis, les non l'emportent.
Et plus de cinq deputes s'etant leves:
(L'amendement, mis aux voix, est rejete.)
Je declare l'amendement rejete.
Le prochain vote porte sur la motion principale.
Plait-il a la Chambre d'adopter la motion?
Que tous ceux qui sont en faveur de la motion veuillent bien dire oui.
Que tous ceux qui sont contre veuillent bien dire non.
A mon avis, les non l'emportent.
Et plus de cinq deputes s'etant leves:
Et le greffier ayant annonce le resultat du vote:
Monsieur le President, j'invoque le Reglement.
Je voudrais clarifier ma position.
Je suis profondement contre cette motion.
(La motion, mise aux voix, est rejetee.)
Je declare la motion rejetee.
LOI DE 1997 MODIFIANT L'IMPOT SUR LE REVENU
Le vote porte sur la motion no 1.
(La motion no 1, mise aux voix, est rejetee.)
Je declare la motion no 1 rejetee.
Le vote suivant porte sur la motion no 2.
Y a-t-il consentement unanime pour proceder de cette facon?
Monsieur le President, les deputes reformistes presents voteront en faveur de cette motion.
J'aimerais ajouter aux voix celle du depute de Vancouver-Nord.
Monsieur le President, les deputes du Bloc quebecois sont en faveur de cette motion.
Monsieur le President, les deputes neo-democrates presents a la Chambre ce soir votent oui.
Monsieur le President, les deputes de notre parti votent oui sur cette motion.
Monsieur le President, je voterai en faveur de cette motion.
(La motion no 2, mise aux voix, est rejetee.)
Monsieur le President, j'invoque le Reglement.
Y a-t-il consentement unanime pour proceder de cette facon?
Monsieur le President, les deputes reformistes presents voteront contre cette motion.
Monsieur le President, les deputes du Bloc quebecois s'opposent a cette motion.
Monsieur le President, les deputes neo-democrates presents voteront en faveur de cette motion.
Monsieur le President, les deputes de notre parti votent oui sur cette motion.
(La motion no 3, mise aux voix, est rejetee.)
Je declare la motion no 3 rejetee.
Monsieur le President, les deputes du Bloc quebecois votent contre cette motion.
Monsieur le President, les membres du Nouveau Parti democratique ici presents vote contre la motion.
Monsieur le President, les deputes de notre parti votent non sur cette motion.
(La motion, mise aux voix, est adoptee)
Je declare la motion adoptee.
M. Paul Szabo (Mississauga-Sud, Lib.):
Il va sans dire qu'il s'agit d'un probleme extremement grave.
L'hon. Ethel Blondin-Andrew (secretaire d'Etat (Enfance et Jeunesse), Lib.):
Je devrais ajouter que des travaux sont toutefois en cours au Canada a cet egard.
Je voudrais en outre faire quelques suggestions.
Nous pourrions peut-etre integrer ces...
La presidente suppleante (Mme Thibeault):
Je crains que votre temps de parole ne soit ecoule.
Mme Libby Davies (Vancouver-Est, NPD):
Vancouver-Est est l'une des principales circonscriptions multiculturelles au Canada.
Un grand nombre d'organisations et de services multiculturels sont etablis dans Vancouver-Est.
J'ai aussi entendu que le processus d'examen meme soulevait de graves inquietudes.
La recommandation concernant les exigences linguistiques a suscite elle aussi beaucoup d'inquietude.
La presidente suppleante (Mme Thibeault):
Mme Maria Minna (secretaire parlementaire du ministre de la Citoyennete et de l'Immigration, Lib.):
Il a ete redige par un groupe de consultants independant.
Il ne vient pas de la ministre ou du ministere.
La ministre n'est tenue d'appliquer aucune des 172 recommandations.
A l'origine, la ministre avait l'intention de tenir cinq journees de consultation.
M. Peter Stoffer (Sackville-Eastern Shore, NPD):
Je l'accompagnerai de quelques observations.
Ma question etait tres directe.
Ma question etait tres directe.
M. Wayne Easter (secretaire parlementaire du ministre des Peches et des Oceans, Lib.):
Madame la Presidente, je vais tacher d'etre bref.
Nous ne saurions avoir trop de competences dans ce domaine.
De meme, les comportements des pecheurs au chalut peuvent entraver l'activite des pecheurs recreatifs.
La presidente suppleante (Mme Thibeault):
Je crains que votre temps ne soit ecoule.
Mme Judy Wasylycia-Leis (Winnipeg-Centre-Nord, NPD):
On peut remarquer que le projet de reglement a ete publie le 24 janvier.
La population a eu jusqu'au 23 fevrier seulement pour y repondre.
Est-ce l'industrie ou le ministre de la Sante?
Le ministre de la Sante a-t-il son mot a dire?
M. Walt Lastewka (secretaire parlementaire du ministre de l'Industrie, Lib.):
Je dois signaler que le parti de la deputee a rarement assiste a ces seances.
Le comite a recommande de revoir le regime reglementaire.
Les discussions avec les interesses se sont poursuivies depuis.
C'est ainsi que des modifications ont ete proposees.
C'etait conforme a la pratique.
Le nouveau reglement resout ces problemes.
Notre pays est le seul a avoir a la fois...
La presidente suppleante (Mme Thibeault):
Je suis desolee, mais le temps du depute est ecoule.
LA COUR SUPREME DU CANADA
M. Paul Forseth (New Westminster-Coquitlam-Burnaby, Ref.):
Quel genre de conseils sociologiques a-t-elle recus avant de proceder a la nomination?
La ministre n'a-t-elle pas consulte l'ancien juge La Forest?
Aux Etats-Unis, les candidats a la Cour supreme sont nommes par le president.
Jusqu'a maintenant, 12 nominations ont ete rejetees et 17 ont ete retirees.
Le processus d'examen public a du merite.
Ne voulons-nous pas que les meilleurs juges siegent au plus haut tribunal du pays?
Ne voulons-nous pas accroitre l'estime du public a l'egard de ce tribunal?
Ou encore le Senat pourrait tenir des audiences de ratification.
Les ministres provinciaux de la Justice veulent du changement.
D'anciens juges de la Cour supreme veulent du changement.
Pourquoi donc la ministre fait-elle fi de ces appels au changement?
Meme le gouvernement dit qu'il veut du changement, mais il ne se passe rien.
C'est comme la question de la Loi sur les jeunes contrevenants depuis 1993.
Mme Maria Minna (secretaire parlementaire du ministre de la Citoyennete et de l'Immigration, Lib.):
Permettez-moi de donner a la Chambre l'assurance que le gouvernement...
La presidente suppleante (Mme Thibeault):
J'ai bien peur que le temps de parole de la deputee ne soit ecoule.
La motion portant que la Chambre s'ajourne maintenant est reputee adoptee.
(La seance est levee a 19 h 50.)