1 2! KGEN-generated Fortran source file 3! 4! Filename : mo_lu_factor.F90 5! Generated at: 2015-05-13 11:02:22 6! KGEN version: 0.4.10 7 8 9 10 MODULE mo_lu_factor 11 USE kgen_utils_mod, ONLY : kgen_dp, check_t, kgen_init_check, kgen_print_check 12 PRIVATE 13 PUBLIC lu_fac 14 CONTAINS 15 16 ! write subroutines 17 ! No subroutines 18 ! No module extern variables 19 20 SUBROUTINE lu_fac01(lu) 21 USE shr_kind_mod, ONLY: r8 => shr_kind_r8 22 IMPLICIT NONE 23 !----------------------------------------------------------------------- 24 ! ... dummy args 25 !----------------------------------------------------------------------- 26 REAL(KIND=r8), intent(inout) :: lu(:) 27 lu(1) = 1._r8 / lu(1) 28 lu(2) = 1._r8 / lu(2) 29 lu(3) = 1._r8 / lu(3) 30 lu(4) = 1._r8 / lu(4) 31 lu(5) = 1._r8 / lu(5) 32 lu(6) = 1._r8 / lu(6) 33 lu(7) = 1._r8 / lu(7) 34 lu(8) = 1._r8 / lu(8) 35 lu(9) = 1._r8 / lu(9) 36 lu(10) = 1._r8 / lu(10) 37 lu(11) = 1._r8 / lu(11) 38 lu(12) = 1._r8 / lu(12) 39 lu(13) = 1._r8 / lu(13) 40 lu(14) = 1._r8 / lu(14) 41 lu(15) = 1._r8 / lu(15) 42 lu(16) = 1._r8 / lu(16) 43 lu(17) = 1._r8 / lu(17) 44 lu(18) = lu(18) * lu(17) 45 lu(19) = lu(19) * lu(17) 46 lu(1383) = lu(1383) - lu(18) * lu(1296) 47 lu(1389) = lu(1389) - lu(19) * lu(1296) 48 lu(20) = 1._r8 / lu(20) 49 lu(21) = lu(21) * lu(20) 50 lu(22) = lu(22) * lu(20) 51 lu(1044) = lu(1044) - lu(21) * lu(1029) 52 lu(1046) = lu(1046) - lu(22) * lu(1029) 53 lu(23) = 1._r8 / lu(23) 54 lu(24) = lu(24) * lu(23) 55 lu(25) = lu(25) * lu(23) 56 lu(1341) = lu(1341) - lu(24) * lu(1297) 57 lu(1389) = lu(1389) - lu(25) * lu(1297) 58 lu(26) = 1._r8 / lu(26) 59 lu(27) = lu(27) * lu(26) 60 lu(28) = lu(28) * lu(26) 61 lu(1311) = lu(1311) - lu(27) * lu(1298) 62 lu(1389) = lu(1389) - lu(28) * lu(1298) 63 lu(29) = 1._r8 / lu(29) 64 lu(30) = lu(30) * lu(29) 65 lu(31) = lu(31) * lu(29) 66 lu(32) = lu(32) * lu(29) 67 lu(1354) = lu(1354) - lu(30) * lu(1299) 68 lu(1389) = lu(1389) - lu(31) * lu(1299) 69 lu(1392) = lu(1392) - lu(32) * lu(1299) 70 lu(33) = 1._r8 / lu(33) 71 lu(34) = lu(34) * lu(33) 72 lu(35) = lu(35) * lu(33) 73 lu(36) = lu(36) * lu(33) 74 lu(37) = lu(37) * lu(33) 75 lu(1301) = lu(1301) - lu(34) * lu(1300) 76 lu(1330) = lu(1330) - lu(35) * lu(1300) 77 lu(1383) = lu(1383) - lu(36) * lu(1300) 78 lu(1389) = lu(1389) - lu(37) * lu(1300) 79 lu(38) = 1._r8 / lu(38) 80 lu(39) = lu(39) * lu(38) 81 lu(40) = lu(40) * lu(38) 82 lu(1304) = lu(1304) - lu(39) * lu(1301) 83 lu(1389) = lu(1389) - lu(40) * lu(1301) 84 lu(41) = 1._r8 / lu(41) 85 lu(42) = lu(42) * lu(41) 86 lu(43) = lu(43) * lu(41) 87 lu(387) = lu(387) - lu(42) * lu(386) 88 lu(394) = - lu(43) * lu(386) 89 lu(1066) = - lu(42) * lu(1056) 90 lu(1120) = lu(1120) - lu(43) * lu(1056) 91 lu(44) = 1._r8 / lu(44) 92 lu(45) = lu(45) * lu(44) 93 lu(46) = lu(46) * lu(44) 94 lu(962) = lu(962) - lu(45) * lu(958) 95 lu(970) = lu(970) - lu(46) * lu(958) 96 lu(1346) = - lu(45) * lu(1302) 97 lu(1380) = - lu(46) * lu(1302) 98 lu(47) = 1._r8 / lu(47) 99 lu(48) = lu(48) * lu(47) 100 lu(49) = lu(49) * lu(47) 101 lu(80) = lu(80) - lu(48) * lu(79) 102 lu(83) = lu(83) - lu(49) * lu(79) 103 lu(1462) = lu(1462) - lu(48) * lu(1460) 104 lu(1484) = lu(1484) - lu(49) * lu(1460) 105 END SUBROUTINE lu_fac01 106 107 SUBROUTINE lu_fac02(lu) 108 USE shr_kind_mod, ONLY: r8 => shr_kind_r8 109 IMPLICIT NONE 110 !----------------------------------------------------------------------- 111 ! ... dummy args 112 !----------------------------------------------------------------------- 113 REAL(KIND=r8), intent(inout) :: lu(:) 114 lu(50) = 1._r8 / lu(50) 115 lu(51) = lu(51) * lu(50) 116 lu(54) = lu(54) - lu(51) * lu(52) 117 lu(903) = lu(903) - lu(51) * lu(886) 118 lu(942) = lu(942) - lu(51) * lu(917) 119 lu(1013) = lu(1013) - lu(51) * lu(984) 120 lu(53) = 1._r8 / lu(53) 121 lu(54) = lu(54) * lu(53) 122 lu(903) = lu(903) - lu(54) * lu(887) 123 lu(942) = lu(942) - lu(54) * lu(918) 124 lu(968) = lu(968) - lu(54) * lu(959) 125 lu(1013) = lu(1013) - lu(54) * lu(985) 126 lu(55) = 1._r8 / lu(55) 127 lu(56) = lu(56) * lu(55) 128 lu(490) = lu(490) - lu(56) * lu(485) 129 lu(564) = lu(564) - lu(56) * lu(558) 130 lu(829) = lu(829) - lu(56) * lu(819) 131 lu(1046) = lu(1046) - lu(56) * lu(1030) 132 lu(1150) = lu(1150) - lu(56) * lu(1125) 133 lu(57) = 1._r8 / lu(57) 134 lu(58) = lu(58) * lu(57) 135 lu(59) = lu(59) * lu(57) 136 lu(60) = lu(60) * lu(57) 137 lu(970) = lu(970) - lu(58) * lu(960) 138 lu(973) = lu(973) - lu(59) * lu(960) 139 lu(979) = lu(979) - lu(60) * lu(960) 140 lu(1380) = lu(1380) - lu(58) * lu(1303) 141 lu(1383) = lu(1383) - lu(59) * lu(1303) 142 lu(1389) = lu(1389) - lu(60) * lu(1303) 143 lu(61) = 1._r8 / lu(61) 144 lu(62) = lu(62) * lu(61) 145 lu(63) = lu(63) * lu(61) 146 lu(64) = lu(64) * lu(61) 147 lu(1263) = lu(1263) - lu(62) * lu(1259) 148 lu(1285) = lu(1285) - lu(63) * lu(1259) 149 lu(1290) = lu(1290) - lu(64) * lu(1259) 150 lu(1331) = - lu(62) * lu(1304) 151 lu(1383) = lu(1383) - lu(63) * lu(1304) 152 lu(1388) = lu(1388) - lu(64) * lu(1304) 153 lu(65) = 1._r8 / lu(65) 154 lu(66) = lu(66) * lu(65) 155 lu(67) = lu(67) * lu(65) 156 lu(68) = lu(68) * lu(65) 157 lu(962) = lu(962) - lu(66) * lu(961) 158 lu(970) = lu(970) - lu(67) * lu(961) 159 lu(974) = lu(974) - lu(68) * lu(961) 160 lu(1346) = lu(1346) - lu(66) * lu(1305) 161 lu(1380) = lu(1380) - lu(67) * lu(1305) 162 lu(1384) = lu(1384) - lu(68) * lu(1305) 163 lu(69) = 1._r8 / lu(69) 164 lu(70) = lu(70) * lu(69) 165 lu(71) = lu(71) * lu(69) 166 lu(399) = lu(399) - lu(70) * lu(396) 167 lu(401) = - lu(71) * lu(396) 168 lu(825) = - lu(70) * lu(820) 169 lu(829) = lu(829) - lu(71) * lu(820) 170 lu(1038) = lu(1038) - lu(70) * lu(1031) 171 lu(1046) = lu(1046) - lu(71) * lu(1031) 172 lu(1187) = lu(1187) - lu(70) * lu(1180) 173 lu(1194) = lu(1194) - lu(71) * lu(1180) 174 lu(72) = 1._r8 / lu(72) 175 lu(73) = lu(73) * lu(72) 176 lu(74) = lu(74) * lu(72) 177 lu(433) = lu(433) - lu(73) * lu(432) 178 lu(436) = lu(436) - lu(74) * lu(432) 179 lu(649) = lu(649) - lu(73) * lu(648) 180 lu(656) = lu(656) - lu(74) * lu(648) 181 lu(1439) = lu(1439) - lu(73) * lu(1438) 182 lu(1451) = - lu(74) * lu(1438) 183 lu(1463) = lu(1463) - lu(73) * lu(1461) 184 lu(1477) = lu(1477) - lu(74) * lu(1461) 185 lu(75) = 1._r8 / lu(75) 186 lu(76) = lu(76) * lu(75) 187 lu(77) = lu(77) * lu(75) 188 lu(78) = lu(78) * lu(75) 189 lu(463) = lu(463) - lu(76) * lu(459) 190 lu(466) = lu(466) - lu(77) * lu(459) 191 lu(469) = - lu(78) * lu(459) 192 lu(861) = lu(861) - lu(76) * lu(850) 193 lu(876) = lu(876) - lu(77) * lu(850) 194 lu(881) = - lu(78) * lu(850) 195 lu(1362) = lu(1362) - lu(76) * lu(1306) 196 lu(1383) = lu(1383) - lu(77) * lu(1306) 197 lu(1389) = lu(1389) - lu(78) * lu(1306) 198 lu(80) = 1._r8 / lu(80) 199 lu(81) = lu(81) * lu(80) 200 lu(82) = lu(82) * lu(80) 201 lu(83) = lu(83) * lu(80) 202 lu(552) = lu(552) - lu(81) * lu(551) 203 lu(554) = lu(554) - lu(82) * lu(551) 204 lu(557) = - lu(83) * lu(551) 205 lu(1357) = lu(1357) - lu(81) * lu(1307) 206 lu(1379) = lu(1379) - lu(82) * lu(1307) 207 lu(1392) = lu(1392) - lu(83) * lu(1307) 208 lu(1464) = - lu(81) * lu(1462) 209 lu(1471) = lu(1471) - lu(82) * lu(1462) 210 lu(1484) = lu(1484) - lu(83) * lu(1462) 211 lu(84) = 1._r8 / lu(84) 212 lu(85) = lu(85) * lu(84) 213 lu(86) = lu(86) * lu(84) 214 lu(87) = lu(87) * lu(84) 215 lu(88) = lu(88) * lu(84) 216 lu(89) = lu(89) * lu(84) 217 lu(1133) = lu(1133) - lu(85) * lu(1126) 218 lu(1141) = lu(1141) - lu(86) * lu(1126) 219 lu(1150) = lu(1150) - lu(87) * lu(1126) 220 lu(1155) = lu(1155) - lu(88) * lu(1126) 221 lu(1158) = - lu(89) * lu(1126) 222 lu(1349) = lu(1349) - lu(85) * lu(1308) 223 lu(1375) = lu(1375) - lu(86) * lu(1308) 224 lu(1384) = lu(1384) - lu(87) * lu(1308) 225 lu(1389) = lu(1389) - lu(88) * lu(1308) 226 lu(1392) = lu(1392) - lu(89) * lu(1308) 227 lu(90) = 1._r8 / lu(90) 228 lu(91) = lu(91) * lu(90) 229 lu(92) = lu(92) * lu(90) 230 lu(93) = lu(93) * lu(90) 231 lu(94) = lu(94) * lu(90) 232 lu(95) = lu(95) * lu(90) 233 lu(1129) = - lu(91) * lu(1127) 234 lu(1131) = - lu(92) * lu(1127) 235 lu(1137) = lu(1137) - lu(93) * lu(1127) 236 lu(1149) = lu(1149) - lu(94) * lu(1127) 237 lu(1155) = lu(1155) - lu(95) * lu(1127) 238 lu(1329) = lu(1329) - lu(91) * lu(1309) 239 lu(1343) = lu(1343) - lu(92) * lu(1309) 240 lu(1361) = lu(1361) - lu(93) * lu(1309) 241 lu(1383) = lu(1383) - lu(94) * lu(1309) 242 lu(1389) = lu(1389) - lu(95) * lu(1309) 243 END SUBROUTINE lu_fac02 244 245 SUBROUTINE lu_fac03(lu) 246 USE shr_kind_mod, ONLY: r8 => shr_kind_r8 247 IMPLICIT NONE 248 !----------------------------------------------------------------------- 249 ! ... dummy args 250 !----------------------------------------------------------------------- 251 REAL(KIND=r8), intent(inout) :: lu(:) 252 lu(96) = 1._r8 / lu(96) 253 lu(97) = lu(97) * lu(96) 254 lu(98) = lu(98) * lu(96) 255 lu(99) = lu(99) * lu(96) 256 lu(100) = lu(100) * lu(96) 257 lu(101) = lu(101) * lu(96) 258 lu(1357) = lu(1357) - lu(97) * lu(1310) 259 lu(1383) = lu(1383) - lu(98) * lu(1310) 260 lu(1389) = lu(1389) - lu(99) * lu(1310) 261 lu(1390) = lu(1390) - lu(100) * lu(1310) 262 lu(1391) = lu(1391) - lu(101) * lu(1310) 263 lu(1404) = lu(1404) - lu(97) * lu(1394) 264 lu(1427) = lu(1427) - lu(98) * lu(1394) 265 lu(1433) = lu(1433) - lu(99) * lu(1394) 266 lu(1434) = lu(1434) - lu(100) * lu(1394) 267 lu(1435) = lu(1435) - lu(101) * lu(1394) 268 lu(102) = 1._r8 / lu(102) 269 lu(103) = lu(103) * lu(102) 270 lu(104) = lu(104) * lu(102) 271 lu(105) = lu(105) * lu(102) 272 lu(106) = lu(106) * lu(102) 273 lu(107) = lu(107) * lu(102) 274 lu(1281) = lu(1281) - lu(103) * lu(1260) 275 lu(1289) = lu(1289) - lu(104) * lu(1260) 276 lu(1290) = lu(1290) - lu(105) * lu(1260) 277 lu(1292) = lu(1292) - lu(106) * lu(1260) 278 lu(1293) = lu(1293) - lu(107) * lu(1260) 279 lu(1423) = lu(1423) - lu(103) * lu(1395) 280 lu(1431) = lu(1431) - lu(104) * lu(1395) 281 lu(1432) = lu(1432) - lu(105) * lu(1395) 282 lu(1434) = lu(1434) - lu(106) * lu(1395) 283 lu(1435) = lu(1435) - lu(107) * lu(1395) 284 lu(108) = 1._r8 / lu(108) 285 lu(109) = lu(109) * lu(108) 286 lu(110) = lu(110) * lu(108) 287 lu(111) = lu(111) * lu(108) 288 lu(112) = lu(112) * lu(108) 289 lu(113) = lu(113) * lu(108) 290 lu(114) = lu(114) * lu(108) 291 lu(1215) = lu(1215) - lu(109) * lu(1204) 292 lu(1230) = lu(1230) - lu(110) * lu(1204) 293 lu(1248) = lu(1248) - lu(111) * lu(1204) 294 lu(1252) = lu(1252) - lu(112) * lu(1204) 295 lu(1253) = lu(1253) - lu(113) * lu(1204) 296 lu(1258) = lu(1258) - lu(114) * lu(1204) 297 lu(1342) = lu(1342) - lu(109) * lu(1311) 298 lu(1362) = lu(1362) - lu(110) * lu(1311) 299 lu(1383) = lu(1383) - lu(111) * lu(1311) 300 lu(1387) = lu(1387) - lu(112) * lu(1311) 301 lu(1388) = lu(1388) - lu(113) * lu(1311) 302 lu(1393) = lu(1393) - lu(114) * lu(1311) 303 lu(115) = 1._r8 / lu(115) 304 lu(116) = lu(116) * lu(115) 305 lu(117) = lu(117) * lu(115) 306 lu(118) = lu(118) * lu(115) 307 lu(119) = lu(119) * lu(115) 308 lu(335) = lu(335) - lu(116) * lu(334) 309 lu(336) = lu(336) - lu(117) * lu(334) 310 lu(337) = lu(337) - lu(118) * lu(334) 311 lu(341) = - lu(119) * lu(334) 312 lu(1078) = lu(1078) - lu(116) * lu(1057) 313 lu(1094) = - lu(117) * lu(1057) 314 lu(1105) = lu(1105) - lu(118) * lu(1057) 315 lu(1120) = lu(1120) - lu(119) * lu(1057) 316 lu(1340) = lu(1340) - lu(116) * lu(1312) 317 lu(1362) = lu(1362) - lu(117) * lu(1312) 318 lu(1373) = lu(1373) - lu(118) * lu(1312) 319 lu(1389) = lu(1389) - lu(119) * lu(1312) 320 lu(120) = 1._r8 / lu(120) 321 lu(121) = lu(121) * lu(120) 322 lu(122) = lu(122) * lu(120) 323 lu(123) = lu(123) * lu(120) 324 lu(124) = lu(124) * lu(120) 325 lu(721) = lu(721) - lu(121) * lu(713) 326 lu(722) = - lu(122) * lu(713) 327 lu(725) = lu(725) - lu(123) * lu(713) 328 lu(729) = - lu(124) * lu(713) 329 lu(1102) = lu(1102) - lu(121) * lu(1058) 330 lu(1104) = lu(1104) - lu(122) * lu(1058) 331 lu(1114) = lu(1114) - lu(123) * lu(1058) 332 lu(1120) = lu(1120) - lu(124) * lu(1058) 333 lu(1370) = lu(1370) - lu(121) * lu(1313) 334 lu(1372) = lu(1372) - lu(122) * lu(1313) 335 lu(1383) = lu(1383) - lu(123) * lu(1313) 336 lu(1389) = lu(1389) - lu(124) * lu(1313) 337 lu(125) = 1._r8 / lu(125) 338 lu(126) = lu(126) * lu(125) 339 lu(127) = lu(127) * lu(125) 340 lu(128) = lu(128) * lu(125) 341 lu(129) = lu(129) * lu(125) 342 lu(462) = lu(462) - lu(126) * lu(460) 343 lu(463) = lu(463) - lu(127) * lu(460) 344 lu(466) = lu(466) - lu(128) * lu(460) 345 lu(469) = lu(469) - lu(129) * lu(460) 346 lu(1086) = lu(1086) - lu(126) * lu(1059) 347 lu(1094) = lu(1094) - lu(127) * lu(1059) 348 lu(1114) = lu(1114) - lu(128) * lu(1059) 349 lu(1120) = lu(1120) - lu(129) * lu(1059) 350 lu(1349) = lu(1349) - lu(126) * lu(1314) 351 lu(1362) = lu(1362) - lu(127) * lu(1314) 352 lu(1383) = lu(1383) - lu(128) * lu(1314) 353 lu(1389) = lu(1389) - lu(129) * lu(1314) 354 lu(130) = 1._r8 / lu(130) 355 lu(131) = lu(131) * lu(130) 356 lu(132) = lu(132) * lu(130) 357 lu(133) = lu(133) * lu(130) 358 lu(575) = - lu(131) * lu(570) 359 lu(580) = - lu(132) * lu(570) 360 lu(582) = - lu(133) * lu(570) 361 lu(677) = lu(677) - lu(131) * lu(670) 362 lu(684) = - lu(132) * lu(670) 363 lu(687) = - lu(133) * lu(670) 364 lu(1100) = lu(1100) - lu(131) * lu(1060) 365 lu(1120) = lu(1120) - lu(132) * lu(1060) 366 lu(1123) = lu(1123) - lu(133) * lu(1060) 367 lu(1368) = lu(1368) - lu(131) * lu(1315) 368 lu(1389) = lu(1389) - lu(132) * lu(1315) 369 lu(1392) = lu(1392) - lu(133) * lu(1315) 370 lu(134) = 1._r8 / lu(134) 371 lu(135) = lu(135) * lu(134) 372 lu(136) = lu(136) * lu(134) 373 lu(137) = lu(137) * lu(134) 374 lu(138) = lu(138) * lu(134) 375 lu(804) = lu(804) - lu(135) * lu(802) 376 lu(805) = lu(805) - lu(136) * lu(802) 377 lu(808) = lu(808) - lu(137) * lu(802) 378 lu(810) = lu(810) - lu(138) * lu(802) 379 lu(1034) = lu(1034) - lu(135) * lu(1032) 380 lu(1036) = lu(1036) - lu(136) * lu(1032) 381 lu(1041) = lu(1041) - lu(137) * lu(1032) 382 lu(1044) = lu(1044) - lu(138) * lu(1032) 383 lu(1184) = lu(1184) - lu(135) * lu(1181) 384 lu(1185) = lu(1185) - lu(136) * lu(1181) 385 lu(1189) = lu(1189) - lu(137) * lu(1181) 386 lu(1192) = lu(1192) - lu(138) * lu(1181) 387 END SUBROUTINE lu_fac03 388 389 SUBROUTINE lu_fac04(lu) 390 USE shr_kind_mod, ONLY: r8 => shr_kind_r8 391 IMPLICIT NONE 392 !----------------------------------------------------------------------- 393 ! ... dummy args 394 !----------------------------------------------------------------------- 395 REAL(KIND=r8), intent(inout) :: lu(:) 396 lu(139) = 1._r8 / lu(139) 397 lu(140) = lu(140) * lu(139) 398 lu(141) = lu(141) * lu(139) 399 lu(532) = - lu(140) * lu(529) 400 lu(535) = lu(535) - lu(141) * lu(529) 401 lu(696) = - lu(140) * lu(689) 402 lu(708) = - lu(141) * lu(689) 403 lu(784) = lu(784) - lu(140) * lu(774) 404 lu(797) = - lu(141) * lu(774) 405 lu(866) = lu(866) - lu(140) * lu(851) 406 lu(881) = lu(881) - lu(141) * lu(851) 407 lu(1235) = lu(1235) - lu(140) * lu(1205) 408 lu(1254) = lu(1254) - lu(141) * lu(1205) 409 lu(1368) = lu(1368) - lu(140) * lu(1316) 410 lu(1389) = lu(1389) - lu(141) * lu(1316) 411 lu(1413) = lu(1413) - lu(140) * lu(1396) 412 lu(1433) = lu(1433) - lu(141) * lu(1396) 413 lu(142) = 1._r8 / lu(142) 414 lu(143) = lu(143) * lu(142) 415 lu(144) = lu(144) * lu(142) 416 lu(145) = lu(145) * lu(142) 417 lu(146) = lu(146) * lu(142) 418 lu(147) = lu(147) * lu(142) 419 lu(148) = lu(148) * lu(142) 420 lu(149) = lu(149) * lu(142) 421 lu(926) = - lu(143) * lu(919) 422 lu(934) = - lu(144) * lu(919) 423 lu(936) = lu(936) - lu(145) * lu(919) 424 lu(938) = lu(938) - lu(146) * lu(919) 425 lu(943) = lu(943) - lu(147) * lu(919) 426 lu(949) = lu(949) - lu(148) * lu(919) 427 lu(953) = lu(953) - lu(149) * lu(919) 428 lu(1344) = lu(1344) - lu(143) * lu(1317) 429 lu(1357) = lu(1357) - lu(144) * lu(1317) 430 lu(1361) = lu(1361) - lu(145) * lu(1317) 431 lu(1374) = lu(1374) - lu(146) * lu(1317) 432 lu(1379) = lu(1379) - lu(147) * lu(1317) 433 lu(1385) = lu(1385) - lu(148) * lu(1317) 434 lu(1389) = lu(1389) - lu(149) * lu(1317) 435 lu(150) = 1._r8 / lu(150) 436 lu(151) = lu(151) * lu(150) 437 lu(152) = lu(152) * lu(150) 438 lu(153) = lu(153) * lu(150) 439 lu(362) = - lu(151) * lu(354) 440 lu(366) = lu(366) - lu(152) * lu(354) 441 lu(367) = - lu(153) * lu(354) 442 lu(591) = - lu(151) * lu(584) 443 lu(597) = - lu(152) * lu(584) 444 lu(598) = lu(598) - lu(153) * lu(584) 445 lu(1234) = lu(1234) - lu(151) * lu(1206) 446 lu(1253) = lu(1253) - lu(152) * lu(1206) 447 lu(1254) = lu(1254) - lu(153) * lu(1206) 448 lu(1367) = lu(1367) - lu(151) * lu(1318) 449 lu(1388) = lu(1388) - lu(152) * lu(1318) 450 lu(1389) = lu(1389) - lu(153) * lu(1318) 451 lu(1412) = lu(1412) - lu(151) * lu(1397) 452 lu(1432) = lu(1432) - lu(152) * lu(1397) 453 lu(1433) = lu(1433) - lu(153) * lu(1397) 454 lu(154) = 1._r8 / lu(154) 455 lu(155) = lu(155) * lu(154) 456 lu(156) = lu(156) * lu(154) 457 lu(157) = lu(157) * lu(154) 458 lu(158) = lu(158) * lu(154) 459 lu(159) = lu(159) * lu(154) 460 lu(872) = lu(872) - lu(155) * lu(852) 461 lu(878) = - lu(156) * lu(852) 462 lu(881) = lu(881) - lu(157) * lu(852) 463 lu(884) = - lu(158) * lu(852) 464 lu(885) = lu(885) - lu(159) * lu(852) 465 lu(1108) = lu(1108) - lu(155) * lu(1061) 466 lu(1116) = lu(1116) - lu(156) * lu(1061) 467 lu(1120) = lu(1120) - lu(157) * lu(1061) 468 lu(1123) = lu(1123) - lu(158) * lu(1061) 469 lu(1124) = lu(1124) - lu(159) * lu(1061) 470 lu(1377) = lu(1377) - lu(155) * lu(1319) 471 lu(1385) = lu(1385) - lu(156) * lu(1319) 472 lu(1389) = lu(1389) - lu(157) * lu(1319) 473 lu(1392) = lu(1392) - lu(158) * lu(1319) 474 lu(1393) = lu(1393) - lu(159) * lu(1319) 475 lu(160) = 1._r8 / lu(160) 476 lu(161) = lu(161) * lu(160) 477 lu(162) = lu(162) * lu(160) 478 lu(163) = lu(163) * lu(160) 479 lu(164) = lu(164) * lu(160) 480 lu(165) = lu(165) * lu(160) 481 lu(246) = lu(246) - lu(161) * lu(245) 482 lu(247) = lu(247) - lu(162) * lu(245) 483 lu(248) = lu(248) - lu(163) * lu(245) 484 lu(249) = lu(249) - lu(164) * lu(245) 485 lu(253) = - lu(165) * lu(245) 486 lu(1071) = lu(1071) - lu(161) * lu(1062) 487 lu(1072) = - lu(162) * lu(1062) 488 lu(1081) = - lu(163) * lu(1062) 489 lu(1099) = - lu(164) * lu(1062) 490 lu(1120) = lu(1120) - lu(165) * lu(1062) 491 lu(1330) = lu(1330) - lu(161) * lu(1320) 492 lu(1331) = lu(1331) - lu(162) * lu(1320) 493 lu(1343) = lu(1343) - lu(163) * lu(1320) 494 lu(1367) = lu(1367) - lu(164) * lu(1320) 495 lu(1389) = lu(1389) - lu(165) * lu(1320) 496 lu(166) = 1._r8 / lu(166) 497 lu(167) = lu(167) * lu(166) 498 lu(168) = lu(168) * lu(166) 499 lu(169) = lu(169) * lu(166) 500 lu(170) = lu(170) * lu(166) 501 lu(171) = lu(171) * lu(166) 502 lu(516) = lu(516) - lu(167) * lu(515) 503 lu(517) = lu(517) - lu(168) * lu(515) 504 lu(523) = lu(523) - lu(169) * lu(515) 505 lu(526) = - lu(170) * lu(515) 506 lu(527) = - lu(171) * lu(515) 507 lu(1080) = - lu(167) * lu(1063) 508 lu(1089) = lu(1089) - lu(168) * lu(1063) 509 lu(1114) = lu(1114) - lu(169) * lu(1063) 510 lu(1120) = lu(1120) - lu(170) * lu(1063) 511 lu(1123) = lu(1123) - lu(171) * lu(1063) 512 lu(1342) = lu(1342) - lu(167) * lu(1321) 513 lu(1354) = lu(1354) - lu(168) * lu(1321) 514 lu(1383) = lu(1383) - lu(169) * lu(1321) 515 lu(1389) = lu(1389) - lu(170) * lu(1321) 516 lu(1392) = lu(1392) - lu(171) * lu(1321) 517 END SUBROUTINE lu_fac04 518 519 SUBROUTINE lu_fac05(lu) 520 USE shr_kind_mod, ONLY: r8 => shr_kind_r8 521 IMPLICIT NONE 522 !----------------------------------------------------------------------- 523 ! ... dummy args 524 !----------------------------------------------------------------------- 525 REAL(KIND=r8), intent(inout) :: lu(:) 526 lu(172) = 1._r8 / lu(172) 527 lu(173) = lu(173) * lu(172) 528 lu(174) = lu(174) * lu(172) 529 lu(175) = lu(175) * lu(172) 530 lu(176) = lu(176) * lu(172) 531 lu(177) = lu(177) * lu(172) 532 lu(625) = lu(625) - lu(173) * lu(622) 533 lu(627) = lu(627) - lu(174) * lu(622) 534 lu(633) = - lu(175) * lu(622) 535 lu(634) = - lu(176) * lu(622) 536 lu(635) = lu(635) - lu(177) * lu(622) 537 lu(1096) = lu(1096) - lu(173) * lu(1064) 538 lu(1105) = lu(1105) - lu(174) * lu(1064) 539 lu(1120) = lu(1120) - lu(175) * lu(1064) 540 lu(1123) = lu(1123) - lu(176) * lu(1064) 541 lu(1124) = lu(1124) - lu(177) * lu(1064) 542 lu(1364) = lu(1364) - lu(173) * lu(1322) 543 lu(1373) = lu(1373) - lu(174) * lu(1322) 544 lu(1389) = lu(1389) - lu(175) * lu(1322) 545 lu(1392) = lu(1392) - lu(176) * lu(1322) 546 lu(1393) = lu(1393) - lu(177) * lu(1322) 547 lu(178) = 1._r8 / lu(178) 548 lu(179) = lu(179) * lu(178) 549 lu(180) = lu(180) * lu(178) 550 lu(181) = lu(181) * lu(178) 551 lu(182) = lu(182) * lu(178) 552 lu(183) = lu(183) * lu(178) 553 lu(1070) = lu(1070) - lu(179) * lu(1065) 554 lu(1114) = lu(1114) - lu(180) * lu(1065) 555 lu(1118) = lu(1118) - lu(181) * lu(1065) 556 lu(1119) = lu(1119) - lu(182) * lu(1065) 557 lu(1124) = lu(1124) - lu(183) * lu(1065) 558 lu(1210) = lu(1210) - lu(179) * lu(1207) 559 lu(1248) = lu(1248) - lu(180) * lu(1207) 560 lu(1252) = lu(1252) - lu(181) * lu(1207) 561 lu(1253) = lu(1253) - lu(182) * lu(1207) 562 lu(1258) = lu(1258) - lu(183) * lu(1207) 563 lu(1487) = - lu(179) * lu(1486) 564 lu(1499) = lu(1499) - lu(180) * lu(1486) 565 lu(1503) = - lu(181) * lu(1486) 566 lu(1504) = - lu(182) * lu(1486) 567 lu(1509) = lu(1509) - lu(183) * lu(1486) 568 lu(184) = 1._r8 / lu(184) 569 lu(185) = lu(185) * lu(184) 570 lu(186) = lu(186) * lu(184) 571 lu(187) = lu(187) * lu(184) 572 lu(188) = lu(188) * lu(184) 573 lu(325) = - lu(185) * lu(323) 574 lu(328) = - lu(186) * lu(323) 575 lu(330) = - lu(187) * lu(323) 576 lu(332) = lu(332) - lu(188) * lu(323) 577 lu(357) = - lu(185) * lu(355) 578 lu(360) = - lu(186) * lu(355) 579 lu(363) = - lu(187) * lu(355) 580 lu(367) = lu(367) - lu(188) * lu(355) 581 lu(1213) = lu(1213) - lu(185) * lu(1208) 582 lu(1222) = lu(1222) - lu(186) * lu(1208) 583 lu(1240) = lu(1240) - lu(187) * lu(1208) 584 lu(1254) = lu(1254) - lu(188) * lu(1208) 585 lu(1340) = lu(1340) - lu(185) * lu(1323) 586 lu(1349) = lu(1349) - lu(186) * lu(1323) 587 lu(1373) = lu(1373) - lu(187) * lu(1323) 588 lu(1389) = lu(1389) - lu(188) * lu(1323) 589 lu(189) = 1._r8 / lu(189) 590 lu(190) = lu(190) * lu(189) 591 lu(191) = lu(191) * lu(189) 592 lu(192) = lu(192) * lu(189) 593 lu(193) = lu(193) * lu(189) 594 lu(389) = - lu(190) * lu(387) 595 lu(390) = - lu(191) * lu(387) 596 lu(391) = lu(391) - lu(192) * lu(387) 597 lu(395) = lu(395) - lu(193) * lu(387) 598 lu(898) = lu(898) - lu(190) * lu(888) 599 lu(903) = lu(903) - lu(191) * lu(888) 600 lu(908) = lu(908) - lu(192) * lu(888) 601 lu(916) = - lu(193) * lu(888) 602 lu(1088) = - lu(190) * lu(1066) 603 lu(1109) = lu(1109) - lu(191) * lu(1066) 604 lu(1114) = lu(1114) - lu(192) * lu(1066) 605 lu(1124) = lu(1124) - lu(193) * lu(1066) 606 lu(1224) = lu(1224) - lu(190) * lu(1209) 607 lu(1243) = lu(1243) - lu(191) * lu(1209) 608 lu(1248) = lu(1248) - lu(192) * lu(1209) 609 lu(1258) = lu(1258) - lu(193) * lu(1209) 610 lu(194) = 1._r8 / lu(194) 611 lu(195) = lu(195) * lu(194) 612 lu(196) = lu(196) * lu(194) 613 lu(197) = lu(197) * lu(194) 614 lu(198) = lu(198) * lu(194) 615 lu(199) = lu(199) * lu(194) 616 lu(200) = lu(200) * lu(194) 617 lu(789) = lu(789) - lu(195) * lu(775) 618 lu(790) = lu(790) - lu(196) * lu(775) 619 lu(796) = lu(796) - lu(197) * lu(775) 620 lu(797) = lu(797) - lu(198) * lu(775) 621 lu(798) = - lu(199) * lu(775) 622 lu(801) = lu(801) - lu(200) * lu(775) 623 lu(1275) = lu(1275) - lu(195) * lu(1261) 624 lu(1279) = - lu(196) * lu(1261) 625 lu(1290) = lu(1290) - lu(197) * lu(1261) 626 lu(1291) = lu(1291) - lu(198) * lu(1261) 627 lu(1292) = lu(1292) - lu(199) * lu(1261) 628 lu(1295) = - lu(200) * lu(1261) 629 lu(1373) = lu(1373) - lu(195) * lu(1324) 630 lu(1377) = lu(1377) - lu(196) * lu(1324) 631 lu(1388) = lu(1388) - lu(197) * lu(1324) 632 lu(1389) = lu(1389) - lu(198) * lu(1324) 633 lu(1390) = lu(1390) - lu(199) * lu(1324) 634 lu(1393) = lu(1393) - lu(200) * lu(1324) 635 lu(201) = 1._r8 / lu(201) 636 lu(202) = lu(202) * lu(201) 637 lu(203) = lu(203) * lu(201) 638 lu(204) = lu(204) * lu(201) 639 lu(205) = lu(205) * lu(201) 640 lu(206) = lu(206) * lu(201) 641 lu(207) = lu(207) * lu(201) 642 lu(472) = - lu(202) * lu(471) 643 lu(473) = lu(473) - lu(203) * lu(471) 644 lu(474) = lu(474) - lu(204) * lu(471) 645 lu(476) = lu(476) - lu(205) * lu(471) 646 lu(478) = lu(478) - lu(206) * lu(471) 647 lu(479) = lu(479) - lu(207) * lu(471) 648 lu(891) = lu(891) - lu(202) * lu(889) 649 lu(894) = lu(894) - lu(203) * lu(889) 650 lu(895) = lu(895) - lu(204) * lu(889) 651 lu(897) = lu(897) - lu(205) * lu(889) 652 lu(903) = lu(903) - lu(206) * lu(889) 653 lu(904) = lu(904) - lu(207) * lu(889) 654 lu(923) = lu(923) - lu(202) * lu(920) 655 lu(928) = - lu(203) * lu(920) 656 lu(929) = lu(929) - lu(204) * lu(920) 657 lu(932) = lu(932) - lu(205) * lu(920) 658 lu(942) = lu(942) - lu(206) * lu(920) 659 lu(943) = lu(943) - lu(207) * lu(920) 660 END SUBROUTINE lu_fac05 661 662 SUBROUTINE lu_fac06(lu) 663 USE shr_kind_mod, ONLY: r8 => shr_kind_r8 664 IMPLICIT NONE 665 !----------------------------------------------------------------------- 666 ! ... dummy args 667 !----------------------------------------------------------------------- 668 REAL(KIND=r8), intent(inout) :: lu(:) 669 lu(208) = 1._r8 / lu(208) 670 lu(209) = lu(209) * lu(208) 671 lu(210) = lu(210) * lu(208) 672 lu(211) = lu(211) * lu(208) 673 lu(212) = lu(212) * lu(208) 674 lu(213) = lu(213) * lu(208) 675 lu(214) = lu(214) * lu(208) 676 lu(539) = lu(539) - lu(209) * lu(538) 677 lu(540) = lu(540) - lu(210) * lu(538) 678 lu(542) = lu(542) - lu(211) * lu(538) 679 lu(543) = lu(543) - lu(212) * lu(538) 680 lu(546) = lu(546) - lu(213) * lu(538) 681 lu(549) = - lu(214) * lu(538) 682 lu(1080) = lu(1080) - lu(209) * lu(1067) 683 lu(1091) = lu(1091) - lu(210) * lu(1067) 684 lu(1097) = lu(1097) - lu(211) * lu(1067) 685 lu(1103) = lu(1103) - lu(212) * lu(1067) 686 lu(1114) = lu(1114) - lu(213) * lu(1067) 687 lu(1120) = lu(1120) - lu(214) * lu(1067) 688 lu(1342) = lu(1342) - lu(209) * lu(1325) 689 lu(1356) = lu(1356) - lu(210) * lu(1325) 690 lu(1365) = lu(1365) - lu(211) * lu(1325) 691 lu(1371) = lu(1371) - lu(212) * lu(1325) 692 lu(1383) = lu(1383) - lu(213) * lu(1325) 693 lu(1389) = lu(1389) - lu(214) * lu(1325) 694 lu(215) = 1._r8 / lu(215) 695 lu(216) = lu(216) * lu(215) 696 lu(217) = lu(217) * lu(215) 697 lu(218) = lu(218) * lu(215) 698 lu(219) = lu(219) * lu(215) 699 lu(220) = lu(220) * lu(215) 700 lu(221) = lu(221) * lu(215) 701 lu(1109) = lu(1109) - lu(216) * lu(1068) 702 lu(1114) = lu(1114) - lu(217) * lu(1068) 703 lu(1119) = lu(1119) - lu(218) * lu(1068) 704 lu(1120) = lu(1120) - lu(219) * lu(1068) 705 lu(1121) = lu(1121) - lu(220) * lu(1068) 706 lu(1123) = lu(1123) - lu(221) * lu(1068) 707 lu(1280) = lu(1280) - lu(216) * lu(1262) 708 lu(1285) = lu(1285) - lu(217) * lu(1262) 709 lu(1290) = lu(1290) - lu(218) * lu(1262) 710 lu(1291) = lu(1291) - lu(219) * lu(1262) 711 lu(1292) = lu(1292) - lu(220) * lu(1262) 712 lu(1294) = - lu(221) * lu(1262) 713 lu(1378) = lu(1378) - lu(216) * lu(1326) 714 lu(1383) = lu(1383) - lu(217) * lu(1326) 715 lu(1388) = lu(1388) - lu(218) * lu(1326) 716 lu(1389) = lu(1389) - lu(219) * lu(1326) 717 lu(1390) = lu(1390) - lu(220) * lu(1326) 718 lu(1392) = lu(1392) - lu(221) * lu(1326) 719 lu(222) = 1._r8 / lu(222) 720 lu(223) = lu(223) * lu(222) 721 lu(224) = lu(224) * lu(222) 722 lu(225) = lu(225) * lu(222) 723 lu(226) = lu(226) * lu(222) 724 lu(348) = lu(348) - lu(223) * lu(342) 725 lu(350) = lu(350) - lu(224) * lu(342) 726 lu(352) = - lu(225) * lu(342) 727 lu(353) = - lu(226) * lu(342) 728 lu(416) = lu(416) - lu(223) * lu(413) 729 lu(417) = - lu(224) * lu(413) 730 lu(419) = - lu(225) * lu(413) 731 lu(420) = - lu(226) * lu(413) 732 lu(426) = lu(426) - lu(223) * lu(421) 733 lu(428) = - lu(224) * lu(421) 734 lu(430) = lu(430) - lu(225) * lu(421) 735 lu(431) = - lu(226) * lu(421) 736 lu(897) = lu(897) - lu(223) * lu(890) 737 lu(903) = lu(903) - lu(224) * lu(890) 738 lu(905) = lu(905) - lu(225) * lu(890) 739 lu(912) = lu(912) - lu(226) * lu(890) 740 lu(932) = lu(932) - lu(223) * lu(921) 741 lu(942) = lu(942) - lu(224) * lu(921) 742 lu(944) = - lu(225) * lu(921) 743 lu(951) = lu(951) - lu(226) * lu(921) 744 lu(227) = 1._r8 / lu(227) 745 lu(228) = lu(228) * lu(227) 746 lu(229) = lu(229) * lu(227) 747 lu(230) = lu(230) * lu(227) 748 lu(231) = lu(231) * lu(227) 749 lu(232) = lu(232) * lu(227) 750 lu(761) = lu(761) - lu(228) * lu(755) 751 lu(762) = lu(762) - lu(229) * lu(755) 752 lu(769) = - lu(230) * lu(755) 753 lu(772) = - lu(231) * lu(755) 754 lu(773) = lu(773) - lu(232) * lu(755) 755 lu(789) = lu(789) - lu(228) * lu(776) 756 lu(790) = lu(790) - lu(229) * lu(776) 757 lu(797) = lu(797) - lu(230) * lu(776) 758 lu(800) = - lu(231) * lu(776) 759 lu(801) = lu(801) - lu(232) * lu(776) 760 lu(1105) = lu(1105) - lu(228) * lu(1069) 761 lu(1108) = lu(1108) - lu(229) * lu(1069) 762 lu(1120) = lu(1120) - lu(230) * lu(1069) 763 lu(1123) = lu(1123) - lu(231) * lu(1069) 764 lu(1124) = lu(1124) - lu(232) * lu(1069) 765 lu(1373) = lu(1373) - lu(228) * lu(1327) 766 lu(1377) = lu(1377) - lu(229) * lu(1327) 767 lu(1389) = lu(1389) - lu(230) * lu(1327) 768 lu(1392) = lu(1392) - lu(231) * lu(1327) 769 lu(1393) = lu(1393) - lu(232) * lu(1327) 770 lu(233) = 1._r8 / lu(233) 771 lu(234) = lu(234) * lu(233) 772 lu(235) = lu(235) * lu(233) 773 lu(236) = lu(236) * lu(233) 774 lu(237) = lu(237) * lu(233) 775 lu(238) = lu(238) * lu(233) 776 lu(239) = lu(239) * lu(233) 777 lu(240) = lu(240) * lu(233) 778 lu(987) = lu(987) - lu(234) * lu(986) 779 lu(991) = - lu(235) * lu(986) 780 lu(998) = lu(998) - lu(236) * lu(986) 781 lu(1016) = lu(1016) - lu(237) * lu(986) 782 lu(1018) = lu(1018) - lu(238) * lu(986) 783 lu(1024) = lu(1024) - lu(239) * lu(986) 784 lu(1028) = lu(1028) - lu(240) * lu(986) 785 lu(1129) = lu(1129) - lu(234) * lu(1128) 786 lu(1132) = - lu(235) * lu(1128) 787 lu(1137) = lu(1137) - lu(236) * lu(1128) 788 lu(1147) = lu(1147) - lu(237) * lu(1128) 789 lu(1149) = lu(1149) - lu(238) * lu(1128) 790 lu(1155) = lu(1155) - lu(239) * lu(1128) 791 lu(1159) = lu(1159) - lu(240) * lu(1128) 792 lu(1329) = lu(1329) - lu(234) * lu(1328) 793 lu(1345) = lu(1345) - lu(235) * lu(1328) 794 lu(1361) = lu(1361) - lu(236) * lu(1328) 795 lu(1381) = lu(1381) - lu(237) * lu(1328) 796 lu(1383) = lu(1383) - lu(238) * lu(1328) 797 lu(1389) = lu(1389) - lu(239) * lu(1328) 798 lu(1393) = lu(1393) - lu(240) * lu(1328) 799 lu(241) = 1._r8 / lu(241) 800 lu(242) = lu(242) * lu(241) 801 lu(243) = lu(243) * lu(241) 802 lu(244) = lu(244) * lu(241) 803 lu(1018) = lu(1018) - lu(242) * lu(987) 804 lu(1024) = lu(1024) - lu(243) * lu(987) 805 lu(1027) = - lu(244) * lu(987) 806 lu(1114) = lu(1114) - lu(242) * lu(1070) 807 lu(1120) = lu(1120) - lu(243) * lu(1070) 808 lu(1123) = lu(1123) - lu(244) * lu(1070) 809 lu(1149) = lu(1149) - lu(242) * lu(1129) 810 lu(1155) = lu(1155) - lu(243) * lu(1129) 811 lu(1158) = lu(1158) - lu(244) * lu(1129) 812 lu(1248) = lu(1248) - lu(242) * lu(1210) 813 lu(1254) = lu(1254) - lu(243) * lu(1210) 814 lu(1257) = - lu(244) * lu(1210) 815 lu(1383) = lu(1383) - lu(242) * lu(1329) 816 lu(1389) = lu(1389) - lu(243) * lu(1329) 817 lu(1392) = lu(1392) - lu(244) * lu(1329) 818 lu(1499) = lu(1499) - lu(242) * lu(1487) 819 lu(1505) = lu(1505) - lu(243) * lu(1487) 820 lu(1508) = lu(1508) - lu(244) * lu(1487) 821 END SUBROUTINE lu_fac06 822 823 SUBROUTINE lu_fac07(lu) 824 USE shr_kind_mod, ONLY: r8 => shr_kind_r8 825 IMPLICIT NONE 826 !----------------------------------------------------------------------- 827 ! ... dummy args 828 !----------------------------------------------------------------------- 829 REAL(KIND=r8), intent(inout) :: lu(:) 830 lu(246) = 1._r8 / lu(246) 831 lu(247) = lu(247) * lu(246) 832 lu(248) = lu(248) * lu(246) 833 lu(249) = lu(249) * lu(246) 834 lu(250) = lu(250) * lu(246) 835 lu(251) = lu(251) * lu(246) 836 lu(252) = lu(252) * lu(246) 837 lu(253) = lu(253) * lu(246) 838 lu(1072) = lu(1072) - lu(247) * lu(1071) 839 lu(1081) = lu(1081) - lu(248) * lu(1071) 840 lu(1099) = lu(1099) - lu(249) * lu(1071) 841 lu(1114) = lu(1114) - lu(250) * lu(1071) 842 lu(1118) = lu(1118) - lu(251) * lu(1071) 843 lu(1119) = lu(1119) - lu(252) * lu(1071) 844 lu(1120) = lu(1120) - lu(253) * lu(1071) 845 lu(1212) = lu(1212) - lu(247) * lu(1211) 846 lu(1216) = lu(1216) - lu(248) * lu(1211) 847 lu(1234) = lu(1234) - lu(249) * lu(1211) 848 lu(1248) = lu(1248) - lu(250) * lu(1211) 849 lu(1252) = lu(1252) - lu(251) * lu(1211) 850 lu(1253) = lu(1253) - lu(252) * lu(1211) 851 lu(1254) = lu(1254) - lu(253) * lu(1211) 852 lu(1331) = lu(1331) - lu(247) * lu(1330) 853 lu(1343) = lu(1343) - lu(248) * lu(1330) 854 lu(1367) = lu(1367) - lu(249) * lu(1330) 855 lu(1383) = lu(1383) - lu(250) * lu(1330) 856 lu(1387) = lu(1387) - lu(251) * lu(1330) 857 lu(1388) = lu(1388) - lu(252) * lu(1330) 858 lu(1389) = lu(1389) - lu(253) * lu(1330) 859 lu(254) = 1._r8 / lu(254) 860 lu(255) = lu(255) * lu(254) 861 lu(256) = lu(256) * lu(254) 862 lu(257) = lu(257) * lu(254) 863 lu(258) = lu(258) * lu(254) 864 lu(259) = lu(259) * lu(254) 865 lu(1081) = lu(1081) - lu(255) * lu(1072) 866 lu(1093) = - lu(256) * lu(1072) 867 lu(1099) = lu(1099) - lu(257) * lu(1072) 868 lu(1105) = lu(1105) - lu(258) * lu(1072) 869 lu(1114) = lu(1114) - lu(259) * lu(1072) 870 lu(1216) = lu(1216) - lu(255) * lu(1212) 871 lu(1229) = lu(1229) - lu(256) * lu(1212) 872 lu(1234) = lu(1234) - lu(257) * lu(1212) 873 lu(1240) = lu(1240) - lu(258) * lu(1212) 874 lu(1248) = lu(1248) - lu(259) * lu(1212) 875 lu(1266) = - lu(255) * lu(1263) 876 lu(1271) = - lu(256) * lu(1263) 877 lu(1273) = - lu(257) * lu(1263) 878 lu(1275) = lu(1275) - lu(258) * lu(1263) 879 lu(1285) = lu(1285) - lu(259) * lu(1263) 880 lu(1343) = lu(1343) - lu(255) * lu(1331) 881 lu(1361) = lu(1361) - lu(256) * lu(1331) 882 lu(1367) = lu(1367) - lu(257) * lu(1331) 883 lu(1373) = lu(1373) - lu(258) * lu(1331) 884 lu(1383) = lu(1383) - lu(259) * lu(1331) 885 lu(260) = 1._r8 / lu(260) 886 lu(261) = lu(261) * lu(260) 887 lu(262) = lu(262) * lu(260) 888 lu(263) = lu(263) * lu(260) 889 lu(264) = lu(264) * lu(260) 890 lu(265) = lu(265) * lu(260) 891 lu(266) = lu(266) * lu(260) 892 lu(267) = lu(267) * lu(260) 893 lu(442) = lu(442) - lu(261) * lu(441) 894 lu(443) = lu(443) - lu(262) * lu(441) 895 lu(444) = - lu(263) * lu(441) 896 lu(446) = lu(446) - lu(264) * lu(441) 897 lu(449) = - lu(265) * lu(441) 898 lu(450) = - lu(266) * lu(441) 899 lu(451) = lu(451) - lu(267) * lu(441) 900 lu(1084) = lu(1084) - lu(261) * lu(1073) 901 lu(1094) = lu(1094) - lu(262) * lu(1073) 902 lu(1095) = - lu(263) * lu(1073) 903 lu(1114) = lu(1114) - lu(264) * lu(1073) 904 lu(1120) = lu(1120) - lu(265) * lu(1073) 905 lu(1123) = lu(1123) - lu(266) * lu(1073) 906 lu(1124) = lu(1124) - lu(267) * lu(1073) 907 lu(1347) = lu(1347) - lu(261) * lu(1332) 908 lu(1362) = lu(1362) - lu(262) * lu(1332) 909 lu(1363) = lu(1363) - lu(263) * lu(1332) 910 lu(1383) = lu(1383) - lu(264) * lu(1332) 911 lu(1389) = lu(1389) - lu(265) * lu(1332) 912 lu(1392) = lu(1392) - lu(266) * lu(1332) 913 lu(1393) = lu(1393) - lu(267) * lu(1332) 914 lu(268) = 1._r8 / lu(268) 915 lu(269) = lu(269) * lu(268) 916 lu(270) = lu(270) * lu(268) 917 lu(271) = lu(271) * lu(268) 918 lu(466) = lu(466) - lu(269) * lu(461) 919 lu(469) = lu(469) - lu(270) * lu(461) 920 lu(470) = lu(470) - lu(271) * lu(461) 921 lu(630) = lu(630) - lu(269) * lu(623) 922 lu(633) = lu(633) - lu(270) * lu(623) 923 lu(635) = lu(635) - lu(271) * lu(623) 924 lu(680) = lu(680) - lu(269) * lu(671) 925 lu(684) = lu(684) - lu(270) * lu(671) 926 lu(688) = lu(688) - lu(271) * lu(671) 927 lu(704) = lu(704) - lu(269) * lu(690) 928 lu(708) = lu(708) - lu(270) * lu(690) 929 lu(712) = lu(712) - lu(271) * lu(690) 930 lu(725) = lu(725) - lu(269) * lu(714) 931 lu(729) = lu(729) - lu(270) * lu(714) 932 lu(733) = lu(733) - lu(271) * lu(714) 933 lu(876) = lu(876) - lu(269) * lu(853) 934 lu(881) = lu(881) - lu(270) * lu(853) 935 lu(885) = lu(885) - lu(271) * lu(853) 936 lu(1383) = lu(1383) - lu(269) * lu(1333) 937 lu(1389) = lu(1389) - lu(270) * lu(1333) 938 lu(1393) = lu(1393) - lu(271) * lu(1333) 939 lu(272) = 1._r8 / lu(272) 940 lu(273) = lu(273) * lu(272) 941 lu(274) = lu(274) * lu(272) 942 lu(275) = lu(275) * lu(272) 943 lu(276) = lu(276) * lu(272) 944 lu(277) = lu(277) * lu(272) 945 lu(278) = lu(278) * lu(272) 946 lu(279) = lu(279) * lu(272) 947 lu(694) = lu(694) - lu(273) * lu(691) 948 lu(696) = lu(696) - lu(274) * lu(691) 949 lu(697) = lu(697) - lu(275) * lu(691) 950 lu(699) = lu(699) - lu(276) * lu(691) 951 lu(704) = lu(704) - lu(277) * lu(691) 952 lu(708) = lu(708) - lu(278) * lu(691) 953 lu(712) = lu(712) - lu(279) * lu(691) 954 lu(1097) = lu(1097) - lu(273) * lu(1074) 955 lu(1100) = lu(1100) - lu(274) * lu(1074) 956 lu(1101) = lu(1101) - lu(275) * lu(1074) 957 lu(1103) = lu(1103) - lu(276) * lu(1074) 958 lu(1114) = lu(1114) - lu(277) * lu(1074) 959 lu(1120) = lu(1120) - lu(278) * lu(1074) 960 lu(1124) = lu(1124) - lu(279) * lu(1074) 961 lu(1365) = lu(1365) - lu(273) * lu(1334) 962 lu(1368) = lu(1368) - lu(274) * lu(1334) 963 lu(1369) = lu(1369) - lu(275) * lu(1334) 964 lu(1371) = lu(1371) - lu(276) * lu(1334) 965 lu(1383) = lu(1383) - lu(277) * lu(1334) 966 lu(1389) = lu(1389) - lu(278) * lu(1334) 967 lu(1393) = lu(1393) - lu(279) * lu(1334) 968 lu(280) = 1._r8 / lu(280) 969 lu(281) = lu(281) * lu(280) 970 lu(282) = lu(282) * lu(280) 971 lu(283) = lu(283) * lu(280) 972 lu(284) = lu(284) * lu(280) 973 lu(285) = lu(285) * lu(280) 974 lu(286) = lu(286) * lu(280) 975 lu(287) = lu(287) * lu(280) 976 lu(927) = lu(927) - lu(281) * lu(922) 977 lu(940) = lu(940) - lu(282) * lu(922) 978 lu(943) = lu(943) - lu(283) * lu(922) 979 lu(950) = lu(950) - lu(284) * lu(922) 980 lu(952) = lu(952) - lu(285) * lu(922) 981 lu(954) = lu(954) - lu(286) * lu(922) 982 lu(955) = - lu(287) * lu(922) 983 lu(1183) = lu(1183) - lu(281) * lu(1182) 984 lu(1187) = lu(1187) - lu(282) * lu(1182) 985 lu(1189) = lu(1189) - lu(283) * lu(1182) 986 lu(1196) = lu(1196) - lu(284) * lu(1182) 987 lu(1198) = lu(1198) - lu(285) * lu(1182) 988 lu(1200) = - lu(286) * lu(1182) 989 lu(1201) = - lu(287) * lu(1182) 990 lu(1267) = - lu(281) * lu(1264) 991 lu(1278) = - lu(282) * lu(1264) 992 lu(1281) = lu(1281) - lu(283) * lu(1264) 993 lu(1288) = lu(1288) - lu(284) * lu(1264) 994 lu(1290) = lu(1290) - lu(285) * lu(1264) 995 lu(1292) = lu(1292) - lu(286) * lu(1264) 996 lu(1293) = lu(1293) - lu(287) * lu(1264) 997 END SUBROUTINE lu_fac07 998 999 SUBROUTINE lu_fac08(lu) 1000 USE shr_kind_mod, ONLY: r8 => shr_kind_r8 1001 IMPLICIT NONE 1002 !----------------------------------------------------------------------- 1003 ! ... dummy args 1004 !----------------------------------------------------------------------- 1005 REAL(KIND=r8), intent(inout) :: lu(:) 1006 lu(288) = 1._r8 / lu(288) 1007 lu(289) = lu(289) * lu(288) 1008 lu(290) = lu(290) * lu(288) 1009 lu(291) = lu(291) * lu(288) 1010 lu(292) = lu(292) * lu(288) 1011 lu(293) = lu(293) * lu(288) 1012 lu(294) = lu(294) * lu(288) 1013 lu(295) = lu(295) * lu(288) 1014 lu(758) = - lu(289) * lu(756) 1015 lu(760) = lu(760) - lu(290) * lu(756) 1016 lu(765) = lu(765) - lu(291) * lu(756) 1017 lu(768) = lu(768) - lu(292) * lu(756) 1018 lu(769) = lu(769) - lu(293) * lu(756) 1019 lu(770) = lu(770) - lu(294) * lu(756) 1020 lu(773) = lu(773) - lu(295) * lu(756) 1021 lu(1272) = - lu(289) * lu(1265) 1022 lu(1274) = lu(1274) - lu(290) * lu(1265) 1023 lu(1285) = lu(1285) - lu(291) * lu(1265) 1024 lu(1290) = lu(1290) - lu(292) * lu(1265) 1025 lu(1291) = lu(1291) - lu(293) * lu(1265) 1026 lu(1292) = lu(1292) - lu(294) * lu(1265) 1027 lu(1295) = lu(1295) - lu(295) * lu(1265) 1028 lu(1363) = lu(1363) - lu(289) * lu(1335) 1029 lu(1372) = lu(1372) - lu(290) * lu(1335) 1030 lu(1383) = lu(1383) - lu(291) * lu(1335) 1031 lu(1388) = lu(1388) - lu(292) * lu(1335) 1032 lu(1389) = lu(1389) - lu(293) * lu(1335) 1033 lu(1390) = lu(1390) - lu(294) * lu(1335) 1034 lu(1393) = lu(1393) - lu(295) * lu(1335) 1035 lu(296) = 1._r8 / lu(296) 1036 lu(297) = lu(297) * lu(296) 1037 lu(298) = lu(298) * lu(296) 1038 lu(299) = lu(299) * lu(296) 1039 lu(300) = lu(300) * lu(296) 1040 lu(301) = lu(301) * lu(296) 1041 lu(302) = lu(302) * lu(296) 1042 lu(345) = lu(345) - lu(297) * lu(343) 1043 lu(346) = lu(346) - lu(298) * lu(343) 1044 lu(348) = lu(348) - lu(299) * lu(343) 1045 lu(349) = - lu(300) * lu(343) 1046 lu(350) = lu(350) - lu(301) * lu(343) 1047 lu(351) = lu(351) - lu(302) * lu(343) 1048 lu(473) = lu(473) - lu(297) * lu(472) 1049 lu(474) = lu(474) - lu(298) * lu(472) 1050 lu(476) = lu(476) - lu(299) * lu(472) 1051 lu(477) = - lu(300) * lu(472) 1052 lu(478) = lu(478) - lu(301) * lu(472) 1053 lu(479) = lu(479) - lu(302) * lu(472) 1054 lu(894) = lu(894) - lu(297) * lu(891) 1055 lu(895) = lu(895) - lu(298) * lu(891) 1056 lu(897) = lu(897) - lu(299) * lu(891) 1057 lu(900) = - lu(300) * lu(891) 1058 lu(903) = lu(903) - lu(301) * lu(891) 1059 lu(904) = lu(904) - lu(302) * lu(891) 1060 lu(928) = lu(928) - lu(297) * lu(923) 1061 lu(929) = lu(929) - lu(298) * lu(923) 1062 lu(932) = lu(932) - lu(299) * lu(923) 1063 lu(936) = lu(936) - lu(300) * lu(923) 1064 lu(942) = lu(942) - lu(301) * lu(923) 1065 lu(943) = lu(943) - lu(302) * lu(923) 1066 lu(303) = 1._r8 / lu(303) 1067 lu(304) = lu(304) * lu(303) 1068 lu(305) = lu(305) * lu(303) 1069 lu(306) = lu(306) * lu(303) 1070 lu(307) = lu(307) * lu(303) 1071 lu(308) = lu(308) * lu(303) 1072 lu(309) = lu(309) * lu(303) 1073 lu(310) = lu(310) * lu(303) 1074 lu(311) = lu(311) * lu(303) 1075 lu(994) = - lu(304) * lu(988) 1076 lu(1002) = lu(1002) - lu(305) * lu(988) 1077 lu(1007) = lu(1007) - lu(306) * lu(988) 1078 lu(1016) = lu(1016) - lu(307) * lu(988) 1079 lu(1018) = lu(1018) - lu(308) * lu(988) 1080 lu(1023) = lu(1023) - lu(309) * lu(988) 1081 lu(1024) = lu(1024) - lu(310) * lu(988) 1082 lu(1025) = lu(1025) - lu(311) * lu(988) 1083 lu(1356) = lu(1356) - lu(304) * lu(1336) 1084 lu(1365) = lu(1365) - lu(305) * lu(1336) 1085 lu(1371) = lu(1371) - lu(306) * lu(1336) 1086 lu(1381) = lu(1381) - lu(307) * lu(1336) 1087 lu(1383) = lu(1383) - lu(308) * lu(1336) 1088 lu(1388) = lu(1388) - lu(309) * lu(1336) 1089 lu(1389) = lu(1389) - lu(310) * lu(1336) 1090 lu(1390) = lu(1390) - lu(311) * lu(1336) 1091 lu(1403) = lu(1403) - lu(304) * lu(1398) 1092 lu(1411) = lu(1411) - lu(305) * lu(1398) 1093 lu(1416) = lu(1416) - lu(306) * lu(1398) 1094 lu(1425) = - lu(307) * lu(1398) 1095 lu(1427) = lu(1427) - lu(308) * lu(1398) 1096 lu(1432) = lu(1432) - lu(309) * lu(1398) 1097 lu(1433) = lu(1433) - lu(310) * lu(1398) 1098 lu(1434) = lu(1434) - lu(311) * lu(1398) 1099 lu(312) = 1._r8 / lu(312) 1100 lu(313) = lu(313) * lu(312) 1101 lu(314) = lu(314) * lu(312) 1102 lu(315) = lu(315) * lu(312) 1103 lu(316) = lu(316) * lu(312) 1104 lu(317) = lu(317) * lu(312) 1105 lu(318) = lu(318) * lu(312) 1106 lu(939) = lu(939) - lu(313) * lu(924) 1107 lu(943) = lu(943) - lu(314) * lu(924) 1108 lu(947) = lu(947) - lu(315) * lu(924) 1109 lu(948) = lu(948) - lu(316) * lu(924) 1110 lu(953) = lu(953) - lu(317) * lu(924) 1111 lu(956) = - lu(318) * lu(924) 1112 lu(1106) = lu(1106) - lu(313) * lu(1075) 1113 lu(1110) = lu(1110) - lu(314) * lu(1075) 1114 lu(1114) = lu(1114) - lu(315) * lu(1075) 1115 lu(1115) = lu(1115) - lu(316) * lu(1075) 1116 lu(1120) = lu(1120) - lu(317) * lu(1075) 1117 lu(1123) = lu(1123) - lu(318) * lu(1075) 1118 lu(1141) = lu(1141) - lu(313) * lu(1130) 1119 lu(1145) = - lu(314) * lu(1130) 1120 lu(1149) = lu(1149) - lu(315) * lu(1130) 1121 lu(1150) = lu(1150) - lu(316) * lu(1130) 1122 lu(1155) = lu(1155) - lu(317) * lu(1130) 1123 lu(1158) = lu(1158) - lu(318) * lu(1130) 1124 lu(1375) = lu(1375) - lu(313) * lu(1337) 1125 lu(1379) = lu(1379) - lu(314) * lu(1337) 1126 lu(1383) = lu(1383) - lu(315) * lu(1337) 1127 lu(1384) = lu(1384) - lu(316) * lu(1337) 1128 lu(1389) = lu(1389) - lu(317) * lu(1337) 1129 lu(1392) = lu(1392) - lu(318) * lu(1337) 1130 lu(319) = 1._r8 / lu(319) 1131 lu(320) = lu(320) * lu(319) 1132 lu(321) = lu(321) * lu(319) 1133 lu(322) = lu(322) * lu(319) 1134 lu(502) = - lu(320) * lu(493) 1135 lu(505) = lu(505) - lu(321) * lu(493) 1136 lu(507) = - lu(322) * lu(493) 1137 lu(592) = lu(592) - lu(320) * lu(585) 1138 lu(598) = lu(598) - lu(321) * lu(585) 1139 lu(600) = - lu(322) * lu(585) 1140 lu(762) = lu(762) - lu(320) * lu(757) 1141 lu(769) = lu(769) - lu(321) * lu(757) 1142 lu(772) = lu(772) - lu(322) * lu(757) 1143 lu(790) = lu(790) - lu(320) * lu(777) 1144 lu(797) = lu(797) - lu(321) * lu(777) 1145 lu(800) = lu(800) - lu(322) * lu(777) 1146 lu(872) = lu(872) - lu(320) * lu(854) 1147 lu(881) = lu(881) - lu(321) * lu(854) 1148 lu(884) = lu(884) - lu(322) * lu(854) 1149 lu(1012) = lu(1012) - lu(320) * lu(989) 1150 lu(1024) = lu(1024) - lu(321) * lu(989) 1151 lu(1027) = lu(1027) - lu(322) * lu(989) 1152 lu(1108) = lu(1108) - lu(320) * lu(1076) 1153 lu(1120) = lu(1120) - lu(321) * lu(1076) 1154 lu(1123) = lu(1123) - lu(322) * lu(1076) 1155 lu(1377) = lu(1377) - lu(320) * lu(1338) 1156 lu(1389) = lu(1389) - lu(321) * lu(1338) 1157 lu(1392) = lu(1392) - lu(322) * lu(1338) 1158 lu(324) = 1._r8 / lu(324) 1159 lu(325) = lu(325) * lu(324) 1160 lu(326) = lu(326) * lu(324) 1161 lu(327) = lu(327) * lu(324) 1162 lu(328) = lu(328) * lu(324) 1163 lu(329) = lu(329) * lu(324) 1164 lu(330) = lu(330) * lu(324) 1165 lu(331) = lu(331) * lu(324) 1166 lu(332) = lu(332) * lu(324) 1167 lu(333) = lu(333) * lu(324) 1168 lu(357) = lu(357) - lu(325) * lu(356) 1169 lu(358) = lu(358) - lu(326) * lu(356) 1170 lu(359) = lu(359) - lu(327) * lu(356) 1171 lu(360) = lu(360) - lu(328) * lu(356) 1172 lu(361) = lu(361) - lu(329) * lu(356) 1173 lu(363) = lu(363) - lu(330) * lu(356) 1174 lu(364) = lu(364) - lu(331) * lu(356) 1175 lu(367) = lu(367) - lu(332) * lu(356) 1176 lu(368) = lu(368) - lu(333) * lu(356) 1177 lu(1078) = lu(1078) - lu(325) * lu(1077) 1178 lu(1079) = lu(1079) - lu(326) * lu(1077) 1179 lu(1080) = lu(1080) - lu(327) * lu(1077) 1180 lu(1086) = lu(1086) - lu(328) * lu(1077) 1181 lu(1094) = lu(1094) - lu(329) * lu(1077) 1182 lu(1105) = lu(1105) - lu(330) * lu(1077) 1183 lu(1114) = lu(1114) - lu(331) * lu(1077) 1184 lu(1120) = lu(1120) - lu(332) * lu(1077) 1185 lu(1124) = lu(1124) - lu(333) * lu(1077) 1186 lu(1340) = lu(1340) - lu(325) * lu(1339) 1187 lu(1341) = lu(1341) - lu(326) * lu(1339) 1188 lu(1342) = lu(1342) - lu(327) * lu(1339) 1189 lu(1349) = lu(1349) - lu(328) * lu(1339) 1190 lu(1362) = lu(1362) - lu(329) * lu(1339) 1191 lu(1373) = lu(1373) - lu(330) * lu(1339) 1192 lu(1383) = lu(1383) - lu(331) * lu(1339) 1193 lu(1389) = lu(1389) - lu(332) * lu(1339) 1194 lu(1393) = lu(1393) - lu(333) * lu(1339) 1195 END SUBROUTINE lu_fac08 1196 1197 SUBROUTINE lu_fac09(lu) 1198 USE shr_kind_mod, ONLY: r8 => shr_kind_r8 1199 IMPLICIT NONE 1200 !----------------------------------------------------------------------- 1201 ! ... dummy args 1202 !----------------------------------------------------------------------- 1203 REAL(KIND=r8), intent(inout) :: lu(:) 1204 lu(335) = 1._r8 / lu(335) 1205 lu(336) = lu(336) * lu(335) 1206 lu(337) = lu(337) * lu(335) 1207 lu(338) = lu(338) * lu(335) 1208 lu(339) = lu(339) * lu(335) 1209 lu(340) = lu(340) * lu(335) 1210 lu(341) = lu(341) * lu(335) 1211 lu(361) = lu(361) - lu(336) * lu(357) 1212 lu(363) = lu(363) - lu(337) * lu(357) 1213 lu(364) = lu(364) - lu(338) * lu(357) 1214 lu(365) = lu(365) - lu(339) * lu(357) 1215 lu(366) = lu(366) - lu(340) * lu(357) 1216 lu(367) = lu(367) - lu(341) * lu(357) 1217 lu(1094) = lu(1094) - lu(336) * lu(1078) 1218 lu(1105) = lu(1105) - lu(337) * lu(1078) 1219 lu(1114) = lu(1114) - lu(338) * lu(1078) 1220 lu(1118) = lu(1118) - lu(339) * lu(1078) 1221 lu(1119) = lu(1119) - lu(340) * lu(1078) 1222 lu(1120) = lu(1120) - lu(341) * lu(1078) 1223 lu(1230) = lu(1230) - lu(336) * lu(1213) 1224 lu(1240) = lu(1240) - lu(337) * lu(1213) 1225 lu(1248) = lu(1248) - lu(338) * lu(1213) 1226 lu(1252) = lu(1252) - lu(339) * lu(1213) 1227 lu(1253) = lu(1253) - lu(340) * lu(1213) 1228 lu(1254) = lu(1254) - lu(341) * lu(1213) 1229 lu(1362) = lu(1362) - lu(336) * lu(1340) 1230 lu(1373) = lu(1373) - lu(337) * lu(1340) 1231 lu(1383) = lu(1383) - lu(338) * lu(1340) 1232 lu(1387) = lu(1387) - lu(339) * lu(1340) 1233 lu(1388) = lu(1388) - lu(340) * lu(1340) 1234 lu(1389) = lu(1389) - lu(341) * lu(1340) 1235 lu(344) = 1._r8 / lu(344) 1236 lu(345) = lu(345) * lu(344) 1237 lu(346) = lu(346) * lu(344) 1238 lu(347) = lu(347) * lu(344) 1239 lu(348) = lu(348) * lu(344) 1240 lu(349) = lu(349) * lu(344) 1241 lu(350) = lu(350) * lu(344) 1242 lu(351) = lu(351) * lu(344) 1243 lu(352) = lu(352) * lu(344) 1244 lu(353) = lu(353) * lu(344) 1245 lu(423) = lu(423) - lu(345) * lu(422) 1246 lu(424) = lu(424) - lu(346) * lu(422) 1247 lu(425) = lu(425) - lu(347) * lu(422) 1248 lu(426) = lu(426) - lu(348) * lu(422) 1249 lu(427) = - lu(349) * lu(422) 1250 lu(428) = lu(428) - lu(350) * lu(422) 1251 lu(429) = lu(429) - lu(351) * lu(422) 1252 lu(430) = lu(430) - lu(352) * lu(422) 1253 lu(431) = lu(431) - lu(353) * lu(422) 1254 lu(894) = lu(894) - lu(345) * lu(892) 1255 lu(895) = lu(895) - lu(346) * lu(892) 1256 lu(896) = lu(896) - lu(347) * lu(892) 1257 lu(897) = lu(897) - lu(348) * lu(892) 1258 lu(900) = lu(900) - lu(349) * lu(892) 1259 lu(903) = lu(903) - lu(350) * lu(892) 1260 lu(904) = lu(904) - lu(351) * lu(892) 1261 lu(905) = lu(905) - lu(352) * lu(892) 1262 lu(912) = lu(912) - lu(353) * lu(892) 1263 lu(928) = lu(928) - lu(345) * lu(925) 1264 lu(929) = lu(929) - lu(346) * lu(925) 1265 lu(930) = lu(930) - lu(347) * lu(925) 1266 lu(932) = lu(932) - lu(348) * lu(925) 1267 lu(936) = lu(936) - lu(349) * lu(925) 1268 lu(942) = lu(942) - lu(350) * lu(925) 1269 lu(943) = lu(943) - lu(351) * lu(925) 1270 lu(944) = lu(944) - lu(352) * lu(925) 1271 lu(951) = lu(951) - lu(353) * lu(925) 1272 lu(358) = 1._r8 / lu(358) 1273 lu(359) = lu(359) * lu(358) 1274 lu(360) = lu(360) * lu(358) 1275 lu(361) = lu(361) * lu(358) 1276 lu(362) = lu(362) * lu(358) 1277 lu(363) = lu(363) * lu(358) 1278 lu(364) = lu(364) * lu(358) 1279 lu(365) = lu(365) * lu(358) 1280 lu(366) = lu(366) * lu(358) 1281 lu(367) = lu(367) * lu(358) 1282 lu(368) = lu(368) * lu(358) 1283 lu(1080) = lu(1080) - lu(359) * lu(1079) 1284 lu(1086) = lu(1086) - lu(360) * lu(1079) 1285 lu(1094) = lu(1094) - lu(361) * lu(1079) 1286 lu(1099) = lu(1099) - lu(362) * lu(1079) 1287 lu(1105) = lu(1105) - lu(363) * lu(1079) 1288 lu(1114) = lu(1114) - lu(364) * lu(1079) 1289 lu(1118) = lu(1118) - lu(365) * lu(1079) 1290 lu(1119) = lu(1119) - lu(366) * lu(1079) 1291 lu(1120) = lu(1120) - lu(367) * lu(1079) 1292 lu(1124) = lu(1124) - lu(368) * lu(1079) 1293 lu(1215) = lu(1215) - lu(359) * lu(1214) 1294 lu(1222) = lu(1222) - lu(360) * lu(1214) 1295 lu(1230) = lu(1230) - lu(361) * lu(1214) 1296 lu(1234) = lu(1234) - lu(362) * lu(1214) 1297 lu(1240) = lu(1240) - lu(363) * lu(1214) 1298 lu(1248) = lu(1248) - lu(364) * lu(1214) 1299 lu(1252) = lu(1252) - lu(365) * lu(1214) 1300 lu(1253) = lu(1253) - lu(366) * lu(1214) 1301 lu(1254) = lu(1254) - lu(367) * lu(1214) 1302 lu(1258) = lu(1258) - lu(368) * lu(1214) 1303 lu(1342) = lu(1342) - lu(359) * lu(1341) 1304 lu(1349) = lu(1349) - lu(360) * lu(1341) 1305 lu(1362) = lu(1362) - lu(361) * lu(1341) 1306 lu(1367) = lu(1367) - lu(362) * lu(1341) 1307 lu(1373) = lu(1373) - lu(363) * lu(1341) 1308 lu(1383) = lu(1383) - lu(364) * lu(1341) 1309 lu(1387) = lu(1387) - lu(365) * lu(1341) 1310 lu(1388) = lu(1388) - lu(366) * lu(1341) 1311 lu(1389) = lu(1389) - lu(367) * lu(1341) 1312 lu(1393) = lu(1393) - lu(368) * lu(1341) 1313 lu(369) = 1._r8 / lu(369) 1314 lu(370) = lu(370) * lu(369) 1315 lu(371) = lu(371) * lu(369) 1316 lu(372) = lu(372) * lu(369) 1317 lu(373) = lu(373) * lu(369) 1318 lu(374) = lu(374) * lu(369) 1319 lu(519) = - lu(370) * lu(516) 1320 lu(520) = - lu(371) * lu(516) 1321 lu(521) = lu(521) - lu(372) * lu(516) 1322 lu(526) = lu(526) - lu(373) * lu(516) 1323 lu(527) = lu(527) - lu(374) * lu(516) 1324 lu(541) = - lu(370) * lu(539) 1325 lu(544) = - lu(371) * lu(539) 1326 lu(545) = - lu(372) * lu(539) 1327 lu(549) = lu(549) - lu(373) * lu(539) 1328 lu(550) = - lu(374) * lu(539) 1329 lu(863) = lu(863) - lu(370) * lu(855) 1330 lu(871) = lu(871) - lu(371) * lu(855) 1331 lu(872) = lu(872) - lu(372) * lu(855) 1332 lu(881) = lu(881) - lu(373) * lu(855) 1333 lu(884) = lu(884) - lu(374) * lu(855) 1334 lu(1096) = lu(1096) - lu(370) * lu(1080) 1335 lu(1105) = lu(1105) - lu(371) * lu(1080) 1336 lu(1108) = lu(1108) - lu(372) * lu(1080) 1337 lu(1120) = lu(1120) - lu(373) * lu(1080) 1338 lu(1123) = lu(1123) - lu(374) * lu(1080) 1339 lu(1232) = lu(1232) - lu(370) * lu(1215) 1340 lu(1240) = lu(1240) - lu(371) * lu(1215) 1341 lu(1242) = lu(1242) - lu(372) * lu(1215) 1342 lu(1254) = lu(1254) - lu(373) * lu(1215) 1343 lu(1257) = lu(1257) - lu(374) * lu(1215) 1344 lu(1364) = lu(1364) - lu(370) * lu(1342) 1345 lu(1373) = lu(1373) - lu(371) * lu(1342) 1346 lu(1377) = lu(1377) - lu(372) * lu(1342) 1347 lu(1389) = lu(1389) - lu(373) * lu(1342) 1348 lu(1392) = lu(1392) - lu(374) * lu(1342) 1349 lu(375) = 1._r8 / lu(375) 1350 lu(376) = lu(376) * lu(375) 1351 lu(377) = lu(377) * lu(375) 1352 lu(378) = lu(378) * lu(375) 1353 lu(511) = lu(511) - lu(376) * lu(509) 1354 lu(512) = lu(512) - lu(377) * lu(509) 1355 lu(513) = lu(513) - lu(378) * lu(509) 1356 lu(674) = lu(674) - lu(376) * lu(672) 1357 lu(680) = lu(680) - lu(377) * lu(672) 1358 lu(684) = lu(684) - lu(378) * lu(672) 1359 lu(780) = lu(780) - lu(376) * lu(778) 1360 lu(793) = lu(793) - lu(377) * lu(778) 1361 lu(797) = lu(797) - lu(378) * lu(778) 1362 lu(860) = lu(860) - lu(376) * lu(856) 1363 lu(876) = lu(876) - lu(377) * lu(856) 1364 lu(881) = lu(881) - lu(378) * lu(856) 1365 lu(1093) = lu(1093) - lu(376) * lu(1081) 1366 lu(1114) = lu(1114) - lu(377) * lu(1081) 1367 lu(1120) = lu(1120) - lu(378) * lu(1081) 1368 lu(1137) = lu(1137) - lu(376) * lu(1131) 1369 lu(1149) = lu(1149) - lu(377) * lu(1131) 1370 lu(1155) = lu(1155) - lu(378) * lu(1131) 1371 lu(1229) = lu(1229) - lu(376) * lu(1216) 1372 lu(1248) = lu(1248) - lu(377) * lu(1216) 1373 lu(1254) = lu(1254) - lu(378) * lu(1216) 1374 lu(1271) = lu(1271) - lu(376) * lu(1266) 1375 lu(1285) = lu(1285) - lu(377) * lu(1266) 1376 lu(1291) = lu(1291) - lu(378) * lu(1266) 1377 lu(1361) = lu(1361) - lu(376) * lu(1343) 1378 lu(1383) = lu(1383) - lu(377) * lu(1343) 1379 lu(1389) = lu(1389) - lu(378) * lu(1343) 1380 lu(1407) = lu(1407) - lu(376) * lu(1399) 1381 lu(1427) = lu(1427) - lu(377) * lu(1399) 1382 lu(1433) = lu(1433) - lu(378) * lu(1399) 1383 lu(379) = 1._r8 / lu(379) 1384 lu(380) = lu(380) * lu(379) 1385 lu(381) = lu(381) * lu(379) 1386 lu(382) = lu(382) * lu(379) 1387 lu(383) = lu(383) * lu(379) 1388 lu(384) = lu(384) * lu(379) 1389 lu(385) = lu(385) * lu(379) 1390 lu(805) = lu(805) - lu(380) * lu(803) 1391 lu(807) = lu(807) - lu(381) * lu(803) 1392 lu(808) = lu(808) - lu(382) * lu(803) 1393 lu(809) = lu(809) - lu(383) * lu(803) 1394 lu(813) = lu(813) - lu(384) * lu(803) 1395 lu(817) = lu(817) - lu(385) * lu(803) 1396 lu(901) = lu(901) - lu(380) * lu(893) 1397 lu(903) = lu(903) - lu(381) * lu(893) 1398 lu(904) = lu(904) - lu(382) * lu(893) 1399 lu(906) = lu(906) - lu(383) * lu(893) 1400 lu(910) = lu(910) - lu(384) * lu(893) 1401 lu(914) = - lu(385) * lu(893) 1402 lu(938) = lu(938) - lu(380) * lu(926) 1403 lu(942) = lu(942) - lu(381) * lu(926) 1404 lu(943) = lu(943) - lu(382) * lu(926) 1405 lu(945) = lu(945) - lu(383) * lu(926) 1406 lu(949) = lu(949) - lu(384) * lu(926) 1407 lu(953) = lu(953) - lu(385) * lu(926) 1408 lu(1010) = lu(1010) - lu(380) * lu(990) 1409 lu(1013) = lu(1013) - lu(381) * lu(990) 1410 lu(1014) = lu(1014) - lu(382) * lu(990) 1411 lu(1016) = lu(1016) - lu(383) * lu(990) 1412 lu(1020) = lu(1020) - lu(384) * lu(990) 1413 lu(1024) = lu(1024) - lu(385) * lu(990) 1414 lu(1374) = lu(1374) - lu(380) * lu(1344) 1415 lu(1378) = lu(1378) - lu(381) * lu(1344) 1416 lu(1379) = lu(1379) - lu(382) * lu(1344) 1417 lu(1381) = lu(1381) - lu(383) * lu(1344) 1418 lu(1385) = lu(1385) - lu(384) * lu(1344) 1419 lu(1389) = lu(1389) - lu(385) * lu(1344) 1420 END SUBROUTINE lu_fac09 1421 1422 SUBROUTINE lu_fac10(lu) 1423 USE shr_kind_mod, ONLY: r8 => shr_kind_r8 1424 IMPLICIT NONE 1425 !----------------------------------------------------------------------- 1426 ! ... dummy args 1427 !----------------------------------------------------------------------- 1428 REAL(KIND=r8), intent(inout) :: lu(:) 1429 lu(388) = 1._r8 / lu(388) 1430 lu(389) = lu(389) * lu(388) 1431 lu(390) = lu(390) * lu(388) 1432 lu(391) = lu(391) * lu(388) 1433 lu(392) = lu(392) * lu(388) 1434 lu(393) = lu(393) * lu(388) 1435 lu(394) = lu(394) * lu(388) 1436 lu(395) = lu(395) * lu(388) 1437 lu(993) = - lu(389) * lu(991) 1438 lu(1013) = lu(1013) - lu(390) * lu(991) 1439 lu(1018) = lu(1018) - lu(391) * lu(991) 1440 lu(1022) = lu(1022) - lu(392) * lu(991) 1441 lu(1023) = lu(1023) - lu(393) * lu(991) 1442 lu(1024) = lu(1024) - lu(394) * lu(991) 1443 lu(1028) = lu(1028) - lu(395) * lu(991) 1444 lu(1088) = lu(1088) - lu(389) * lu(1082) 1445 lu(1109) = lu(1109) - lu(390) * lu(1082) 1446 lu(1114) = lu(1114) - lu(391) * lu(1082) 1447 lu(1118) = lu(1118) - lu(392) * lu(1082) 1448 lu(1119) = lu(1119) - lu(393) * lu(1082) 1449 lu(1120) = lu(1120) - lu(394) * lu(1082) 1450 lu(1124) = lu(1124) - lu(395) * lu(1082) 1451 lu(1135) = - lu(389) * lu(1132) 1452 lu(1144) = lu(1144) - lu(390) * lu(1132) 1453 lu(1149) = lu(1149) - lu(391) * lu(1132) 1454 lu(1153) = - lu(392) * lu(1132) 1455 lu(1154) = - lu(393) * lu(1132) 1456 lu(1155) = lu(1155) - lu(394) * lu(1132) 1457 lu(1159) = lu(1159) - lu(395) * lu(1132) 1458 lu(1224) = lu(1224) - lu(389) * lu(1217) 1459 lu(1243) = lu(1243) - lu(390) * lu(1217) 1460 lu(1248) = lu(1248) - lu(391) * lu(1217) 1461 lu(1252) = lu(1252) - lu(392) * lu(1217) 1462 lu(1253) = lu(1253) - lu(393) * lu(1217) 1463 lu(1254) = lu(1254) - lu(394) * lu(1217) 1464 lu(1258) = lu(1258) - lu(395) * lu(1217) 1465 lu(1353) = lu(1353) - lu(389) * lu(1345) 1466 lu(1378) = lu(1378) - lu(390) * lu(1345) 1467 lu(1383) = lu(1383) - lu(391) * lu(1345) 1468 lu(1387) = lu(1387) - lu(392) * lu(1345) 1469 lu(1388) = lu(1388) - lu(393) * lu(1345) 1470 lu(1389) = lu(1389) - lu(394) * lu(1345) 1471 lu(1393) = lu(1393) - lu(395) * lu(1345) 1472 lu(397) = 1._r8 / lu(397) 1473 lu(398) = lu(398) * lu(397) 1474 lu(399) = lu(399) * lu(397) 1475 lu(400) = lu(400) * lu(397) 1476 lu(401) = lu(401) * lu(397) 1477 lu(402) = lu(402) * lu(397) 1478 lu(403) = lu(403) * lu(397) 1479 lu(404) = lu(404) * lu(397) 1480 lu(824) = lu(824) - lu(398) * lu(821) 1481 lu(825) = lu(825) - lu(399) * lu(821) 1482 lu(826) = lu(826) - lu(400) * lu(821) 1483 lu(829) = lu(829) - lu(401) * lu(821) 1484 lu(831) = - lu(402) * lu(821) 1485 lu(833) = lu(833) - lu(403) * lu(821) 1486 lu(836) = lu(836) - lu(404) * lu(821) 1487 lu(939) = lu(939) - lu(398) * lu(927) 1488 lu(940) = lu(940) - lu(399) * lu(927) 1489 lu(943) = lu(943) - lu(400) * lu(927) 1490 lu(948) = lu(948) - lu(401) * lu(927) 1491 lu(950) = lu(950) - lu(402) * lu(927) 1492 lu(953) = lu(953) - lu(403) * lu(927) 1493 lu(956) = lu(956) - lu(404) * lu(927) 1494 lu(1106) = lu(1106) - lu(398) * lu(1083) 1495 lu(1107) = lu(1107) - lu(399) * lu(1083) 1496 lu(1110) = lu(1110) - lu(400) * lu(1083) 1497 lu(1115) = lu(1115) - lu(401) * lu(1083) 1498 lu(1117) = lu(1117) - lu(402) * lu(1083) 1499 lu(1120) = lu(1120) - lu(403) * lu(1083) 1500 lu(1123) = lu(1123) - lu(404) * lu(1083) 1501 lu(1186) = - lu(398) * lu(1183) 1502 lu(1187) = lu(1187) - lu(399) * lu(1183) 1503 lu(1189) = lu(1189) - lu(400) * lu(1183) 1504 lu(1194) = lu(1194) - lu(401) * lu(1183) 1505 lu(1196) = lu(1196) - lu(402) * lu(1183) 1506 lu(1199) = lu(1199) - lu(403) * lu(1183) 1507 lu(1202) = - lu(404) * lu(1183) 1508 lu(1277) = - lu(398) * lu(1267) 1509 lu(1278) = lu(1278) - lu(399) * lu(1267) 1510 lu(1281) = lu(1281) - lu(400) * lu(1267) 1511 lu(1286) = - lu(401) * lu(1267) 1512 lu(1288) = lu(1288) - lu(402) * lu(1267) 1513 lu(1291) = lu(1291) - lu(403) * lu(1267) 1514 lu(1294) = lu(1294) - lu(404) * lu(1267) 1515 lu(405) = 1._r8 / lu(405) 1516 lu(406) = lu(406) * lu(405) 1517 lu(407) = lu(407) * lu(405) 1518 lu(408) = lu(408) * lu(405) 1519 lu(409) = lu(409) * lu(405) 1520 lu(410) = lu(410) * lu(405) 1521 lu(411) = lu(411) * lu(405) 1522 lu(412) = lu(412) * lu(405) 1523 lu(424) = lu(424) - lu(406) * lu(423) 1524 lu(425) = lu(425) - lu(407) * lu(423) 1525 lu(426) = lu(426) - lu(408) * lu(423) 1526 lu(428) = lu(428) - lu(409) * lu(423) 1527 lu(429) = lu(429) - lu(410) * lu(423) 1528 lu(430) = lu(430) - lu(411) * lu(423) 1529 lu(431) = lu(431) - lu(412) * lu(423) 1530 lu(474) = lu(474) - lu(406) * lu(473) 1531 lu(475) = lu(475) - lu(407) * lu(473) 1532 lu(476) = lu(476) - lu(408) * lu(473) 1533 lu(478) = lu(478) - lu(409) * lu(473) 1534 lu(479) = lu(479) - lu(410) * lu(473) 1535 lu(480) = - lu(411) * lu(473) 1536 lu(482) = lu(482) - lu(412) * lu(473) 1537 lu(895) = lu(895) - lu(406) * lu(894) 1538 lu(896) = lu(896) - lu(407) * lu(894) 1539 lu(897) = lu(897) - lu(408) * lu(894) 1540 lu(903) = lu(903) - lu(409) * lu(894) 1541 lu(904) = lu(904) - lu(410) * lu(894) 1542 lu(905) = lu(905) - lu(411) * lu(894) 1543 lu(912) = lu(912) - lu(412) * lu(894) 1544 lu(929) = lu(929) - lu(406) * lu(928) 1545 lu(930) = lu(930) - lu(407) * lu(928) 1546 lu(932) = lu(932) - lu(408) * lu(928) 1547 lu(942) = lu(942) - lu(409) * lu(928) 1548 lu(943) = lu(943) - lu(410) * lu(928) 1549 lu(944) = lu(944) - lu(411) * lu(928) 1550 lu(951) = lu(951) - lu(412) * lu(928) 1551 lu(1219) = lu(1219) - lu(406) * lu(1218) 1552 lu(1220) = lu(1220) - lu(407) * lu(1218) 1553 lu(1223) = lu(1223) - lu(408) * lu(1218) 1554 lu(1243) = lu(1243) - lu(409) * lu(1218) 1555 lu(1244) = lu(1244) - lu(410) * lu(1218) 1556 lu(1245) = - lu(411) * lu(1218) 1557 lu(1252) = lu(1252) - lu(412) * lu(1218) 1558 lu(414) = 1._r8 / lu(414) 1559 lu(415) = lu(415) * lu(414) 1560 lu(416) = lu(416) * lu(414) 1561 lu(417) = lu(417) * lu(414) 1562 lu(418) = lu(418) * lu(414) 1563 lu(419) = lu(419) * lu(414) 1564 lu(420) = lu(420) * lu(414) 1565 lu(425) = lu(425) - lu(415) * lu(424) 1566 lu(426) = lu(426) - lu(416) * lu(424) 1567 lu(428) = lu(428) - lu(417) * lu(424) 1568 lu(429) = lu(429) - lu(418) * lu(424) 1569 lu(430) = lu(430) - lu(419) * lu(424) 1570 lu(431) = lu(431) - lu(420) * lu(424) 1571 lu(475) = lu(475) - lu(415) * lu(474) 1572 lu(476) = lu(476) - lu(416) * lu(474) 1573 lu(478) = lu(478) - lu(417) * lu(474) 1574 lu(479) = lu(479) - lu(418) * lu(474) 1575 lu(480) = lu(480) - lu(419) * lu(474) 1576 lu(482) = lu(482) - lu(420) * lu(474) 1577 lu(896) = lu(896) - lu(415) * lu(895) 1578 lu(897) = lu(897) - lu(416) * lu(895) 1579 lu(903) = lu(903) - lu(417) * lu(895) 1580 lu(904) = lu(904) - lu(418) * lu(895) 1581 lu(905) = lu(905) - lu(419) * lu(895) 1582 lu(912) = lu(912) - lu(420) * lu(895) 1583 lu(930) = lu(930) - lu(415) * lu(929) 1584 lu(932) = lu(932) - lu(416) * lu(929) 1585 lu(942) = lu(942) - lu(417) * lu(929) 1586 lu(943) = lu(943) - lu(418) * lu(929) 1587 lu(944) = lu(944) - lu(419) * lu(929) 1588 lu(951) = lu(951) - lu(420) * lu(929) 1589 lu(1220) = lu(1220) - lu(415) * lu(1219) 1590 lu(1223) = lu(1223) - lu(416) * lu(1219) 1591 lu(1243) = lu(1243) - lu(417) * lu(1219) 1592 lu(1244) = lu(1244) - lu(418) * lu(1219) 1593 lu(1245) = lu(1245) - lu(419) * lu(1219) 1594 lu(1252) = lu(1252) - lu(420) * lu(1219) 1595 lu(425) = 1._r8 / lu(425) 1596 lu(426) = lu(426) * lu(425) 1597 lu(427) = lu(427) * lu(425) 1598 lu(428) = lu(428) * lu(425) 1599 lu(429) = lu(429) * lu(425) 1600 lu(430) = lu(430) * lu(425) 1601 lu(431) = lu(431) * lu(425) 1602 lu(476) = lu(476) - lu(426) * lu(475) 1603 lu(477) = lu(477) - lu(427) * lu(475) 1604 lu(478) = lu(478) - lu(428) * lu(475) 1605 lu(479) = lu(479) - lu(429) * lu(475) 1606 lu(480) = lu(480) - lu(430) * lu(475) 1607 lu(482) = lu(482) - lu(431) * lu(475) 1608 lu(897) = lu(897) - lu(426) * lu(896) 1609 lu(900) = lu(900) - lu(427) * lu(896) 1610 lu(903) = lu(903) - lu(428) * lu(896) 1611 lu(904) = lu(904) - lu(429) * lu(896) 1612 lu(905) = lu(905) - lu(430) * lu(896) 1613 lu(912) = lu(912) - lu(431) * lu(896) 1614 lu(932) = lu(932) - lu(426) * lu(930) 1615 lu(936) = lu(936) - lu(427) * lu(930) 1616 lu(942) = lu(942) - lu(428) * lu(930) 1617 lu(943) = lu(943) - lu(429) * lu(930) 1618 lu(944) = lu(944) - lu(430) * lu(930) 1619 lu(951) = lu(951) - lu(431) * lu(930) 1620 lu(1223) = lu(1223) - lu(426) * lu(1220) 1621 lu(1229) = lu(1229) - lu(427) * lu(1220) 1622 lu(1243) = lu(1243) - lu(428) * lu(1220) 1623 lu(1244) = lu(1244) - lu(429) * lu(1220) 1624 lu(1245) = lu(1245) - lu(430) * lu(1220) 1625 lu(1252) = lu(1252) - lu(431) * lu(1220) 1626 lu(433) = 1._r8 / lu(433) 1627 lu(434) = lu(434) * lu(433) 1628 lu(435) = lu(435) * lu(433) 1629 lu(436) = lu(436) * lu(433) 1630 lu(437) = lu(437) * lu(433) 1631 lu(438) = lu(438) * lu(433) 1632 lu(439) = lu(439) * lu(433) 1633 lu(440) = lu(440) * lu(433) 1634 lu(650) = lu(650) - lu(434) * lu(649) 1635 lu(652) = - lu(435) * lu(649) 1636 lu(656) = lu(656) - lu(436) * lu(649) 1637 lu(657) = lu(657) - lu(437) * lu(649) 1638 lu(658) = - lu(438) * lu(649) 1639 lu(659) = - lu(439) * lu(649) 1640 lu(660) = lu(660) - lu(440) * lu(649) 1641 lu(964) = lu(964) - lu(434) * lu(962) 1642 lu(967) = lu(967) - lu(435) * lu(962) 1643 lu(975) = lu(975) - lu(436) * lu(962) 1644 lu(979) = lu(979) - lu(437) * lu(962) 1645 lu(980) = - lu(438) * lu(962) 1646 lu(981) = - lu(439) * lu(962) 1647 lu(982) = lu(982) - lu(440) * lu(962) 1648 lu(1366) = lu(1366) - lu(434) * lu(1346) 1649 lu(1377) = lu(1377) - lu(435) * lu(1346) 1650 lu(1385) = lu(1385) - lu(436) * lu(1346) 1651 lu(1389) = lu(1389) - lu(437) * lu(1346) 1652 lu(1390) = lu(1390) - lu(438) * lu(1346) 1653 lu(1391) = lu(1391) - lu(439) * lu(1346) 1654 lu(1392) = lu(1392) - lu(440) * lu(1346) 1655 lu(1440) = - lu(434) * lu(1439) 1656 lu(1443) = - lu(435) * lu(1439) 1657 lu(1451) = lu(1451) - lu(436) * lu(1439) 1658 lu(1455) = lu(1455) - lu(437) * lu(1439) 1659 lu(1456) = lu(1456) - lu(438) * lu(1439) 1660 lu(1457) = lu(1457) - lu(439) * lu(1439) 1661 lu(1458) = lu(1458) - lu(440) * lu(1439) 1662 lu(1465) = lu(1465) - lu(434) * lu(1463) 1663 lu(1469) = - lu(435) * lu(1463) 1664 lu(1477) = lu(1477) - lu(436) * lu(1463) 1665 lu(1481) = lu(1481) - lu(437) * lu(1463) 1666 lu(1482) = - lu(438) * lu(1463) 1667 lu(1483) = - lu(439) * lu(1463) 1668 lu(1484) = lu(1484) - lu(440) * lu(1463) 1669 END SUBROUTINE lu_fac10 1670 1671 SUBROUTINE lu_fac11(lu) 1672 USE shr_kind_mod, ONLY: r8 => shr_kind_r8 1673 IMPLICIT NONE 1674 !----------------------------------------------------------------------- 1675 ! ... dummy args 1676 !----------------------------------------------------------------------- 1677 REAL(KIND=r8), intent(inout) :: lu(:) 1678 lu(442) = 1._r8 / lu(442) 1679 lu(443) = lu(443) * lu(442) 1680 lu(444) = lu(444) * lu(442) 1681 lu(445) = lu(445) * lu(442) 1682 lu(446) = lu(446) * lu(442) 1683 lu(447) = lu(447) * lu(442) 1684 lu(448) = lu(448) * lu(442) 1685 lu(449) = lu(449) * lu(442) 1686 lu(450) = lu(450) * lu(442) 1687 lu(451) = lu(451) * lu(442) 1688 lu(589) = lu(589) - lu(443) * lu(586) 1689 lu(590) = - lu(444) * lu(586) 1690 lu(593) = - lu(445) * lu(586) 1691 lu(595) = lu(595) - lu(446) * lu(586) 1692 lu(596) = - lu(447) * lu(586) 1693 lu(597) = lu(597) - lu(448) * lu(586) 1694 lu(598) = lu(598) - lu(449) * lu(586) 1695 lu(600) = lu(600) - lu(450) * lu(586) 1696 lu(601) = lu(601) - lu(451) * lu(586) 1697 lu(1094) = lu(1094) - lu(443) * lu(1084) 1698 lu(1095) = lu(1095) - lu(444) * lu(1084) 1699 lu(1109) = lu(1109) - lu(445) * lu(1084) 1700 lu(1114) = lu(1114) - lu(446) * lu(1084) 1701 lu(1118) = lu(1118) - lu(447) * lu(1084) 1702 lu(1119) = lu(1119) - lu(448) * lu(1084) 1703 lu(1120) = lu(1120) - lu(449) * lu(1084) 1704 lu(1123) = lu(1123) - lu(450) * lu(1084) 1705 lu(1124) = lu(1124) - lu(451) * lu(1084) 1706 lu(1230) = lu(1230) - lu(443) * lu(1221) 1707 lu(1231) = lu(1231) - lu(444) * lu(1221) 1708 lu(1243) = lu(1243) - lu(445) * lu(1221) 1709 lu(1248) = lu(1248) - lu(446) * lu(1221) 1710 lu(1252) = lu(1252) - lu(447) * lu(1221) 1711 lu(1253) = lu(1253) - lu(448) * lu(1221) 1712 lu(1254) = lu(1254) - lu(449) * lu(1221) 1713 lu(1257) = lu(1257) - lu(450) * lu(1221) 1714 lu(1258) = lu(1258) - lu(451) * lu(1221) 1715 lu(1362) = lu(1362) - lu(443) * lu(1347) 1716 lu(1363) = lu(1363) - lu(444) * lu(1347) 1717 lu(1378) = lu(1378) - lu(445) * lu(1347) 1718 lu(1383) = lu(1383) - lu(446) * lu(1347) 1719 lu(1387) = lu(1387) - lu(447) * lu(1347) 1720 lu(1388) = lu(1388) - lu(448) * lu(1347) 1721 lu(1389) = lu(1389) - lu(449) * lu(1347) 1722 lu(1392) = lu(1392) - lu(450) * lu(1347) 1723 lu(1393) = lu(1393) - lu(451) * lu(1347) 1724 lu(452) = 1._r8 / lu(452) 1725 lu(453) = lu(453) * lu(452) 1726 lu(454) = lu(454) * lu(452) 1727 lu(455) = lu(455) * lu(452) 1728 lu(456) = lu(456) * lu(452) 1729 lu(457) = lu(457) * lu(452) 1730 lu(458) = lu(458) * lu(452) 1731 lu(839) = lu(839) - lu(453) * lu(837) 1732 lu(841) = - lu(454) * lu(837) 1733 lu(842) = - lu(455) * lu(837) 1734 lu(845) = - lu(456) * lu(837) 1735 lu(847) = - lu(457) * lu(837) 1736 lu(848) = - lu(458) * lu(837) 1737 lu(940) = lu(940) - lu(453) * lu(931) 1738 lu(943) = lu(943) - lu(454) * lu(931) 1739 lu(944) = lu(944) - lu(455) * lu(931) 1740 lu(949) = lu(949) - lu(456) * lu(931) 1741 lu(953) = lu(953) - lu(457) * lu(931) 1742 lu(956) = lu(956) - lu(458) * lu(931) 1743 lu(966) = lu(966) - lu(453) * lu(963) 1744 lu(969) = lu(969) - lu(454) * lu(963) 1745 lu(970) = lu(970) - lu(455) * lu(963) 1746 lu(975) = lu(975) - lu(456) * lu(963) 1747 lu(979) = lu(979) - lu(457) * lu(963) 1748 lu(982) = lu(982) - lu(458) * lu(963) 1749 lu(1107) = lu(1107) - lu(453) * lu(1085) 1750 lu(1110) = lu(1110) - lu(454) * lu(1085) 1751 lu(1111) = - lu(455) * lu(1085) 1752 lu(1116) = lu(1116) - lu(456) * lu(1085) 1753 lu(1120) = lu(1120) - lu(457) * lu(1085) 1754 lu(1123) = lu(1123) - lu(458) * lu(1085) 1755 lu(1376) = lu(1376) - lu(453) * lu(1348) 1756 lu(1379) = lu(1379) - lu(454) * lu(1348) 1757 lu(1380) = lu(1380) - lu(455) * lu(1348) 1758 lu(1385) = lu(1385) - lu(456) * lu(1348) 1759 lu(1389) = lu(1389) - lu(457) * lu(1348) 1760 lu(1392) = lu(1392) - lu(458) * lu(1348) 1761 lu(1492) = lu(1492) - lu(453) * lu(1488) 1762 lu(1495) = lu(1495) - lu(454) * lu(1488) 1763 lu(1496) = - lu(455) * lu(1488) 1764 lu(1501) = lu(1501) - lu(456) * lu(1488) 1765 lu(1505) = lu(1505) - lu(457) * lu(1488) 1766 lu(1508) = lu(1508) - lu(458) * lu(1488) 1767 lu(462) = 1._r8 / lu(462) 1768 lu(463) = lu(463) * lu(462) 1769 lu(464) = lu(464) * lu(462) 1770 lu(465) = lu(465) * lu(462) 1771 lu(466) = lu(466) * lu(462) 1772 lu(467) = lu(467) * lu(462) 1773 lu(468) = lu(468) * lu(462) 1774 lu(469) = lu(469) * lu(462) 1775 lu(470) = lu(470) * lu(462) 1776 lu(861) = lu(861) - lu(463) * lu(857) 1777 lu(872) = lu(872) - lu(464) * lu(857) 1778 lu(873) = lu(873) - lu(465) * lu(857) 1779 lu(876) = lu(876) - lu(466) * lu(857) 1780 lu(879) = lu(879) - lu(467) * lu(857) 1781 lu(880) = lu(880) - lu(468) * lu(857) 1782 lu(881) = lu(881) - lu(469) * lu(857) 1783 lu(885) = lu(885) - lu(470) * lu(857) 1784 lu(1094) = lu(1094) - lu(463) * lu(1086) 1785 lu(1108) = lu(1108) - lu(464) * lu(1086) 1786 lu(1109) = lu(1109) - lu(465) * lu(1086) 1787 lu(1114) = lu(1114) - lu(466) * lu(1086) 1788 lu(1118) = lu(1118) - lu(467) * lu(1086) 1789 lu(1119) = lu(1119) - lu(468) * lu(1086) 1790 lu(1120) = lu(1120) - lu(469) * lu(1086) 1791 lu(1124) = lu(1124) - lu(470) * lu(1086) 1792 lu(1138) = - lu(463) * lu(1133) 1793 lu(1143) = lu(1143) - lu(464) * lu(1133) 1794 lu(1144) = lu(1144) - lu(465) * lu(1133) 1795 lu(1149) = lu(1149) - lu(466) * lu(1133) 1796 lu(1153) = lu(1153) - lu(467) * lu(1133) 1797 lu(1154) = lu(1154) - lu(468) * lu(1133) 1798 lu(1155) = lu(1155) - lu(469) * lu(1133) 1799 lu(1159) = lu(1159) - lu(470) * lu(1133) 1800 lu(1230) = lu(1230) - lu(463) * lu(1222) 1801 lu(1242) = lu(1242) - lu(464) * lu(1222) 1802 lu(1243) = lu(1243) - lu(465) * lu(1222) 1803 lu(1248) = lu(1248) - lu(466) * lu(1222) 1804 lu(1252) = lu(1252) - lu(467) * lu(1222) 1805 lu(1253) = lu(1253) - lu(468) * lu(1222) 1806 lu(1254) = lu(1254) - lu(469) * lu(1222) 1807 lu(1258) = lu(1258) - lu(470) * lu(1222) 1808 lu(1362) = lu(1362) - lu(463) * lu(1349) 1809 lu(1377) = lu(1377) - lu(464) * lu(1349) 1810 lu(1378) = lu(1378) - lu(465) * lu(1349) 1811 lu(1383) = lu(1383) - lu(466) * lu(1349) 1812 lu(1387) = lu(1387) - lu(467) * lu(1349) 1813 lu(1388) = lu(1388) - lu(468) * lu(1349) 1814 lu(1389) = lu(1389) - lu(469) * lu(1349) 1815 lu(1393) = lu(1393) - lu(470) * lu(1349) 1816 lu(476) = 1._r8 / lu(476) 1817 lu(477) = lu(477) * lu(476) 1818 lu(478) = lu(478) * lu(476) 1819 lu(479) = lu(479) * lu(476) 1820 lu(480) = lu(480) * lu(476) 1821 lu(481) = lu(481) * lu(476) 1822 lu(482) = lu(482) * lu(476) 1823 lu(483) = lu(483) * lu(476) 1824 lu(484) = lu(484) * lu(476) 1825 lu(900) = lu(900) - lu(477) * lu(897) 1826 lu(903) = lu(903) - lu(478) * lu(897) 1827 lu(904) = lu(904) - lu(479) * lu(897) 1828 lu(905) = lu(905) - lu(480) * lu(897) 1829 lu(910) = lu(910) - lu(481) * lu(897) 1830 lu(912) = lu(912) - lu(482) * lu(897) 1831 lu(913) = - lu(483) * lu(897) 1832 lu(914) = lu(914) - lu(484) * lu(897) 1833 lu(936) = lu(936) - lu(477) * lu(932) 1834 lu(942) = lu(942) - lu(478) * lu(932) 1835 lu(943) = lu(943) - lu(479) * lu(932) 1836 lu(944) = lu(944) - lu(480) * lu(932) 1837 lu(949) = lu(949) - lu(481) * lu(932) 1838 lu(951) = lu(951) - lu(482) * lu(932) 1839 lu(952) = lu(952) - lu(483) * lu(932) 1840 lu(953) = lu(953) - lu(484) * lu(932) 1841 lu(1229) = lu(1229) - lu(477) * lu(1223) 1842 lu(1243) = lu(1243) - lu(478) * lu(1223) 1843 lu(1244) = lu(1244) - lu(479) * lu(1223) 1844 lu(1245) = lu(1245) - lu(480) * lu(1223) 1845 lu(1250) = - lu(481) * lu(1223) 1846 lu(1252) = lu(1252) - lu(482) * lu(1223) 1847 lu(1253) = lu(1253) - lu(483) * lu(1223) 1848 lu(1254) = lu(1254) - lu(484) * lu(1223) 1849 lu(1271) = lu(1271) - lu(477) * lu(1268) 1850 lu(1280) = lu(1280) - lu(478) * lu(1268) 1851 lu(1281) = lu(1281) - lu(479) * lu(1268) 1852 lu(1282) = - lu(480) * lu(1268) 1853 lu(1287) = - lu(481) * lu(1268) 1854 lu(1289) = lu(1289) - lu(482) * lu(1268) 1855 lu(1290) = lu(1290) - lu(483) * lu(1268) 1856 lu(1291) = lu(1291) - lu(484) * lu(1268) 1857 lu(1361) = lu(1361) - lu(477) * lu(1350) 1858 lu(1378) = lu(1378) - lu(478) * lu(1350) 1859 lu(1379) = lu(1379) - lu(479) * lu(1350) 1860 lu(1380) = lu(1380) - lu(480) * lu(1350) 1861 lu(1385) = lu(1385) - lu(481) * lu(1350) 1862 lu(1387) = lu(1387) - lu(482) * lu(1350) 1863 lu(1388) = lu(1388) - lu(483) * lu(1350) 1864 lu(1389) = lu(1389) - lu(484) * lu(1350) 1865 lu(486) = 1._r8 / lu(486) 1866 lu(487) = lu(487) * lu(486) 1867 lu(488) = lu(488) * lu(486) 1868 lu(489) = lu(489) * lu(486) 1869 lu(490) = lu(490) * lu(486) 1870 lu(491) = lu(491) * lu(486) 1871 lu(492) = lu(492) * lu(486) 1872 lu(561) = lu(561) - lu(487) * lu(559) 1873 lu(562) = lu(562) - lu(488) * lu(559) 1874 lu(563) = lu(563) - lu(489) * lu(559) 1875 lu(564) = lu(564) - lu(490) * lu(559) 1876 lu(566) = lu(566) - lu(491) * lu(559) 1877 lu(569) = - lu(492) * lu(559) 1878 lu(824) = lu(824) - lu(487) * lu(822) 1879 lu(826) = lu(826) - lu(488) * lu(822) 1880 lu(828) = - lu(489) * lu(822) 1881 lu(829) = lu(829) - lu(490) * lu(822) 1882 lu(833) = lu(833) - lu(491) * lu(822) 1883 lu(836) = lu(836) - lu(492) * lu(822) 1884 lu(939) = lu(939) - lu(487) * lu(933) 1885 lu(943) = lu(943) - lu(488) * lu(933) 1886 lu(946) = lu(946) - lu(489) * lu(933) 1887 lu(948) = lu(948) - lu(490) * lu(933) 1888 lu(953) = lu(953) - lu(491) * lu(933) 1889 lu(956) = lu(956) - lu(492) * lu(933) 1890 lu(1037) = lu(1037) - lu(487) * lu(1033) 1891 lu(1041) = lu(1041) - lu(488) * lu(1033) 1892 lu(1044) = lu(1044) - lu(489) * lu(1033) 1893 lu(1046) = lu(1046) - lu(490) * lu(1033) 1894 lu(1051) = lu(1051) - lu(491) * lu(1033) 1895 lu(1054) = - lu(492) * lu(1033) 1896 lu(1106) = lu(1106) - lu(487) * lu(1087) 1897 lu(1110) = lu(1110) - lu(488) * lu(1087) 1898 lu(1113) = lu(1113) - lu(489) * lu(1087) 1899 lu(1115) = lu(1115) - lu(490) * lu(1087) 1900 lu(1120) = lu(1120) - lu(491) * lu(1087) 1901 lu(1123) = lu(1123) - lu(492) * lu(1087) 1902 lu(1141) = lu(1141) - lu(487) * lu(1134) 1903 lu(1145) = lu(1145) - lu(488) * lu(1134) 1904 lu(1148) = lu(1148) - lu(489) * lu(1134) 1905 lu(1150) = lu(1150) - lu(490) * lu(1134) 1906 lu(1155) = lu(1155) - lu(491) * lu(1134) 1907 lu(1158) = lu(1158) - lu(492) * lu(1134) 1908 lu(1375) = lu(1375) - lu(487) * lu(1351) 1909 lu(1379) = lu(1379) - lu(488) * lu(1351) 1910 lu(1382) = lu(1382) - lu(489) * lu(1351) 1911 lu(1384) = lu(1384) - lu(490) * lu(1351) 1912 lu(1389) = lu(1389) - lu(491) * lu(1351) 1913 lu(1392) = lu(1392) - lu(492) * lu(1351) 1914 END SUBROUTINE lu_fac11 1915 1916 SUBROUTINE lu_fac12(lu) 1917 USE shr_kind_mod, ONLY: r8 => shr_kind_r8 1918 IMPLICIT NONE 1919 !----------------------------------------------------------------------- 1920 ! ... dummy args 1921 !----------------------------------------------------------------------- 1922 REAL(KIND=r8), intent(inout) :: lu(:) 1923 lu(494) = 1._r8 / lu(494) 1924 lu(495) = lu(495) * lu(494) 1925 lu(496) = lu(496) * lu(494) 1926 lu(497) = lu(497) * lu(494) 1927 lu(498) = lu(498) * lu(494) 1928 lu(499) = lu(499) * lu(494) 1929 lu(500) = lu(500) * lu(494) 1930 lu(501) = lu(501) * lu(494) 1931 lu(502) = lu(502) * lu(494) 1932 lu(503) = lu(503) * lu(494) 1933 lu(504) = lu(504) * lu(494) 1934 lu(505) = lu(505) * lu(494) 1935 lu(506) = lu(506) * lu(494) 1936 lu(507) = lu(507) * lu(494) 1937 lu(508) = lu(508) * lu(494) 1938 lu(996) = - lu(495) * lu(992) 1939 lu(997) = lu(997) - lu(496) * lu(992) 1940 lu(998) = lu(998) - lu(497) * lu(992) 1941 lu(1002) = lu(1002) - lu(498) * lu(992) 1942 lu(1005) = - lu(499) * lu(992) 1943 lu(1007) = lu(1007) - lu(500) * lu(992) 1944 lu(1008) = lu(1008) - lu(501) * lu(992) 1945 lu(1012) = lu(1012) - lu(502) * lu(992) 1946 lu(1016) = lu(1016) - lu(503) * lu(992) 1947 lu(1018) = lu(1018) - lu(504) * lu(992) 1948 lu(1024) = lu(1024) - lu(505) * lu(992) 1949 lu(1025) = lu(1025) - lu(506) * lu(992) 1950 lu(1027) = lu(1027) - lu(507) * lu(992) 1951 lu(1028) = lu(1028) - lu(508) * lu(992) 1952 lu(1359) = - lu(495) * lu(1352) 1953 lu(1360) = lu(1360) - lu(496) * lu(1352) 1954 lu(1361) = lu(1361) - lu(497) * lu(1352) 1955 lu(1365) = lu(1365) - lu(498) * lu(1352) 1956 lu(1369) = lu(1369) - lu(499) * lu(1352) 1957 lu(1371) = lu(1371) - lu(500) * lu(1352) 1958 lu(1372) = lu(1372) - lu(501) * lu(1352) 1959 lu(1377) = lu(1377) - lu(502) * lu(1352) 1960 lu(1381) = lu(1381) - lu(503) * lu(1352) 1961 lu(1383) = lu(1383) - lu(504) * lu(1352) 1962 lu(1389) = lu(1389) - lu(505) * lu(1352) 1963 lu(1390) = lu(1390) - lu(506) * lu(1352) 1964 lu(1392) = lu(1392) - lu(507) * lu(1352) 1965 lu(1393) = lu(1393) - lu(508) * lu(1352) 1966 lu(1405) = lu(1405) - lu(495) * lu(1400) 1967 lu(1406) = lu(1406) - lu(496) * lu(1400) 1968 lu(1407) = lu(1407) - lu(497) * lu(1400) 1969 lu(1411) = lu(1411) - lu(498) * lu(1400) 1970 lu(1414) = lu(1414) - lu(499) * lu(1400) 1971 lu(1416) = lu(1416) - lu(500) * lu(1400) 1972 lu(1417) = lu(1417) - lu(501) * lu(1400) 1973 lu(1421) = - lu(502) * lu(1400) 1974 lu(1425) = lu(1425) - lu(503) * lu(1400) 1975 lu(1427) = lu(1427) - lu(504) * lu(1400) 1976 lu(1433) = lu(1433) - lu(505) * lu(1400) 1977 lu(1434) = lu(1434) - lu(506) * lu(1400) 1978 lu(1436) = - lu(507) * lu(1400) 1979 lu(1437) = lu(1437) - lu(508) * lu(1400) 1980 lu(510) = 1._r8 / lu(510) 1981 lu(511) = lu(511) * lu(510) 1982 lu(512) = lu(512) * lu(510) 1983 lu(513) = lu(513) * lu(510) 1984 lu(514) = lu(514) * lu(510) 1985 lu(674) = lu(674) - lu(511) * lu(673) 1986 lu(680) = lu(680) - lu(512) * lu(673) 1987 lu(684) = lu(684) - lu(513) * lu(673) 1988 lu(688) = lu(688) - lu(514) * lu(673) 1989 lu(717) = lu(717) - lu(511) * lu(715) 1990 lu(725) = lu(725) - lu(512) * lu(715) 1991 lu(729) = lu(729) - lu(513) * lu(715) 1992 lu(733) = lu(733) - lu(514) * lu(715) 1993 lu(780) = lu(780) - lu(511) * lu(779) 1994 lu(793) = lu(793) - lu(512) * lu(779) 1995 lu(797) = lu(797) - lu(513) * lu(779) 1996 lu(801) = lu(801) - lu(514) * lu(779) 1997 lu(860) = lu(860) - lu(511) * lu(858) 1998 lu(876) = lu(876) - lu(512) * lu(858) 1999 lu(881) = lu(881) - lu(513) * lu(858) 2000 lu(885) = lu(885) - lu(514) * lu(858) 2001 lu(900) = lu(900) - lu(511) * lu(898) 2002 lu(908) = lu(908) - lu(512) * lu(898) 2003 lu(914) = lu(914) - lu(513) * lu(898) 2004 lu(916) = lu(916) - lu(514) * lu(898) 2005 lu(998) = lu(998) - lu(511) * lu(993) 2006 lu(1018) = lu(1018) - lu(512) * lu(993) 2007 lu(1024) = lu(1024) - lu(513) * lu(993) 2008 lu(1028) = lu(1028) - lu(514) * lu(993) 2009 lu(1093) = lu(1093) - lu(511) * lu(1088) 2010 lu(1114) = lu(1114) - lu(512) * lu(1088) 2011 lu(1120) = lu(1120) - lu(513) * lu(1088) 2012 lu(1124) = lu(1124) - lu(514) * lu(1088) 2013 lu(1137) = lu(1137) - lu(511) * lu(1135) 2014 lu(1149) = lu(1149) - lu(512) * lu(1135) 2015 lu(1155) = lu(1155) - lu(513) * lu(1135) 2016 lu(1159) = lu(1159) - lu(514) * lu(1135) 2017 lu(1229) = lu(1229) - lu(511) * lu(1224) 2018 lu(1248) = lu(1248) - lu(512) * lu(1224) 2019 lu(1254) = lu(1254) - lu(513) * lu(1224) 2020 lu(1258) = lu(1258) - lu(514) * lu(1224) 2021 lu(1361) = lu(1361) - lu(511) * lu(1353) 2022 lu(1383) = lu(1383) - lu(512) * lu(1353) 2023 lu(1389) = lu(1389) - lu(513) * lu(1353) 2024 lu(1393) = lu(1393) - lu(514) * lu(1353) 2025 lu(1407) = lu(1407) - lu(511) * lu(1401) 2026 lu(1427) = lu(1427) - lu(512) * lu(1401) 2027 lu(1433) = lu(1433) - lu(513) * lu(1401) 2028 lu(1437) = lu(1437) - lu(514) * lu(1401) 2029 lu(517) = 1._r8 / lu(517) 2030 lu(518) = lu(518) * lu(517) 2031 lu(519) = lu(519) * lu(517) 2032 lu(520) = lu(520) * lu(517) 2033 lu(521) = lu(521) * lu(517) 2034 lu(522) = lu(522) * lu(517) 2035 lu(523) = lu(523) * lu(517) 2036 lu(524) = lu(524) * lu(517) 2037 lu(525) = lu(525) * lu(517) 2038 lu(526) = lu(526) * lu(517) 2039 lu(527) = lu(527) * lu(517) 2040 lu(528) = lu(528) * lu(517) 2041 lu(861) = lu(861) - lu(518) * lu(859) 2042 lu(863) = lu(863) - lu(519) * lu(859) 2043 lu(871) = lu(871) - lu(520) * lu(859) 2044 lu(872) = lu(872) - lu(521) * lu(859) 2045 lu(873) = lu(873) - lu(522) * lu(859) 2046 lu(876) = lu(876) - lu(523) * lu(859) 2047 lu(879) = lu(879) - lu(524) * lu(859) 2048 lu(880) = lu(880) - lu(525) * lu(859) 2049 lu(881) = lu(881) - lu(526) * lu(859) 2050 lu(884) = lu(884) - lu(527) * lu(859) 2051 lu(885) = lu(885) - lu(528) * lu(859) 2052 lu(1094) = lu(1094) - lu(518) * lu(1089) 2053 lu(1096) = lu(1096) - lu(519) * lu(1089) 2054 lu(1105) = lu(1105) - lu(520) * lu(1089) 2055 lu(1108) = lu(1108) - lu(521) * lu(1089) 2056 lu(1109) = lu(1109) - lu(522) * lu(1089) 2057 lu(1114) = lu(1114) - lu(523) * lu(1089) 2058 lu(1118) = lu(1118) - lu(524) * lu(1089) 2059 lu(1119) = lu(1119) - lu(525) * lu(1089) 2060 lu(1120) = lu(1120) - lu(526) * lu(1089) 2061 lu(1123) = lu(1123) - lu(527) * lu(1089) 2062 lu(1124) = lu(1124) - lu(528) * lu(1089) 2063 lu(1230) = lu(1230) - lu(518) * lu(1225) 2064 lu(1232) = lu(1232) - lu(519) * lu(1225) 2065 lu(1240) = lu(1240) - lu(520) * lu(1225) 2066 lu(1242) = lu(1242) - lu(521) * lu(1225) 2067 lu(1243) = lu(1243) - lu(522) * lu(1225) 2068 lu(1248) = lu(1248) - lu(523) * lu(1225) 2069 lu(1252) = lu(1252) - lu(524) * lu(1225) 2070 lu(1253) = lu(1253) - lu(525) * lu(1225) 2071 lu(1254) = lu(1254) - lu(526) * lu(1225) 2072 lu(1257) = lu(1257) - lu(527) * lu(1225) 2073 lu(1258) = lu(1258) - lu(528) * lu(1225) 2074 lu(1362) = lu(1362) - lu(518) * lu(1354) 2075 lu(1364) = lu(1364) - lu(519) * lu(1354) 2076 lu(1373) = lu(1373) - lu(520) * lu(1354) 2077 lu(1377) = lu(1377) - lu(521) * lu(1354) 2078 lu(1378) = lu(1378) - lu(522) * lu(1354) 2079 lu(1383) = lu(1383) - lu(523) * lu(1354) 2080 lu(1387) = lu(1387) - lu(524) * lu(1354) 2081 lu(1388) = lu(1388) - lu(525) * lu(1354) 2082 lu(1389) = lu(1389) - lu(526) * lu(1354) 2083 lu(1392) = lu(1392) - lu(527) * lu(1354) 2084 lu(1393) = lu(1393) - lu(528) * lu(1354) 2085 lu(530) = 1._r8 / lu(530) 2086 lu(531) = lu(531) * lu(530) 2087 lu(532) = lu(532) * lu(530) 2088 lu(533) = lu(533) * lu(530) 2089 lu(534) = lu(534) * lu(530) 2090 lu(535) = lu(535) * lu(530) 2091 lu(536) = lu(536) * lu(530) 2092 lu(537) = lu(537) * lu(530) 2093 lu(573) = - lu(531) * lu(571) 2094 lu(575) = lu(575) - lu(532) * lu(571) 2095 lu(577) = lu(577) - lu(533) * lu(571) 2096 lu(579) = lu(579) - lu(534) * lu(571) 2097 lu(580) = lu(580) - lu(535) * lu(571) 2098 lu(581) = lu(581) - lu(536) * lu(571) 2099 lu(583) = lu(583) - lu(537) * lu(571) 2100 lu(693) = - lu(531) * lu(692) 2101 lu(696) = lu(696) - lu(532) * lu(692) 2102 lu(704) = lu(704) - lu(533) * lu(692) 2103 lu(707) = lu(707) - lu(534) * lu(692) 2104 lu(708) = lu(708) - lu(535) * lu(692) 2105 lu(709) = lu(709) - lu(536) * lu(692) 2106 lu(712) = lu(712) - lu(537) * lu(692) 2107 lu(717) = lu(717) - lu(531) * lu(716) 2108 lu(720) = - lu(532) * lu(716) 2109 lu(725) = lu(725) - lu(533) * lu(716) 2110 lu(728) = lu(728) - lu(534) * lu(716) 2111 lu(729) = lu(729) - lu(535) * lu(716) 2112 lu(730) = lu(730) - lu(536) * lu(716) 2113 lu(733) = lu(733) - lu(537) * lu(716) 2114 lu(1093) = lu(1093) - lu(531) * lu(1090) 2115 lu(1100) = lu(1100) - lu(532) * lu(1090) 2116 lu(1114) = lu(1114) - lu(533) * lu(1090) 2117 lu(1119) = lu(1119) - lu(534) * lu(1090) 2118 lu(1120) = lu(1120) - lu(535) * lu(1090) 2119 lu(1121) = lu(1121) - lu(536) * lu(1090) 2120 lu(1124) = lu(1124) - lu(537) * lu(1090) 2121 lu(1229) = lu(1229) - lu(531) * lu(1226) 2122 lu(1235) = lu(1235) - lu(532) * lu(1226) 2123 lu(1248) = lu(1248) - lu(533) * lu(1226) 2124 lu(1253) = lu(1253) - lu(534) * lu(1226) 2125 lu(1254) = lu(1254) - lu(535) * lu(1226) 2126 lu(1255) = lu(1255) - lu(536) * lu(1226) 2127 lu(1258) = lu(1258) - lu(537) * lu(1226) 2128 lu(1361) = lu(1361) - lu(531) * lu(1355) 2129 lu(1368) = lu(1368) - lu(532) * lu(1355) 2130 lu(1383) = lu(1383) - lu(533) * lu(1355) 2131 lu(1388) = lu(1388) - lu(534) * lu(1355) 2132 lu(1389) = lu(1389) - lu(535) * lu(1355) 2133 lu(1390) = lu(1390) - lu(536) * lu(1355) 2134 lu(1393) = lu(1393) - lu(537) * lu(1355) 2135 lu(1407) = lu(1407) - lu(531) * lu(1402) 2136 lu(1413) = lu(1413) - lu(532) * lu(1402) 2137 lu(1427) = lu(1427) - lu(533) * lu(1402) 2138 lu(1432) = lu(1432) - lu(534) * lu(1402) 2139 lu(1433) = lu(1433) - lu(535) * lu(1402) 2140 lu(1434) = lu(1434) - lu(536) * lu(1402) 2141 lu(1437) = lu(1437) - lu(537) * lu(1402) 2142 lu(540) = 1._r8 / lu(540) 2143 lu(541) = lu(541) * lu(540) 2144 lu(542) = lu(542) * lu(540) 2145 lu(543) = lu(543) * lu(540) 2146 lu(544) = lu(544) * lu(540) 2147 lu(545) = lu(545) * lu(540) 2148 lu(546) = lu(546) * lu(540) 2149 lu(547) = lu(547) * lu(540) 2150 lu(548) = lu(548) * lu(540) 2151 lu(549) = lu(549) * lu(540) 2152 lu(550) = lu(550) * lu(540) 2153 lu(1001) = - lu(541) * lu(994) 2154 lu(1002) = lu(1002) - lu(542) * lu(994) 2155 lu(1007) = lu(1007) - lu(543) * lu(994) 2156 lu(1009) = - lu(544) * lu(994) 2157 lu(1012) = lu(1012) - lu(545) * lu(994) 2158 lu(1018) = lu(1018) - lu(546) * lu(994) 2159 lu(1022) = lu(1022) - lu(547) * lu(994) 2160 lu(1023) = lu(1023) - lu(548) * lu(994) 2161 lu(1024) = lu(1024) - lu(549) * lu(994) 2162 lu(1027) = lu(1027) - lu(550) * lu(994) 2163 lu(1096) = lu(1096) - lu(541) * lu(1091) 2164 lu(1097) = lu(1097) - lu(542) * lu(1091) 2165 lu(1103) = lu(1103) - lu(543) * lu(1091) 2166 lu(1105) = lu(1105) - lu(544) * lu(1091) 2167 lu(1108) = lu(1108) - lu(545) * lu(1091) 2168 lu(1114) = lu(1114) - lu(546) * lu(1091) 2169 lu(1118) = lu(1118) - lu(547) * lu(1091) 2170 lu(1119) = lu(1119) - lu(548) * lu(1091) 2171 lu(1120) = lu(1120) - lu(549) * lu(1091) 2172 lu(1123) = lu(1123) - lu(550) * lu(1091) 2173 lu(1232) = lu(1232) - lu(541) * lu(1227) 2174 lu(1233) = lu(1233) - lu(542) * lu(1227) 2175 lu(1238) = lu(1238) - lu(543) * lu(1227) 2176 lu(1240) = lu(1240) - lu(544) * lu(1227) 2177 lu(1242) = lu(1242) - lu(545) * lu(1227) 2178 lu(1248) = lu(1248) - lu(546) * lu(1227) 2179 lu(1252) = lu(1252) - lu(547) * lu(1227) 2180 lu(1253) = lu(1253) - lu(548) * lu(1227) 2181 lu(1254) = lu(1254) - lu(549) * lu(1227) 2182 lu(1257) = lu(1257) - lu(550) * lu(1227) 2183 lu(1364) = lu(1364) - lu(541) * lu(1356) 2184 lu(1365) = lu(1365) - lu(542) * lu(1356) 2185 lu(1371) = lu(1371) - lu(543) * lu(1356) 2186 lu(1373) = lu(1373) - lu(544) * lu(1356) 2187 lu(1377) = lu(1377) - lu(545) * lu(1356) 2188 lu(1383) = lu(1383) - lu(546) * lu(1356) 2189 lu(1387) = lu(1387) - lu(547) * lu(1356) 2190 lu(1388) = lu(1388) - lu(548) * lu(1356) 2191 lu(1389) = lu(1389) - lu(549) * lu(1356) 2192 lu(1392) = lu(1392) - lu(550) * lu(1356) 2193 lu(1410) = - lu(541) * lu(1403) 2194 lu(1411) = lu(1411) - lu(542) * lu(1403) 2195 lu(1416) = lu(1416) - lu(543) * lu(1403) 2196 lu(1418) = lu(1418) - lu(544) * lu(1403) 2197 lu(1421) = lu(1421) - lu(545) * lu(1403) 2198 lu(1427) = lu(1427) - lu(546) * lu(1403) 2199 lu(1431) = lu(1431) - lu(547) * lu(1403) 2200 lu(1432) = lu(1432) - lu(548) * lu(1403) 2201 lu(1433) = lu(1433) - lu(549) * lu(1403) 2202 lu(1436) = lu(1436) - lu(550) * lu(1403) 2203 END SUBROUTINE lu_fac12 2204 2205 SUBROUTINE lu_fac13(lu) 2206 USE shr_kind_mod, ONLY: r8 => shr_kind_r8 2207 IMPLICIT NONE 2208 !----------------------------------------------------------------------- 2209 ! ... dummy args 2210 !----------------------------------------------------------------------- 2211 REAL(KIND=r8), intent(inout) :: lu(:) 2212 lu(552) = 1._r8 / lu(552) 2213 lu(553) = lu(553) * lu(552) 2214 lu(554) = lu(554) * lu(552) 2215 lu(555) = lu(555) * lu(552) 2216 lu(556) = lu(556) * lu(552) 2217 lu(557) = lu(557) * lu(552) 2218 lu(805) = lu(805) - lu(553) * lu(804) 2219 lu(808) = lu(808) - lu(554) * lu(804) 2220 lu(811) = - lu(555) * lu(804) 2221 lu(817) = lu(817) - lu(556) * lu(804) 2222 lu(818) = - lu(557) * lu(804) 2223 lu(901) = lu(901) - lu(553) * lu(899) 2224 lu(904) = lu(904) - lu(554) * lu(899) 2225 lu(908) = lu(908) - lu(555) * lu(899) 2226 lu(914) = lu(914) - lu(556) * lu(899) 2227 lu(915) = - lu(557) * lu(899) 2228 lu(938) = lu(938) - lu(553) * lu(934) 2229 lu(943) = lu(943) - lu(554) * lu(934) 2230 lu(947) = lu(947) - lu(555) * lu(934) 2231 lu(953) = lu(953) - lu(556) * lu(934) 2232 lu(956) = lu(956) - lu(557) * lu(934) 2233 lu(1010) = lu(1010) - lu(553) * lu(995) 2234 lu(1014) = lu(1014) - lu(554) * lu(995) 2235 lu(1018) = lu(1018) - lu(555) * lu(995) 2236 lu(1024) = lu(1024) - lu(556) * lu(995) 2237 lu(1027) = lu(1027) - lu(557) * lu(995) 2238 lu(1036) = lu(1036) - lu(553) * lu(1034) 2239 lu(1041) = lu(1041) - lu(554) * lu(1034) 2240 lu(1045) = lu(1045) - lu(555) * lu(1034) 2241 lu(1051) = lu(1051) - lu(556) * lu(1034) 2242 lu(1054) = lu(1054) - lu(557) * lu(1034) 2243 lu(1185) = lu(1185) - lu(553) * lu(1184) 2244 lu(1189) = lu(1189) - lu(554) * lu(1184) 2245 lu(1193) = lu(1193) - lu(555) * lu(1184) 2246 lu(1199) = lu(1199) - lu(556) * lu(1184) 2247 lu(1202) = lu(1202) - lu(557) * lu(1184) 2248 lu(1276) = lu(1276) - lu(553) * lu(1269) 2249 lu(1281) = lu(1281) - lu(554) * lu(1269) 2250 lu(1285) = lu(1285) - lu(555) * lu(1269) 2251 lu(1291) = lu(1291) - lu(556) * lu(1269) 2252 lu(1294) = lu(1294) - lu(557) * lu(1269) 2253 lu(1374) = lu(1374) - lu(553) * lu(1357) 2254 lu(1379) = lu(1379) - lu(554) * lu(1357) 2255 lu(1383) = lu(1383) - lu(555) * lu(1357) 2256 lu(1389) = lu(1389) - lu(556) * lu(1357) 2257 lu(1392) = lu(1392) - lu(557) * lu(1357) 2258 lu(1419) = - lu(553) * lu(1404) 2259 lu(1423) = lu(1423) - lu(554) * lu(1404) 2260 lu(1427) = lu(1427) - lu(555) * lu(1404) 2261 lu(1433) = lu(1433) - lu(556) * lu(1404) 2262 lu(1436) = lu(1436) - lu(557) * lu(1404) 2263 lu(1466) = - lu(553) * lu(1464) 2264 lu(1471) = lu(1471) - lu(554) * lu(1464) 2265 lu(1475) = - lu(555) * lu(1464) 2266 lu(1481) = lu(1481) - lu(556) * lu(1464) 2267 lu(1484) = lu(1484) - lu(557) * lu(1464) 2268 lu(560) = 1._r8 / lu(560) 2269 lu(561) = lu(561) * lu(560) 2270 lu(562) = lu(562) * lu(560) 2271 lu(563) = lu(563) * lu(560) 2272 lu(564) = lu(564) * lu(560) 2273 lu(565) = lu(565) * lu(560) 2274 lu(566) = lu(566) * lu(560) 2275 lu(567) = lu(567) * lu(560) 2276 lu(568) = lu(568) * lu(560) 2277 lu(569) = lu(569) * lu(560) 2278 lu(824) = lu(824) - lu(561) * lu(823) 2279 lu(826) = lu(826) - lu(562) * lu(823) 2280 lu(828) = lu(828) - lu(563) * lu(823) 2281 lu(829) = lu(829) - lu(564) * lu(823) 2282 lu(832) = - lu(565) * lu(823) 2283 lu(833) = lu(833) - lu(566) * lu(823) 2284 lu(834) = - lu(567) * lu(823) 2285 lu(835) = lu(835) - lu(568) * lu(823) 2286 lu(836) = lu(836) - lu(569) * lu(823) 2287 lu(939) = lu(939) - lu(561) * lu(935) 2288 lu(943) = lu(943) - lu(562) * lu(935) 2289 lu(946) = lu(946) - lu(563) * lu(935) 2290 lu(948) = lu(948) - lu(564) * lu(935) 2291 lu(952) = lu(952) - lu(565) * lu(935) 2292 lu(953) = lu(953) - lu(566) * lu(935) 2293 lu(954) = lu(954) - lu(567) * lu(935) 2294 lu(955) = lu(955) - lu(568) * lu(935) 2295 lu(956) = lu(956) - lu(569) * lu(935) 2296 lu(1037) = lu(1037) - lu(561) * lu(1035) 2297 lu(1041) = lu(1041) - lu(562) * lu(1035) 2298 lu(1044) = lu(1044) - lu(563) * lu(1035) 2299 lu(1046) = lu(1046) - lu(564) * lu(1035) 2300 lu(1050) = lu(1050) - lu(565) * lu(1035) 2301 lu(1051) = lu(1051) - lu(566) * lu(1035) 2302 lu(1052) = - lu(567) * lu(1035) 2303 lu(1053) = - lu(568) * lu(1035) 2304 lu(1054) = lu(1054) - lu(569) * lu(1035) 2305 lu(1141) = lu(1141) - lu(561) * lu(1136) 2306 lu(1145) = lu(1145) - lu(562) * lu(1136) 2307 lu(1148) = lu(1148) - lu(563) * lu(1136) 2308 lu(1150) = lu(1150) - lu(564) * lu(1136) 2309 lu(1154) = lu(1154) - lu(565) * lu(1136) 2310 lu(1155) = lu(1155) - lu(566) * lu(1136) 2311 lu(1156) = lu(1156) - lu(567) * lu(1136) 2312 lu(1157) = - lu(568) * lu(1136) 2313 lu(1158) = lu(1158) - lu(569) * lu(1136) 2314 lu(1277) = lu(1277) - lu(561) * lu(1270) 2315 lu(1281) = lu(1281) - lu(562) * lu(1270) 2316 lu(1284) = lu(1284) - lu(563) * lu(1270) 2317 lu(1286) = lu(1286) - lu(564) * lu(1270) 2318 lu(1290) = lu(1290) - lu(565) * lu(1270) 2319 lu(1291) = lu(1291) - lu(566) * lu(1270) 2320 lu(1292) = lu(1292) - lu(567) * lu(1270) 2321 lu(1293) = lu(1293) - lu(568) * lu(1270) 2322 lu(1294) = lu(1294) - lu(569) * lu(1270) 2323 lu(1375) = lu(1375) - lu(561) * lu(1358) 2324 lu(1379) = lu(1379) - lu(562) * lu(1358) 2325 lu(1382) = lu(1382) - lu(563) * lu(1358) 2326 lu(1384) = lu(1384) - lu(564) * lu(1358) 2327 lu(1388) = lu(1388) - lu(565) * lu(1358) 2328 lu(1389) = lu(1389) - lu(566) * lu(1358) 2329 lu(1390) = lu(1390) - lu(567) * lu(1358) 2330 lu(1391) = lu(1391) - lu(568) * lu(1358) 2331 lu(1392) = lu(1392) - lu(569) * lu(1358) 2332 lu(572) = 1._r8 / lu(572) 2333 lu(573) = lu(573) * lu(572) 2334 lu(574) = lu(574) * lu(572) 2335 lu(575) = lu(575) * lu(572) 2336 lu(576) = lu(576) * lu(572) 2337 lu(577) = lu(577) * lu(572) 2338 lu(578) = lu(578) * lu(572) 2339 lu(579) = lu(579) * lu(572) 2340 lu(580) = lu(580) * lu(572) 2341 lu(581) = lu(581) * lu(572) 2342 lu(582) = lu(582) * lu(572) 2343 lu(583) = lu(583) * lu(572) 2344 lu(998) = lu(998) - lu(573) * lu(996) 2345 lu(1002) = lu(1002) - lu(574) * lu(996) 2346 lu(1004) = - lu(575) * lu(996) 2347 lu(1007) = lu(1007) - lu(576) * lu(996) 2348 lu(1018) = lu(1018) - lu(577) * lu(996) 2349 lu(1022) = lu(1022) - lu(578) * lu(996) 2350 lu(1023) = lu(1023) - lu(579) * lu(996) 2351 lu(1024) = lu(1024) - lu(580) * lu(996) 2352 lu(1025) = lu(1025) - lu(581) * lu(996) 2353 lu(1027) = lu(1027) - lu(582) * lu(996) 2354 lu(1028) = lu(1028) - lu(583) * lu(996) 2355 lu(1093) = lu(1093) - lu(573) * lu(1092) 2356 lu(1097) = lu(1097) - lu(574) * lu(1092) 2357 lu(1100) = lu(1100) - lu(575) * lu(1092) 2358 lu(1103) = lu(1103) - lu(576) * lu(1092) 2359 lu(1114) = lu(1114) - lu(577) * lu(1092) 2360 lu(1118) = lu(1118) - lu(578) * lu(1092) 2361 lu(1119) = lu(1119) - lu(579) * lu(1092) 2362 lu(1120) = lu(1120) - lu(580) * lu(1092) 2363 lu(1121) = lu(1121) - lu(581) * lu(1092) 2364 lu(1123) = lu(1123) - lu(582) * lu(1092) 2365 lu(1124) = lu(1124) - lu(583) * lu(1092) 2366 lu(1229) = lu(1229) - lu(573) * lu(1228) 2367 lu(1233) = lu(1233) - lu(574) * lu(1228) 2368 lu(1235) = lu(1235) - lu(575) * lu(1228) 2369 lu(1238) = lu(1238) - lu(576) * lu(1228) 2370 lu(1248) = lu(1248) - lu(577) * lu(1228) 2371 lu(1252) = lu(1252) - lu(578) * lu(1228) 2372 lu(1253) = lu(1253) - lu(579) * lu(1228) 2373 lu(1254) = lu(1254) - lu(580) * lu(1228) 2374 lu(1255) = lu(1255) - lu(581) * lu(1228) 2375 lu(1257) = lu(1257) - lu(582) * lu(1228) 2376 lu(1258) = lu(1258) - lu(583) * lu(1228) 2377 lu(1361) = lu(1361) - lu(573) * lu(1359) 2378 lu(1365) = lu(1365) - lu(574) * lu(1359) 2379 lu(1368) = lu(1368) - lu(575) * lu(1359) 2380 lu(1371) = lu(1371) - lu(576) * lu(1359) 2381 lu(1383) = lu(1383) - lu(577) * lu(1359) 2382 lu(1387) = lu(1387) - lu(578) * lu(1359) 2383 lu(1388) = lu(1388) - lu(579) * lu(1359) 2384 lu(1389) = lu(1389) - lu(580) * lu(1359) 2385 lu(1390) = lu(1390) - lu(581) * lu(1359) 2386 lu(1392) = lu(1392) - lu(582) * lu(1359) 2387 lu(1393) = lu(1393) - lu(583) * lu(1359) 2388 lu(1407) = lu(1407) - lu(573) * lu(1405) 2389 lu(1411) = lu(1411) - lu(574) * lu(1405) 2390 lu(1413) = lu(1413) - lu(575) * lu(1405) 2391 lu(1416) = lu(1416) - lu(576) * lu(1405) 2392 lu(1427) = lu(1427) - lu(577) * lu(1405) 2393 lu(1431) = lu(1431) - lu(578) * lu(1405) 2394 lu(1432) = lu(1432) - lu(579) * lu(1405) 2395 lu(1433) = lu(1433) - lu(580) * lu(1405) 2396 lu(1434) = lu(1434) - lu(581) * lu(1405) 2397 lu(1436) = lu(1436) - lu(582) * lu(1405) 2398 lu(1437) = lu(1437) - lu(583) * lu(1405) 2399 lu(587) = 1._r8 / lu(587) 2400 lu(588) = lu(588) * lu(587) 2401 lu(589) = lu(589) * lu(587) 2402 lu(590) = lu(590) * lu(587) 2403 lu(591) = lu(591) * lu(587) 2404 lu(592) = lu(592) * lu(587) 2405 lu(593) = lu(593) * lu(587) 2406 lu(594) = lu(594) * lu(587) 2407 lu(595) = lu(595) * lu(587) 2408 lu(596) = lu(596) * lu(587) 2409 lu(597) = lu(597) * lu(587) 2410 lu(598) = lu(598) * lu(587) 2411 lu(599) = lu(599) * lu(587) 2412 lu(600) = lu(600) * lu(587) 2413 lu(601) = lu(601) * lu(587) 2414 lu(735) = lu(735) - lu(588) * lu(734) 2415 lu(736) = lu(736) - lu(589) * lu(734) 2416 lu(737) = - lu(590) * lu(734) 2417 lu(738) = lu(738) - lu(591) * lu(734) 2418 lu(743) = lu(743) - lu(592) * lu(734) 2419 lu(744) = - lu(593) * lu(734) 2420 lu(745) = lu(745) - lu(594) * lu(734) 2421 lu(746) = lu(746) - lu(595) * lu(734) 2422 lu(748) = - lu(596) * lu(734) 2423 lu(749) = - lu(597) * lu(734) 2424 lu(750) = lu(750) - lu(598) * lu(734) 2425 lu(751) = - lu(599) * lu(734) 2426 lu(753) = - lu(600) * lu(734) 2427 lu(754) = lu(754) - lu(601) * lu(734) 2428 lu(998) = lu(998) - lu(588) * lu(997) 2429 lu(999) = lu(999) - lu(589) * lu(997) 2430 lu(1000) = - lu(590) * lu(997) 2431 lu(1003) = lu(1003) - lu(591) * lu(997) 2432 lu(1012) = lu(1012) - lu(592) * lu(997) 2433 lu(1013) = lu(1013) - lu(593) * lu(997) 2434 lu(1016) = lu(1016) - lu(594) * lu(997) 2435 lu(1018) = lu(1018) - lu(595) * lu(997) 2436 lu(1022) = lu(1022) - lu(596) * lu(997) 2437 lu(1023) = lu(1023) - lu(597) * lu(997) 2438 lu(1024) = lu(1024) - lu(598) * lu(997) 2439 lu(1025) = lu(1025) - lu(599) * lu(997) 2440 lu(1027) = lu(1027) - lu(600) * lu(997) 2441 lu(1028) = lu(1028) - lu(601) * lu(997) 2442 lu(1361) = lu(1361) - lu(588) * lu(1360) 2443 lu(1362) = lu(1362) - lu(589) * lu(1360) 2444 lu(1363) = lu(1363) - lu(590) * lu(1360) 2445 lu(1367) = lu(1367) - lu(591) * lu(1360) 2446 lu(1377) = lu(1377) - lu(592) * lu(1360) 2447 lu(1378) = lu(1378) - lu(593) * lu(1360) 2448 lu(1381) = lu(1381) - lu(594) * lu(1360) 2449 lu(1383) = lu(1383) - lu(595) * lu(1360) 2450 lu(1387) = lu(1387) - lu(596) * lu(1360) 2451 lu(1388) = lu(1388) - lu(597) * lu(1360) 2452 lu(1389) = lu(1389) - lu(598) * lu(1360) 2453 lu(1390) = lu(1390) - lu(599) * lu(1360) 2454 lu(1392) = lu(1392) - lu(600) * lu(1360) 2455 lu(1393) = lu(1393) - lu(601) * lu(1360) 2456 lu(1407) = lu(1407) - lu(588) * lu(1406) 2457 lu(1408) = lu(1408) - lu(589) * lu(1406) 2458 lu(1409) = lu(1409) - lu(590) * lu(1406) 2459 lu(1412) = lu(1412) - lu(591) * lu(1406) 2460 lu(1421) = lu(1421) - lu(592) * lu(1406) 2461 lu(1422) = lu(1422) - lu(593) * lu(1406) 2462 lu(1425) = lu(1425) - lu(594) * lu(1406) 2463 lu(1427) = lu(1427) - lu(595) * lu(1406) 2464 lu(1431) = lu(1431) - lu(596) * lu(1406) 2465 lu(1432) = lu(1432) - lu(597) * lu(1406) 2466 lu(1433) = lu(1433) - lu(598) * lu(1406) 2467 lu(1434) = lu(1434) - lu(599) * lu(1406) 2468 lu(1436) = lu(1436) - lu(600) * lu(1406) 2469 lu(1437) = lu(1437) - lu(601) * lu(1406) 2470 END SUBROUTINE lu_fac13 2471 2472 SUBROUTINE lu_fac14(lu) 2473 USE shr_kind_mod, ONLY: r8 => shr_kind_r8 2474 IMPLICIT NONE 2475 !----------------------------------------------------------------------- 2476 ! ... dummy args 2477 !----------------------------------------------------------------------- 2478 REAL(KIND=r8), intent(inout) :: lu(:) 2479 lu(602) = 1._r8 / lu(602) 2480 lu(603) = lu(603) * lu(602) 2481 lu(604) = lu(604) * lu(602) 2482 lu(605) = lu(605) * lu(602) 2483 lu(610) = lu(610) - lu(603) * lu(606) 2484 lu(611) = - lu(604) * lu(606) 2485 lu(612) = lu(612) - lu(605) * lu(606) 2486 lu(643) = lu(643) - lu(603) * lu(636) 2487 lu(644) = - lu(604) * lu(636) 2488 lu(645) = lu(645) - lu(605) * lu(636) 2489 lu(664) = lu(664) - lu(603) * lu(661) 2490 lu(665) = - lu(604) * lu(661) 2491 lu(666) = lu(666) - lu(605) * lu(661) 2492 lu(680) = lu(680) - lu(603) * lu(674) 2493 lu(681) = - lu(604) * lu(674) 2494 lu(684) = lu(684) - lu(605) * lu(674) 2495 lu(704) = lu(704) - lu(603) * lu(693) 2496 lu(705) = - lu(604) * lu(693) 2497 lu(708) = lu(708) - lu(605) * lu(693) 2498 lu(725) = lu(725) - lu(603) * lu(717) 2499 lu(726) = - lu(604) * lu(717) 2500 lu(729) = lu(729) - lu(605) * lu(717) 2501 lu(746) = lu(746) - lu(603) * lu(735) 2502 lu(747) = - lu(604) * lu(735) 2503 lu(750) = lu(750) - lu(605) * lu(735) 2504 lu(793) = lu(793) - lu(603) * lu(780) 2505 lu(794) = - lu(604) * lu(780) 2506 lu(797) = lu(797) - lu(605) * lu(780) 2507 lu(844) = lu(844) - lu(603) * lu(838) 2508 lu(845) = lu(845) - lu(604) * lu(838) 2509 lu(847) = lu(847) - lu(605) * lu(838) 2510 lu(876) = lu(876) - lu(603) * lu(860) 2511 lu(878) = lu(878) - lu(604) * lu(860) 2512 lu(881) = lu(881) - lu(605) * lu(860) 2513 lu(908) = lu(908) - lu(603) * lu(900) 2514 lu(910) = lu(910) - lu(604) * lu(900) 2515 lu(914) = lu(914) - lu(605) * lu(900) 2516 lu(947) = lu(947) - lu(603) * lu(936) 2517 lu(949) = lu(949) - lu(604) * lu(936) 2518 lu(953) = lu(953) - lu(605) * lu(936) 2519 lu(1018) = lu(1018) - lu(603) * lu(998) 2520 lu(1020) = lu(1020) - lu(604) * lu(998) 2521 lu(1024) = lu(1024) - lu(605) * lu(998) 2522 lu(1114) = lu(1114) - lu(603) * lu(1093) 2523 lu(1116) = lu(1116) - lu(604) * lu(1093) 2524 lu(1120) = lu(1120) - lu(605) * lu(1093) 2525 lu(1149) = lu(1149) - lu(603) * lu(1137) 2526 lu(1151) = lu(1151) - lu(604) * lu(1137) 2527 lu(1155) = lu(1155) - lu(605) * lu(1137) 2528 lu(1248) = lu(1248) - lu(603) * lu(1229) 2529 lu(1250) = lu(1250) - lu(604) * lu(1229) 2530 lu(1254) = lu(1254) - lu(605) * lu(1229) 2531 lu(1285) = lu(1285) - lu(603) * lu(1271) 2532 lu(1287) = lu(1287) - lu(604) * lu(1271) 2533 lu(1291) = lu(1291) - lu(605) * lu(1271) 2534 lu(1383) = lu(1383) - lu(603) * lu(1361) 2535 lu(1385) = lu(1385) - lu(604) * lu(1361) 2536 lu(1389) = lu(1389) - lu(605) * lu(1361) 2537 lu(1427) = lu(1427) - lu(603) * lu(1407) 2538 lu(1429) = - lu(604) * lu(1407) 2539 lu(1433) = lu(1433) - lu(605) * lu(1407) 2540 lu(1499) = lu(1499) - lu(603) * lu(1489) 2541 lu(1501) = lu(1501) - lu(604) * lu(1489) 2542 lu(1505) = lu(1505) - lu(605) * lu(1489) 2543 lu(607) = 1._r8 / lu(607) 2544 lu(608) = lu(608) * lu(607) 2545 lu(609) = lu(609) * lu(607) 2546 lu(610) = lu(610) * lu(607) 2547 lu(611) = lu(611) * lu(607) 2548 lu(612) = lu(612) * lu(607) 2549 lu(613) = lu(613) * lu(607) 2550 lu(614) = lu(614) * lu(607) 2551 lu(615) = lu(615) * lu(607) 2552 lu(742) = lu(742) - lu(608) * lu(736) 2553 lu(743) = lu(743) - lu(609) * lu(736) 2554 lu(746) = lu(746) - lu(610) * lu(736) 2555 lu(747) = lu(747) - lu(611) * lu(736) 2556 lu(750) = lu(750) - lu(612) * lu(736) 2557 lu(751) = lu(751) - lu(613) * lu(736) 2558 lu(752) = - lu(614) * lu(736) 2559 lu(753) = lu(753) - lu(615) * lu(736) 2560 lu(871) = lu(871) - lu(608) * lu(861) 2561 lu(872) = lu(872) - lu(609) * lu(861) 2562 lu(876) = lu(876) - lu(610) * lu(861) 2563 lu(878) = lu(878) - lu(611) * lu(861) 2564 lu(881) = lu(881) - lu(612) * lu(861) 2565 lu(882) = - lu(613) * lu(861) 2566 lu(883) = - lu(614) * lu(861) 2567 lu(884) = lu(884) - lu(615) * lu(861) 2568 lu(1009) = lu(1009) - lu(608) * lu(999) 2569 lu(1012) = lu(1012) - lu(609) * lu(999) 2570 lu(1018) = lu(1018) - lu(610) * lu(999) 2571 lu(1020) = lu(1020) - lu(611) * lu(999) 2572 lu(1024) = lu(1024) - lu(612) * lu(999) 2573 lu(1025) = lu(1025) - lu(613) * lu(999) 2574 lu(1026) = - lu(614) * lu(999) 2575 lu(1027) = lu(1027) - lu(615) * lu(999) 2576 lu(1105) = lu(1105) - lu(608) * lu(1094) 2577 lu(1108) = lu(1108) - lu(609) * lu(1094) 2578 lu(1114) = lu(1114) - lu(610) * lu(1094) 2579 lu(1116) = lu(1116) - lu(611) * lu(1094) 2580 lu(1120) = lu(1120) - lu(612) * lu(1094) 2581 lu(1121) = lu(1121) - lu(613) * lu(1094) 2582 lu(1122) = - lu(614) * lu(1094) 2583 lu(1123) = lu(1123) - lu(615) * lu(1094) 2584 lu(1140) = - lu(608) * lu(1138) 2585 lu(1143) = lu(1143) - lu(609) * lu(1138) 2586 lu(1149) = lu(1149) - lu(610) * lu(1138) 2587 lu(1151) = lu(1151) - lu(611) * lu(1138) 2588 lu(1155) = lu(1155) - lu(612) * lu(1138) 2589 lu(1156) = lu(1156) - lu(613) * lu(1138) 2590 lu(1157) = lu(1157) - lu(614) * lu(1138) 2591 lu(1158) = lu(1158) - lu(615) * lu(1138) 2592 lu(1240) = lu(1240) - lu(608) * lu(1230) 2593 lu(1242) = lu(1242) - lu(609) * lu(1230) 2594 lu(1248) = lu(1248) - lu(610) * lu(1230) 2595 lu(1250) = lu(1250) - lu(611) * lu(1230) 2596 lu(1254) = lu(1254) - lu(612) * lu(1230) 2597 lu(1255) = lu(1255) - lu(613) * lu(1230) 2598 lu(1256) = - lu(614) * lu(1230) 2599 lu(1257) = lu(1257) - lu(615) * lu(1230) 2600 lu(1373) = lu(1373) - lu(608) * lu(1362) 2601 lu(1377) = lu(1377) - lu(609) * lu(1362) 2602 lu(1383) = lu(1383) - lu(610) * lu(1362) 2603 lu(1385) = lu(1385) - lu(611) * lu(1362) 2604 lu(1389) = lu(1389) - lu(612) * lu(1362) 2605 lu(1390) = lu(1390) - lu(613) * lu(1362) 2606 lu(1391) = lu(1391) - lu(614) * lu(1362) 2607 lu(1392) = lu(1392) - lu(615) * lu(1362) 2608 lu(1418) = lu(1418) - lu(608) * lu(1408) 2609 lu(1421) = lu(1421) - lu(609) * lu(1408) 2610 lu(1427) = lu(1427) - lu(610) * lu(1408) 2611 lu(1429) = lu(1429) - lu(611) * lu(1408) 2612 lu(1433) = lu(1433) - lu(612) * lu(1408) 2613 lu(1434) = lu(1434) - lu(613) * lu(1408) 2614 lu(1435) = lu(1435) - lu(614) * lu(1408) 2615 lu(1436) = lu(1436) - lu(615) * lu(1408) 2616 lu(616) = 1._r8 / lu(616) 2617 lu(617) = lu(617) * lu(616) 2618 lu(618) = lu(618) * lu(616) 2619 lu(619) = lu(619) * lu(616) 2620 lu(620) = lu(620) * lu(616) 2621 lu(621) = lu(621) * lu(616) 2622 lu(626) = lu(626) - lu(617) * lu(624) 2623 lu(627) = lu(627) - lu(618) * lu(624) 2624 lu(630) = lu(630) - lu(619) * lu(624) 2625 lu(633) = lu(633) - lu(620) * lu(624) 2626 lu(635) = lu(635) - lu(621) * lu(624) 2627 lu(676) = lu(676) - lu(617) * lu(675) 2628 lu(678) = lu(678) - lu(618) * lu(675) 2629 lu(680) = lu(680) - lu(619) * lu(675) 2630 lu(684) = lu(684) - lu(620) * lu(675) 2631 lu(688) = lu(688) - lu(621) * lu(675) 2632 lu(719) = lu(719) - lu(617) * lu(718) 2633 lu(723) = lu(723) - lu(618) * lu(718) 2634 lu(725) = lu(725) - lu(619) * lu(718) 2635 lu(729) = lu(729) - lu(620) * lu(718) 2636 lu(733) = lu(733) - lu(621) * lu(718) 2637 lu(738) = lu(738) - lu(617) * lu(737) 2638 lu(742) = lu(742) - lu(618) * lu(737) 2639 lu(746) = lu(746) - lu(619) * lu(737) 2640 lu(750) = lu(750) - lu(620) * lu(737) 2641 lu(754) = lu(754) - lu(621) * lu(737) 2642 lu(759) = - lu(617) * lu(758) 2643 lu(761) = lu(761) - lu(618) * lu(758) 2644 lu(765) = lu(765) - lu(619) * lu(758) 2645 lu(769) = lu(769) - lu(620) * lu(758) 2646 lu(773) = lu(773) - lu(621) * lu(758) 2647 lu(783) = lu(783) - lu(617) * lu(781) 2648 lu(789) = lu(789) - lu(618) * lu(781) 2649 lu(793) = lu(793) - lu(619) * lu(781) 2650 lu(797) = lu(797) - lu(620) * lu(781) 2651 lu(801) = lu(801) - lu(621) * lu(781) 2652 lu(865) = lu(865) - lu(617) * lu(862) 2653 lu(871) = lu(871) - lu(618) * lu(862) 2654 lu(876) = lu(876) - lu(619) * lu(862) 2655 lu(881) = lu(881) - lu(620) * lu(862) 2656 lu(885) = lu(885) - lu(621) * lu(862) 2657 lu(1003) = lu(1003) - lu(617) * lu(1000) 2658 lu(1009) = lu(1009) - lu(618) * lu(1000) 2659 lu(1018) = lu(1018) - lu(619) * lu(1000) 2660 lu(1024) = lu(1024) - lu(620) * lu(1000) 2661 lu(1028) = lu(1028) - lu(621) * lu(1000) 2662 lu(1099) = lu(1099) - lu(617) * lu(1095) 2663 lu(1105) = lu(1105) - lu(618) * lu(1095) 2664 lu(1114) = lu(1114) - lu(619) * lu(1095) 2665 lu(1120) = lu(1120) - lu(620) * lu(1095) 2666 lu(1124) = lu(1124) - lu(621) * lu(1095) 2667 lu(1234) = lu(1234) - lu(617) * lu(1231) 2668 lu(1240) = lu(1240) - lu(618) * lu(1231) 2669 lu(1248) = lu(1248) - lu(619) * lu(1231) 2670 lu(1254) = lu(1254) - lu(620) * lu(1231) 2671 lu(1258) = lu(1258) - lu(621) * lu(1231) 2672 lu(1273) = lu(1273) - lu(617) * lu(1272) 2673 lu(1275) = lu(1275) - lu(618) * lu(1272) 2674 lu(1285) = lu(1285) - lu(619) * lu(1272) 2675 lu(1291) = lu(1291) - lu(620) * lu(1272) 2676 lu(1295) = lu(1295) - lu(621) * lu(1272) 2677 lu(1367) = lu(1367) - lu(617) * lu(1363) 2678 lu(1373) = lu(1373) - lu(618) * lu(1363) 2679 lu(1383) = lu(1383) - lu(619) * lu(1363) 2680 lu(1389) = lu(1389) - lu(620) * lu(1363) 2681 lu(1393) = lu(1393) - lu(621) * lu(1363) 2682 lu(1412) = lu(1412) - lu(617) * lu(1409) 2683 lu(1418) = lu(1418) - lu(618) * lu(1409) 2684 lu(1427) = lu(1427) - lu(619) * lu(1409) 2685 lu(1433) = lu(1433) - lu(620) * lu(1409) 2686 lu(1437) = lu(1437) - lu(621) * lu(1409) 2687 lu(625) = 1._r8 / lu(625) 2688 lu(626) = lu(626) * lu(625) 2689 lu(627) = lu(627) * lu(625) 2690 lu(628) = lu(628) * lu(625) 2691 lu(629) = lu(629) * lu(625) 2692 lu(630) = lu(630) * lu(625) 2693 lu(631) = lu(631) * lu(625) 2694 lu(632) = lu(632) * lu(625) 2695 lu(633) = lu(633) * lu(625) 2696 lu(634) = lu(634) * lu(625) 2697 lu(635) = lu(635) * lu(625) 2698 lu(865) = lu(865) - lu(626) * lu(863) 2699 lu(871) = lu(871) - lu(627) * lu(863) 2700 lu(872) = lu(872) - lu(628) * lu(863) 2701 lu(873) = lu(873) - lu(629) * lu(863) 2702 lu(876) = lu(876) - lu(630) * lu(863) 2703 lu(879) = lu(879) - lu(631) * lu(863) 2704 lu(880) = lu(880) - lu(632) * lu(863) 2705 lu(881) = lu(881) - lu(633) * lu(863) 2706 lu(884) = lu(884) - lu(634) * lu(863) 2707 lu(885) = lu(885) - lu(635) * lu(863) 2708 lu(1003) = lu(1003) - lu(626) * lu(1001) 2709 lu(1009) = lu(1009) - lu(627) * lu(1001) 2710 lu(1012) = lu(1012) - lu(628) * lu(1001) 2711 lu(1013) = lu(1013) - lu(629) * lu(1001) 2712 lu(1018) = lu(1018) - lu(630) * lu(1001) 2713 lu(1022) = lu(1022) - lu(631) * lu(1001) 2714 lu(1023) = lu(1023) - lu(632) * lu(1001) 2715 lu(1024) = lu(1024) - lu(633) * lu(1001) 2716 lu(1027) = lu(1027) - lu(634) * lu(1001) 2717 lu(1028) = lu(1028) - lu(635) * lu(1001) 2718 lu(1099) = lu(1099) - lu(626) * lu(1096) 2719 lu(1105) = lu(1105) - lu(627) * lu(1096) 2720 lu(1108) = lu(1108) - lu(628) * lu(1096) 2721 lu(1109) = lu(1109) - lu(629) * lu(1096) 2722 lu(1114) = lu(1114) - lu(630) * lu(1096) 2723 lu(1118) = lu(1118) - lu(631) * lu(1096) 2724 lu(1119) = lu(1119) - lu(632) * lu(1096) 2725 lu(1120) = lu(1120) - lu(633) * lu(1096) 2726 lu(1123) = lu(1123) - lu(634) * lu(1096) 2727 lu(1124) = lu(1124) - lu(635) * lu(1096) 2728 lu(1234) = lu(1234) - lu(626) * lu(1232) 2729 lu(1240) = lu(1240) - lu(627) * lu(1232) 2730 lu(1242) = lu(1242) - lu(628) * lu(1232) 2731 lu(1243) = lu(1243) - lu(629) * lu(1232) 2732 lu(1248) = lu(1248) - lu(630) * lu(1232) 2733 lu(1252) = lu(1252) - lu(631) * lu(1232) 2734 lu(1253) = lu(1253) - lu(632) * lu(1232) 2735 lu(1254) = lu(1254) - lu(633) * lu(1232) 2736 lu(1257) = lu(1257) - lu(634) * lu(1232) 2737 lu(1258) = lu(1258) - lu(635) * lu(1232) 2738 lu(1367) = lu(1367) - lu(626) * lu(1364) 2739 lu(1373) = lu(1373) - lu(627) * lu(1364) 2740 lu(1377) = lu(1377) - lu(628) * lu(1364) 2741 lu(1378) = lu(1378) - lu(629) * lu(1364) 2742 lu(1383) = lu(1383) - lu(630) * lu(1364) 2743 lu(1387) = lu(1387) - lu(631) * lu(1364) 2744 lu(1388) = lu(1388) - lu(632) * lu(1364) 2745 lu(1389) = lu(1389) - lu(633) * lu(1364) 2746 lu(1392) = lu(1392) - lu(634) * lu(1364) 2747 lu(1393) = lu(1393) - lu(635) * lu(1364) 2748 lu(1412) = lu(1412) - lu(626) * lu(1410) 2749 lu(1418) = lu(1418) - lu(627) * lu(1410) 2750 lu(1421) = lu(1421) - lu(628) * lu(1410) 2751 lu(1422) = lu(1422) - lu(629) * lu(1410) 2752 lu(1427) = lu(1427) - lu(630) * lu(1410) 2753 lu(1431) = lu(1431) - lu(631) * lu(1410) 2754 lu(1432) = lu(1432) - lu(632) * lu(1410) 2755 lu(1433) = lu(1433) - lu(633) * lu(1410) 2756 lu(1436) = lu(1436) - lu(634) * lu(1410) 2757 lu(1437) = lu(1437) - lu(635) * lu(1410) 2758 lu(637) = 1._r8 / lu(637) 2759 lu(638) = lu(638) * lu(637) 2760 lu(639) = lu(639) * lu(637) 2761 lu(640) = lu(640) * lu(637) 2762 lu(641) = lu(641) * lu(637) 2763 lu(642) = lu(642) * lu(637) 2764 lu(643) = lu(643) * lu(637) 2765 lu(644) = lu(644) * lu(637) 2766 lu(645) = lu(645) * lu(637) 2767 lu(646) = lu(646) * lu(637) 2768 lu(647) = lu(647) * lu(637) 2769 lu(695) = - lu(638) * lu(694) 2770 lu(698) = - lu(639) * lu(694) 2771 lu(700) = - lu(640) * lu(694) 2772 lu(701) = lu(701) - lu(641) * lu(694) 2773 lu(703) = - lu(642) * lu(694) 2774 lu(704) = lu(704) - lu(643) * lu(694) 2775 lu(705) = lu(705) - lu(644) * lu(694) 2776 lu(708) = lu(708) - lu(645) * lu(694) 2777 lu(711) = - lu(646) * lu(694) 2778 lu(712) = lu(712) - lu(647) * lu(694) 2779 lu(783) = lu(783) - lu(638) * lu(782) 2780 lu(786) = lu(786) - lu(639) * lu(782) 2781 lu(788) = lu(788) - lu(640) * lu(782) 2782 lu(789) = lu(789) - lu(641) * lu(782) 2783 lu(792) = lu(792) - lu(642) * lu(782) 2784 lu(793) = lu(793) - lu(643) * lu(782) 2785 lu(794) = lu(794) - lu(644) * lu(782) 2786 lu(797) = lu(797) - lu(645) * lu(782) 2787 lu(800) = lu(800) - lu(646) * lu(782) 2788 lu(801) = lu(801) - lu(647) * lu(782) 2789 lu(865) = lu(865) - lu(638) * lu(864) 2790 lu(868) = lu(868) - lu(639) * lu(864) 2791 lu(870) = lu(870) - lu(640) * lu(864) 2792 lu(871) = lu(871) - lu(641) * lu(864) 2793 lu(874) = - lu(642) * lu(864) 2794 lu(876) = lu(876) - lu(643) * lu(864) 2795 lu(878) = lu(878) - lu(644) * lu(864) 2796 lu(881) = lu(881) - lu(645) * lu(864) 2797 lu(884) = lu(884) - lu(646) * lu(864) 2798 lu(885) = lu(885) - lu(647) * lu(864) 2799 lu(1003) = lu(1003) - lu(638) * lu(1002) 2800 lu(1006) = - lu(639) * lu(1002) 2801 lu(1008) = lu(1008) - lu(640) * lu(1002) 2802 lu(1009) = lu(1009) - lu(641) * lu(1002) 2803 lu(1016) = lu(1016) - lu(642) * lu(1002) 2804 lu(1018) = lu(1018) - lu(643) * lu(1002) 2805 lu(1020) = lu(1020) - lu(644) * lu(1002) 2806 lu(1024) = lu(1024) - lu(645) * lu(1002) 2807 lu(1027) = lu(1027) - lu(646) * lu(1002) 2808 lu(1028) = lu(1028) - lu(647) * lu(1002) 2809 lu(1099) = lu(1099) - lu(638) * lu(1097) 2810 lu(1102) = lu(1102) - lu(639) * lu(1097) 2811 lu(1104) = lu(1104) - lu(640) * lu(1097) 2812 lu(1105) = lu(1105) - lu(641) * lu(1097) 2813 lu(1112) = lu(1112) - lu(642) * lu(1097) 2814 lu(1114) = lu(1114) - lu(643) * lu(1097) 2815 lu(1116) = lu(1116) - lu(644) * lu(1097) 2816 lu(1120) = lu(1120) - lu(645) * lu(1097) 2817 lu(1123) = lu(1123) - lu(646) * lu(1097) 2818 lu(1124) = lu(1124) - lu(647) * lu(1097) 2819 lu(1234) = lu(1234) - lu(638) * lu(1233) 2820 lu(1237) = lu(1237) - lu(639) * lu(1233) 2821 lu(1239) = lu(1239) - lu(640) * lu(1233) 2822 lu(1240) = lu(1240) - lu(641) * lu(1233) 2823 lu(1246) = lu(1246) - lu(642) * lu(1233) 2824 lu(1248) = lu(1248) - lu(643) * lu(1233) 2825 lu(1250) = lu(1250) - lu(644) * lu(1233) 2826 lu(1254) = lu(1254) - lu(645) * lu(1233) 2827 lu(1257) = lu(1257) - lu(646) * lu(1233) 2828 lu(1258) = lu(1258) - lu(647) * lu(1233) 2829 lu(1367) = lu(1367) - lu(638) * lu(1365) 2830 lu(1370) = lu(1370) - lu(639) * lu(1365) 2831 lu(1372) = lu(1372) - lu(640) * lu(1365) 2832 lu(1373) = lu(1373) - lu(641) * lu(1365) 2833 lu(1381) = lu(1381) - lu(642) * lu(1365) 2834 lu(1383) = lu(1383) - lu(643) * lu(1365) 2835 lu(1385) = lu(1385) - lu(644) * lu(1365) 2836 lu(1389) = lu(1389) - lu(645) * lu(1365) 2837 lu(1392) = lu(1392) - lu(646) * lu(1365) 2838 lu(1393) = lu(1393) - lu(647) * lu(1365) 2839 lu(1412) = lu(1412) - lu(638) * lu(1411) 2840 lu(1415) = lu(1415) - lu(639) * lu(1411) 2841 lu(1417) = lu(1417) - lu(640) * lu(1411) 2842 lu(1418) = lu(1418) - lu(641) * lu(1411) 2843 lu(1425) = lu(1425) - lu(642) * lu(1411) 2844 lu(1427) = lu(1427) - lu(643) * lu(1411) 2845 lu(1429) = lu(1429) - lu(644) * lu(1411) 2846 lu(1433) = lu(1433) - lu(645) * lu(1411) 2847 lu(1436) = lu(1436) - lu(646) * lu(1411) 2848 lu(1437) = lu(1437) - lu(647) * lu(1411) 2849 END SUBROUTINE lu_fac14 2850 2851 SUBROUTINE lu_fac15(lu) 2852 USE shr_kind_mod, ONLY: r8 => shr_kind_r8 2853 IMPLICIT NONE 2854 !----------------------------------------------------------------------- 2855 ! ... dummy args 2856 !----------------------------------------------------------------------- 2857 REAL(KIND=r8), intent(inout) :: lu(:) 2858 lu(650) = 1._r8 / lu(650) 2859 lu(651) = lu(651) * lu(650) 2860 lu(652) = lu(652) * lu(650) 2861 lu(653) = lu(653) * lu(650) 2862 lu(654) = lu(654) * lu(650) 2863 lu(655) = lu(655) * lu(650) 2864 lu(656) = lu(656) * lu(650) 2865 lu(657) = lu(657) * lu(650) 2866 lu(658) = lu(658) * lu(650) 2867 lu(659) = lu(659) * lu(650) 2868 lu(660) = lu(660) * lu(650) 2869 lu(939) = lu(939) - lu(651) * lu(937) 2870 lu(941) = - lu(652) * lu(937) 2871 lu(943) = lu(943) - lu(653) * lu(937) 2872 lu(944) = lu(944) - lu(654) * lu(937) 2873 lu(948) = lu(948) - lu(655) * lu(937) 2874 lu(949) = lu(949) - lu(656) * lu(937) 2875 lu(953) = lu(953) - lu(657) * lu(937) 2876 lu(954) = lu(954) - lu(658) * lu(937) 2877 lu(955) = lu(955) - lu(659) * lu(937) 2878 lu(956) = lu(956) - lu(660) * lu(937) 2879 lu(965) = lu(965) - lu(651) * lu(964) 2880 lu(967) = lu(967) - lu(652) * lu(964) 2881 lu(969) = lu(969) - lu(653) * lu(964) 2882 lu(970) = lu(970) - lu(654) * lu(964) 2883 lu(974) = lu(974) - lu(655) * lu(964) 2884 lu(975) = lu(975) - lu(656) * lu(964) 2885 lu(979) = lu(979) - lu(657) * lu(964) 2886 lu(980) = lu(980) - lu(658) * lu(964) 2887 lu(981) = lu(981) - lu(659) * lu(964) 2888 lu(982) = lu(982) - lu(660) * lu(964) 2889 lu(1106) = lu(1106) - lu(651) * lu(1098) 2890 lu(1108) = lu(1108) - lu(652) * lu(1098) 2891 lu(1110) = lu(1110) - lu(653) * lu(1098) 2892 lu(1111) = lu(1111) - lu(654) * lu(1098) 2893 lu(1115) = lu(1115) - lu(655) * lu(1098) 2894 lu(1116) = lu(1116) - lu(656) * lu(1098) 2895 lu(1120) = lu(1120) - lu(657) * lu(1098) 2896 lu(1121) = lu(1121) - lu(658) * lu(1098) 2897 lu(1122) = lu(1122) - lu(659) * lu(1098) 2898 lu(1123) = lu(1123) - lu(660) * lu(1098) 2899 lu(1141) = lu(1141) - lu(651) * lu(1139) 2900 lu(1143) = lu(1143) - lu(652) * lu(1139) 2901 lu(1145) = lu(1145) - lu(653) * lu(1139) 2902 lu(1146) = - lu(654) * lu(1139) 2903 lu(1150) = lu(1150) - lu(655) * lu(1139) 2904 lu(1151) = lu(1151) - lu(656) * lu(1139) 2905 lu(1155) = lu(1155) - lu(657) * lu(1139) 2906 lu(1156) = lu(1156) - lu(658) * lu(1139) 2907 lu(1157) = lu(1157) - lu(659) * lu(1139) 2908 lu(1158) = lu(1158) - lu(660) * lu(1139) 2909 lu(1161) = - lu(651) * lu(1160) 2910 lu(1163) = - lu(652) * lu(1160) 2911 lu(1165) = lu(1165) - lu(653) * lu(1160) 2912 lu(1166) = - lu(654) * lu(1160) 2913 lu(1170) = - lu(655) * lu(1160) 2914 lu(1171) = lu(1171) - lu(656) * lu(1160) 2915 lu(1175) = lu(1175) - lu(657) * lu(1160) 2916 lu(1176) = - lu(658) * lu(1160) 2917 lu(1177) = - lu(659) * lu(1160) 2918 lu(1178) = lu(1178) - lu(660) * lu(1160) 2919 lu(1375) = lu(1375) - lu(651) * lu(1366) 2920 lu(1377) = lu(1377) - lu(652) * lu(1366) 2921 lu(1379) = lu(1379) - lu(653) * lu(1366) 2922 lu(1380) = lu(1380) - lu(654) * lu(1366) 2923 lu(1384) = lu(1384) - lu(655) * lu(1366) 2924 lu(1385) = lu(1385) - lu(656) * lu(1366) 2925 lu(1389) = lu(1389) - lu(657) * lu(1366) 2926 lu(1390) = lu(1390) - lu(658) * lu(1366) 2927 lu(1391) = lu(1391) - lu(659) * lu(1366) 2928 lu(1392) = lu(1392) - lu(660) * lu(1366) 2929 lu(1441) = - lu(651) * lu(1440) 2930 lu(1443) = lu(1443) - lu(652) * lu(1440) 2931 lu(1445) = - lu(653) * lu(1440) 2932 lu(1446) = - lu(654) * lu(1440) 2933 lu(1450) = - lu(655) * lu(1440) 2934 lu(1451) = lu(1451) - lu(656) * lu(1440) 2935 lu(1455) = lu(1455) - lu(657) * lu(1440) 2936 lu(1456) = lu(1456) - lu(658) * lu(1440) 2937 lu(1457) = lu(1457) - lu(659) * lu(1440) 2938 lu(1458) = lu(1458) - lu(660) * lu(1440) 2939 lu(1467) = - lu(651) * lu(1465) 2940 lu(1469) = lu(1469) - lu(652) * lu(1465) 2941 lu(1471) = lu(1471) - lu(653) * lu(1465) 2942 lu(1472) = lu(1472) - lu(654) * lu(1465) 2943 lu(1476) = - lu(655) * lu(1465) 2944 lu(1477) = lu(1477) - lu(656) * lu(1465) 2945 lu(1481) = lu(1481) - lu(657) * lu(1465) 2946 lu(1482) = lu(1482) - lu(658) * lu(1465) 2947 lu(1483) = lu(1483) - lu(659) * lu(1465) 2948 lu(1484) = lu(1484) - lu(660) * lu(1465) 2949 lu(1491) = lu(1491) - lu(651) * lu(1490) 2950 lu(1493) = - lu(652) * lu(1490) 2951 lu(1495) = lu(1495) - lu(653) * lu(1490) 2952 lu(1496) = lu(1496) - lu(654) * lu(1490) 2953 lu(1500) = lu(1500) - lu(655) * lu(1490) 2954 lu(1501) = lu(1501) - lu(656) * lu(1490) 2955 lu(1505) = lu(1505) - lu(657) * lu(1490) 2956 lu(1506) = lu(1506) - lu(658) * lu(1490) 2957 lu(1507) = lu(1507) - lu(659) * lu(1490) 2958 lu(1508) = lu(1508) - lu(660) * lu(1490) 2959 lu(662) = 1._r8 / lu(662) 2960 lu(663) = lu(663) * lu(662) 2961 lu(664) = lu(664) * lu(662) 2962 lu(665) = lu(665) * lu(662) 2963 lu(666) = lu(666) * lu(662) 2964 lu(667) = lu(667) * lu(662) 2965 lu(668) = lu(668) * lu(662) 2966 lu(669) = lu(669) * lu(662) 2967 lu(678) = lu(678) - lu(663) * lu(676) 2968 lu(680) = lu(680) - lu(664) * lu(676) 2969 lu(681) = lu(681) - lu(665) * lu(676) 2970 lu(684) = lu(684) - lu(666) * lu(676) 2971 lu(685) = lu(685) - lu(667) * lu(676) 2972 lu(686) = - lu(668) * lu(676) 2973 lu(687) = lu(687) - lu(669) * lu(676) 2974 lu(701) = lu(701) - lu(663) * lu(695) 2975 lu(704) = lu(704) - lu(664) * lu(695) 2976 lu(705) = lu(705) - lu(665) * lu(695) 2977 lu(708) = lu(708) - lu(666) * lu(695) 2978 lu(709) = lu(709) - lu(667) * lu(695) 2979 lu(710) = - lu(668) * lu(695) 2980 lu(711) = lu(711) - lu(669) * lu(695) 2981 lu(723) = lu(723) - lu(663) * lu(719) 2982 lu(725) = lu(725) - lu(664) * lu(719) 2983 lu(726) = lu(726) - lu(665) * lu(719) 2984 lu(729) = lu(729) - lu(666) * lu(719) 2985 lu(730) = lu(730) - lu(667) * lu(719) 2986 lu(731) = - lu(668) * lu(719) 2987 lu(732) = - lu(669) * lu(719) 2988 lu(742) = lu(742) - lu(663) * lu(738) 2989 lu(746) = lu(746) - lu(664) * lu(738) 2990 lu(747) = lu(747) - lu(665) * lu(738) 2991 lu(750) = lu(750) - lu(666) * lu(738) 2992 lu(751) = lu(751) - lu(667) * lu(738) 2993 lu(752) = lu(752) - lu(668) * lu(738) 2994 lu(753) = lu(753) - lu(669) * lu(738) 2995 lu(761) = lu(761) - lu(663) * lu(759) 2996 lu(765) = lu(765) - lu(664) * lu(759) 2997 lu(766) = - lu(665) * lu(759) 2998 lu(769) = lu(769) - lu(666) * lu(759) 2999 lu(770) = lu(770) - lu(667) * lu(759) 3000 lu(771) = - lu(668) * lu(759) 3001 lu(772) = lu(772) - lu(669) * lu(759) 3002 lu(789) = lu(789) - lu(663) * lu(783) 3003 lu(793) = lu(793) - lu(664) * lu(783) 3004 lu(794) = lu(794) - lu(665) * lu(783) 3005 lu(797) = lu(797) - lu(666) * lu(783) 3006 lu(798) = lu(798) - lu(667) * lu(783) 3007 lu(799) = - lu(668) * lu(783) 3008 lu(800) = lu(800) - lu(669) * lu(783) 3009 lu(871) = lu(871) - lu(663) * lu(865) 3010 lu(876) = lu(876) - lu(664) * lu(865) 3011 lu(878) = lu(878) - lu(665) * lu(865) 3012 lu(881) = lu(881) - lu(666) * lu(865) 3013 lu(882) = lu(882) - lu(667) * lu(865) 3014 lu(883) = lu(883) - lu(668) * lu(865) 3015 lu(884) = lu(884) - lu(669) * lu(865) 3016 lu(1009) = lu(1009) - lu(663) * lu(1003) 3017 lu(1018) = lu(1018) - lu(664) * lu(1003) 3018 lu(1020) = lu(1020) - lu(665) * lu(1003) 3019 lu(1024) = lu(1024) - lu(666) * lu(1003) 3020 lu(1025) = lu(1025) - lu(667) * lu(1003) 3021 lu(1026) = lu(1026) - lu(668) * lu(1003) 3022 lu(1027) = lu(1027) - lu(669) * lu(1003) 3023 lu(1105) = lu(1105) - lu(663) * lu(1099) 3024 lu(1114) = lu(1114) - lu(664) * lu(1099) 3025 lu(1116) = lu(1116) - lu(665) * lu(1099) 3026 lu(1120) = lu(1120) - lu(666) * lu(1099) 3027 lu(1121) = lu(1121) - lu(667) * lu(1099) 3028 lu(1122) = lu(1122) - lu(668) * lu(1099) 3029 lu(1123) = lu(1123) - lu(669) * lu(1099) 3030 lu(1240) = lu(1240) - lu(663) * lu(1234) 3031 lu(1248) = lu(1248) - lu(664) * lu(1234) 3032 lu(1250) = lu(1250) - lu(665) * lu(1234) 3033 lu(1254) = lu(1254) - lu(666) * lu(1234) 3034 lu(1255) = lu(1255) - lu(667) * lu(1234) 3035 lu(1256) = lu(1256) - lu(668) * lu(1234) 3036 lu(1257) = lu(1257) - lu(669) * lu(1234) 3037 lu(1275) = lu(1275) - lu(663) * lu(1273) 3038 lu(1285) = lu(1285) - lu(664) * lu(1273) 3039 lu(1287) = lu(1287) - lu(665) * lu(1273) 3040 lu(1291) = lu(1291) - lu(666) * lu(1273) 3041 lu(1292) = lu(1292) - lu(667) * lu(1273) 3042 lu(1293) = lu(1293) - lu(668) * lu(1273) 3043 lu(1294) = lu(1294) - lu(669) * lu(1273) 3044 lu(1373) = lu(1373) - lu(663) * lu(1367) 3045 lu(1383) = lu(1383) - lu(664) * lu(1367) 3046 lu(1385) = lu(1385) - lu(665) * lu(1367) 3047 lu(1389) = lu(1389) - lu(666) * lu(1367) 3048 lu(1390) = lu(1390) - lu(667) * lu(1367) 3049 lu(1391) = lu(1391) - lu(668) * lu(1367) 3050 lu(1392) = lu(1392) - lu(669) * lu(1367) 3051 lu(1418) = lu(1418) - lu(663) * lu(1412) 3052 lu(1427) = lu(1427) - lu(664) * lu(1412) 3053 lu(1429) = lu(1429) - lu(665) * lu(1412) 3054 lu(1433) = lu(1433) - lu(666) * lu(1412) 3055 lu(1434) = lu(1434) - lu(667) * lu(1412) 3056 lu(1435) = lu(1435) - lu(668) * lu(1412) 3057 lu(1436) = lu(1436) - lu(669) * lu(1412) 3058 lu(677) = 1._r8 / lu(677) 3059 lu(678) = lu(678) * lu(677) 3060 lu(679) = lu(679) * lu(677) 3061 lu(680) = lu(680) * lu(677) 3062 lu(681) = lu(681) * lu(677) 3063 lu(682) = lu(682) * lu(677) 3064 lu(683) = lu(683) * lu(677) 3065 lu(684) = lu(684) * lu(677) 3066 lu(685) = lu(685) * lu(677) 3067 lu(686) = lu(686) * lu(677) 3068 lu(687) = lu(687) * lu(677) 3069 lu(688) = lu(688) * lu(677) 3070 lu(701) = lu(701) - lu(678) * lu(696) 3071 lu(702) = lu(702) - lu(679) * lu(696) 3072 lu(704) = lu(704) - lu(680) * lu(696) 3073 lu(705) = lu(705) - lu(681) * lu(696) 3074 lu(706) = lu(706) - lu(682) * lu(696) 3075 lu(707) = lu(707) - lu(683) * lu(696) 3076 lu(708) = lu(708) - lu(684) * lu(696) 3077 lu(709) = lu(709) - lu(685) * lu(696) 3078 lu(710) = lu(710) - lu(686) * lu(696) 3079 lu(711) = lu(711) - lu(687) * lu(696) 3080 lu(712) = lu(712) - lu(688) * lu(696) 3081 lu(723) = lu(723) - lu(678) * lu(720) 3082 lu(724) = lu(724) - lu(679) * lu(720) 3083 lu(725) = lu(725) - lu(680) * lu(720) 3084 lu(726) = lu(726) - lu(681) * lu(720) 3085 lu(727) = lu(727) - lu(682) * lu(720) 3086 lu(728) = lu(728) - lu(683) * lu(720) 3087 lu(729) = lu(729) - lu(684) * lu(720) 3088 lu(730) = lu(730) - lu(685) * lu(720) 3089 lu(731) = lu(731) - lu(686) * lu(720) 3090 lu(732) = lu(732) - lu(687) * lu(720) 3091 lu(733) = lu(733) - lu(688) * lu(720) 3092 lu(789) = lu(789) - lu(678) * lu(784) 3093 lu(790) = lu(790) - lu(679) * lu(784) 3094 lu(793) = lu(793) - lu(680) * lu(784) 3095 lu(794) = lu(794) - lu(681) * lu(784) 3096 lu(795) = lu(795) - lu(682) * lu(784) 3097 lu(796) = lu(796) - lu(683) * lu(784) 3098 lu(797) = lu(797) - lu(684) * lu(784) 3099 lu(798) = lu(798) - lu(685) * lu(784) 3100 lu(799) = lu(799) - lu(686) * lu(784) 3101 lu(800) = lu(800) - lu(687) * lu(784) 3102 lu(801) = lu(801) - lu(688) * lu(784) 3103 lu(871) = lu(871) - lu(678) * lu(866) 3104 lu(872) = lu(872) - lu(679) * lu(866) 3105 lu(876) = lu(876) - lu(680) * lu(866) 3106 lu(878) = lu(878) - lu(681) * lu(866) 3107 lu(879) = lu(879) - lu(682) * lu(866) 3108 lu(880) = lu(880) - lu(683) * lu(866) 3109 lu(881) = lu(881) - lu(684) * lu(866) 3110 lu(882) = lu(882) - lu(685) * lu(866) 3111 lu(883) = lu(883) - lu(686) * lu(866) 3112 lu(884) = lu(884) - lu(687) * lu(866) 3113 lu(885) = lu(885) - lu(688) * lu(866) 3114 lu(1009) = lu(1009) - lu(678) * lu(1004) 3115 lu(1012) = lu(1012) - lu(679) * lu(1004) 3116 lu(1018) = lu(1018) - lu(680) * lu(1004) 3117 lu(1020) = lu(1020) - lu(681) * lu(1004) 3118 lu(1022) = lu(1022) - lu(682) * lu(1004) 3119 lu(1023) = lu(1023) - lu(683) * lu(1004) 3120 lu(1024) = lu(1024) - lu(684) * lu(1004) 3121 lu(1025) = lu(1025) - lu(685) * lu(1004) 3122 lu(1026) = lu(1026) - lu(686) * lu(1004) 3123 lu(1027) = lu(1027) - lu(687) * lu(1004) 3124 lu(1028) = lu(1028) - lu(688) * lu(1004) 3125 lu(1105) = lu(1105) - lu(678) * lu(1100) 3126 lu(1108) = lu(1108) - lu(679) * lu(1100) 3127 lu(1114) = lu(1114) - lu(680) * lu(1100) 3128 lu(1116) = lu(1116) - lu(681) * lu(1100) 3129 lu(1118) = lu(1118) - lu(682) * lu(1100) 3130 lu(1119) = lu(1119) - lu(683) * lu(1100) 3131 lu(1120) = lu(1120) - lu(684) * lu(1100) 3132 lu(1121) = lu(1121) - lu(685) * lu(1100) 3133 lu(1122) = lu(1122) - lu(686) * lu(1100) 3134 lu(1123) = lu(1123) - lu(687) * lu(1100) 3135 lu(1124) = lu(1124) - lu(688) * lu(1100) 3136 lu(1240) = lu(1240) - lu(678) * lu(1235) 3137 lu(1242) = lu(1242) - lu(679) * lu(1235) 3138 lu(1248) = lu(1248) - lu(680) * lu(1235) 3139 lu(1250) = lu(1250) - lu(681) * lu(1235) 3140 lu(1252) = lu(1252) - lu(682) * lu(1235) 3141 lu(1253) = lu(1253) - lu(683) * lu(1235) 3142 lu(1254) = lu(1254) - lu(684) * lu(1235) 3143 lu(1255) = lu(1255) - lu(685) * lu(1235) 3144 lu(1256) = lu(1256) - lu(686) * lu(1235) 3145 lu(1257) = lu(1257) - lu(687) * lu(1235) 3146 lu(1258) = lu(1258) - lu(688) * lu(1235) 3147 lu(1373) = lu(1373) - lu(678) * lu(1368) 3148 lu(1377) = lu(1377) - lu(679) * lu(1368) 3149 lu(1383) = lu(1383) - lu(680) * lu(1368) 3150 lu(1385) = lu(1385) - lu(681) * lu(1368) 3151 lu(1387) = lu(1387) - lu(682) * lu(1368) 3152 lu(1388) = lu(1388) - lu(683) * lu(1368) 3153 lu(1389) = lu(1389) - lu(684) * lu(1368) 3154 lu(1390) = lu(1390) - lu(685) * lu(1368) 3155 lu(1391) = lu(1391) - lu(686) * lu(1368) 3156 lu(1392) = lu(1392) - lu(687) * lu(1368) 3157 lu(1393) = lu(1393) - lu(688) * lu(1368) 3158 lu(1418) = lu(1418) - lu(678) * lu(1413) 3159 lu(1421) = lu(1421) - lu(679) * lu(1413) 3160 lu(1427) = lu(1427) - lu(680) * lu(1413) 3161 lu(1429) = lu(1429) - lu(681) * lu(1413) 3162 lu(1431) = lu(1431) - lu(682) * lu(1413) 3163 lu(1432) = lu(1432) - lu(683) * lu(1413) 3164 lu(1433) = lu(1433) - lu(684) * lu(1413) 3165 lu(1434) = lu(1434) - lu(685) * lu(1413) 3166 lu(1435) = lu(1435) - lu(686) * lu(1413) 3167 lu(1436) = lu(1436) - lu(687) * lu(1413) 3168 lu(1437) = lu(1437) - lu(688) * lu(1413) 3169 END SUBROUTINE lu_fac15 3170 3171 SUBROUTINE lu_fac16(lu) 3172 USE shr_kind_mod, ONLY: r8 => shr_kind_r8 3173 IMPLICIT NONE 3174 !----------------------------------------------------------------------- 3175 ! ... dummy args 3176 !----------------------------------------------------------------------- 3177 REAL(KIND=r8), intent(inout) :: lu(:) 3178 lu(697) = 1._r8 / lu(697) 3179 lu(698) = lu(698) * lu(697) 3180 lu(699) = lu(699) * lu(697) 3181 lu(700) = lu(700) * lu(697) 3182 lu(701) = lu(701) * lu(697) 3183 lu(702) = lu(702) * lu(697) 3184 lu(703) = lu(703) * lu(697) 3185 lu(704) = lu(704) * lu(697) 3186 lu(705) = lu(705) * lu(697) 3187 lu(706) = lu(706) * lu(697) 3188 lu(707) = lu(707) * lu(697) 3189 lu(708) = lu(708) * lu(697) 3190 lu(709) = lu(709) * lu(697) 3191 lu(710) = lu(710) * lu(697) 3192 lu(711) = lu(711) * lu(697) 3193 lu(712) = lu(712) * lu(697) 3194 lu(786) = lu(786) - lu(698) * lu(785) 3195 lu(787) = lu(787) - lu(699) * lu(785) 3196 lu(788) = lu(788) - lu(700) * lu(785) 3197 lu(789) = lu(789) - lu(701) * lu(785) 3198 lu(790) = lu(790) - lu(702) * lu(785) 3199 lu(792) = lu(792) - lu(703) * lu(785) 3200 lu(793) = lu(793) - lu(704) * lu(785) 3201 lu(794) = lu(794) - lu(705) * lu(785) 3202 lu(795) = lu(795) - lu(706) * lu(785) 3203 lu(796) = lu(796) - lu(707) * lu(785) 3204 lu(797) = lu(797) - lu(708) * lu(785) 3205 lu(798) = lu(798) - lu(709) * lu(785) 3206 lu(799) = lu(799) - lu(710) * lu(785) 3207 lu(800) = lu(800) - lu(711) * lu(785) 3208 lu(801) = lu(801) - lu(712) * lu(785) 3209 lu(868) = lu(868) - lu(698) * lu(867) 3210 lu(869) = lu(869) - lu(699) * lu(867) 3211 lu(870) = lu(870) - lu(700) * lu(867) 3212 lu(871) = lu(871) - lu(701) * lu(867) 3213 lu(872) = lu(872) - lu(702) * lu(867) 3214 lu(874) = lu(874) - lu(703) * lu(867) 3215 lu(876) = lu(876) - lu(704) * lu(867) 3216 lu(878) = lu(878) - lu(705) * lu(867) 3217 lu(879) = lu(879) - lu(706) * lu(867) 3218 lu(880) = lu(880) - lu(707) * lu(867) 3219 lu(881) = lu(881) - lu(708) * lu(867) 3220 lu(882) = lu(882) - lu(709) * lu(867) 3221 lu(883) = lu(883) - lu(710) * lu(867) 3222 lu(884) = lu(884) - lu(711) * lu(867) 3223 lu(885) = lu(885) - lu(712) * lu(867) 3224 lu(1006) = lu(1006) - lu(698) * lu(1005) 3225 lu(1007) = lu(1007) - lu(699) * lu(1005) 3226 lu(1008) = lu(1008) - lu(700) * lu(1005) 3227 lu(1009) = lu(1009) - lu(701) * lu(1005) 3228 lu(1012) = lu(1012) - lu(702) * lu(1005) 3229 lu(1016) = lu(1016) - lu(703) * lu(1005) 3230 lu(1018) = lu(1018) - lu(704) * lu(1005) 3231 lu(1020) = lu(1020) - lu(705) * lu(1005) 3232 lu(1022) = lu(1022) - lu(706) * lu(1005) 3233 lu(1023) = lu(1023) - lu(707) * lu(1005) 3234 lu(1024) = lu(1024) - lu(708) * lu(1005) 3235 lu(1025) = lu(1025) - lu(709) * lu(1005) 3236 lu(1026) = lu(1026) - lu(710) * lu(1005) 3237 lu(1027) = lu(1027) - lu(711) * lu(1005) 3238 lu(1028) = lu(1028) - lu(712) * lu(1005) 3239 lu(1102) = lu(1102) - lu(698) * lu(1101) 3240 lu(1103) = lu(1103) - lu(699) * lu(1101) 3241 lu(1104) = lu(1104) - lu(700) * lu(1101) 3242 lu(1105) = lu(1105) - lu(701) * lu(1101) 3243 lu(1108) = lu(1108) - lu(702) * lu(1101) 3244 lu(1112) = lu(1112) - lu(703) * lu(1101) 3245 lu(1114) = lu(1114) - lu(704) * lu(1101) 3246 lu(1116) = lu(1116) - lu(705) * lu(1101) 3247 lu(1118) = lu(1118) - lu(706) * lu(1101) 3248 lu(1119) = lu(1119) - lu(707) * lu(1101) 3249 lu(1120) = lu(1120) - lu(708) * lu(1101) 3250 lu(1121) = lu(1121) - lu(709) * lu(1101) 3251 lu(1122) = lu(1122) - lu(710) * lu(1101) 3252 lu(1123) = lu(1123) - lu(711) * lu(1101) 3253 lu(1124) = lu(1124) - lu(712) * lu(1101) 3254 lu(1237) = lu(1237) - lu(698) * lu(1236) 3255 lu(1238) = lu(1238) - lu(699) * lu(1236) 3256 lu(1239) = lu(1239) - lu(700) * lu(1236) 3257 lu(1240) = lu(1240) - lu(701) * lu(1236) 3258 lu(1242) = lu(1242) - lu(702) * lu(1236) 3259 lu(1246) = lu(1246) - lu(703) * lu(1236) 3260 lu(1248) = lu(1248) - lu(704) * lu(1236) 3261 lu(1250) = lu(1250) - lu(705) * lu(1236) 3262 lu(1252) = lu(1252) - lu(706) * lu(1236) 3263 lu(1253) = lu(1253) - lu(707) * lu(1236) 3264 lu(1254) = lu(1254) - lu(708) * lu(1236) 3265 lu(1255) = lu(1255) - lu(709) * lu(1236) 3266 lu(1256) = lu(1256) - lu(710) * lu(1236) 3267 lu(1257) = lu(1257) - lu(711) * lu(1236) 3268 lu(1258) = lu(1258) - lu(712) * lu(1236) 3269 lu(1370) = lu(1370) - lu(698) * lu(1369) 3270 lu(1371) = lu(1371) - lu(699) * lu(1369) 3271 lu(1372) = lu(1372) - lu(700) * lu(1369) 3272 lu(1373) = lu(1373) - lu(701) * lu(1369) 3273 lu(1377) = lu(1377) - lu(702) * lu(1369) 3274 lu(1381) = lu(1381) - lu(703) * lu(1369) 3275 lu(1383) = lu(1383) - lu(704) * lu(1369) 3276 lu(1385) = lu(1385) - lu(705) * lu(1369) 3277 lu(1387) = lu(1387) - lu(706) * lu(1369) 3278 lu(1388) = lu(1388) - lu(707) * lu(1369) 3279 lu(1389) = lu(1389) - lu(708) * lu(1369) 3280 lu(1390) = lu(1390) - lu(709) * lu(1369) 3281 lu(1391) = lu(1391) - lu(710) * lu(1369) 3282 lu(1392) = lu(1392) - lu(711) * lu(1369) 3283 lu(1393) = lu(1393) - lu(712) * lu(1369) 3284 lu(1415) = lu(1415) - lu(698) * lu(1414) 3285 lu(1416) = lu(1416) - lu(699) * lu(1414) 3286 lu(1417) = lu(1417) - lu(700) * lu(1414) 3287 lu(1418) = lu(1418) - lu(701) * lu(1414) 3288 lu(1421) = lu(1421) - lu(702) * lu(1414) 3289 lu(1425) = lu(1425) - lu(703) * lu(1414) 3290 lu(1427) = lu(1427) - lu(704) * lu(1414) 3291 lu(1429) = lu(1429) - lu(705) * lu(1414) 3292 lu(1431) = lu(1431) - lu(706) * lu(1414) 3293 lu(1432) = lu(1432) - lu(707) * lu(1414) 3294 lu(1433) = lu(1433) - lu(708) * lu(1414) 3295 lu(1434) = lu(1434) - lu(709) * lu(1414) 3296 lu(1435) = lu(1435) - lu(710) * lu(1414) 3297 lu(1436) = lu(1436) - lu(711) * lu(1414) 3298 lu(1437) = lu(1437) - lu(712) * lu(1414) 3299 lu(721) = 1._r8 / lu(721) 3300 lu(722) = lu(722) * lu(721) 3301 lu(723) = lu(723) * lu(721) 3302 lu(724) = lu(724) * lu(721) 3303 lu(725) = lu(725) * lu(721) 3304 lu(726) = lu(726) * lu(721) 3305 lu(727) = lu(727) * lu(721) 3306 lu(728) = lu(728) * lu(721) 3307 lu(729) = lu(729) * lu(721) 3308 lu(730) = lu(730) * lu(721) 3309 lu(731) = lu(731) * lu(721) 3310 lu(732) = lu(732) * lu(721) 3311 lu(733) = lu(733) * lu(721) 3312 lu(741) = - lu(722) * lu(739) 3313 lu(742) = lu(742) - lu(723) * lu(739) 3314 lu(743) = lu(743) - lu(724) * lu(739) 3315 lu(746) = lu(746) - lu(725) * lu(739) 3316 lu(747) = lu(747) - lu(726) * lu(739) 3317 lu(748) = lu(748) - lu(727) * lu(739) 3318 lu(749) = lu(749) - lu(728) * lu(739) 3319 lu(750) = lu(750) - lu(729) * lu(739) 3320 lu(751) = lu(751) - lu(730) * lu(739) 3321 lu(752) = lu(752) - lu(731) * lu(739) 3322 lu(753) = lu(753) - lu(732) * lu(739) 3323 lu(754) = lu(754) - lu(733) * lu(739) 3324 lu(788) = lu(788) - lu(722) * lu(786) 3325 lu(789) = lu(789) - lu(723) * lu(786) 3326 lu(790) = lu(790) - lu(724) * lu(786) 3327 lu(793) = lu(793) - lu(725) * lu(786) 3328 lu(794) = lu(794) - lu(726) * lu(786) 3329 lu(795) = lu(795) - lu(727) * lu(786) 3330 lu(796) = lu(796) - lu(728) * lu(786) 3331 lu(797) = lu(797) - lu(729) * lu(786) 3332 lu(798) = lu(798) - lu(730) * lu(786) 3333 lu(799) = lu(799) - lu(731) * lu(786) 3334 lu(800) = lu(800) - lu(732) * lu(786) 3335 lu(801) = lu(801) - lu(733) * lu(786) 3336 lu(870) = lu(870) - lu(722) * lu(868) 3337 lu(871) = lu(871) - lu(723) * lu(868) 3338 lu(872) = lu(872) - lu(724) * lu(868) 3339 lu(876) = lu(876) - lu(725) * lu(868) 3340 lu(878) = lu(878) - lu(726) * lu(868) 3341 lu(879) = lu(879) - lu(727) * lu(868) 3342 lu(880) = lu(880) - lu(728) * lu(868) 3343 lu(881) = lu(881) - lu(729) * lu(868) 3344 lu(882) = lu(882) - lu(730) * lu(868) 3345 lu(883) = lu(883) - lu(731) * lu(868) 3346 lu(884) = lu(884) - lu(732) * lu(868) 3347 lu(885) = lu(885) - lu(733) * lu(868) 3348 lu(1008) = lu(1008) - lu(722) * lu(1006) 3349 lu(1009) = lu(1009) - lu(723) * lu(1006) 3350 lu(1012) = lu(1012) - lu(724) * lu(1006) 3351 lu(1018) = lu(1018) - lu(725) * lu(1006) 3352 lu(1020) = lu(1020) - lu(726) * lu(1006) 3353 lu(1022) = lu(1022) - lu(727) * lu(1006) 3354 lu(1023) = lu(1023) - lu(728) * lu(1006) 3355 lu(1024) = lu(1024) - lu(729) * lu(1006) 3356 lu(1025) = lu(1025) - lu(730) * lu(1006) 3357 lu(1026) = lu(1026) - lu(731) * lu(1006) 3358 lu(1027) = lu(1027) - lu(732) * lu(1006) 3359 lu(1028) = lu(1028) - lu(733) * lu(1006) 3360 lu(1104) = lu(1104) - lu(722) * lu(1102) 3361 lu(1105) = lu(1105) - lu(723) * lu(1102) 3362 lu(1108) = lu(1108) - lu(724) * lu(1102) 3363 lu(1114) = lu(1114) - lu(725) * lu(1102) 3364 lu(1116) = lu(1116) - lu(726) * lu(1102) 3365 lu(1118) = lu(1118) - lu(727) * lu(1102) 3366 lu(1119) = lu(1119) - lu(728) * lu(1102) 3367 lu(1120) = lu(1120) - lu(729) * lu(1102) 3368 lu(1121) = lu(1121) - lu(730) * lu(1102) 3369 lu(1122) = lu(1122) - lu(731) * lu(1102) 3370 lu(1123) = lu(1123) - lu(732) * lu(1102) 3371 lu(1124) = lu(1124) - lu(733) * lu(1102) 3372 lu(1239) = lu(1239) - lu(722) * lu(1237) 3373 lu(1240) = lu(1240) - lu(723) * lu(1237) 3374 lu(1242) = lu(1242) - lu(724) * lu(1237) 3375 lu(1248) = lu(1248) - lu(725) * lu(1237) 3376 lu(1250) = lu(1250) - lu(726) * lu(1237) 3377 lu(1252) = lu(1252) - lu(727) * lu(1237) 3378 lu(1253) = lu(1253) - lu(728) * lu(1237) 3379 lu(1254) = lu(1254) - lu(729) * lu(1237) 3380 lu(1255) = lu(1255) - lu(730) * lu(1237) 3381 lu(1256) = lu(1256) - lu(731) * lu(1237) 3382 lu(1257) = lu(1257) - lu(732) * lu(1237) 3383 lu(1258) = lu(1258) - lu(733) * lu(1237) 3384 lu(1372) = lu(1372) - lu(722) * lu(1370) 3385 lu(1373) = lu(1373) - lu(723) * lu(1370) 3386 lu(1377) = lu(1377) - lu(724) * lu(1370) 3387 lu(1383) = lu(1383) - lu(725) * lu(1370) 3388 lu(1385) = lu(1385) - lu(726) * lu(1370) 3389 lu(1387) = lu(1387) - lu(727) * lu(1370) 3390 lu(1388) = lu(1388) - lu(728) * lu(1370) 3391 lu(1389) = lu(1389) - lu(729) * lu(1370) 3392 lu(1390) = lu(1390) - lu(730) * lu(1370) 3393 lu(1391) = lu(1391) - lu(731) * lu(1370) 3394 lu(1392) = lu(1392) - lu(732) * lu(1370) 3395 lu(1393) = lu(1393) - lu(733) * lu(1370) 3396 lu(1417) = lu(1417) - lu(722) * lu(1415) 3397 lu(1418) = lu(1418) - lu(723) * lu(1415) 3398 lu(1421) = lu(1421) - lu(724) * lu(1415) 3399 lu(1427) = lu(1427) - lu(725) * lu(1415) 3400 lu(1429) = lu(1429) - lu(726) * lu(1415) 3401 lu(1431) = lu(1431) - lu(727) * lu(1415) 3402 lu(1432) = lu(1432) - lu(728) * lu(1415) 3403 lu(1433) = lu(1433) - lu(729) * lu(1415) 3404 lu(1434) = lu(1434) - lu(730) * lu(1415) 3405 lu(1435) = lu(1435) - lu(731) * lu(1415) 3406 lu(1436) = lu(1436) - lu(732) * lu(1415) 3407 lu(1437) = lu(1437) - lu(733) * lu(1415) 3408 lu(740) = 1._r8 / lu(740) 3409 lu(741) = lu(741) * lu(740) 3410 lu(742) = lu(742) * lu(740) 3411 lu(743) = lu(743) * lu(740) 3412 lu(744) = lu(744) * lu(740) 3413 lu(745) = lu(745) * lu(740) 3414 lu(746) = lu(746) * lu(740) 3415 lu(747) = lu(747) * lu(740) 3416 lu(748) = lu(748) * lu(740) 3417 lu(749) = lu(749) * lu(740) 3418 lu(750) = lu(750) * lu(740) 3419 lu(751) = lu(751) * lu(740) 3420 lu(752) = lu(752) * lu(740) 3421 lu(753) = lu(753) * lu(740) 3422 lu(754) = lu(754) * lu(740) 3423 lu(788) = lu(788) - lu(741) * lu(787) 3424 lu(789) = lu(789) - lu(742) * lu(787) 3425 lu(790) = lu(790) - lu(743) * lu(787) 3426 lu(791) = - lu(744) * lu(787) 3427 lu(792) = lu(792) - lu(745) * lu(787) 3428 lu(793) = lu(793) - lu(746) * lu(787) 3429 lu(794) = lu(794) - lu(747) * lu(787) 3430 lu(795) = lu(795) - lu(748) * lu(787) 3431 lu(796) = lu(796) - lu(749) * lu(787) 3432 lu(797) = lu(797) - lu(750) * lu(787) 3433 lu(798) = lu(798) - lu(751) * lu(787) 3434 lu(799) = lu(799) - lu(752) * lu(787) 3435 lu(800) = lu(800) - lu(753) * lu(787) 3436 lu(801) = lu(801) - lu(754) * lu(787) 3437 lu(870) = lu(870) - lu(741) * lu(869) 3438 lu(871) = lu(871) - lu(742) * lu(869) 3439 lu(872) = lu(872) - lu(743) * lu(869) 3440 lu(873) = lu(873) - lu(744) * lu(869) 3441 lu(874) = lu(874) - lu(745) * lu(869) 3442 lu(876) = lu(876) - lu(746) * lu(869) 3443 lu(878) = lu(878) - lu(747) * lu(869) 3444 lu(879) = lu(879) - lu(748) * lu(869) 3445 lu(880) = lu(880) - lu(749) * lu(869) 3446 lu(881) = lu(881) - lu(750) * lu(869) 3447 lu(882) = lu(882) - lu(751) * lu(869) 3448 lu(883) = lu(883) - lu(752) * lu(869) 3449 lu(884) = lu(884) - lu(753) * lu(869) 3450 lu(885) = lu(885) - lu(754) * lu(869) 3451 lu(1008) = lu(1008) - lu(741) * lu(1007) 3452 lu(1009) = lu(1009) - lu(742) * lu(1007) 3453 lu(1012) = lu(1012) - lu(743) * lu(1007) 3454 lu(1013) = lu(1013) - lu(744) * lu(1007) 3455 lu(1016) = lu(1016) - lu(745) * lu(1007) 3456 lu(1018) = lu(1018) - lu(746) * lu(1007) 3457 lu(1020) = lu(1020) - lu(747) * lu(1007) 3458 lu(1022) = lu(1022) - lu(748) * lu(1007) 3459 lu(1023) = lu(1023) - lu(749) * lu(1007) 3460 lu(1024) = lu(1024) - lu(750) * lu(1007) 3461 lu(1025) = lu(1025) - lu(751) * lu(1007) 3462 lu(1026) = lu(1026) - lu(752) * lu(1007) 3463 lu(1027) = lu(1027) - lu(753) * lu(1007) 3464 lu(1028) = lu(1028) - lu(754) * lu(1007) 3465 lu(1104) = lu(1104) - lu(741) * lu(1103) 3466 lu(1105) = lu(1105) - lu(742) * lu(1103) 3467 lu(1108) = lu(1108) - lu(743) * lu(1103) 3468 lu(1109) = lu(1109) - lu(744) * lu(1103) 3469 lu(1112) = lu(1112) - lu(745) * lu(1103) 3470 lu(1114) = lu(1114) - lu(746) * lu(1103) 3471 lu(1116) = lu(1116) - lu(747) * lu(1103) 3472 lu(1118) = lu(1118) - lu(748) * lu(1103) 3473 lu(1119) = lu(1119) - lu(749) * lu(1103) 3474 lu(1120) = lu(1120) - lu(750) * lu(1103) 3475 lu(1121) = lu(1121) - lu(751) * lu(1103) 3476 lu(1122) = lu(1122) - lu(752) * lu(1103) 3477 lu(1123) = lu(1123) - lu(753) * lu(1103) 3478 lu(1124) = lu(1124) - lu(754) * lu(1103) 3479 lu(1239) = lu(1239) - lu(741) * lu(1238) 3480 lu(1240) = lu(1240) - lu(742) * lu(1238) 3481 lu(1242) = lu(1242) - lu(743) * lu(1238) 3482 lu(1243) = lu(1243) - lu(744) * lu(1238) 3483 lu(1246) = lu(1246) - lu(745) * lu(1238) 3484 lu(1248) = lu(1248) - lu(746) * lu(1238) 3485 lu(1250) = lu(1250) - lu(747) * lu(1238) 3486 lu(1252) = lu(1252) - lu(748) * lu(1238) 3487 lu(1253) = lu(1253) - lu(749) * lu(1238) 3488 lu(1254) = lu(1254) - lu(750) * lu(1238) 3489 lu(1255) = lu(1255) - lu(751) * lu(1238) 3490 lu(1256) = lu(1256) - lu(752) * lu(1238) 3491 lu(1257) = lu(1257) - lu(753) * lu(1238) 3492 lu(1258) = lu(1258) - lu(754) * lu(1238) 3493 lu(1372) = lu(1372) - lu(741) * lu(1371) 3494 lu(1373) = lu(1373) - lu(742) * lu(1371) 3495 lu(1377) = lu(1377) - lu(743) * lu(1371) 3496 lu(1378) = lu(1378) - lu(744) * lu(1371) 3497 lu(1381) = lu(1381) - lu(745) * lu(1371) 3498 lu(1383) = lu(1383) - lu(746) * lu(1371) 3499 lu(1385) = lu(1385) - lu(747) * lu(1371) 3500 lu(1387) = lu(1387) - lu(748) * lu(1371) 3501 lu(1388) = lu(1388) - lu(749) * lu(1371) 3502 lu(1389) = lu(1389) - lu(750) * lu(1371) 3503 lu(1390) = lu(1390) - lu(751) * lu(1371) 3504 lu(1391) = lu(1391) - lu(752) * lu(1371) 3505 lu(1392) = lu(1392) - lu(753) * lu(1371) 3506 lu(1393) = lu(1393) - lu(754) * lu(1371) 3507 lu(1417) = lu(1417) - lu(741) * lu(1416) 3508 lu(1418) = lu(1418) - lu(742) * lu(1416) 3509 lu(1421) = lu(1421) - lu(743) * lu(1416) 3510 lu(1422) = lu(1422) - lu(744) * lu(1416) 3511 lu(1425) = lu(1425) - lu(745) * lu(1416) 3512 lu(1427) = lu(1427) - lu(746) * lu(1416) 3513 lu(1429) = lu(1429) - lu(747) * lu(1416) 3514 lu(1431) = lu(1431) - lu(748) * lu(1416) 3515 lu(1432) = lu(1432) - lu(749) * lu(1416) 3516 lu(1433) = lu(1433) - lu(750) * lu(1416) 3517 lu(1434) = lu(1434) - lu(751) * lu(1416) 3518 lu(1435) = lu(1435) - lu(752) * lu(1416) 3519 lu(1436) = lu(1436) - lu(753) * lu(1416) 3520 lu(1437) = lu(1437) - lu(754) * lu(1416) 3521 lu(760) = 1._r8 / lu(760) 3522 lu(761) = lu(761) * lu(760) 3523 lu(762) = lu(762) * lu(760) 3524 lu(763) = lu(763) * lu(760) 3525 lu(764) = lu(764) * lu(760) 3526 lu(765) = lu(765) * lu(760) 3527 lu(766) = lu(766) * lu(760) 3528 lu(767) = lu(767) * lu(760) 3529 lu(768) = lu(768) * lu(760) 3530 lu(769) = lu(769) * lu(760) 3531 lu(770) = lu(770) * lu(760) 3532 lu(771) = lu(771) * lu(760) 3533 lu(772) = lu(772) * lu(760) 3534 lu(773) = lu(773) * lu(760) 3535 lu(789) = lu(789) - lu(761) * lu(788) 3536 lu(790) = lu(790) - lu(762) * lu(788) 3537 lu(791) = lu(791) - lu(763) * lu(788) 3538 lu(792) = lu(792) - lu(764) * lu(788) 3539 lu(793) = lu(793) - lu(765) * lu(788) 3540 lu(794) = lu(794) - lu(766) * lu(788) 3541 lu(795) = lu(795) - lu(767) * lu(788) 3542 lu(796) = lu(796) - lu(768) * lu(788) 3543 lu(797) = lu(797) - lu(769) * lu(788) 3544 lu(798) = lu(798) - lu(770) * lu(788) 3545 lu(799) = lu(799) - lu(771) * lu(788) 3546 lu(800) = lu(800) - lu(772) * lu(788) 3547 lu(801) = lu(801) - lu(773) * lu(788) 3548 lu(871) = lu(871) - lu(761) * lu(870) 3549 lu(872) = lu(872) - lu(762) * lu(870) 3550 lu(873) = lu(873) - lu(763) * lu(870) 3551 lu(874) = lu(874) - lu(764) * lu(870) 3552 lu(876) = lu(876) - lu(765) * lu(870) 3553 lu(878) = lu(878) - lu(766) * lu(870) 3554 lu(879) = lu(879) - lu(767) * lu(870) 3555 lu(880) = lu(880) - lu(768) * lu(870) 3556 lu(881) = lu(881) - lu(769) * lu(870) 3557 lu(882) = lu(882) - lu(770) * lu(870) 3558 lu(883) = lu(883) - lu(771) * lu(870) 3559 lu(884) = lu(884) - lu(772) * lu(870) 3560 lu(885) = lu(885) - lu(773) * lu(870) 3561 lu(1009) = lu(1009) - lu(761) * lu(1008) 3562 lu(1012) = lu(1012) - lu(762) * lu(1008) 3563 lu(1013) = lu(1013) - lu(763) * lu(1008) 3564 lu(1016) = lu(1016) - lu(764) * lu(1008) 3565 lu(1018) = lu(1018) - lu(765) * lu(1008) 3566 lu(1020) = lu(1020) - lu(766) * lu(1008) 3567 lu(1022) = lu(1022) - lu(767) * lu(1008) 3568 lu(1023) = lu(1023) - lu(768) * lu(1008) 3569 lu(1024) = lu(1024) - lu(769) * lu(1008) 3570 lu(1025) = lu(1025) - lu(770) * lu(1008) 3571 lu(1026) = lu(1026) - lu(771) * lu(1008) 3572 lu(1027) = lu(1027) - lu(772) * lu(1008) 3573 lu(1028) = lu(1028) - lu(773) * lu(1008) 3574 lu(1105) = lu(1105) - lu(761) * lu(1104) 3575 lu(1108) = lu(1108) - lu(762) * lu(1104) 3576 lu(1109) = lu(1109) - lu(763) * lu(1104) 3577 lu(1112) = lu(1112) - lu(764) * lu(1104) 3578 lu(1114) = lu(1114) - lu(765) * lu(1104) 3579 lu(1116) = lu(1116) - lu(766) * lu(1104) 3580 lu(1118) = lu(1118) - lu(767) * lu(1104) 3581 lu(1119) = lu(1119) - lu(768) * lu(1104) 3582 lu(1120) = lu(1120) - lu(769) * lu(1104) 3583 lu(1121) = lu(1121) - lu(770) * lu(1104) 3584 lu(1122) = lu(1122) - lu(771) * lu(1104) 3585 lu(1123) = lu(1123) - lu(772) * lu(1104) 3586 lu(1124) = lu(1124) - lu(773) * lu(1104) 3587 lu(1240) = lu(1240) - lu(761) * lu(1239) 3588 lu(1242) = lu(1242) - lu(762) * lu(1239) 3589 lu(1243) = lu(1243) - lu(763) * lu(1239) 3590 lu(1246) = lu(1246) - lu(764) * lu(1239) 3591 lu(1248) = lu(1248) - lu(765) * lu(1239) 3592 lu(1250) = lu(1250) - lu(766) * lu(1239) 3593 lu(1252) = lu(1252) - lu(767) * lu(1239) 3594 lu(1253) = lu(1253) - lu(768) * lu(1239) 3595 lu(1254) = lu(1254) - lu(769) * lu(1239) 3596 lu(1255) = lu(1255) - lu(770) * lu(1239) 3597 lu(1256) = lu(1256) - lu(771) * lu(1239) 3598 lu(1257) = lu(1257) - lu(772) * lu(1239) 3599 lu(1258) = lu(1258) - lu(773) * lu(1239) 3600 lu(1275) = lu(1275) - lu(761) * lu(1274) 3601 lu(1279) = lu(1279) - lu(762) * lu(1274) 3602 lu(1280) = lu(1280) - lu(763) * lu(1274) 3603 lu(1283) = lu(1283) - lu(764) * lu(1274) 3604 lu(1285) = lu(1285) - lu(765) * lu(1274) 3605 lu(1287) = lu(1287) - lu(766) * lu(1274) 3606 lu(1289) = lu(1289) - lu(767) * lu(1274) 3607 lu(1290) = lu(1290) - lu(768) * lu(1274) 3608 lu(1291) = lu(1291) - lu(769) * lu(1274) 3609 lu(1292) = lu(1292) - lu(770) * lu(1274) 3610 lu(1293) = lu(1293) - lu(771) * lu(1274) 3611 lu(1294) = lu(1294) - lu(772) * lu(1274) 3612 lu(1295) = lu(1295) - lu(773) * lu(1274) 3613 lu(1373) = lu(1373) - lu(761) * lu(1372) 3614 lu(1377) = lu(1377) - lu(762) * lu(1372) 3615 lu(1378) = lu(1378) - lu(763) * lu(1372) 3616 lu(1381) = lu(1381) - lu(764) * lu(1372) 3617 lu(1383) = lu(1383) - lu(765) * lu(1372) 3618 lu(1385) = lu(1385) - lu(766) * lu(1372) 3619 lu(1387) = lu(1387) - lu(767) * lu(1372) 3620 lu(1388) = lu(1388) - lu(768) * lu(1372) 3621 lu(1389) = lu(1389) - lu(769) * lu(1372) 3622 lu(1390) = lu(1390) - lu(770) * lu(1372) 3623 lu(1391) = lu(1391) - lu(771) * lu(1372) 3624 lu(1392) = lu(1392) - lu(772) * lu(1372) 3625 lu(1393) = lu(1393) - lu(773) * lu(1372) 3626 lu(1418) = lu(1418) - lu(761) * lu(1417) 3627 lu(1421) = lu(1421) - lu(762) * lu(1417) 3628 lu(1422) = lu(1422) - lu(763) * lu(1417) 3629 lu(1425) = lu(1425) - lu(764) * lu(1417) 3630 lu(1427) = lu(1427) - lu(765) * lu(1417) 3631 lu(1429) = lu(1429) - lu(766) * lu(1417) 3632 lu(1431) = lu(1431) - lu(767) * lu(1417) 3633 lu(1432) = lu(1432) - lu(768) * lu(1417) 3634 lu(1433) = lu(1433) - lu(769) * lu(1417) 3635 lu(1434) = lu(1434) - lu(770) * lu(1417) 3636 lu(1435) = lu(1435) - lu(771) * lu(1417) 3637 lu(1436) = lu(1436) - lu(772) * lu(1417) 3638 lu(1437) = lu(1437) - lu(773) * lu(1417) 3639 END SUBROUTINE lu_fac16 3640 3641 SUBROUTINE lu_fac17(lu) 3642 USE shr_kind_mod, ONLY: r8 => shr_kind_r8 3643 IMPLICIT NONE 3644 !----------------------------------------------------------------------- 3645 ! ... dummy args 3646 !----------------------------------------------------------------------- 3647 REAL(KIND=r8), intent(inout) :: lu(:) 3648 lu(789) = 1._r8 / lu(789) 3649 lu(790) = lu(790) * lu(789) 3650 lu(791) = lu(791) * lu(789) 3651 lu(792) = lu(792) * lu(789) 3652 lu(793) = lu(793) * lu(789) 3653 lu(794) = lu(794) * lu(789) 3654 lu(795) = lu(795) * lu(789) 3655 lu(796) = lu(796) * lu(789) 3656 lu(797) = lu(797) * lu(789) 3657 lu(798) = lu(798) * lu(789) 3658 lu(799) = lu(799) * lu(789) 3659 lu(800) = lu(800) * lu(789) 3660 lu(801) = lu(801) * lu(789) 3661 lu(872) = lu(872) - lu(790) * lu(871) 3662 lu(873) = lu(873) - lu(791) * lu(871) 3663 lu(874) = lu(874) - lu(792) * lu(871) 3664 lu(876) = lu(876) - lu(793) * lu(871) 3665 lu(878) = lu(878) - lu(794) * lu(871) 3666 lu(879) = lu(879) - lu(795) * lu(871) 3667 lu(880) = lu(880) - lu(796) * lu(871) 3668 lu(881) = lu(881) - lu(797) * lu(871) 3669 lu(882) = lu(882) - lu(798) * lu(871) 3670 lu(883) = lu(883) - lu(799) * lu(871) 3671 lu(884) = lu(884) - lu(800) * lu(871) 3672 lu(885) = lu(885) - lu(801) * lu(871) 3673 lu(1012) = lu(1012) - lu(790) * lu(1009) 3674 lu(1013) = lu(1013) - lu(791) * lu(1009) 3675 lu(1016) = lu(1016) - lu(792) * lu(1009) 3676 lu(1018) = lu(1018) - lu(793) * lu(1009) 3677 lu(1020) = lu(1020) - lu(794) * lu(1009) 3678 lu(1022) = lu(1022) - lu(795) * lu(1009) 3679 lu(1023) = lu(1023) - lu(796) * lu(1009) 3680 lu(1024) = lu(1024) - lu(797) * lu(1009) 3681 lu(1025) = lu(1025) - lu(798) * lu(1009) 3682 lu(1026) = lu(1026) - lu(799) * lu(1009) 3683 lu(1027) = lu(1027) - lu(800) * lu(1009) 3684 lu(1028) = lu(1028) - lu(801) * lu(1009) 3685 lu(1108) = lu(1108) - lu(790) * lu(1105) 3686 lu(1109) = lu(1109) - lu(791) * lu(1105) 3687 lu(1112) = lu(1112) - lu(792) * lu(1105) 3688 lu(1114) = lu(1114) - lu(793) * lu(1105) 3689 lu(1116) = lu(1116) - lu(794) * lu(1105) 3690 lu(1118) = lu(1118) - lu(795) * lu(1105) 3691 lu(1119) = lu(1119) - lu(796) * lu(1105) 3692 lu(1120) = lu(1120) - lu(797) * lu(1105) 3693 lu(1121) = lu(1121) - lu(798) * lu(1105) 3694 lu(1122) = lu(1122) - lu(799) * lu(1105) 3695 lu(1123) = lu(1123) - lu(800) * lu(1105) 3696 lu(1124) = lu(1124) - lu(801) * lu(1105) 3697 lu(1143) = lu(1143) - lu(790) * lu(1140) 3698 lu(1144) = lu(1144) - lu(791) * lu(1140) 3699 lu(1147) = lu(1147) - lu(792) * lu(1140) 3700 lu(1149) = lu(1149) - lu(793) * lu(1140) 3701 lu(1151) = lu(1151) - lu(794) * lu(1140) 3702 lu(1153) = lu(1153) - lu(795) * lu(1140) 3703 lu(1154) = lu(1154) - lu(796) * lu(1140) 3704 lu(1155) = lu(1155) - lu(797) * lu(1140) 3705 lu(1156) = lu(1156) - lu(798) * lu(1140) 3706 lu(1157) = lu(1157) - lu(799) * lu(1140) 3707 lu(1158) = lu(1158) - lu(800) * lu(1140) 3708 lu(1159) = lu(1159) - lu(801) * lu(1140) 3709 lu(1242) = lu(1242) - lu(790) * lu(1240) 3710 lu(1243) = lu(1243) - lu(791) * lu(1240) 3711 lu(1246) = lu(1246) - lu(792) * lu(1240) 3712 lu(1248) = lu(1248) - lu(793) * lu(1240) 3713 lu(1250) = lu(1250) - lu(794) * lu(1240) 3714 lu(1252) = lu(1252) - lu(795) * lu(1240) 3715 lu(1253) = lu(1253) - lu(796) * lu(1240) 3716 lu(1254) = lu(1254) - lu(797) * lu(1240) 3717 lu(1255) = lu(1255) - lu(798) * lu(1240) 3718 lu(1256) = lu(1256) - lu(799) * lu(1240) 3719 lu(1257) = lu(1257) - lu(800) * lu(1240) 3720 lu(1258) = lu(1258) - lu(801) * lu(1240) 3721 lu(1279) = lu(1279) - lu(790) * lu(1275) 3722 lu(1280) = lu(1280) - lu(791) * lu(1275) 3723 lu(1283) = lu(1283) - lu(792) * lu(1275) 3724 lu(1285) = lu(1285) - lu(793) * lu(1275) 3725 lu(1287) = lu(1287) - lu(794) * lu(1275) 3726 lu(1289) = lu(1289) - lu(795) * lu(1275) 3727 lu(1290) = lu(1290) - lu(796) * lu(1275) 3728 lu(1291) = lu(1291) - lu(797) * lu(1275) 3729 lu(1292) = lu(1292) - lu(798) * lu(1275) 3730 lu(1293) = lu(1293) - lu(799) * lu(1275) 3731 lu(1294) = lu(1294) - lu(800) * lu(1275) 3732 lu(1295) = lu(1295) - lu(801) * lu(1275) 3733 lu(1377) = lu(1377) - lu(790) * lu(1373) 3734 lu(1378) = lu(1378) - lu(791) * lu(1373) 3735 lu(1381) = lu(1381) - lu(792) * lu(1373) 3736 lu(1383) = lu(1383) - lu(793) * lu(1373) 3737 lu(1385) = lu(1385) - lu(794) * lu(1373) 3738 lu(1387) = lu(1387) - lu(795) * lu(1373) 3739 lu(1388) = lu(1388) - lu(796) * lu(1373) 3740 lu(1389) = lu(1389) - lu(797) * lu(1373) 3741 lu(1390) = lu(1390) - lu(798) * lu(1373) 3742 lu(1391) = lu(1391) - lu(799) * lu(1373) 3743 lu(1392) = lu(1392) - lu(800) * lu(1373) 3744 lu(1393) = lu(1393) - lu(801) * lu(1373) 3745 lu(1421) = lu(1421) - lu(790) * lu(1418) 3746 lu(1422) = lu(1422) - lu(791) * lu(1418) 3747 lu(1425) = lu(1425) - lu(792) * lu(1418) 3748 lu(1427) = lu(1427) - lu(793) * lu(1418) 3749 lu(1429) = lu(1429) - lu(794) * lu(1418) 3750 lu(1431) = lu(1431) - lu(795) * lu(1418) 3751 lu(1432) = lu(1432) - lu(796) * lu(1418) 3752 lu(1433) = lu(1433) - lu(797) * lu(1418) 3753 lu(1434) = lu(1434) - lu(798) * lu(1418) 3754 lu(1435) = lu(1435) - lu(799) * lu(1418) 3755 lu(1436) = lu(1436) - lu(800) * lu(1418) 3756 lu(1437) = lu(1437) - lu(801) * lu(1418) 3757 lu(805) = 1._r8 / lu(805) 3758 lu(806) = lu(806) * lu(805) 3759 lu(807) = lu(807) * lu(805) 3760 lu(808) = lu(808) * lu(805) 3761 lu(809) = lu(809) * lu(805) 3762 lu(810) = lu(810) * lu(805) 3763 lu(811) = lu(811) * lu(805) 3764 lu(812) = lu(812) * lu(805) 3765 lu(813) = lu(813) * lu(805) 3766 lu(814) = lu(814) * lu(805) 3767 lu(815) = lu(815) * lu(805) 3768 lu(816) = lu(816) * lu(805) 3769 lu(817) = lu(817) * lu(805) 3770 lu(818) = lu(818) * lu(805) 3771 lu(902) = - lu(806) * lu(901) 3772 lu(903) = lu(903) - lu(807) * lu(901) 3773 lu(904) = lu(904) - lu(808) * lu(901) 3774 lu(906) = lu(906) - lu(809) * lu(901) 3775 lu(907) = - lu(810) * lu(901) 3776 lu(908) = lu(908) - lu(811) * lu(901) 3777 lu(909) = - lu(812) * lu(901) 3778 lu(910) = lu(910) - lu(813) * lu(901) 3779 lu(911) = - lu(814) * lu(901) 3780 lu(912) = lu(912) - lu(815) * lu(901) 3781 lu(913) = lu(913) - lu(816) * lu(901) 3782 lu(914) = lu(914) - lu(817) * lu(901) 3783 lu(915) = lu(915) - lu(818) * lu(901) 3784 lu(940) = lu(940) - lu(806) * lu(938) 3785 lu(942) = lu(942) - lu(807) * lu(938) 3786 lu(943) = lu(943) - lu(808) * lu(938) 3787 lu(945) = lu(945) - lu(809) * lu(938) 3788 lu(946) = lu(946) - lu(810) * lu(938) 3789 lu(947) = lu(947) - lu(811) * lu(938) 3790 lu(948) = lu(948) - lu(812) * lu(938) 3791 lu(949) = lu(949) - lu(813) * lu(938) 3792 lu(950) = lu(950) - lu(814) * lu(938) 3793 lu(951) = lu(951) - lu(815) * lu(938) 3794 lu(952) = lu(952) - lu(816) * lu(938) 3795 lu(953) = lu(953) - lu(817) * lu(938) 3796 lu(956) = lu(956) - lu(818) * lu(938) 3797 lu(1011) = lu(1011) - lu(806) * lu(1010) 3798 lu(1013) = lu(1013) - lu(807) * lu(1010) 3799 lu(1014) = lu(1014) - lu(808) * lu(1010) 3800 lu(1016) = lu(1016) - lu(809) * lu(1010) 3801 lu(1017) = lu(1017) - lu(810) * lu(1010) 3802 lu(1018) = lu(1018) - lu(811) * lu(1010) 3803 lu(1019) = lu(1019) - lu(812) * lu(1010) 3804 lu(1020) = lu(1020) - lu(813) * lu(1010) 3805 lu(1021) = lu(1021) - lu(814) * lu(1010) 3806 lu(1022) = lu(1022) - lu(815) * lu(1010) 3807 lu(1023) = lu(1023) - lu(816) * lu(1010) 3808 lu(1024) = lu(1024) - lu(817) * lu(1010) 3809 lu(1027) = lu(1027) - lu(818) * lu(1010) 3810 lu(1038) = lu(1038) - lu(806) * lu(1036) 3811 lu(1040) = lu(1040) - lu(807) * lu(1036) 3812 lu(1041) = lu(1041) - lu(808) * lu(1036) 3813 lu(1043) = - lu(809) * lu(1036) 3814 lu(1044) = lu(1044) - lu(810) * lu(1036) 3815 lu(1045) = lu(1045) - lu(811) * lu(1036) 3816 lu(1046) = lu(1046) - lu(812) * lu(1036) 3817 lu(1047) = - lu(813) * lu(1036) 3818 lu(1048) = lu(1048) - lu(814) * lu(1036) 3819 lu(1049) = lu(1049) - lu(815) * lu(1036) 3820 lu(1050) = lu(1050) - lu(816) * lu(1036) 3821 lu(1051) = lu(1051) - lu(817) * lu(1036) 3822 lu(1054) = lu(1054) - lu(818) * lu(1036) 3823 lu(1187) = lu(1187) - lu(806) * lu(1185) 3824 lu(1188) = lu(1188) - lu(807) * lu(1185) 3825 lu(1189) = lu(1189) - lu(808) * lu(1185) 3826 lu(1191) = - lu(809) * lu(1185) 3827 lu(1192) = lu(1192) - lu(810) * lu(1185) 3828 lu(1193) = lu(1193) - lu(811) * lu(1185) 3829 lu(1194) = lu(1194) - lu(812) * lu(1185) 3830 lu(1195) = - lu(813) * lu(1185) 3831 lu(1196) = lu(1196) - lu(814) * lu(1185) 3832 lu(1197) = lu(1197) - lu(815) * lu(1185) 3833 lu(1198) = lu(1198) - lu(816) * lu(1185) 3834 lu(1199) = lu(1199) - lu(817) * lu(1185) 3835 lu(1202) = lu(1202) - lu(818) * lu(1185) 3836 lu(1278) = lu(1278) - lu(806) * lu(1276) 3837 lu(1280) = lu(1280) - lu(807) * lu(1276) 3838 lu(1281) = lu(1281) - lu(808) * lu(1276) 3839 lu(1283) = lu(1283) - lu(809) * lu(1276) 3840 lu(1284) = lu(1284) - lu(810) * lu(1276) 3841 lu(1285) = lu(1285) - lu(811) * lu(1276) 3842 lu(1286) = lu(1286) - lu(812) * lu(1276) 3843 lu(1287) = lu(1287) - lu(813) * lu(1276) 3844 lu(1288) = lu(1288) - lu(814) * lu(1276) 3845 lu(1289) = lu(1289) - lu(815) * lu(1276) 3846 lu(1290) = lu(1290) - lu(816) * lu(1276) 3847 lu(1291) = lu(1291) - lu(817) * lu(1276) 3848 lu(1294) = lu(1294) - lu(818) * lu(1276) 3849 lu(1376) = lu(1376) - lu(806) * lu(1374) 3850 lu(1378) = lu(1378) - lu(807) * lu(1374) 3851 lu(1379) = lu(1379) - lu(808) * lu(1374) 3852 lu(1381) = lu(1381) - lu(809) * lu(1374) 3853 lu(1382) = lu(1382) - lu(810) * lu(1374) 3854 lu(1383) = lu(1383) - lu(811) * lu(1374) 3855 lu(1384) = lu(1384) - lu(812) * lu(1374) 3856 lu(1385) = lu(1385) - lu(813) * lu(1374) 3857 lu(1386) = lu(1386) - lu(814) * lu(1374) 3858 lu(1387) = lu(1387) - lu(815) * lu(1374) 3859 lu(1388) = lu(1388) - lu(816) * lu(1374) 3860 lu(1389) = lu(1389) - lu(817) * lu(1374) 3861 lu(1392) = lu(1392) - lu(818) * lu(1374) 3862 lu(1420) = - lu(806) * lu(1419) 3863 lu(1422) = lu(1422) - lu(807) * lu(1419) 3864 lu(1423) = lu(1423) - lu(808) * lu(1419) 3865 lu(1425) = lu(1425) - lu(809) * lu(1419) 3866 lu(1426) = - lu(810) * lu(1419) 3867 lu(1427) = lu(1427) - lu(811) * lu(1419) 3868 lu(1428) = - lu(812) * lu(1419) 3869 lu(1429) = lu(1429) - lu(813) * lu(1419) 3870 lu(1430) = - lu(814) * lu(1419) 3871 lu(1431) = lu(1431) - lu(815) * lu(1419) 3872 lu(1432) = lu(1432) - lu(816) * lu(1419) 3873 lu(1433) = lu(1433) - lu(817) * lu(1419) 3874 lu(1436) = lu(1436) - lu(818) * lu(1419) 3875 lu(1468) = - lu(806) * lu(1466) 3876 lu(1470) = - lu(807) * lu(1466) 3877 lu(1471) = lu(1471) - lu(808) * lu(1466) 3878 lu(1473) = - lu(809) * lu(1466) 3879 lu(1474) = - lu(810) * lu(1466) 3880 lu(1475) = lu(1475) - lu(811) * lu(1466) 3881 lu(1476) = lu(1476) - lu(812) * lu(1466) 3882 lu(1477) = lu(1477) - lu(813) * lu(1466) 3883 lu(1478) = - lu(814) * lu(1466) 3884 lu(1479) = - lu(815) * lu(1466) 3885 lu(1480) = - lu(816) * lu(1466) 3886 lu(1481) = lu(1481) - lu(817) * lu(1466) 3887 lu(1484) = lu(1484) - lu(818) * lu(1466) 3888 lu(824) = 1._r8 / lu(824) 3889 lu(825) = lu(825) * lu(824) 3890 lu(826) = lu(826) * lu(824) 3891 lu(827) = lu(827) * lu(824) 3892 lu(828) = lu(828) * lu(824) 3893 lu(829) = lu(829) * lu(824) 3894 lu(830) = lu(830) * lu(824) 3895 lu(831) = lu(831) * lu(824) 3896 lu(832) = lu(832) * lu(824) 3897 lu(833) = lu(833) * lu(824) 3898 lu(834) = lu(834) * lu(824) 3899 lu(835) = lu(835) * lu(824) 3900 lu(836) = lu(836) * lu(824) 3901 lu(940) = lu(940) - lu(825) * lu(939) 3902 lu(943) = lu(943) - lu(826) * lu(939) 3903 lu(944) = lu(944) - lu(827) * lu(939) 3904 lu(946) = lu(946) - lu(828) * lu(939) 3905 lu(948) = lu(948) - lu(829) * lu(939) 3906 lu(949) = lu(949) - lu(830) * lu(939) 3907 lu(950) = lu(950) - lu(831) * lu(939) 3908 lu(952) = lu(952) - lu(832) * lu(939) 3909 lu(953) = lu(953) - lu(833) * lu(939) 3910 lu(954) = lu(954) - lu(834) * lu(939) 3911 lu(955) = lu(955) - lu(835) * lu(939) 3912 lu(956) = lu(956) - lu(836) * lu(939) 3913 lu(966) = lu(966) - lu(825) * lu(965) 3914 lu(969) = lu(969) - lu(826) * lu(965) 3915 lu(970) = lu(970) - lu(827) * lu(965) 3916 lu(972) = - lu(828) * lu(965) 3917 lu(974) = lu(974) - lu(829) * lu(965) 3918 lu(975) = lu(975) - lu(830) * lu(965) 3919 lu(976) = - lu(831) * lu(965) 3920 lu(978) = - lu(832) * lu(965) 3921 lu(979) = lu(979) - lu(833) * lu(965) 3922 lu(980) = lu(980) - lu(834) * lu(965) 3923 lu(981) = lu(981) - lu(835) * lu(965) 3924 lu(982) = lu(982) - lu(836) * lu(965) 3925 lu(1038) = lu(1038) - lu(825) * lu(1037) 3926 lu(1041) = lu(1041) - lu(826) * lu(1037) 3927 lu(1042) = - lu(827) * lu(1037) 3928 lu(1044) = lu(1044) - lu(828) * lu(1037) 3929 lu(1046) = lu(1046) - lu(829) * lu(1037) 3930 lu(1047) = lu(1047) - lu(830) * lu(1037) 3931 lu(1048) = lu(1048) - lu(831) * lu(1037) 3932 lu(1050) = lu(1050) - lu(832) * lu(1037) 3933 lu(1051) = lu(1051) - lu(833) * lu(1037) 3934 lu(1052) = lu(1052) - lu(834) * lu(1037) 3935 lu(1053) = lu(1053) - lu(835) * lu(1037) 3936 lu(1054) = lu(1054) - lu(836) * lu(1037) 3937 lu(1107) = lu(1107) - lu(825) * lu(1106) 3938 lu(1110) = lu(1110) - lu(826) * lu(1106) 3939 lu(1111) = lu(1111) - lu(827) * lu(1106) 3940 lu(1113) = lu(1113) - lu(828) * lu(1106) 3941 lu(1115) = lu(1115) - lu(829) * lu(1106) 3942 lu(1116) = lu(1116) - lu(830) * lu(1106) 3943 lu(1117) = lu(1117) - lu(831) * lu(1106) 3944 lu(1119) = lu(1119) - lu(832) * lu(1106) 3945 lu(1120) = lu(1120) - lu(833) * lu(1106) 3946 lu(1121) = lu(1121) - lu(834) * lu(1106) 3947 lu(1122) = lu(1122) - lu(835) * lu(1106) 3948 lu(1123) = lu(1123) - lu(836) * lu(1106) 3949 lu(1142) = lu(1142) - lu(825) * lu(1141) 3950 lu(1145) = lu(1145) - lu(826) * lu(1141) 3951 lu(1146) = lu(1146) - lu(827) * lu(1141) 3952 lu(1148) = lu(1148) - lu(828) * lu(1141) 3953 lu(1150) = lu(1150) - lu(829) * lu(1141) 3954 lu(1151) = lu(1151) - lu(830) * lu(1141) 3955 lu(1152) = - lu(831) * lu(1141) 3956 lu(1154) = lu(1154) - lu(832) * lu(1141) 3957 lu(1155) = lu(1155) - lu(833) * lu(1141) 3958 lu(1156) = lu(1156) - lu(834) * lu(1141) 3959 lu(1157) = lu(1157) - lu(835) * lu(1141) 3960 lu(1158) = lu(1158) - lu(836) * lu(1141) 3961 lu(1162) = - lu(825) * lu(1161) 3962 lu(1165) = lu(1165) - lu(826) * lu(1161) 3963 lu(1166) = lu(1166) - lu(827) * lu(1161) 3964 lu(1168) = - lu(828) * lu(1161) 3965 lu(1170) = lu(1170) - lu(829) * lu(1161) 3966 lu(1171) = lu(1171) - lu(830) * lu(1161) 3967 lu(1172) = - lu(831) * lu(1161) 3968 lu(1174) = - lu(832) * lu(1161) 3969 lu(1175) = lu(1175) - lu(833) * lu(1161) 3970 lu(1176) = lu(1176) - lu(834) * lu(1161) 3971 lu(1177) = lu(1177) - lu(835) * lu(1161) 3972 lu(1178) = lu(1178) - lu(836) * lu(1161) 3973 lu(1187) = lu(1187) - lu(825) * lu(1186) 3974 lu(1189) = lu(1189) - lu(826) * lu(1186) 3975 lu(1190) = - lu(827) * lu(1186) 3976 lu(1192) = lu(1192) - lu(828) * lu(1186) 3977 lu(1194) = lu(1194) - lu(829) * lu(1186) 3978 lu(1195) = lu(1195) - lu(830) * lu(1186) 3979 lu(1196) = lu(1196) - lu(831) * lu(1186) 3980 lu(1198) = lu(1198) - lu(832) * lu(1186) 3981 lu(1199) = lu(1199) - lu(833) * lu(1186) 3982 lu(1200) = lu(1200) - lu(834) * lu(1186) 3983 lu(1201) = lu(1201) - lu(835) * lu(1186) 3984 lu(1202) = lu(1202) - lu(836) * lu(1186) 3985 lu(1278) = lu(1278) - lu(825) * lu(1277) 3986 lu(1281) = lu(1281) - lu(826) * lu(1277) 3987 lu(1282) = lu(1282) - lu(827) * lu(1277) 3988 lu(1284) = lu(1284) - lu(828) * lu(1277) 3989 lu(1286) = lu(1286) - lu(829) * lu(1277) 3990 lu(1287) = lu(1287) - lu(830) * lu(1277) 3991 lu(1288) = lu(1288) - lu(831) * lu(1277) 3992 lu(1290) = lu(1290) - lu(832) * lu(1277) 3993 lu(1291) = lu(1291) - lu(833) * lu(1277) 3994 lu(1292) = lu(1292) - lu(834) * lu(1277) 3995 lu(1293) = lu(1293) - lu(835) * lu(1277) 3996 lu(1294) = lu(1294) - lu(836) * lu(1277) 3997 lu(1376) = lu(1376) - lu(825) * lu(1375) 3998 lu(1379) = lu(1379) - lu(826) * lu(1375) 3999 lu(1380) = lu(1380) - lu(827) * lu(1375) 4000 lu(1382) = lu(1382) - lu(828) * lu(1375) 4001 lu(1384) = lu(1384) - lu(829) * lu(1375) 4002 lu(1385) = lu(1385) - lu(830) * lu(1375) 4003 lu(1386) = lu(1386) - lu(831) * lu(1375) 4004 lu(1388) = lu(1388) - lu(832) * lu(1375) 4005 lu(1389) = lu(1389) - lu(833) * lu(1375) 4006 lu(1390) = lu(1390) - lu(834) * lu(1375) 4007 lu(1391) = lu(1391) - lu(835) * lu(1375) 4008 lu(1392) = lu(1392) - lu(836) * lu(1375) 4009 lu(1442) = - lu(825) * lu(1441) 4010 lu(1445) = lu(1445) - lu(826) * lu(1441) 4011 lu(1446) = lu(1446) - lu(827) * lu(1441) 4012 lu(1448) = - lu(828) * lu(1441) 4013 lu(1450) = lu(1450) - lu(829) * lu(1441) 4014 lu(1451) = lu(1451) - lu(830) * lu(1441) 4015 lu(1452) = - lu(831) * lu(1441) 4016 lu(1454) = lu(1454) - lu(832) * lu(1441) 4017 lu(1455) = lu(1455) - lu(833) * lu(1441) 4018 lu(1456) = lu(1456) - lu(834) * lu(1441) 4019 lu(1457) = lu(1457) - lu(835) * lu(1441) 4020 lu(1458) = lu(1458) - lu(836) * lu(1441) 4021 lu(1468) = lu(1468) - lu(825) * lu(1467) 4022 lu(1471) = lu(1471) - lu(826) * lu(1467) 4023 lu(1472) = lu(1472) - lu(827) * lu(1467) 4024 lu(1474) = lu(1474) - lu(828) * lu(1467) 4025 lu(1476) = lu(1476) - lu(829) * lu(1467) 4026 lu(1477) = lu(1477) - lu(830) * lu(1467) 4027 lu(1478) = lu(1478) - lu(831) * lu(1467) 4028 lu(1480) = lu(1480) - lu(832) * lu(1467) 4029 lu(1481) = lu(1481) - lu(833) * lu(1467) 4030 lu(1482) = lu(1482) - lu(834) * lu(1467) 4031 lu(1483) = lu(1483) - lu(835) * lu(1467) 4032 lu(1484) = lu(1484) - lu(836) * lu(1467) 4033 lu(1492) = lu(1492) - lu(825) * lu(1491) 4034 lu(1495) = lu(1495) - lu(826) * lu(1491) 4035 lu(1496) = lu(1496) - lu(827) * lu(1491) 4036 lu(1498) = - lu(828) * lu(1491) 4037 lu(1500) = lu(1500) - lu(829) * lu(1491) 4038 lu(1501) = lu(1501) - lu(830) * lu(1491) 4039 lu(1502) = - lu(831) * lu(1491) 4040 lu(1504) = lu(1504) - lu(832) * lu(1491) 4041 lu(1505) = lu(1505) - lu(833) * lu(1491) 4042 lu(1506) = lu(1506) - lu(834) * lu(1491) 4043 lu(1507) = lu(1507) - lu(835) * lu(1491) 4044 lu(1508) = lu(1508) - lu(836) * lu(1491) 4045 END SUBROUTINE lu_fac17 4046 4047 SUBROUTINE lu_fac18(lu) 4048 USE shr_kind_mod, ONLY: r8 => shr_kind_r8 4049 IMPLICIT NONE 4050 !----------------------------------------------------------------------- 4051 ! ... dummy args 4052 !----------------------------------------------------------------------- 4053 REAL(KIND=r8), intent(inout) :: lu(:) 4054 lu(839) = 1._r8 / lu(839) 4055 lu(840) = lu(840) * lu(839) 4056 lu(841) = lu(841) * lu(839) 4057 lu(842) = lu(842) * lu(839) 4058 lu(843) = lu(843) * lu(839) 4059 lu(844) = lu(844) * lu(839) 4060 lu(845) = lu(845) * lu(839) 4061 lu(846) = lu(846) * lu(839) 4062 lu(847) = lu(847) * lu(839) 4063 lu(848) = lu(848) * lu(839) 4064 lu(849) = lu(849) * lu(839) 4065 lu(903) = lu(903) - lu(840) * lu(902) 4066 lu(904) = lu(904) - lu(841) * lu(902) 4067 lu(905) = lu(905) - lu(842) * lu(902) 4068 lu(906) = lu(906) - lu(843) * lu(902) 4069 lu(908) = lu(908) - lu(844) * lu(902) 4070 lu(910) = lu(910) - lu(845) * lu(902) 4071 lu(911) = lu(911) - lu(846) * lu(902) 4072 lu(914) = lu(914) - lu(847) * lu(902) 4073 lu(915) = lu(915) - lu(848) * lu(902) 4074 lu(916) = lu(916) - lu(849) * lu(902) 4075 lu(942) = lu(942) - lu(840) * lu(940) 4076 lu(943) = lu(943) - lu(841) * lu(940) 4077 lu(944) = lu(944) - lu(842) * lu(940) 4078 lu(945) = lu(945) - lu(843) * lu(940) 4079 lu(947) = lu(947) - lu(844) * lu(940) 4080 lu(949) = lu(949) - lu(845) * lu(940) 4081 lu(950) = lu(950) - lu(846) * lu(940) 4082 lu(953) = lu(953) - lu(847) * lu(940) 4083 lu(956) = lu(956) - lu(848) * lu(940) 4084 lu(957) = lu(957) - lu(849) * lu(940) 4085 lu(968) = lu(968) - lu(840) * lu(966) 4086 lu(969) = lu(969) - lu(841) * lu(966) 4087 lu(970) = lu(970) - lu(842) * lu(966) 4088 lu(971) = lu(971) - lu(843) * lu(966) 4089 lu(973) = lu(973) - lu(844) * lu(966) 4090 lu(975) = lu(975) - lu(845) * lu(966) 4091 lu(976) = lu(976) - lu(846) * lu(966) 4092 lu(979) = lu(979) - lu(847) * lu(966) 4093 lu(982) = lu(982) - lu(848) * lu(966) 4094 lu(983) = lu(983) - lu(849) * lu(966) 4095 lu(1013) = lu(1013) - lu(840) * lu(1011) 4096 lu(1014) = lu(1014) - lu(841) * lu(1011) 4097 lu(1015) = lu(1015) - lu(842) * lu(1011) 4098 lu(1016) = lu(1016) - lu(843) * lu(1011) 4099 lu(1018) = lu(1018) - lu(844) * lu(1011) 4100 lu(1020) = lu(1020) - lu(845) * lu(1011) 4101 lu(1021) = lu(1021) - lu(846) * lu(1011) 4102 lu(1024) = lu(1024) - lu(847) * lu(1011) 4103 lu(1027) = lu(1027) - lu(848) * lu(1011) 4104 lu(1028) = lu(1028) - lu(849) * lu(1011) 4105 lu(1040) = lu(1040) - lu(840) * lu(1038) 4106 lu(1041) = lu(1041) - lu(841) * lu(1038) 4107 lu(1042) = lu(1042) - lu(842) * lu(1038) 4108 lu(1043) = lu(1043) - lu(843) * lu(1038) 4109 lu(1045) = lu(1045) - lu(844) * lu(1038) 4110 lu(1047) = lu(1047) - lu(845) * lu(1038) 4111 lu(1048) = lu(1048) - lu(846) * lu(1038) 4112 lu(1051) = lu(1051) - lu(847) * lu(1038) 4113 lu(1054) = lu(1054) - lu(848) * lu(1038) 4114 lu(1055) = lu(1055) - lu(849) * lu(1038) 4115 lu(1109) = lu(1109) - lu(840) * lu(1107) 4116 lu(1110) = lu(1110) - lu(841) * lu(1107) 4117 lu(1111) = lu(1111) - lu(842) * lu(1107) 4118 lu(1112) = lu(1112) - lu(843) * lu(1107) 4119 lu(1114) = lu(1114) - lu(844) * lu(1107) 4120 lu(1116) = lu(1116) - lu(845) * lu(1107) 4121 lu(1117) = lu(1117) - lu(846) * lu(1107) 4122 lu(1120) = lu(1120) - lu(847) * lu(1107) 4123 lu(1123) = lu(1123) - lu(848) * lu(1107) 4124 lu(1124) = lu(1124) - lu(849) * lu(1107) 4125 lu(1144) = lu(1144) - lu(840) * lu(1142) 4126 lu(1145) = lu(1145) - lu(841) * lu(1142) 4127 lu(1146) = lu(1146) - lu(842) * lu(1142) 4128 lu(1147) = lu(1147) - lu(843) * lu(1142) 4129 lu(1149) = lu(1149) - lu(844) * lu(1142) 4130 lu(1151) = lu(1151) - lu(845) * lu(1142) 4131 lu(1152) = lu(1152) - lu(846) * lu(1142) 4132 lu(1155) = lu(1155) - lu(847) * lu(1142) 4133 lu(1158) = lu(1158) - lu(848) * lu(1142) 4134 lu(1159) = lu(1159) - lu(849) * lu(1142) 4135 lu(1164) = lu(1164) - lu(840) * lu(1162) 4136 lu(1165) = lu(1165) - lu(841) * lu(1162) 4137 lu(1166) = lu(1166) - lu(842) * lu(1162) 4138 lu(1167) = lu(1167) - lu(843) * lu(1162) 4139 lu(1169) = lu(1169) - lu(844) * lu(1162) 4140 lu(1171) = lu(1171) - lu(845) * lu(1162) 4141 lu(1172) = lu(1172) - lu(846) * lu(1162) 4142 lu(1175) = lu(1175) - lu(847) * lu(1162) 4143 lu(1178) = lu(1178) - lu(848) * lu(1162) 4144 lu(1179) = - lu(849) * lu(1162) 4145 lu(1188) = lu(1188) - lu(840) * lu(1187) 4146 lu(1189) = lu(1189) - lu(841) * lu(1187) 4147 lu(1190) = lu(1190) - lu(842) * lu(1187) 4148 lu(1191) = lu(1191) - lu(843) * lu(1187) 4149 lu(1193) = lu(1193) - lu(844) * lu(1187) 4150 lu(1195) = lu(1195) - lu(845) * lu(1187) 4151 lu(1196) = lu(1196) - lu(846) * lu(1187) 4152 lu(1199) = lu(1199) - lu(847) * lu(1187) 4153 lu(1202) = lu(1202) - lu(848) * lu(1187) 4154 lu(1203) = - lu(849) * lu(1187) 4155 lu(1243) = lu(1243) - lu(840) * lu(1241) 4156 lu(1244) = lu(1244) - lu(841) * lu(1241) 4157 lu(1245) = lu(1245) - lu(842) * lu(1241) 4158 lu(1246) = lu(1246) - lu(843) * lu(1241) 4159 lu(1248) = lu(1248) - lu(844) * lu(1241) 4160 lu(1250) = lu(1250) - lu(845) * lu(1241) 4161 lu(1251) = lu(1251) - lu(846) * lu(1241) 4162 lu(1254) = lu(1254) - lu(847) * lu(1241) 4163 lu(1257) = lu(1257) - lu(848) * lu(1241) 4164 lu(1258) = lu(1258) - lu(849) * lu(1241) 4165 lu(1280) = lu(1280) - lu(840) * lu(1278) 4166 lu(1281) = lu(1281) - lu(841) * lu(1278) 4167 lu(1282) = lu(1282) - lu(842) * lu(1278) 4168 lu(1283) = lu(1283) - lu(843) * lu(1278) 4169 lu(1285) = lu(1285) - lu(844) * lu(1278) 4170 lu(1287) = lu(1287) - lu(845) * lu(1278) 4171 lu(1288) = lu(1288) - lu(846) * lu(1278) 4172 lu(1291) = lu(1291) - lu(847) * lu(1278) 4173 lu(1294) = lu(1294) - lu(848) * lu(1278) 4174 lu(1295) = lu(1295) - lu(849) * lu(1278) 4175 lu(1378) = lu(1378) - lu(840) * lu(1376) 4176 lu(1379) = lu(1379) - lu(841) * lu(1376) 4177 lu(1380) = lu(1380) - lu(842) * lu(1376) 4178 lu(1381) = lu(1381) - lu(843) * lu(1376) 4179 lu(1383) = lu(1383) - lu(844) * lu(1376) 4180 lu(1385) = lu(1385) - lu(845) * lu(1376) 4181 lu(1386) = lu(1386) - lu(846) * lu(1376) 4182 lu(1389) = lu(1389) - lu(847) * lu(1376) 4183 lu(1392) = lu(1392) - lu(848) * lu(1376) 4184 lu(1393) = lu(1393) - lu(849) * lu(1376) 4185 lu(1422) = lu(1422) - lu(840) * lu(1420) 4186 lu(1423) = lu(1423) - lu(841) * lu(1420) 4187 lu(1424) = - lu(842) * lu(1420) 4188 lu(1425) = lu(1425) - lu(843) * lu(1420) 4189 lu(1427) = lu(1427) - lu(844) * lu(1420) 4190 lu(1429) = lu(1429) - lu(845) * lu(1420) 4191 lu(1430) = lu(1430) - lu(846) * lu(1420) 4192 lu(1433) = lu(1433) - lu(847) * lu(1420) 4193 lu(1436) = lu(1436) - lu(848) * lu(1420) 4194 lu(1437) = lu(1437) - lu(849) * lu(1420) 4195 lu(1444) = - lu(840) * lu(1442) 4196 lu(1445) = lu(1445) - lu(841) * lu(1442) 4197 lu(1446) = lu(1446) - lu(842) * lu(1442) 4198 lu(1447) = - lu(843) * lu(1442) 4199 lu(1449) = - lu(844) * lu(1442) 4200 lu(1451) = lu(1451) - lu(845) * lu(1442) 4201 lu(1452) = lu(1452) - lu(846) * lu(1442) 4202 lu(1455) = lu(1455) - lu(847) * lu(1442) 4203 lu(1458) = lu(1458) - lu(848) * lu(1442) 4204 lu(1459) = - lu(849) * lu(1442) 4205 lu(1470) = lu(1470) - lu(840) * lu(1468) 4206 lu(1471) = lu(1471) - lu(841) * lu(1468) 4207 lu(1472) = lu(1472) - lu(842) * lu(1468) 4208 lu(1473) = lu(1473) - lu(843) * lu(1468) 4209 lu(1475) = lu(1475) - lu(844) * lu(1468) 4210 lu(1477) = lu(1477) - lu(845) * lu(1468) 4211 lu(1478) = lu(1478) - lu(846) * lu(1468) 4212 lu(1481) = lu(1481) - lu(847) * lu(1468) 4213 lu(1484) = lu(1484) - lu(848) * lu(1468) 4214 lu(1485) = - lu(849) * lu(1468) 4215 lu(1494) = - lu(840) * lu(1492) 4216 lu(1495) = lu(1495) - lu(841) * lu(1492) 4217 lu(1496) = lu(1496) - lu(842) * lu(1492) 4218 lu(1497) = - lu(843) * lu(1492) 4219 lu(1499) = lu(1499) - lu(844) * lu(1492) 4220 lu(1501) = lu(1501) - lu(845) * lu(1492) 4221 lu(1502) = lu(1502) - lu(846) * lu(1492) 4222 lu(1505) = lu(1505) - lu(847) * lu(1492) 4223 lu(1508) = lu(1508) - lu(848) * lu(1492) 4224 lu(1509) = lu(1509) - lu(849) * lu(1492) 4225 lu(872) = 1._r8 / lu(872) 4226 lu(873) = lu(873) * lu(872) 4227 lu(874) = lu(874) * lu(872) 4228 lu(875) = lu(875) * lu(872) 4229 lu(876) = lu(876) * lu(872) 4230 lu(877) = lu(877) * lu(872) 4231 lu(878) = lu(878) * lu(872) 4232 lu(879) = lu(879) * lu(872) 4233 lu(880) = lu(880) * lu(872) 4234 lu(881) = lu(881) * lu(872) 4235 lu(882) = lu(882) * lu(872) 4236 lu(883) = lu(883) * lu(872) 4237 lu(884) = lu(884) * lu(872) 4238 lu(885) = lu(885) * lu(872) 4239 lu(942) = lu(942) - lu(873) * lu(941) 4240 lu(945) = lu(945) - lu(874) * lu(941) 4241 lu(946) = lu(946) - lu(875) * lu(941) 4242 lu(947) = lu(947) - lu(876) * lu(941) 4243 lu(948) = lu(948) - lu(877) * lu(941) 4244 lu(949) = lu(949) - lu(878) * lu(941) 4245 lu(951) = lu(951) - lu(879) * lu(941) 4246 lu(952) = lu(952) - lu(880) * lu(941) 4247 lu(953) = lu(953) - lu(881) * lu(941) 4248 lu(954) = lu(954) - lu(882) * lu(941) 4249 lu(955) = lu(955) - lu(883) * lu(941) 4250 lu(956) = lu(956) - lu(884) * lu(941) 4251 lu(957) = lu(957) - lu(885) * lu(941) 4252 lu(968) = lu(968) - lu(873) * lu(967) 4253 lu(971) = lu(971) - lu(874) * lu(967) 4254 lu(972) = lu(972) - lu(875) * lu(967) 4255 lu(973) = lu(973) - lu(876) * lu(967) 4256 lu(974) = lu(974) - lu(877) * lu(967) 4257 lu(975) = lu(975) - lu(878) * lu(967) 4258 lu(977) = lu(977) - lu(879) * lu(967) 4259 lu(978) = lu(978) - lu(880) * lu(967) 4260 lu(979) = lu(979) - lu(881) * lu(967) 4261 lu(980) = lu(980) - lu(882) * lu(967) 4262 lu(981) = lu(981) - lu(883) * lu(967) 4263 lu(982) = lu(982) - lu(884) * lu(967) 4264 lu(983) = lu(983) - lu(885) * lu(967) 4265 lu(1013) = lu(1013) - lu(873) * lu(1012) 4266 lu(1016) = lu(1016) - lu(874) * lu(1012) 4267 lu(1017) = lu(1017) - lu(875) * lu(1012) 4268 lu(1018) = lu(1018) - lu(876) * lu(1012) 4269 lu(1019) = lu(1019) - lu(877) * lu(1012) 4270 lu(1020) = lu(1020) - lu(878) * lu(1012) 4271 lu(1022) = lu(1022) - lu(879) * lu(1012) 4272 lu(1023) = lu(1023) - lu(880) * lu(1012) 4273 lu(1024) = lu(1024) - lu(881) * lu(1012) 4274 lu(1025) = lu(1025) - lu(882) * lu(1012) 4275 lu(1026) = lu(1026) - lu(883) * lu(1012) 4276 lu(1027) = lu(1027) - lu(884) * lu(1012) 4277 lu(1028) = lu(1028) - lu(885) * lu(1012) 4278 lu(1040) = lu(1040) - lu(873) * lu(1039) 4279 lu(1043) = lu(1043) - lu(874) * lu(1039) 4280 lu(1044) = lu(1044) - lu(875) * lu(1039) 4281 lu(1045) = lu(1045) - lu(876) * lu(1039) 4282 lu(1046) = lu(1046) - lu(877) * lu(1039) 4283 lu(1047) = lu(1047) - lu(878) * lu(1039) 4284 lu(1049) = lu(1049) - lu(879) * lu(1039) 4285 lu(1050) = lu(1050) - lu(880) * lu(1039) 4286 lu(1051) = lu(1051) - lu(881) * lu(1039) 4287 lu(1052) = lu(1052) - lu(882) * lu(1039) 4288 lu(1053) = lu(1053) - lu(883) * lu(1039) 4289 lu(1054) = lu(1054) - lu(884) * lu(1039) 4290 lu(1055) = lu(1055) - lu(885) * lu(1039) 4291 lu(1109) = lu(1109) - lu(873) * lu(1108) 4292 lu(1112) = lu(1112) - lu(874) * lu(1108) 4293 lu(1113) = lu(1113) - lu(875) * lu(1108) 4294 lu(1114) = lu(1114) - lu(876) * lu(1108) 4295 lu(1115) = lu(1115) - lu(877) * lu(1108) 4296 lu(1116) = lu(1116) - lu(878) * lu(1108) 4297 lu(1118) = lu(1118) - lu(879) * lu(1108) 4298 lu(1119) = lu(1119) - lu(880) * lu(1108) 4299 lu(1120) = lu(1120) - lu(881) * lu(1108) 4300 lu(1121) = lu(1121) - lu(882) * lu(1108) 4301 lu(1122) = lu(1122) - lu(883) * lu(1108) 4302 lu(1123) = lu(1123) - lu(884) * lu(1108) 4303 lu(1124) = lu(1124) - lu(885) * lu(1108) 4304 lu(1144) = lu(1144) - lu(873) * lu(1143) 4305 lu(1147) = lu(1147) - lu(874) * lu(1143) 4306 lu(1148) = lu(1148) - lu(875) * lu(1143) 4307 lu(1149) = lu(1149) - lu(876) * lu(1143) 4308 lu(1150) = lu(1150) - lu(877) * lu(1143) 4309 lu(1151) = lu(1151) - lu(878) * lu(1143) 4310 lu(1153) = lu(1153) - lu(879) * lu(1143) 4311 lu(1154) = lu(1154) - lu(880) * lu(1143) 4312 lu(1155) = lu(1155) - lu(881) * lu(1143) 4313 lu(1156) = lu(1156) - lu(882) * lu(1143) 4314 lu(1157) = lu(1157) - lu(883) * lu(1143) 4315 lu(1158) = lu(1158) - lu(884) * lu(1143) 4316 lu(1159) = lu(1159) - lu(885) * lu(1143) 4317 lu(1164) = lu(1164) - lu(873) * lu(1163) 4318 lu(1167) = lu(1167) - lu(874) * lu(1163) 4319 lu(1168) = lu(1168) - lu(875) * lu(1163) 4320 lu(1169) = lu(1169) - lu(876) * lu(1163) 4321 lu(1170) = lu(1170) - lu(877) * lu(1163) 4322 lu(1171) = lu(1171) - lu(878) * lu(1163) 4323 lu(1173) = - lu(879) * lu(1163) 4324 lu(1174) = lu(1174) - lu(880) * lu(1163) 4325 lu(1175) = lu(1175) - lu(881) * lu(1163) 4326 lu(1176) = lu(1176) - lu(882) * lu(1163) 4327 lu(1177) = lu(1177) - lu(883) * lu(1163) 4328 lu(1178) = lu(1178) - lu(884) * lu(1163) 4329 lu(1179) = lu(1179) - lu(885) * lu(1163) 4330 lu(1243) = lu(1243) - lu(873) * lu(1242) 4331 lu(1246) = lu(1246) - lu(874) * lu(1242) 4332 lu(1247) = lu(1247) - lu(875) * lu(1242) 4333 lu(1248) = lu(1248) - lu(876) * lu(1242) 4334 lu(1249) = lu(1249) - lu(877) * lu(1242) 4335 lu(1250) = lu(1250) - lu(878) * lu(1242) 4336 lu(1252) = lu(1252) - lu(879) * lu(1242) 4337 lu(1253) = lu(1253) - lu(880) * lu(1242) 4338 lu(1254) = lu(1254) - lu(881) * lu(1242) 4339 lu(1255) = lu(1255) - lu(882) * lu(1242) 4340 lu(1256) = lu(1256) - lu(883) * lu(1242) 4341 lu(1257) = lu(1257) - lu(884) * lu(1242) 4342 lu(1258) = lu(1258) - lu(885) * lu(1242) 4343 lu(1280) = lu(1280) - lu(873) * lu(1279) 4344 lu(1283) = lu(1283) - lu(874) * lu(1279) 4345 lu(1284) = lu(1284) - lu(875) * lu(1279) 4346 lu(1285) = lu(1285) - lu(876) * lu(1279) 4347 lu(1286) = lu(1286) - lu(877) * lu(1279) 4348 lu(1287) = lu(1287) - lu(878) * lu(1279) 4349 lu(1289) = lu(1289) - lu(879) * lu(1279) 4350 lu(1290) = lu(1290) - lu(880) * lu(1279) 4351 lu(1291) = lu(1291) - lu(881) * lu(1279) 4352 lu(1292) = lu(1292) - lu(882) * lu(1279) 4353 lu(1293) = lu(1293) - lu(883) * lu(1279) 4354 lu(1294) = lu(1294) - lu(884) * lu(1279) 4355 lu(1295) = lu(1295) - lu(885) * lu(1279) 4356 lu(1378) = lu(1378) - lu(873) * lu(1377) 4357 lu(1381) = lu(1381) - lu(874) * lu(1377) 4358 lu(1382) = lu(1382) - lu(875) * lu(1377) 4359 lu(1383) = lu(1383) - lu(876) * lu(1377) 4360 lu(1384) = lu(1384) - lu(877) * lu(1377) 4361 lu(1385) = lu(1385) - lu(878) * lu(1377) 4362 lu(1387) = lu(1387) - lu(879) * lu(1377) 4363 lu(1388) = lu(1388) - lu(880) * lu(1377) 4364 lu(1389) = lu(1389) - lu(881) * lu(1377) 4365 lu(1390) = lu(1390) - lu(882) * lu(1377) 4366 lu(1391) = lu(1391) - lu(883) * lu(1377) 4367 lu(1392) = lu(1392) - lu(884) * lu(1377) 4368 lu(1393) = lu(1393) - lu(885) * lu(1377) 4369 lu(1422) = lu(1422) - lu(873) * lu(1421) 4370 lu(1425) = lu(1425) - lu(874) * lu(1421) 4371 lu(1426) = lu(1426) - lu(875) * lu(1421) 4372 lu(1427) = lu(1427) - lu(876) * lu(1421) 4373 lu(1428) = lu(1428) - lu(877) * lu(1421) 4374 lu(1429) = lu(1429) - lu(878) * lu(1421) 4375 lu(1431) = lu(1431) - lu(879) * lu(1421) 4376 lu(1432) = lu(1432) - lu(880) * lu(1421) 4377 lu(1433) = lu(1433) - lu(881) * lu(1421) 4378 lu(1434) = lu(1434) - lu(882) * lu(1421) 4379 lu(1435) = lu(1435) - lu(883) * lu(1421) 4380 lu(1436) = lu(1436) - lu(884) * lu(1421) 4381 lu(1437) = lu(1437) - lu(885) * lu(1421) 4382 lu(1444) = lu(1444) - lu(873) * lu(1443) 4383 lu(1447) = lu(1447) - lu(874) * lu(1443) 4384 lu(1448) = lu(1448) - lu(875) * lu(1443) 4385 lu(1449) = lu(1449) - lu(876) * lu(1443) 4386 lu(1450) = lu(1450) - lu(877) * lu(1443) 4387 lu(1451) = lu(1451) - lu(878) * lu(1443) 4388 lu(1453) = - lu(879) * lu(1443) 4389 lu(1454) = lu(1454) - lu(880) * lu(1443) 4390 lu(1455) = lu(1455) - lu(881) * lu(1443) 4391 lu(1456) = lu(1456) - lu(882) * lu(1443) 4392 lu(1457) = lu(1457) - lu(883) * lu(1443) 4393 lu(1458) = lu(1458) - lu(884) * lu(1443) 4394 lu(1459) = lu(1459) - lu(885) * lu(1443) 4395 lu(1470) = lu(1470) - lu(873) * lu(1469) 4396 lu(1473) = lu(1473) - lu(874) * lu(1469) 4397 lu(1474) = lu(1474) - lu(875) * lu(1469) 4398 lu(1475) = lu(1475) - lu(876) * lu(1469) 4399 lu(1476) = lu(1476) - lu(877) * lu(1469) 4400 lu(1477) = lu(1477) - lu(878) * lu(1469) 4401 lu(1479) = lu(1479) - lu(879) * lu(1469) 4402 lu(1480) = lu(1480) - lu(880) * lu(1469) 4403 lu(1481) = lu(1481) - lu(881) * lu(1469) 4404 lu(1482) = lu(1482) - lu(882) * lu(1469) 4405 lu(1483) = lu(1483) - lu(883) * lu(1469) 4406 lu(1484) = lu(1484) - lu(884) * lu(1469) 4407 lu(1485) = lu(1485) - lu(885) * lu(1469) 4408 lu(1494) = lu(1494) - lu(873) * lu(1493) 4409 lu(1497) = lu(1497) - lu(874) * lu(1493) 4410 lu(1498) = lu(1498) - lu(875) * lu(1493) 4411 lu(1499) = lu(1499) - lu(876) * lu(1493) 4412 lu(1500) = lu(1500) - lu(877) * lu(1493) 4413 lu(1501) = lu(1501) - lu(878) * lu(1493) 4414 lu(1503) = lu(1503) - lu(879) * lu(1493) 4415 lu(1504) = lu(1504) - lu(880) * lu(1493) 4416 lu(1505) = lu(1505) - lu(881) * lu(1493) 4417 lu(1506) = lu(1506) - lu(882) * lu(1493) 4418 lu(1507) = lu(1507) - lu(883) * lu(1493) 4419 lu(1508) = lu(1508) - lu(884) * lu(1493) 4420 lu(1509) = lu(1509) - lu(885) * lu(1493) 4421 lu(903) = 1._r8 / lu(903) 4422 lu(904) = lu(904) * lu(903) 4423 lu(905) = lu(905) * lu(903) 4424 lu(906) = lu(906) * lu(903) 4425 lu(907) = lu(907) * lu(903) 4426 lu(908) = lu(908) * lu(903) 4427 lu(909) = lu(909) * lu(903) 4428 lu(910) = lu(910) * lu(903) 4429 lu(911) = lu(911) * lu(903) 4430 lu(912) = lu(912) * lu(903) 4431 lu(913) = lu(913) * lu(903) 4432 lu(914) = lu(914) * lu(903) 4433 lu(915) = lu(915) * lu(903) 4434 lu(916) = lu(916) * lu(903) 4435 lu(943) = lu(943) - lu(904) * lu(942) 4436 lu(944) = lu(944) - lu(905) * lu(942) 4437 lu(945) = lu(945) - lu(906) * lu(942) 4438 lu(946) = lu(946) - lu(907) * lu(942) 4439 lu(947) = lu(947) - lu(908) * lu(942) 4440 lu(948) = lu(948) - lu(909) * lu(942) 4441 lu(949) = lu(949) - lu(910) * lu(942) 4442 lu(950) = lu(950) - lu(911) * lu(942) 4443 lu(951) = lu(951) - lu(912) * lu(942) 4444 lu(952) = lu(952) - lu(913) * lu(942) 4445 lu(953) = lu(953) - lu(914) * lu(942) 4446 lu(956) = lu(956) - lu(915) * lu(942) 4447 lu(957) = lu(957) - lu(916) * lu(942) 4448 lu(969) = lu(969) - lu(904) * lu(968) 4449 lu(970) = lu(970) - lu(905) * lu(968) 4450 lu(971) = lu(971) - lu(906) * lu(968) 4451 lu(972) = lu(972) - lu(907) * lu(968) 4452 lu(973) = lu(973) - lu(908) * lu(968) 4453 lu(974) = lu(974) - lu(909) * lu(968) 4454 lu(975) = lu(975) - lu(910) * lu(968) 4455 lu(976) = lu(976) - lu(911) * lu(968) 4456 lu(977) = lu(977) - lu(912) * lu(968) 4457 lu(978) = lu(978) - lu(913) * lu(968) 4458 lu(979) = lu(979) - lu(914) * lu(968) 4459 lu(982) = lu(982) - lu(915) * lu(968) 4460 lu(983) = lu(983) - lu(916) * lu(968) 4461 lu(1014) = lu(1014) - lu(904) * lu(1013) 4462 lu(1015) = lu(1015) - lu(905) * lu(1013) 4463 lu(1016) = lu(1016) - lu(906) * lu(1013) 4464 lu(1017) = lu(1017) - lu(907) * lu(1013) 4465 lu(1018) = lu(1018) - lu(908) * lu(1013) 4466 lu(1019) = lu(1019) - lu(909) * lu(1013) 4467 lu(1020) = lu(1020) - lu(910) * lu(1013) 4468 lu(1021) = lu(1021) - lu(911) * lu(1013) 4469 lu(1022) = lu(1022) - lu(912) * lu(1013) 4470 lu(1023) = lu(1023) - lu(913) * lu(1013) 4471 lu(1024) = lu(1024) - lu(914) * lu(1013) 4472 lu(1027) = lu(1027) - lu(915) * lu(1013) 4473 lu(1028) = lu(1028) - lu(916) * lu(1013) 4474 lu(1041) = lu(1041) - lu(904) * lu(1040) 4475 lu(1042) = lu(1042) - lu(905) * lu(1040) 4476 lu(1043) = lu(1043) - lu(906) * lu(1040) 4477 lu(1044) = lu(1044) - lu(907) * lu(1040) 4478 lu(1045) = lu(1045) - lu(908) * lu(1040) 4479 lu(1046) = lu(1046) - lu(909) * lu(1040) 4480 lu(1047) = lu(1047) - lu(910) * lu(1040) 4481 lu(1048) = lu(1048) - lu(911) * lu(1040) 4482 lu(1049) = lu(1049) - lu(912) * lu(1040) 4483 lu(1050) = lu(1050) - lu(913) * lu(1040) 4484 lu(1051) = lu(1051) - lu(914) * lu(1040) 4485 lu(1054) = lu(1054) - lu(915) * lu(1040) 4486 lu(1055) = lu(1055) - lu(916) * lu(1040) 4487 lu(1110) = lu(1110) - lu(904) * lu(1109) 4488 lu(1111) = lu(1111) - lu(905) * lu(1109) 4489 lu(1112) = lu(1112) - lu(906) * lu(1109) 4490 lu(1113) = lu(1113) - lu(907) * lu(1109) 4491 lu(1114) = lu(1114) - lu(908) * lu(1109) 4492 lu(1115) = lu(1115) - lu(909) * lu(1109) 4493 lu(1116) = lu(1116) - lu(910) * lu(1109) 4494 lu(1117) = lu(1117) - lu(911) * lu(1109) 4495 lu(1118) = lu(1118) - lu(912) * lu(1109) 4496 lu(1119) = lu(1119) - lu(913) * lu(1109) 4497 lu(1120) = lu(1120) - lu(914) * lu(1109) 4498 lu(1123) = lu(1123) - lu(915) * lu(1109) 4499 lu(1124) = lu(1124) - lu(916) * lu(1109) 4500 lu(1145) = lu(1145) - lu(904) * lu(1144) 4501 lu(1146) = lu(1146) - lu(905) * lu(1144) 4502 lu(1147) = lu(1147) - lu(906) * lu(1144) 4503 lu(1148) = lu(1148) - lu(907) * lu(1144) 4504 lu(1149) = lu(1149) - lu(908) * lu(1144) 4505 lu(1150) = lu(1150) - lu(909) * lu(1144) 4506 lu(1151) = lu(1151) - lu(910) * lu(1144) 4507 lu(1152) = lu(1152) - lu(911) * lu(1144) 4508 lu(1153) = lu(1153) - lu(912) * lu(1144) 4509 lu(1154) = lu(1154) - lu(913) * lu(1144) 4510 lu(1155) = lu(1155) - lu(914) * lu(1144) 4511 lu(1158) = lu(1158) - lu(915) * lu(1144) 4512 lu(1159) = lu(1159) - lu(916) * lu(1144) 4513 lu(1165) = lu(1165) - lu(904) * lu(1164) 4514 lu(1166) = lu(1166) - lu(905) * lu(1164) 4515 lu(1167) = lu(1167) - lu(906) * lu(1164) 4516 lu(1168) = lu(1168) - lu(907) * lu(1164) 4517 lu(1169) = lu(1169) - lu(908) * lu(1164) 4518 lu(1170) = lu(1170) - lu(909) * lu(1164) 4519 lu(1171) = lu(1171) - lu(910) * lu(1164) 4520 lu(1172) = lu(1172) - lu(911) * lu(1164) 4521 lu(1173) = lu(1173) - lu(912) * lu(1164) 4522 lu(1174) = lu(1174) - lu(913) * lu(1164) 4523 lu(1175) = lu(1175) - lu(914) * lu(1164) 4524 lu(1178) = lu(1178) - lu(915) * lu(1164) 4525 lu(1179) = lu(1179) - lu(916) * lu(1164) 4526 lu(1189) = lu(1189) - lu(904) * lu(1188) 4527 lu(1190) = lu(1190) - lu(905) * lu(1188) 4528 lu(1191) = lu(1191) - lu(906) * lu(1188) 4529 lu(1192) = lu(1192) - lu(907) * lu(1188) 4530 lu(1193) = lu(1193) - lu(908) * lu(1188) 4531 lu(1194) = lu(1194) - lu(909) * lu(1188) 4532 lu(1195) = lu(1195) - lu(910) * lu(1188) 4533 lu(1196) = lu(1196) - lu(911) * lu(1188) 4534 lu(1197) = lu(1197) - lu(912) * lu(1188) 4535 lu(1198) = lu(1198) - lu(913) * lu(1188) 4536 lu(1199) = lu(1199) - lu(914) * lu(1188) 4537 lu(1202) = lu(1202) - lu(915) * lu(1188) 4538 lu(1203) = lu(1203) - lu(916) * lu(1188) 4539 lu(1244) = lu(1244) - lu(904) * lu(1243) 4540 lu(1245) = lu(1245) - lu(905) * lu(1243) 4541 lu(1246) = lu(1246) - lu(906) * lu(1243) 4542 lu(1247) = lu(1247) - lu(907) * lu(1243) 4543 lu(1248) = lu(1248) - lu(908) * lu(1243) 4544 lu(1249) = lu(1249) - lu(909) * lu(1243) 4545 lu(1250) = lu(1250) - lu(910) * lu(1243) 4546 lu(1251) = lu(1251) - lu(911) * lu(1243) 4547 lu(1252) = lu(1252) - lu(912) * lu(1243) 4548 lu(1253) = lu(1253) - lu(913) * lu(1243) 4549 lu(1254) = lu(1254) - lu(914) * lu(1243) 4550 lu(1257) = lu(1257) - lu(915) * lu(1243) 4551 lu(1258) = lu(1258) - lu(916) * lu(1243) 4552 lu(1281) = lu(1281) - lu(904) * lu(1280) 4553 lu(1282) = lu(1282) - lu(905) * lu(1280) 4554 lu(1283) = lu(1283) - lu(906) * lu(1280) 4555 lu(1284) = lu(1284) - lu(907) * lu(1280) 4556 lu(1285) = lu(1285) - lu(908) * lu(1280) 4557 lu(1286) = lu(1286) - lu(909) * lu(1280) 4558 lu(1287) = lu(1287) - lu(910) * lu(1280) 4559 lu(1288) = lu(1288) - lu(911) * lu(1280) 4560 lu(1289) = lu(1289) - lu(912) * lu(1280) 4561 lu(1290) = lu(1290) - lu(913) * lu(1280) 4562 lu(1291) = lu(1291) - lu(914) * lu(1280) 4563 lu(1294) = lu(1294) - lu(915) * lu(1280) 4564 lu(1295) = lu(1295) - lu(916) * lu(1280) 4565 lu(1379) = lu(1379) - lu(904) * lu(1378) 4566 lu(1380) = lu(1380) - lu(905) * lu(1378) 4567 lu(1381) = lu(1381) - lu(906) * lu(1378) 4568 lu(1382) = lu(1382) - lu(907) * lu(1378) 4569 lu(1383) = lu(1383) - lu(908) * lu(1378) 4570 lu(1384) = lu(1384) - lu(909) * lu(1378) 4571 lu(1385) = lu(1385) - lu(910) * lu(1378) 4572 lu(1386) = lu(1386) - lu(911) * lu(1378) 4573 lu(1387) = lu(1387) - lu(912) * lu(1378) 4574 lu(1388) = lu(1388) - lu(913) * lu(1378) 4575 lu(1389) = lu(1389) - lu(914) * lu(1378) 4576 lu(1392) = lu(1392) - lu(915) * lu(1378) 4577 lu(1393) = lu(1393) - lu(916) * lu(1378) 4578 lu(1423) = lu(1423) - lu(904) * lu(1422) 4579 lu(1424) = lu(1424) - lu(905) * lu(1422) 4580 lu(1425) = lu(1425) - lu(906) * lu(1422) 4581 lu(1426) = lu(1426) - lu(907) * lu(1422) 4582 lu(1427) = lu(1427) - lu(908) * lu(1422) 4583 lu(1428) = lu(1428) - lu(909) * lu(1422) 4584 lu(1429) = lu(1429) - lu(910) * lu(1422) 4585 lu(1430) = lu(1430) - lu(911) * lu(1422) 4586 lu(1431) = lu(1431) - lu(912) * lu(1422) 4587 lu(1432) = lu(1432) - lu(913) * lu(1422) 4588 lu(1433) = lu(1433) - lu(914) * lu(1422) 4589 lu(1436) = lu(1436) - lu(915) * lu(1422) 4590 lu(1437) = lu(1437) - lu(916) * lu(1422) 4591 lu(1445) = lu(1445) - lu(904) * lu(1444) 4592 lu(1446) = lu(1446) - lu(905) * lu(1444) 4593 lu(1447) = lu(1447) - lu(906) * lu(1444) 4594 lu(1448) = lu(1448) - lu(907) * lu(1444) 4595 lu(1449) = lu(1449) - lu(908) * lu(1444) 4596 lu(1450) = lu(1450) - lu(909) * lu(1444) 4597 lu(1451) = lu(1451) - lu(910) * lu(1444) 4598 lu(1452) = lu(1452) - lu(911) * lu(1444) 4599 lu(1453) = lu(1453) - lu(912) * lu(1444) 4600 lu(1454) = lu(1454) - lu(913) * lu(1444) 4601 lu(1455) = lu(1455) - lu(914) * lu(1444) 4602 lu(1458) = lu(1458) - lu(915) * lu(1444) 4603 lu(1459) = lu(1459) - lu(916) * lu(1444) 4604 lu(1471) = lu(1471) - lu(904) * lu(1470) 4605 lu(1472) = lu(1472) - lu(905) * lu(1470) 4606 lu(1473) = lu(1473) - lu(906) * lu(1470) 4607 lu(1474) = lu(1474) - lu(907) * lu(1470) 4608 lu(1475) = lu(1475) - lu(908) * lu(1470) 4609 lu(1476) = lu(1476) - lu(909) * lu(1470) 4610 lu(1477) = lu(1477) - lu(910) * lu(1470) 4611 lu(1478) = lu(1478) - lu(911) * lu(1470) 4612 lu(1479) = lu(1479) - lu(912) * lu(1470) 4613 lu(1480) = lu(1480) - lu(913) * lu(1470) 4614 lu(1481) = lu(1481) - lu(914) * lu(1470) 4615 lu(1484) = lu(1484) - lu(915) * lu(1470) 4616 lu(1485) = lu(1485) - lu(916) * lu(1470) 4617 lu(1495) = lu(1495) - lu(904) * lu(1494) 4618 lu(1496) = lu(1496) - lu(905) * lu(1494) 4619 lu(1497) = lu(1497) - lu(906) * lu(1494) 4620 lu(1498) = lu(1498) - lu(907) * lu(1494) 4621 lu(1499) = lu(1499) - lu(908) * lu(1494) 4622 lu(1500) = lu(1500) - lu(909) * lu(1494) 4623 lu(1501) = lu(1501) - lu(910) * lu(1494) 4624 lu(1502) = lu(1502) - lu(911) * lu(1494) 4625 lu(1503) = lu(1503) - lu(912) * lu(1494) 4626 lu(1504) = lu(1504) - lu(913) * lu(1494) 4627 lu(1505) = lu(1505) - lu(914) * lu(1494) 4628 lu(1508) = lu(1508) - lu(915) * lu(1494) 4629 lu(1509) = lu(1509) - lu(916) * lu(1494) 4630 END SUBROUTINE lu_fac18 4631 4632 SUBROUTINE lu_fac19(lu) 4633 USE shr_kind_mod, ONLY: r8 => shr_kind_r8 4634 IMPLICIT NONE 4635 !----------------------------------------------------------------------- 4636 ! ... dummy args 4637 !----------------------------------------------------------------------- 4638 REAL(KIND=r8), intent(inout) :: lu(:) 4639 lu(943) = 1._r8 / lu(943) 4640 lu(944) = lu(944) * lu(943) 4641 lu(945) = lu(945) * lu(943) 4642 lu(946) = lu(946) * lu(943) 4643 lu(947) = lu(947) * lu(943) 4644 lu(948) = lu(948) * lu(943) 4645 lu(949) = lu(949) * lu(943) 4646 lu(950) = lu(950) * lu(943) 4647 lu(951) = lu(951) * lu(943) 4648 lu(952) = lu(952) * lu(943) 4649 lu(953) = lu(953) * lu(943) 4650 lu(954) = lu(954) * lu(943) 4651 lu(955) = lu(955) * lu(943) 4652 lu(956) = lu(956) * lu(943) 4653 lu(957) = lu(957) * lu(943) 4654 lu(970) = lu(970) - lu(944) * lu(969) 4655 lu(971) = lu(971) - lu(945) * lu(969) 4656 lu(972) = lu(972) - lu(946) * lu(969) 4657 lu(973) = lu(973) - lu(947) * lu(969) 4658 lu(974) = lu(974) - lu(948) * lu(969) 4659 lu(975) = lu(975) - lu(949) * lu(969) 4660 lu(976) = lu(976) - lu(950) * lu(969) 4661 lu(977) = lu(977) - lu(951) * lu(969) 4662 lu(978) = lu(978) - lu(952) * lu(969) 4663 lu(979) = lu(979) - lu(953) * lu(969) 4664 lu(980) = lu(980) - lu(954) * lu(969) 4665 lu(981) = lu(981) - lu(955) * lu(969) 4666 lu(982) = lu(982) - lu(956) * lu(969) 4667 lu(983) = lu(983) - lu(957) * lu(969) 4668 lu(1015) = lu(1015) - lu(944) * lu(1014) 4669 lu(1016) = lu(1016) - lu(945) * lu(1014) 4670 lu(1017) = lu(1017) - lu(946) * lu(1014) 4671 lu(1018) = lu(1018) - lu(947) * lu(1014) 4672 lu(1019) = lu(1019) - lu(948) * lu(1014) 4673 lu(1020) = lu(1020) - lu(949) * lu(1014) 4674 lu(1021) = lu(1021) - lu(950) * lu(1014) 4675 lu(1022) = lu(1022) - lu(951) * lu(1014) 4676 lu(1023) = lu(1023) - lu(952) * lu(1014) 4677 lu(1024) = lu(1024) - lu(953) * lu(1014) 4678 lu(1025) = lu(1025) - lu(954) * lu(1014) 4679 lu(1026) = lu(1026) - lu(955) * lu(1014) 4680 lu(1027) = lu(1027) - lu(956) * lu(1014) 4681 lu(1028) = lu(1028) - lu(957) * lu(1014) 4682 lu(1042) = lu(1042) - lu(944) * lu(1041) 4683 lu(1043) = lu(1043) - lu(945) * lu(1041) 4684 lu(1044) = lu(1044) - lu(946) * lu(1041) 4685 lu(1045) = lu(1045) - lu(947) * lu(1041) 4686 lu(1046) = lu(1046) - lu(948) * lu(1041) 4687 lu(1047) = lu(1047) - lu(949) * lu(1041) 4688 lu(1048) = lu(1048) - lu(950) * lu(1041) 4689 lu(1049) = lu(1049) - lu(951) * lu(1041) 4690 lu(1050) = lu(1050) - lu(952) * lu(1041) 4691 lu(1051) = lu(1051) - lu(953) * lu(1041) 4692 lu(1052) = lu(1052) - lu(954) * lu(1041) 4693 lu(1053) = lu(1053) - lu(955) * lu(1041) 4694 lu(1054) = lu(1054) - lu(956) * lu(1041) 4695 lu(1055) = lu(1055) - lu(957) * lu(1041) 4696 lu(1111) = lu(1111) - lu(944) * lu(1110) 4697 lu(1112) = lu(1112) - lu(945) * lu(1110) 4698 lu(1113) = lu(1113) - lu(946) * lu(1110) 4699 lu(1114) = lu(1114) - lu(947) * lu(1110) 4700 lu(1115) = lu(1115) - lu(948) * lu(1110) 4701 lu(1116) = lu(1116) - lu(949) * lu(1110) 4702 lu(1117) = lu(1117) - lu(950) * lu(1110) 4703 lu(1118) = lu(1118) - lu(951) * lu(1110) 4704 lu(1119) = lu(1119) - lu(952) * lu(1110) 4705 lu(1120) = lu(1120) - lu(953) * lu(1110) 4706 lu(1121) = lu(1121) - lu(954) * lu(1110) 4707 lu(1122) = lu(1122) - lu(955) * lu(1110) 4708 lu(1123) = lu(1123) - lu(956) * lu(1110) 4709 lu(1124) = lu(1124) - lu(957) * lu(1110) 4710 lu(1146) = lu(1146) - lu(944) * lu(1145) 4711 lu(1147) = lu(1147) - lu(945) * lu(1145) 4712 lu(1148) = lu(1148) - lu(946) * lu(1145) 4713 lu(1149) = lu(1149) - lu(947) * lu(1145) 4714 lu(1150) = lu(1150) - lu(948) * lu(1145) 4715 lu(1151) = lu(1151) - lu(949) * lu(1145) 4716 lu(1152) = lu(1152) - lu(950) * lu(1145) 4717 lu(1153) = lu(1153) - lu(951) * lu(1145) 4718 lu(1154) = lu(1154) - lu(952) * lu(1145) 4719 lu(1155) = lu(1155) - lu(953) * lu(1145) 4720 lu(1156) = lu(1156) - lu(954) * lu(1145) 4721 lu(1157) = lu(1157) - lu(955) * lu(1145) 4722 lu(1158) = lu(1158) - lu(956) * lu(1145) 4723 lu(1159) = lu(1159) - lu(957) * lu(1145) 4724 lu(1166) = lu(1166) - lu(944) * lu(1165) 4725 lu(1167) = lu(1167) - lu(945) * lu(1165) 4726 lu(1168) = lu(1168) - lu(946) * lu(1165) 4727 lu(1169) = lu(1169) - lu(947) * lu(1165) 4728 lu(1170) = lu(1170) - lu(948) * lu(1165) 4729 lu(1171) = lu(1171) - lu(949) * lu(1165) 4730 lu(1172) = lu(1172) - lu(950) * lu(1165) 4731 lu(1173) = lu(1173) - lu(951) * lu(1165) 4732 lu(1174) = lu(1174) - lu(952) * lu(1165) 4733 lu(1175) = lu(1175) - lu(953) * lu(1165) 4734 lu(1176) = lu(1176) - lu(954) * lu(1165) 4735 lu(1177) = lu(1177) - lu(955) * lu(1165) 4736 lu(1178) = lu(1178) - lu(956) * lu(1165) 4737 lu(1179) = lu(1179) - lu(957) * lu(1165) 4738 lu(1190) = lu(1190) - lu(944) * lu(1189) 4739 lu(1191) = lu(1191) - lu(945) * lu(1189) 4740 lu(1192) = lu(1192) - lu(946) * lu(1189) 4741 lu(1193) = lu(1193) - lu(947) * lu(1189) 4742 lu(1194) = lu(1194) - lu(948) * lu(1189) 4743 lu(1195) = lu(1195) - lu(949) * lu(1189) 4744 lu(1196) = lu(1196) - lu(950) * lu(1189) 4745 lu(1197) = lu(1197) - lu(951) * lu(1189) 4746 lu(1198) = lu(1198) - lu(952) * lu(1189) 4747 lu(1199) = lu(1199) - lu(953) * lu(1189) 4748 lu(1200) = lu(1200) - lu(954) * lu(1189) 4749 lu(1201) = lu(1201) - lu(955) * lu(1189) 4750 lu(1202) = lu(1202) - lu(956) * lu(1189) 4751 lu(1203) = lu(1203) - lu(957) * lu(1189) 4752 lu(1245) = lu(1245) - lu(944) * lu(1244) 4753 lu(1246) = lu(1246) - lu(945) * lu(1244) 4754 lu(1247) = lu(1247) - lu(946) * lu(1244) 4755 lu(1248) = lu(1248) - lu(947) * lu(1244) 4756 lu(1249) = lu(1249) - lu(948) * lu(1244) 4757 lu(1250) = lu(1250) - lu(949) * lu(1244) 4758 lu(1251) = lu(1251) - lu(950) * lu(1244) 4759 lu(1252) = lu(1252) - lu(951) * lu(1244) 4760 lu(1253) = lu(1253) - lu(952) * lu(1244) 4761 lu(1254) = lu(1254) - lu(953) * lu(1244) 4762 lu(1255) = lu(1255) - lu(954) * lu(1244) 4763 lu(1256) = lu(1256) - lu(955) * lu(1244) 4764 lu(1257) = lu(1257) - lu(956) * lu(1244) 4765 lu(1258) = lu(1258) - lu(957) * lu(1244) 4766 lu(1282) = lu(1282) - lu(944) * lu(1281) 4767 lu(1283) = lu(1283) - lu(945) * lu(1281) 4768 lu(1284) = lu(1284) - lu(946) * lu(1281) 4769 lu(1285) = lu(1285) - lu(947) * lu(1281) 4770 lu(1286) = lu(1286) - lu(948) * lu(1281) 4771 lu(1287) = lu(1287) - lu(949) * lu(1281) 4772 lu(1288) = lu(1288) - lu(950) * lu(1281) 4773 lu(1289) = lu(1289) - lu(951) * lu(1281) 4774 lu(1290) = lu(1290) - lu(952) * lu(1281) 4775 lu(1291) = lu(1291) - lu(953) * lu(1281) 4776 lu(1292) = lu(1292) - lu(954) * lu(1281) 4777 lu(1293) = lu(1293) - lu(955) * lu(1281) 4778 lu(1294) = lu(1294) - lu(956) * lu(1281) 4779 lu(1295) = lu(1295) - lu(957) * lu(1281) 4780 lu(1380) = lu(1380) - lu(944) * lu(1379) 4781 lu(1381) = lu(1381) - lu(945) * lu(1379) 4782 lu(1382) = lu(1382) - lu(946) * lu(1379) 4783 lu(1383) = lu(1383) - lu(947) * lu(1379) 4784 lu(1384) = lu(1384) - lu(948) * lu(1379) 4785 lu(1385) = lu(1385) - lu(949) * lu(1379) 4786 lu(1386) = lu(1386) - lu(950) * lu(1379) 4787 lu(1387) = lu(1387) - lu(951) * lu(1379) 4788 lu(1388) = lu(1388) - lu(952) * lu(1379) 4789 lu(1389) = lu(1389) - lu(953) * lu(1379) 4790 lu(1390) = lu(1390) - lu(954) * lu(1379) 4791 lu(1391) = lu(1391) - lu(955) * lu(1379) 4792 lu(1392) = lu(1392) - lu(956) * lu(1379) 4793 lu(1393) = lu(1393) - lu(957) * lu(1379) 4794 lu(1424) = lu(1424) - lu(944) * lu(1423) 4795 lu(1425) = lu(1425) - lu(945) * lu(1423) 4796 lu(1426) = lu(1426) - lu(946) * lu(1423) 4797 lu(1427) = lu(1427) - lu(947) * lu(1423) 4798 lu(1428) = lu(1428) - lu(948) * lu(1423) 4799 lu(1429) = lu(1429) - lu(949) * lu(1423) 4800 lu(1430) = lu(1430) - lu(950) * lu(1423) 4801 lu(1431) = lu(1431) - lu(951) * lu(1423) 4802 lu(1432) = lu(1432) - lu(952) * lu(1423) 4803 lu(1433) = lu(1433) - lu(953) * lu(1423) 4804 lu(1434) = lu(1434) - lu(954) * lu(1423) 4805 lu(1435) = lu(1435) - lu(955) * lu(1423) 4806 lu(1436) = lu(1436) - lu(956) * lu(1423) 4807 lu(1437) = lu(1437) - lu(957) * lu(1423) 4808 lu(1446) = lu(1446) - lu(944) * lu(1445) 4809 lu(1447) = lu(1447) - lu(945) * lu(1445) 4810 lu(1448) = lu(1448) - lu(946) * lu(1445) 4811 lu(1449) = lu(1449) - lu(947) * lu(1445) 4812 lu(1450) = lu(1450) - lu(948) * lu(1445) 4813 lu(1451) = lu(1451) - lu(949) * lu(1445) 4814 lu(1452) = lu(1452) - lu(950) * lu(1445) 4815 lu(1453) = lu(1453) - lu(951) * lu(1445) 4816 lu(1454) = lu(1454) - lu(952) * lu(1445) 4817 lu(1455) = lu(1455) - lu(953) * lu(1445) 4818 lu(1456) = lu(1456) - lu(954) * lu(1445) 4819 lu(1457) = lu(1457) - lu(955) * lu(1445) 4820 lu(1458) = lu(1458) - lu(956) * lu(1445) 4821 lu(1459) = lu(1459) - lu(957) * lu(1445) 4822 lu(1472) = lu(1472) - lu(944) * lu(1471) 4823 lu(1473) = lu(1473) - lu(945) * lu(1471) 4824 lu(1474) = lu(1474) - lu(946) * lu(1471) 4825 lu(1475) = lu(1475) - lu(947) * lu(1471) 4826 lu(1476) = lu(1476) - lu(948) * lu(1471) 4827 lu(1477) = lu(1477) - lu(949) * lu(1471) 4828 lu(1478) = lu(1478) - lu(950) * lu(1471) 4829 lu(1479) = lu(1479) - lu(951) * lu(1471) 4830 lu(1480) = lu(1480) - lu(952) * lu(1471) 4831 lu(1481) = lu(1481) - lu(953) * lu(1471) 4832 lu(1482) = lu(1482) - lu(954) * lu(1471) 4833 lu(1483) = lu(1483) - lu(955) * lu(1471) 4834 lu(1484) = lu(1484) - lu(956) * lu(1471) 4835 lu(1485) = lu(1485) - lu(957) * lu(1471) 4836 lu(1496) = lu(1496) - lu(944) * lu(1495) 4837 lu(1497) = lu(1497) - lu(945) * lu(1495) 4838 lu(1498) = lu(1498) - lu(946) * lu(1495) 4839 lu(1499) = lu(1499) - lu(947) * lu(1495) 4840 lu(1500) = lu(1500) - lu(948) * lu(1495) 4841 lu(1501) = lu(1501) - lu(949) * lu(1495) 4842 lu(1502) = lu(1502) - lu(950) * lu(1495) 4843 lu(1503) = lu(1503) - lu(951) * lu(1495) 4844 lu(1504) = lu(1504) - lu(952) * lu(1495) 4845 lu(1505) = lu(1505) - lu(953) * lu(1495) 4846 lu(1506) = lu(1506) - lu(954) * lu(1495) 4847 lu(1507) = lu(1507) - lu(955) * lu(1495) 4848 lu(1508) = lu(1508) - lu(956) * lu(1495) 4849 lu(1509) = lu(1509) - lu(957) * lu(1495) 4850 lu(970) = 1._r8 / lu(970) 4851 lu(971) = lu(971) * lu(970) 4852 lu(972) = lu(972) * lu(970) 4853 lu(973) = lu(973) * lu(970) 4854 lu(974) = lu(974) * lu(970) 4855 lu(975) = lu(975) * lu(970) 4856 lu(976) = lu(976) * lu(970) 4857 lu(977) = lu(977) * lu(970) 4858 lu(978) = lu(978) * lu(970) 4859 lu(979) = lu(979) * lu(970) 4860 lu(980) = lu(980) * lu(970) 4861 lu(981) = lu(981) * lu(970) 4862 lu(982) = lu(982) * lu(970) 4863 lu(983) = lu(983) * lu(970) 4864 lu(1016) = lu(1016) - lu(971) * lu(1015) 4865 lu(1017) = lu(1017) - lu(972) * lu(1015) 4866 lu(1018) = lu(1018) - lu(973) * lu(1015) 4867 lu(1019) = lu(1019) - lu(974) * lu(1015) 4868 lu(1020) = lu(1020) - lu(975) * lu(1015) 4869 lu(1021) = lu(1021) - lu(976) * lu(1015) 4870 lu(1022) = lu(1022) - lu(977) * lu(1015) 4871 lu(1023) = lu(1023) - lu(978) * lu(1015) 4872 lu(1024) = lu(1024) - lu(979) * lu(1015) 4873 lu(1025) = lu(1025) - lu(980) * lu(1015) 4874 lu(1026) = lu(1026) - lu(981) * lu(1015) 4875 lu(1027) = lu(1027) - lu(982) * lu(1015) 4876 lu(1028) = lu(1028) - lu(983) * lu(1015) 4877 lu(1043) = lu(1043) - lu(971) * lu(1042) 4878 lu(1044) = lu(1044) - lu(972) * lu(1042) 4879 lu(1045) = lu(1045) - lu(973) * lu(1042) 4880 lu(1046) = lu(1046) - lu(974) * lu(1042) 4881 lu(1047) = lu(1047) - lu(975) * lu(1042) 4882 lu(1048) = lu(1048) - lu(976) * lu(1042) 4883 lu(1049) = lu(1049) - lu(977) * lu(1042) 4884 lu(1050) = lu(1050) - lu(978) * lu(1042) 4885 lu(1051) = lu(1051) - lu(979) * lu(1042) 4886 lu(1052) = lu(1052) - lu(980) * lu(1042) 4887 lu(1053) = lu(1053) - lu(981) * lu(1042) 4888 lu(1054) = lu(1054) - lu(982) * lu(1042) 4889 lu(1055) = lu(1055) - lu(983) * lu(1042) 4890 lu(1112) = lu(1112) - lu(971) * lu(1111) 4891 lu(1113) = lu(1113) - lu(972) * lu(1111) 4892 lu(1114) = lu(1114) - lu(973) * lu(1111) 4893 lu(1115) = lu(1115) - lu(974) * lu(1111) 4894 lu(1116) = lu(1116) - lu(975) * lu(1111) 4895 lu(1117) = lu(1117) - lu(976) * lu(1111) 4896 lu(1118) = lu(1118) - lu(977) * lu(1111) 4897 lu(1119) = lu(1119) - lu(978) * lu(1111) 4898 lu(1120) = lu(1120) - lu(979) * lu(1111) 4899 lu(1121) = lu(1121) - lu(980) * lu(1111) 4900 lu(1122) = lu(1122) - lu(981) * lu(1111) 4901 lu(1123) = lu(1123) - lu(982) * lu(1111) 4902 lu(1124) = lu(1124) - lu(983) * lu(1111) 4903 lu(1147) = lu(1147) - lu(971) * lu(1146) 4904 lu(1148) = lu(1148) - lu(972) * lu(1146) 4905 lu(1149) = lu(1149) - lu(973) * lu(1146) 4906 lu(1150) = lu(1150) - lu(974) * lu(1146) 4907 lu(1151) = lu(1151) - lu(975) * lu(1146) 4908 lu(1152) = lu(1152) - lu(976) * lu(1146) 4909 lu(1153) = lu(1153) - lu(977) * lu(1146) 4910 lu(1154) = lu(1154) - lu(978) * lu(1146) 4911 lu(1155) = lu(1155) - lu(979) * lu(1146) 4912 lu(1156) = lu(1156) - lu(980) * lu(1146) 4913 lu(1157) = lu(1157) - lu(981) * lu(1146) 4914 lu(1158) = lu(1158) - lu(982) * lu(1146) 4915 lu(1159) = lu(1159) - lu(983) * lu(1146) 4916 lu(1167) = lu(1167) - lu(971) * lu(1166) 4917 lu(1168) = lu(1168) - lu(972) * lu(1166) 4918 lu(1169) = lu(1169) - lu(973) * lu(1166) 4919 lu(1170) = lu(1170) - lu(974) * lu(1166) 4920 lu(1171) = lu(1171) - lu(975) * lu(1166) 4921 lu(1172) = lu(1172) - lu(976) * lu(1166) 4922 lu(1173) = lu(1173) - lu(977) * lu(1166) 4923 lu(1174) = lu(1174) - lu(978) * lu(1166) 4924 lu(1175) = lu(1175) - lu(979) * lu(1166) 4925 lu(1176) = lu(1176) - lu(980) * lu(1166) 4926 lu(1177) = lu(1177) - lu(981) * lu(1166) 4927 lu(1178) = lu(1178) - lu(982) * lu(1166) 4928 lu(1179) = lu(1179) - lu(983) * lu(1166) 4929 lu(1191) = lu(1191) - lu(971) * lu(1190) 4930 lu(1192) = lu(1192) - lu(972) * lu(1190) 4931 lu(1193) = lu(1193) - lu(973) * lu(1190) 4932 lu(1194) = lu(1194) - lu(974) * lu(1190) 4933 lu(1195) = lu(1195) - lu(975) * lu(1190) 4934 lu(1196) = lu(1196) - lu(976) * lu(1190) 4935 lu(1197) = lu(1197) - lu(977) * lu(1190) 4936 lu(1198) = lu(1198) - lu(978) * lu(1190) 4937 lu(1199) = lu(1199) - lu(979) * lu(1190) 4938 lu(1200) = lu(1200) - lu(980) * lu(1190) 4939 lu(1201) = lu(1201) - lu(981) * lu(1190) 4940 lu(1202) = lu(1202) - lu(982) * lu(1190) 4941 lu(1203) = lu(1203) - lu(983) * lu(1190) 4942 lu(1246) = lu(1246) - lu(971) * lu(1245) 4943 lu(1247) = lu(1247) - lu(972) * lu(1245) 4944 lu(1248) = lu(1248) - lu(973) * lu(1245) 4945 lu(1249) = lu(1249) - lu(974) * lu(1245) 4946 lu(1250) = lu(1250) - lu(975) * lu(1245) 4947 lu(1251) = lu(1251) - lu(976) * lu(1245) 4948 lu(1252) = lu(1252) - lu(977) * lu(1245) 4949 lu(1253) = lu(1253) - lu(978) * lu(1245) 4950 lu(1254) = lu(1254) - lu(979) * lu(1245) 4951 lu(1255) = lu(1255) - lu(980) * lu(1245) 4952 lu(1256) = lu(1256) - lu(981) * lu(1245) 4953 lu(1257) = lu(1257) - lu(982) * lu(1245) 4954 lu(1258) = lu(1258) - lu(983) * lu(1245) 4955 lu(1283) = lu(1283) - lu(971) * lu(1282) 4956 lu(1284) = lu(1284) - lu(972) * lu(1282) 4957 lu(1285) = lu(1285) - lu(973) * lu(1282) 4958 lu(1286) = lu(1286) - lu(974) * lu(1282) 4959 lu(1287) = lu(1287) - lu(975) * lu(1282) 4960 lu(1288) = lu(1288) - lu(976) * lu(1282) 4961 lu(1289) = lu(1289) - lu(977) * lu(1282) 4962 lu(1290) = lu(1290) - lu(978) * lu(1282) 4963 lu(1291) = lu(1291) - lu(979) * lu(1282) 4964 lu(1292) = lu(1292) - lu(980) * lu(1282) 4965 lu(1293) = lu(1293) - lu(981) * lu(1282) 4966 lu(1294) = lu(1294) - lu(982) * lu(1282) 4967 lu(1295) = lu(1295) - lu(983) * lu(1282) 4968 lu(1381) = lu(1381) - lu(971) * lu(1380) 4969 lu(1382) = lu(1382) - lu(972) * lu(1380) 4970 lu(1383) = lu(1383) - lu(973) * lu(1380) 4971 lu(1384) = lu(1384) - lu(974) * lu(1380) 4972 lu(1385) = lu(1385) - lu(975) * lu(1380) 4973 lu(1386) = lu(1386) - lu(976) * lu(1380) 4974 lu(1387) = lu(1387) - lu(977) * lu(1380) 4975 lu(1388) = lu(1388) - lu(978) * lu(1380) 4976 lu(1389) = lu(1389) - lu(979) * lu(1380) 4977 lu(1390) = lu(1390) - lu(980) * lu(1380) 4978 lu(1391) = lu(1391) - lu(981) * lu(1380) 4979 lu(1392) = lu(1392) - lu(982) * lu(1380) 4980 lu(1393) = lu(1393) - lu(983) * lu(1380) 4981 lu(1425) = lu(1425) - lu(971) * lu(1424) 4982 lu(1426) = lu(1426) - lu(972) * lu(1424) 4983 lu(1427) = lu(1427) - lu(973) * lu(1424) 4984 lu(1428) = lu(1428) - lu(974) * lu(1424) 4985 lu(1429) = lu(1429) - lu(975) * lu(1424) 4986 lu(1430) = lu(1430) - lu(976) * lu(1424) 4987 lu(1431) = lu(1431) - lu(977) * lu(1424) 4988 lu(1432) = lu(1432) - lu(978) * lu(1424) 4989 lu(1433) = lu(1433) - lu(979) * lu(1424) 4990 lu(1434) = lu(1434) - lu(980) * lu(1424) 4991 lu(1435) = lu(1435) - lu(981) * lu(1424) 4992 lu(1436) = lu(1436) - lu(982) * lu(1424) 4993 lu(1437) = lu(1437) - lu(983) * lu(1424) 4994 lu(1447) = lu(1447) - lu(971) * lu(1446) 4995 lu(1448) = lu(1448) - lu(972) * lu(1446) 4996 lu(1449) = lu(1449) - lu(973) * lu(1446) 4997 lu(1450) = lu(1450) - lu(974) * lu(1446) 4998 lu(1451) = lu(1451) - lu(975) * lu(1446) 4999 lu(1452) = lu(1452) - lu(976) * lu(1446) 5000 lu(1453) = lu(1453) - lu(977) * lu(1446) 5001 lu(1454) = lu(1454) - lu(978) * lu(1446) 5002 lu(1455) = lu(1455) - lu(979) * lu(1446) 5003 lu(1456) = lu(1456) - lu(980) * lu(1446) 5004 lu(1457) = lu(1457) - lu(981) * lu(1446) 5005 lu(1458) = lu(1458) - lu(982) * lu(1446) 5006 lu(1459) = lu(1459) - lu(983) * lu(1446) 5007 lu(1473) = lu(1473) - lu(971) * lu(1472) 5008 lu(1474) = lu(1474) - lu(972) * lu(1472) 5009 lu(1475) = lu(1475) - lu(973) * lu(1472) 5010 lu(1476) = lu(1476) - lu(974) * lu(1472) 5011 lu(1477) = lu(1477) - lu(975) * lu(1472) 5012 lu(1478) = lu(1478) - lu(976) * lu(1472) 5013 lu(1479) = lu(1479) - lu(977) * lu(1472) 5014 lu(1480) = lu(1480) - lu(978) * lu(1472) 5015 lu(1481) = lu(1481) - lu(979) * lu(1472) 5016 lu(1482) = lu(1482) - lu(980) * lu(1472) 5017 lu(1483) = lu(1483) - lu(981) * lu(1472) 5018 lu(1484) = lu(1484) - lu(982) * lu(1472) 5019 lu(1485) = lu(1485) - lu(983) * lu(1472) 5020 lu(1497) = lu(1497) - lu(971) * lu(1496) 5021 lu(1498) = lu(1498) - lu(972) * lu(1496) 5022 lu(1499) = lu(1499) - lu(973) * lu(1496) 5023 lu(1500) = lu(1500) - lu(974) * lu(1496) 5024 lu(1501) = lu(1501) - lu(975) * lu(1496) 5025 lu(1502) = lu(1502) - lu(976) * lu(1496) 5026 lu(1503) = lu(1503) - lu(977) * lu(1496) 5027 lu(1504) = lu(1504) - lu(978) * lu(1496) 5028 lu(1505) = lu(1505) - lu(979) * lu(1496) 5029 lu(1506) = lu(1506) - lu(980) * lu(1496) 5030 lu(1507) = lu(1507) - lu(981) * lu(1496) 5031 lu(1508) = lu(1508) - lu(982) * lu(1496) 5032 lu(1509) = lu(1509) - lu(983) * lu(1496) 5033 lu(1016) = 1._r8 / lu(1016) 5034 lu(1017) = lu(1017) * lu(1016) 5035 lu(1018) = lu(1018) * lu(1016) 5036 lu(1019) = lu(1019) * lu(1016) 5037 lu(1020) = lu(1020) * lu(1016) 5038 lu(1021) = lu(1021) * lu(1016) 5039 lu(1022) = lu(1022) * lu(1016) 5040 lu(1023) = lu(1023) * lu(1016) 5041 lu(1024) = lu(1024) * lu(1016) 5042 lu(1025) = lu(1025) * lu(1016) 5043 lu(1026) = lu(1026) * lu(1016) 5044 lu(1027) = lu(1027) * lu(1016) 5045 lu(1028) = lu(1028) * lu(1016) 5046 lu(1044) = lu(1044) - lu(1017) * lu(1043) 5047 lu(1045) = lu(1045) - lu(1018) * lu(1043) 5048 lu(1046) = lu(1046) - lu(1019) * lu(1043) 5049 lu(1047) = lu(1047) - lu(1020) * lu(1043) 5050 lu(1048) = lu(1048) - lu(1021) * lu(1043) 5051 lu(1049) = lu(1049) - lu(1022) * lu(1043) 5052 lu(1050) = lu(1050) - lu(1023) * lu(1043) 5053 lu(1051) = lu(1051) - lu(1024) * lu(1043) 5054 lu(1052) = lu(1052) - lu(1025) * lu(1043) 5055 lu(1053) = lu(1053) - lu(1026) * lu(1043) 5056 lu(1054) = lu(1054) - lu(1027) * lu(1043) 5057 lu(1055) = lu(1055) - lu(1028) * lu(1043) 5058 lu(1113) = lu(1113) - lu(1017) * lu(1112) 5059 lu(1114) = lu(1114) - lu(1018) * lu(1112) 5060 lu(1115) = lu(1115) - lu(1019) * lu(1112) 5061 lu(1116) = lu(1116) - lu(1020) * lu(1112) 5062 lu(1117) = lu(1117) - lu(1021) * lu(1112) 5063 lu(1118) = lu(1118) - lu(1022) * lu(1112) 5064 lu(1119) = lu(1119) - lu(1023) * lu(1112) 5065 lu(1120) = lu(1120) - lu(1024) * lu(1112) 5066 lu(1121) = lu(1121) - lu(1025) * lu(1112) 5067 lu(1122) = lu(1122) - lu(1026) * lu(1112) 5068 lu(1123) = lu(1123) - lu(1027) * lu(1112) 5069 lu(1124) = lu(1124) - lu(1028) * lu(1112) 5070 lu(1148) = lu(1148) - lu(1017) * lu(1147) 5071 lu(1149) = lu(1149) - lu(1018) * lu(1147) 5072 lu(1150) = lu(1150) - lu(1019) * lu(1147) 5073 lu(1151) = lu(1151) - lu(1020) * lu(1147) 5074 lu(1152) = lu(1152) - lu(1021) * lu(1147) 5075 lu(1153) = lu(1153) - lu(1022) * lu(1147) 5076 lu(1154) = lu(1154) - lu(1023) * lu(1147) 5077 lu(1155) = lu(1155) - lu(1024) * lu(1147) 5078 lu(1156) = lu(1156) - lu(1025) * lu(1147) 5079 lu(1157) = lu(1157) - lu(1026) * lu(1147) 5080 lu(1158) = lu(1158) - lu(1027) * lu(1147) 5081 lu(1159) = lu(1159) - lu(1028) * lu(1147) 5082 lu(1168) = lu(1168) - lu(1017) * lu(1167) 5083 lu(1169) = lu(1169) - lu(1018) * lu(1167) 5084 lu(1170) = lu(1170) - lu(1019) * lu(1167) 5085 lu(1171) = lu(1171) - lu(1020) * lu(1167) 5086 lu(1172) = lu(1172) - lu(1021) * lu(1167) 5087 lu(1173) = lu(1173) - lu(1022) * lu(1167) 5088 lu(1174) = lu(1174) - lu(1023) * lu(1167) 5089 lu(1175) = lu(1175) - lu(1024) * lu(1167) 5090 lu(1176) = lu(1176) - lu(1025) * lu(1167) 5091 lu(1177) = lu(1177) - lu(1026) * lu(1167) 5092 lu(1178) = lu(1178) - lu(1027) * lu(1167) 5093 lu(1179) = lu(1179) - lu(1028) * lu(1167) 5094 lu(1192) = lu(1192) - lu(1017) * lu(1191) 5095 lu(1193) = lu(1193) - lu(1018) * lu(1191) 5096 lu(1194) = lu(1194) - lu(1019) * lu(1191) 5097 lu(1195) = lu(1195) - lu(1020) * lu(1191) 5098 lu(1196) = lu(1196) - lu(1021) * lu(1191) 5099 lu(1197) = lu(1197) - lu(1022) * lu(1191) 5100 lu(1198) = lu(1198) - lu(1023) * lu(1191) 5101 lu(1199) = lu(1199) - lu(1024) * lu(1191) 5102 lu(1200) = lu(1200) - lu(1025) * lu(1191) 5103 lu(1201) = lu(1201) - lu(1026) * lu(1191) 5104 lu(1202) = lu(1202) - lu(1027) * lu(1191) 5105 lu(1203) = lu(1203) - lu(1028) * lu(1191) 5106 lu(1247) = lu(1247) - lu(1017) * lu(1246) 5107 lu(1248) = lu(1248) - lu(1018) * lu(1246) 5108 lu(1249) = lu(1249) - lu(1019) * lu(1246) 5109 lu(1250) = lu(1250) - lu(1020) * lu(1246) 5110 lu(1251) = lu(1251) - lu(1021) * lu(1246) 5111 lu(1252) = lu(1252) - lu(1022) * lu(1246) 5112 lu(1253) = lu(1253) - lu(1023) * lu(1246) 5113 lu(1254) = lu(1254) - lu(1024) * lu(1246) 5114 lu(1255) = lu(1255) - lu(1025) * lu(1246) 5115 lu(1256) = lu(1256) - lu(1026) * lu(1246) 5116 lu(1257) = lu(1257) - lu(1027) * lu(1246) 5117 lu(1258) = lu(1258) - lu(1028) * lu(1246) 5118 lu(1284) = lu(1284) - lu(1017) * lu(1283) 5119 lu(1285) = lu(1285) - lu(1018) * lu(1283) 5120 lu(1286) = lu(1286) - lu(1019) * lu(1283) 5121 lu(1287) = lu(1287) - lu(1020) * lu(1283) 5122 lu(1288) = lu(1288) - lu(1021) * lu(1283) 5123 lu(1289) = lu(1289) - lu(1022) * lu(1283) 5124 lu(1290) = lu(1290) - lu(1023) * lu(1283) 5125 lu(1291) = lu(1291) - lu(1024) * lu(1283) 5126 lu(1292) = lu(1292) - lu(1025) * lu(1283) 5127 lu(1293) = lu(1293) - lu(1026) * lu(1283) 5128 lu(1294) = lu(1294) - lu(1027) * lu(1283) 5129 lu(1295) = lu(1295) - lu(1028) * lu(1283) 5130 lu(1382) = lu(1382) - lu(1017) * lu(1381) 5131 lu(1383) = lu(1383) - lu(1018) * lu(1381) 5132 lu(1384) = lu(1384) - lu(1019) * lu(1381) 5133 lu(1385) = lu(1385) - lu(1020) * lu(1381) 5134 lu(1386) = lu(1386) - lu(1021) * lu(1381) 5135 lu(1387) = lu(1387) - lu(1022) * lu(1381) 5136 lu(1388) = lu(1388) - lu(1023) * lu(1381) 5137 lu(1389) = lu(1389) - lu(1024) * lu(1381) 5138 lu(1390) = lu(1390) - lu(1025) * lu(1381) 5139 lu(1391) = lu(1391) - lu(1026) * lu(1381) 5140 lu(1392) = lu(1392) - lu(1027) * lu(1381) 5141 lu(1393) = lu(1393) - lu(1028) * lu(1381) 5142 lu(1426) = lu(1426) - lu(1017) * lu(1425) 5143 lu(1427) = lu(1427) - lu(1018) * lu(1425) 5144 lu(1428) = lu(1428) - lu(1019) * lu(1425) 5145 lu(1429) = lu(1429) - lu(1020) * lu(1425) 5146 lu(1430) = lu(1430) - lu(1021) * lu(1425) 5147 lu(1431) = lu(1431) - lu(1022) * lu(1425) 5148 lu(1432) = lu(1432) - lu(1023) * lu(1425) 5149 lu(1433) = lu(1433) - lu(1024) * lu(1425) 5150 lu(1434) = lu(1434) - lu(1025) * lu(1425) 5151 lu(1435) = lu(1435) - lu(1026) * lu(1425) 5152 lu(1436) = lu(1436) - lu(1027) * lu(1425) 5153 lu(1437) = lu(1437) - lu(1028) * lu(1425) 5154 lu(1448) = lu(1448) - lu(1017) * lu(1447) 5155 lu(1449) = lu(1449) - lu(1018) * lu(1447) 5156 lu(1450) = lu(1450) - lu(1019) * lu(1447) 5157 lu(1451) = lu(1451) - lu(1020) * lu(1447) 5158 lu(1452) = lu(1452) - lu(1021) * lu(1447) 5159 lu(1453) = lu(1453) - lu(1022) * lu(1447) 5160 lu(1454) = lu(1454) - lu(1023) * lu(1447) 5161 lu(1455) = lu(1455) - lu(1024) * lu(1447) 5162 lu(1456) = lu(1456) - lu(1025) * lu(1447) 5163 lu(1457) = lu(1457) - lu(1026) * lu(1447) 5164 lu(1458) = lu(1458) - lu(1027) * lu(1447) 5165 lu(1459) = lu(1459) - lu(1028) * lu(1447) 5166 lu(1474) = lu(1474) - lu(1017) * lu(1473) 5167 lu(1475) = lu(1475) - lu(1018) * lu(1473) 5168 lu(1476) = lu(1476) - lu(1019) * lu(1473) 5169 lu(1477) = lu(1477) - lu(1020) * lu(1473) 5170 lu(1478) = lu(1478) - lu(1021) * lu(1473) 5171 lu(1479) = lu(1479) - lu(1022) * lu(1473) 5172 lu(1480) = lu(1480) - lu(1023) * lu(1473) 5173 lu(1481) = lu(1481) - lu(1024) * lu(1473) 5174 lu(1482) = lu(1482) - lu(1025) * lu(1473) 5175 lu(1483) = lu(1483) - lu(1026) * lu(1473) 5176 lu(1484) = lu(1484) - lu(1027) * lu(1473) 5177 lu(1485) = lu(1485) - lu(1028) * lu(1473) 5178 lu(1498) = lu(1498) - lu(1017) * lu(1497) 5179 lu(1499) = lu(1499) - lu(1018) * lu(1497) 5180 lu(1500) = lu(1500) - lu(1019) * lu(1497) 5181 lu(1501) = lu(1501) - lu(1020) * lu(1497) 5182 lu(1502) = lu(1502) - lu(1021) * lu(1497) 5183 lu(1503) = lu(1503) - lu(1022) * lu(1497) 5184 lu(1504) = lu(1504) - lu(1023) * lu(1497) 5185 lu(1505) = lu(1505) - lu(1024) * lu(1497) 5186 lu(1506) = lu(1506) - lu(1025) * lu(1497) 5187 lu(1507) = lu(1507) - lu(1026) * lu(1497) 5188 lu(1508) = lu(1508) - lu(1027) * lu(1497) 5189 lu(1509) = lu(1509) - lu(1028) * lu(1497) 5190 lu(1044) = 1._r8 / lu(1044) 5191 lu(1045) = lu(1045) * lu(1044) 5192 lu(1046) = lu(1046) * lu(1044) 5193 lu(1047) = lu(1047) * lu(1044) 5194 lu(1048) = lu(1048) * lu(1044) 5195 lu(1049) = lu(1049) * lu(1044) 5196 lu(1050) = lu(1050) * lu(1044) 5197 lu(1051) = lu(1051) * lu(1044) 5198 lu(1052) = lu(1052) * lu(1044) 5199 lu(1053) = lu(1053) * lu(1044) 5200 lu(1054) = lu(1054) * lu(1044) 5201 lu(1055) = lu(1055) * lu(1044) 5202 lu(1114) = lu(1114) - lu(1045) * lu(1113) 5203 lu(1115) = lu(1115) - lu(1046) * lu(1113) 5204 lu(1116) = lu(1116) - lu(1047) * lu(1113) 5205 lu(1117) = lu(1117) - lu(1048) * lu(1113) 5206 lu(1118) = lu(1118) - lu(1049) * lu(1113) 5207 lu(1119) = lu(1119) - lu(1050) * lu(1113) 5208 lu(1120) = lu(1120) - lu(1051) * lu(1113) 5209 lu(1121) = lu(1121) - lu(1052) * lu(1113) 5210 lu(1122) = lu(1122) - lu(1053) * lu(1113) 5211 lu(1123) = lu(1123) - lu(1054) * lu(1113) 5212 lu(1124) = lu(1124) - lu(1055) * lu(1113) 5213 lu(1149) = lu(1149) - lu(1045) * lu(1148) 5214 lu(1150) = lu(1150) - lu(1046) * lu(1148) 5215 lu(1151) = lu(1151) - lu(1047) * lu(1148) 5216 lu(1152) = lu(1152) - lu(1048) * lu(1148) 5217 lu(1153) = lu(1153) - lu(1049) * lu(1148) 5218 lu(1154) = lu(1154) - lu(1050) * lu(1148) 5219 lu(1155) = lu(1155) - lu(1051) * lu(1148) 5220 lu(1156) = lu(1156) - lu(1052) * lu(1148) 5221 lu(1157) = lu(1157) - lu(1053) * lu(1148) 5222 lu(1158) = lu(1158) - lu(1054) * lu(1148) 5223 lu(1159) = lu(1159) - lu(1055) * lu(1148) 5224 lu(1169) = lu(1169) - lu(1045) * lu(1168) 5225 lu(1170) = lu(1170) - lu(1046) * lu(1168) 5226 lu(1171) = lu(1171) - lu(1047) * lu(1168) 5227 lu(1172) = lu(1172) - lu(1048) * lu(1168) 5228 lu(1173) = lu(1173) - lu(1049) * lu(1168) 5229 lu(1174) = lu(1174) - lu(1050) * lu(1168) 5230 lu(1175) = lu(1175) - lu(1051) * lu(1168) 5231 lu(1176) = lu(1176) - lu(1052) * lu(1168) 5232 lu(1177) = lu(1177) - lu(1053) * lu(1168) 5233 lu(1178) = lu(1178) - lu(1054) * lu(1168) 5234 lu(1179) = lu(1179) - lu(1055) * lu(1168) 5235 lu(1193) = lu(1193) - lu(1045) * lu(1192) 5236 lu(1194) = lu(1194) - lu(1046) * lu(1192) 5237 lu(1195) = lu(1195) - lu(1047) * lu(1192) 5238 lu(1196) = lu(1196) - lu(1048) * lu(1192) 5239 lu(1197) = lu(1197) - lu(1049) * lu(1192) 5240 lu(1198) = lu(1198) - lu(1050) * lu(1192) 5241 lu(1199) = lu(1199) - lu(1051) * lu(1192) 5242 lu(1200) = lu(1200) - lu(1052) * lu(1192) 5243 lu(1201) = lu(1201) - lu(1053) * lu(1192) 5244 lu(1202) = lu(1202) - lu(1054) * lu(1192) 5245 lu(1203) = lu(1203) - lu(1055) * lu(1192) 5246 lu(1248) = lu(1248) - lu(1045) * lu(1247) 5247 lu(1249) = lu(1249) - lu(1046) * lu(1247) 5248 lu(1250) = lu(1250) - lu(1047) * lu(1247) 5249 lu(1251) = lu(1251) - lu(1048) * lu(1247) 5250 lu(1252) = lu(1252) - lu(1049) * lu(1247) 5251 lu(1253) = lu(1253) - lu(1050) * lu(1247) 5252 lu(1254) = lu(1254) - lu(1051) * lu(1247) 5253 lu(1255) = lu(1255) - lu(1052) * lu(1247) 5254 lu(1256) = lu(1256) - lu(1053) * lu(1247) 5255 lu(1257) = lu(1257) - lu(1054) * lu(1247) 5256 lu(1258) = lu(1258) - lu(1055) * lu(1247) 5257 lu(1285) = lu(1285) - lu(1045) * lu(1284) 5258 lu(1286) = lu(1286) - lu(1046) * lu(1284) 5259 lu(1287) = lu(1287) - lu(1047) * lu(1284) 5260 lu(1288) = lu(1288) - lu(1048) * lu(1284) 5261 lu(1289) = lu(1289) - lu(1049) * lu(1284) 5262 lu(1290) = lu(1290) - lu(1050) * lu(1284) 5263 lu(1291) = lu(1291) - lu(1051) * lu(1284) 5264 lu(1292) = lu(1292) - lu(1052) * lu(1284) 5265 lu(1293) = lu(1293) - lu(1053) * lu(1284) 5266 lu(1294) = lu(1294) - lu(1054) * lu(1284) 5267 lu(1295) = lu(1295) - lu(1055) * lu(1284) 5268 lu(1383) = lu(1383) - lu(1045) * lu(1382) 5269 lu(1384) = lu(1384) - lu(1046) * lu(1382) 5270 lu(1385) = lu(1385) - lu(1047) * lu(1382) 5271 lu(1386) = lu(1386) - lu(1048) * lu(1382) 5272 lu(1387) = lu(1387) - lu(1049) * lu(1382) 5273 lu(1388) = lu(1388) - lu(1050) * lu(1382) 5274 lu(1389) = lu(1389) - lu(1051) * lu(1382) 5275 lu(1390) = lu(1390) - lu(1052) * lu(1382) 5276 lu(1391) = lu(1391) - lu(1053) * lu(1382) 5277 lu(1392) = lu(1392) - lu(1054) * lu(1382) 5278 lu(1393) = lu(1393) - lu(1055) * lu(1382) 5279 lu(1427) = lu(1427) - lu(1045) * lu(1426) 5280 lu(1428) = lu(1428) - lu(1046) * lu(1426) 5281 lu(1429) = lu(1429) - lu(1047) * lu(1426) 5282 lu(1430) = lu(1430) - lu(1048) * lu(1426) 5283 lu(1431) = lu(1431) - lu(1049) * lu(1426) 5284 lu(1432) = lu(1432) - lu(1050) * lu(1426) 5285 lu(1433) = lu(1433) - lu(1051) * lu(1426) 5286 lu(1434) = lu(1434) - lu(1052) * lu(1426) 5287 lu(1435) = lu(1435) - lu(1053) * lu(1426) 5288 lu(1436) = lu(1436) - lu(1054) * lu(1426) 5289 lu(1437) = lu(1437) - lu(1055) * lu(1426) 5290 lu(1449) = lu(1449) - lu(1045) * lu(1448) 5291 lu(1450) = lu(1450) - lu(1046) * lu(1448) 5292 lu(1451) = lu(1451) - lu(1047) * lu(1448) 5293 lu(1452) = lu(1452) - lu(1048) * lu(1448) 5294 lu(1453) = lu(1453) - lu(1049) * lu(1448) 5295 lu(1454) = lu(1454) - lu(1050) * lu(1448) 5296 lu(1455) = lu(1455) - lu(1051) * lu(1448) 5297 lu(1456) = lu(1456) - lu(1052) * lu(1448) 5298 lu(1457) = lu(1457) - lu(1053) * lu(1448) 5299 lu(1458) = lu(1458) - lu(1054) * lu(1448) 5300 lu(1459) = lu(1459) - lu(1055) * lu(1448) 5301 lu(1475) = lu(1475) - lu(1045) * lu(1474) 5302 lu(1476) = lu(1476) - lu(1046) * lu(1474) 5303 lu(1477) = lu(1477) - lu(1047) * lu(1474) 5304 lu(1478) = lu(1478) - lu(1048) * lu(1474) 5305 lu(1479) = lu(1479) - lu(1049) * lu(1474) 5306 lu(1480) = lu(1480) - lu(1050) * lu(1474) 5307 lu(1481) = lu(1481) - lu(1051) * lu(1474) 5308 lu(1482) = lu(1482) - lu(1052) * lu(1474) 5309 lu(1483) = lu(1483) - lu(1053) * lu(1474) 5310 lu(1484) = lu(1484) - lu(1054) * lu(1474) 5311 lu(1485) = lu(1485) - lu(1055) * lu(1474) 5312 lu(1499) = lu(1499) - lu(1045) * lu(1498) 5313 lu(1500) = lu(1500) - lu(1046) * lu(1498) 5314 lu(1501) = lu(1501) - lu(1047) * lu(1498) 5315 lu(1502) = lu(1502) - lu(1048) * lu(1498) 5316 lu(1503) = lu(1503) - lu(1049) * lu(1498) 5317 lu(1504) = lu(1504) - lu(1050) * lu(1498) 5318 lu(1505) = lu(1505) - lu(1051) * lu(1498) 5319 lu(1506) = lu(1506) - lu(1052) * lu(1498) 5320 lu(1507) = lu(1507) - lu(1053) * lu(1498) 5321 lu(1508) = lu(1508) - lu(1054) * lu(1498) 5322 lu(1509) = lu(1509) - lu(1055) * lu(1498) 5323 END SUBROUTINE lu_fac19 5324 5325 SUBROUTINE lu_fac20(lu) 5326 USE shr_kind_mod, ONLY: r8 => shr_kind_r8 5327 IMPLICIT NONE 5328 !----------------------------------------------------------------------- 5329 ! ... dummy args 5330 !----------------------------------------------------------------------- 5331 REAL(KIND=r8), intent(inout) :: lu(:) 5332 lu(1114) = 1._r8 / lu(1114) 5333 lu(1115) = lu(1115) * lu(1114) 5334 lu(1116) = lu(1116) * lu(1114) 5335 lu(1117) = lu(1117) * lu(1114) 5336 lu(1118) = lu(1118) * lu(1114) 5337 lu(1119) = lu(1119) * lu(1114) 5338 lu(1120) = lu(1120) * lu(1114) 5339 lu(1121) = lu(1121) * lu(1114) 5340 lu(1122) = lu(1122) * lu(1114) 5341 lu(1123) = lu(1123) * lu(1114) 5342 lu(1124) = lu(1124) * lu(1114) 5343 lu(1150) = lu(1150) - lu(1115) * lu(1149) 5344 lu(1151) = lu(1151) - lu(1116) * lu(1149) 5345 lu(1152) = lu(1152) - lu(1117) * lu(1149) 5346 lu(1153) = lu(1153) - lu(1118) * lu(1149) 5347 lu(1154) = lu(1154) - lu(1119) * lu(1149) 5348 lu(1155) = lu(1155) - lu(1120) * lu(1149) 5349 lu(1156) = lu(1156) - lu(1121) * lu(1149) 5350 lu(1157) = lu(1157) - lu(1122) * lu(1149) 5351 lu(1158) = lu(1158) - lu(1123) * lu(1149) 5352 lu(1159) = lu(1159) - lu(1124) * lu(1149) 5353 lu(1170) = lu(1170) - lu(1115) * lu(1169) 5354 lu(1171) = lu(1171) - lu(1116) * lu(1169) 5355 lu(1172) = lu(1172) - lu(1117) * lu(1169) 5356 lu(1173) = lu(1173) - lu(1118) * lu(1169) 5357 lu(1174) = lu(1174) - lu(1119) * lu(1169) 5358 lu(1175) = lu(1175) - lu(1120) * lu(1169) 5359 lu(1176) = lu(1176) - lu(1121) * lu(1169) 5360 lu(1177) = lu(1177) - lu(1122) * lu(1169) 5361 lu(1178) = lu(1178) - lu(1123) * lu(1169) 5362 lu(1179) = lu(1179) - lu(1124) * lu(1169) 5363 lu(1194) = lu(1194) - lu(1115) * lu(1193) 5364 lu(1195) = lu(1195) - lu(1116) * lu(1193) 5365 lu(1196) = lu(1196) - lu(1117) * lu(1193) 5366 lu(1197) = lu(1197) - lu(1118) * lu(1193) 5367 lu(1198) = lu(1198) - lu(1119) * lu(1193) 5368 lu(1199) = lu(1199) - lu(1120) * lu(1193) 5369 lu(1200) = lu(1200) - lu(1121) * lu(1193) 5370 lu(1201) = lu(1201) - lu(1122) * lu(1193) 5371 lu(1202) = lu(1202) - lu(1123) * lu(1193) 5372 lu(1203) = lu(1203) - lu(1124) * lu(1193) 5373 lu(1249) = lu(1249) - lu(1115) * lu(1248) 5374 lu(1250) = lu(1250) - lu(1116) * lu(1248) 5375 lu(1251) = lu(1251) - lu(1117) * lu(1248) 5376 lu(1252) = lu(1252) - lu(1118) * lu(1248) 5377 lu(1253) = lu(1253) - lu(1119) * lu(1248) 5378 lu(1254) = lu(1254) - lu(1120) * lu(1248) 5379 lu(1255) = lu(1255) - lu(1121) * lu(1248) 5380 lu(1256) = lu(1256) - lu(1122) * lu(1248) 5381 lu(1257) = lu(1257) - lu(1123) * lu(1248) 5382 lu(1258) = lu(1258) - lu(1124) * lu(1248) 5383 lu(1286) = lu(1286) - lu(1115) * lu(1285) 5384 lu(1287) = lu(1287) - lu(1116) * lu(1285) 5385 lu(1288) = lu(1288) - lu(1117) * lu(1285) 5386 lu(1289) = lu(1289) - lu(1118) * lu(1285) 5387 lu(1290) = lu(1290) - lu(1119) * lu(1285) 5388 lu(1291) = lu(1291) - lu(1120) * lu(1285) 5389 lu(1292) = lu(1292) - lu(1121) * lu(1285) 5390 lu(1293) = lu(1293) - lu(1122) * lu(1285) 5391 lu(1294) = lu(1294) - lu(1123) * lu(1285) 5392 lu(1295) = lu(1295) - lu(1124) * lu(1285) 5393 lu(1384) = lu(1384) - lu(1115) * lu(1383) 5394 lu(1385) = lu(1385) - lu(1116) * lu(1383) 5395 lu(1386) = lu(1386) - lu(1117) * lu(1383) 5396 lu(1387) = lu(1387) - lu(1118) * lu(1383) 5397 lu(1388) = lu(1388) - lu(1119) * lu(1383) 5398 lu(1389) = lu(1389) - lu(1120) * lu(1383) 5399 lu(1390) = lu(1390) - lu(1121) * lu(1383) 5400 lu(1391) = lu(1391) - lu(1122) * lu(1383) 5401 lu(1392) = lu(1392) - lu(1123) * lu(1383) 5402 lu(1393) = lu(1393) - lu(1124) * lu(1383) 5403 lu(1428) = lu(1428) - lu(1115) * lu(1427) 5404 lu(1429) = lu(1429) - lu(1116) * lu(1427) 5405 lu(1430) = lu(1430) - lu(1117) * lu(1427) 5406 lu(1431) = lu(1431) - lu(1118) * lu(1427) 5407 lu(1432) = lu(1432) - lu(1119) * lu(1427) 5408 lu(1433) = lu(1433) - lu(1120) * lu(1427) 5409 lu(1434) = lu(1434) - lu(1121) * lu(1427) 5410 lu(1435) = lu(1435) - lu(1122) * lu(1427) 5411 lu(1436) = lu(1436) - lu(1123) * lu(1427) 5412 lu(1437) = lu(1437) - lu(1124) * lu(1427) 5413 lu(1450) = lu(1450) - lu(1115) * lu(1449) 5414 lu(1451) = lu(1451) - lu(1116) * lu(1449) 5415 lu(1452) = lu(1452) - lu(1117) * lu(1449) 5416 lu(1453) = lu(1453) - lu(1118) * lu(1449) 5417 lu(1454) = lu(1454) - lu(1119) * lu(1449) 5418 lu(1455) = lu(1455) - lu(1120) * lu(1449) 5419 lu(1456) = lu(1456) - lu(1121) * lu(1449) 5420 lu(1457) = lu(1457) - lu(1122) * lu(1449) 5421 lu(1458) = lu(1458) - lu(1123) * lu(1449) 5422 lu(1459) = lu(1459) - lu(1124) * lu(1449) 5423 lu(1476) = lu(1476) - lu(1115) * lu(1475) 5424 lu(1477) = lu(1477) - lu(1116) * lu(1475) 5425 lu(1478) = lu(1478) - lu(1117) * lu(1475) 5426 lu(1479) = lu(1479) - lu(1118) * lu(1475) 5427 lu(1480) = lu(1480) - lu(1119) * lu(1475) 5428 lu(1481) = lu(1481) - lu(1120) * lu(1475) 5429 lu(1482) = lu(1482) - lu(1121) * lu(1475) 5430 lu(1483) = lu(1483) - lu(1122) * lu(1475) 5431 lu(1484) = lu(1484) - lu(1123) * lu(1475) 5432 lu(1485) = lu(1485) - lu(1124) * lu(1475) 5433 lu(1500) = lu(1500) - lu(1115) * lu(1499) 5434 lu(1501) = lu(1501) - lu(1116) * lu(1499) 5435 lu(1502) = lu(1502) - lu(1117) * lu(1499) 5436 lu(1503) = lu(1503) - lu(1118) * lu(1499) 5437 lu(1504) = lu(1504) - lu(1119) * lu(1499) 5438 lu(1505) = lu(1505) - lu(1120) * lu(1499) 5439 lu(1506) = lu(1506) - lu(1121) * lu(1499) 5440 lu(1507) = lu(1507) - lu(1122) * lu(1499) 5441 lu(1508) = lu(1508) - lu(1123) * lu(1499) 5442 lu(1509) = lu(1509) - lu(1124) * lu(1499) 5443 lu(1150) = 1._r8 / lu(1150) 5444 lu(1151) = lu(1151) * lu(1150) 5445 lu(1152) = lu(1152) * lu(1150) 5446 lu(1153) = lu(1153) * lu(1150) 5447 lu(1154) = lu(1154) * lu(1150) 5448 lu(1155) = lu(1155) * lu(1150) 5449 lu(1156) = lu(1156) * lu(1150) 5450 lu(1157) = lu(1157) * lu(1150) 5451 lu(1158) = lu(1158) * lu(1150) 5452 lu(1159) = lu(1159) * lu(1150) 5453 lu(1171) = lu(1171) - lu(1151) * lu(1170) 5454 lu(1172) = lu(1172) - lu(1152) * lu(1170) 5455 lu(1173) = lu(1173) - lu(1153) * lu(1170) 5456 lu(1174) = lu(1174) - lu(1154) * lu(1170) 5457 lu(1175) = lu(1175) - lu(1155) * lu(1170) 5458 lu(1176) = lu(1176) - lu(1156) * lu(1170) 5459 lu(1177) = lu(1177) - lu(1157) * lu(1170) 5460 lu(1178) = lu(1178) - lu(1158) * lu(1170) 5461 lu(1179) = lu(1179) - lu(1159) * lu(1170) 5462 lu(1195) = lu(1195) - lu(1151) * lu(1194) 5463 lu(1196) = lu(1196) - lu(1152) * lu(1194) 5464 lu(1197) = lu(1197) - lu(1153) * lu(1194) 5465 lu(1198) = lu(1198) - lu(1154) * lu(1194) 5466 lu(1199) = lu(1199) - lu(1155) * lu(1194) 5467 lu(1200) = lu(1200) - lu(1156) * lu(1194) 5468 lu(1201) = lu(1201) - lu(1157) * lu(1194) 5469 lu(1202) = lu(1202) - lu(1158) * lu(1194) 5470 lu(1203) = lu(1203) - lu(1159) * lu(1194) 5471 lu(1250) = lu(1250) - lu(1151) * lu(1249) 5472 lu(1251) = lu(1251) - lu(1152) * lu(1249) 5473 lu(1252) = lu(1252) - lu(1153) * lu(1249) 5474 lu(1253) = lu(1253) - lu(1154) * lu(1249) 5475 lu(1254) = lu(1254) - lu(1155) * lu(1249) 5476 lu(1255) = lu(1255) - lu(1156) * lu(1249) 5477 lu(1256) = lu(1256) - lu(1157) * lu(1249) 5478 lu(1257) = lu(1257) - lu(1158) * lu(1249) 5479 lu(1258) = lu(1258) - lu(1159) * lu(1249) 5480 lu(1287) = lu(1287) - lu(1151) * lu(1286) 5481 lu(1288) = lu(1288) - lu(1152) * lu(1286) 5482 lu(1289) = lu(1289) - lu(1153) * lu(1286) 5483 lu(1290) = lu(1290) - lu(1154) * lu(1286) 5484 lu(1291) = lu(1291) - lu(1155) * lu(1286) 5485 lu(1292) = lu(1292) - lu(1156) * lu(1286) 5486 lu(1293) = lu(1293) - lu(1157) * lu(1286) 5487 lu(1294) = lu(1294) - lu(1158) * lu(1286) 5488 lu(1295) = lu(1295) - lu(1159) * lu(1286) 5489 lu(1385) = lu(1385) - lu(1151) * lu(1384) 5490 lu(1386) = lu(1386) - lu(1152) * lu(1384) 5491 lu(1387) = lu(1387) - lu(1153) * lu(1384) 5492 lu(1388) = lu(1388) - lu(1154) * lu(1384) 5493 lu(1389) = lu(1389) - lu(1155) * lu(1384) 5494 lu(1390) = lu(1390) - lu(1156) * lu(1384) 5495 lu(1391) = lu(1391) - lu(1157) * lu(1384) 5496 lu(1392) = lu(1392) - lu(1158) * lu(1384) 5497 lu(1393) = lu(1393) - lu(1159) * lu(1384) 5498 lu(1429) = lu(1429) - lu(1151) * lu(1428) 5499 lu(1430) = lu(1430) - lu(1152) * lu(1428) 5500 lu(1431) = lu(1431) - lu(1153) * lu(1428) 5501 lu(1432) = lu(1432) - lu(1154) * lu(1428) 5502 lu(1433) = lu(1433) - lu(1155) * lu(1428) 5503 lu(1434) = lu(1434) - lu(1156) * lu(1428) 5504 lu(1435) = lu(1435) - lu(1157) * lu(1428) 5505 lu(1436) = lu(1436) - lu(1158) * lu(1428) 5506 lu(1437) = lu(1437) - lu(1159) * lu(1428) 5507 lu(1451) = lu(1451) - lu(1151) * lu(1450) 5508 lu(1452) = lu(1452) - lu(1152) * lu(1450) 5509 lu(1453) = lu(1453) - lu(1153) * lu(1450) 5510 lu(1454) = lu(1454) - lu(1154) * lu(1450) 5511 lu(1455) = lu(1455) - lu(1155) * lu(1450) 5512 lu(1456) = lu(1456) - lu(1156) * lu(1450) 5513 lu(1457) = lu(1457) - lu(1157) * lu(1450) 5514 lu(1458) = lu(1458) - lu(1158) * lu(1450) 5515 lu(1459) = lu(1459) - lu(1159) * lu(1450) 5516 lu(1477) = lu(1477) - lu(1151) * lu(1476) 5517 lu(1478) = lu(1478) - lu(1152) * lu(1476) 5518 lu(1479) = lu(1479) - lu(1153) * lu(1476) 5519 lu(1480) = lu(1480) - lu(1154) * lu(1476) 5520 lu(1481) = lu(1481) - lu(1155) * lu(1476) 5521 lu(1482) = lu(1482) - lu(1156) * lu(1476) 5522 lu(1483) = lu(1483) - lu(1157) * lu(1476) 5523 lu(1484) = lu(1484) - lu(1158) * lu(1476) 5524 lu(1485) = lu(1485) - lu(1159) * lu(1476) 5525 lu(1501) = lu(1501) - lu(1151) * lu(1500) 5526 lu(1502) = lu(1502) - lu(1152) * lu(1500) 5527 lu(1503) = lu(1503) - lu(1153) * lu(1500) 5528 lu(1504) = lu(1504) - lu(1154) * lu(1500) 5529 lu(1505) = lu(1505) - lu(1155) * lu(1500) 5530 lu(1506) = lu(1506) - lu(1156) * lu(1500) 5531 lu(1507) = lu(1507) - lu(1157) * lu(1500) 5532 lu(1508) = lu(1508) - lu(1158) * lu(1500) 5533 lu(1509) = lu(1509) - lu(1159) * lu(1500) 5534 lu(1171) = 1._r8 / lu(1171) 5535 lu(1172) = lu(1172) * lu(1171) 5536 lu(1173) = lu(1173) * lu(1171) 5537 lu(1174) = lu(1174) * lu(1171) 5538 lu(1175) = lu(1175) * lu(1171) 5539 lu(1176) = lu(1176) * lu(1171) 5540 lu(1177) = lu(1177) * lu(1171) 5541 lu(1178) = lu(1178) * lu(1171) 5542 lu(1179) = lu(1179) * lu(1171) 5543 lu(1196) = lu(1196) - lu(1172) * lu(1195) 5544 lu(1197) = lu(1197) - lu(1173) * lu(1195) 5545 lu(1198) = lu(1198) - lu(1174) * lu(1195) 5546 lu(1199) = lu(1199) - lu(1175) * lu(1195) 5547 lu(1200) = lu(1200) - lu(1176) * lu(1195) 5548 lu(1201) = lu(1201) - lu(1177) * lu(1195) 5549 lu(1202) = lu(1202) - lu(1178) * lu(1195) 5550 lu(1203) = lu(1203) - lu(1179) * lu(1195) 5551 lu(1251) = lu(1251) - lu(1172) * lu(1250) 5552 lu(1252) = lu(1252) - lu(1173) * lu(1250) 5553 lu(1253) = lu(1253) - lu(1174) * lu(1250) 5554 lu(1254) = lu(1254) - lu(1175) * lu(1250) 5555 lu(1255) = lu(1255) - lu(1176) * lu(1250) 5556 lu(1256) = lu(1256) - lu(1177) * lu(1250) 5557 lu(1257) = lu(1257) - lu(1178) * lu(1250) 5558 lu(1258) = lu(1258) - lu(1179) * lu(1250) 5559 lu(1288) = lu(1288) - lu(1172) * lu(1287) 5560 lu(1289) = lu(1289) - lu(1173) * lu(1287) 5561 lu(1290) = lu(1290) - lu(1174) * lu(1287) 5562 lu(1291) = lu(1291) - lu(1175) * lu(1287) 5563 lu(1292) = lu(1292) - lu(1176) * lu(1287) 5564 lu(1293) = lu(1293) - lu(1177) * lu(1287) 5565 lu(1294) = lu(1294) - lu(1178) * lu(1287) 5566 lu(1295) = lu(1295) - lu(1179) * lu(1287) 5567 lu(1386) = lu(1386) - lu(1172) * lu(1385) 5568 lu(1387) = lu(1387) - lu(1173) * lu(1385) 5569 lu(1388) = lu(1388) - lu(1174) * lu(1385) 5570 lu(1389) = lu(1389) - lu(1175) * lu(1385) 5571 lu(1390) = lu(1390) - lu(1176) * lu(1385) 5572 lu(1391) = lu(1391) - lu(1177) * lu(1385) 5573 lu(1392) = lu(1392) - lu(1178) * lu(1385) 5574 lu(1393) = lu(1393) - lu(1179) * lu(1385) 5575 lu(1430) = lu(1430) - lu(1172) * lu(1429) 5576 lu(1431) = lu(1431) - lu(1173) * lu(1429) 5577 lu(1432) = lu(1432) - lu(1174) * lu(1429) 5578 lu(1433) = lu(1433) - lu(1175) * lu(1429) 5579 lu(1434) = lu(1434) - lu(1176) * lu(1429) 5580 lu(1435) = lu(1435) - lu(1177) * lu(1429) 5581 lu(1436) = lu(1436) - lu(1178) * lu(1429) 5582 lu(1437) = lu(1437) - lu(1179) * lu(1429) 5583 lu(1452) = lu(1452) - lu(1172) * lu(1451) 5584 lu(1453) = lu(1453) - lu(1173) * lu(1451) 5585 lu(1454) = lu(1454) - lu(1174) * lu(1451) 5586 lu(1455) = lu(1455) - lu(1175) * lu(1451) 5587 lu(1456) = lu(1456) - lu(1176) * lu(1451) 5588 lu(1457) = lu(1457) - lu(1177) * lu(1451) 5589 lu(1458) = lu(1458) - lu(1178) * lu(1451) 5590 lu(1459) = lu(1459) - lu(1179) * lu(1451) 5591 lu(1478) = lu(1478) - lu(1172) * lu(1477) 5592 lu(1479) = lu(1479) - lu(1173) * lu(1477) 5593 lu(1480) = lu(1480) - lu(1174) * lu(1477) 5594 lu(1481) = lu(1481) - lu(1175) * lu(1477) 5595 lu(1482) = lu(1482) - lu(1176) * lu(1477) 5596 lu(1483) = lu(1483) - lu(1177) * lu(1477) 5597 lu(1484) = lu(1484) - lu(1178) * lu(1477) 5598 lu(1485) = lu(1485) - lu(1179) * lu(1477) 5599 lu(1502) = lu(1502) - lu(1172) * lu(1501) 5600 lu(1503) = lu(1503) - lu(1173) * lu(1501) 5601 lu(1504) = lu(1504) - lu(1174) * lu(1501) 5602 lu(1505) = lu(1505) - lu(1175) * lu(1501) 5603 lu(1506) = lu(1506) - lu(1176) * lu(1501) 5604 lu(1507) = lu(1507) - lu(1177) * lu(1501) 5605 lu(1508) = lu(1508) - lu(1178) * lu(1501) 5606 lu(1509) = lu(1509) - lu(1179) * lu(1501) 5607 lu(1196) = 1._r8 / lu(1196) 5608 lu(1197) = lu(1197) * lu(1196) 5609 lu(1198) = lu(1198) * lu(1196) 5610 lu(1199) = lu(1199) * lu(1196) 5611 lu(1200) = lu(1200) * lu(1196) 5612 lu(1201) = lu(1201) * lu(1196) 5613 lu(1202) = lu(1202) * lu(1196) 5614 lu(1203) = lu(1203) * lu(1196) 5615 lu(1252) = lu(1252) - lu(1197) * lu(1251) 5616 lu(1253) = lu(1253) - lu(1198) * lu(1251) 5617 lu(1254) = lu(1254) - lu(1199) * lu(1251) 5618 lu(1255) = lu(1255) - lu(1200) * lu(1251) 5619 lu(1256) = lu(1256) - lu(1201) * lu(1251) 5620 lu(1257) = lu(1257) - lu(1202) * lu(1251) 5621 lu(1258) = lu(1258) - lu(1203) * lu(1251) 5622 lu(1289) = lu(1289) - lu(1197) * lu(1288) 5623 lu(1290) = lu(1290) - lu(1198) * lu(1288) 5624 lu(1291) = lu(1291) - lu(1199) * lu(1288) 5625 lu(1292) = lu(1292) - lu(1200) * lu(1288) 5626 lu(1293) = lu(1293) - lu(1201) * lu(1288) 5627 lu(1294) = lu(1294) - lu(1202) * lu(1288) 5628 lu(1295) = lu(1295) - lu(1203) * lu(1288) 5629 lu(1387) = lu(1387) - lu(1197) * lu(1386) 5630 lu(1388) = lu(1388) - lu(1198) * lu(1386) 5631 lu(1389) = lu(1389) - lu(1199) * lu(1386) 5632 lu(1390) = lu(1390) - lu(1200) * lu(1386) 5633 lu(1391) = lu(1391) - lu(1201) * lu(1386) 5634 lu(1392) = lu(1392) - lu(1202) * lu(1386) 5635 lu(1393) = lu(1393) - lu(1203) * lu(1386) 5636 lu(1431) = lu(1431) - lu(1197) * lu(1430) 5637 lu(1432) = lu(1432) - lu(1198) * lu(1430) 5638 lu(1433) = lu(1433) - lu(1199) * lu(1430) 5639 lu(1434) = lu(1434) - lu(1200) * lu(1430) 5640 lu(1435) = lu(1435) - lu(1201) * lu(1430) 5641 lu(1436) = lu(1436) - lu(1202) * lu(1430) 5642 lu(1437) = lu(1437) - lu(1203) * lu(1430) 5643 lu(1453) = lu(1453) - lu(1197) * lu(1452) 5644 lu(1454) = lu(1454) - lu(1198) * lu(1452) 5645 lu(1455) = lu(1455) - lu(1199) * lu(1452) 5646 lu(1456) = lu(1456) - lu(1200) * lu(1452) 5647 lu(1457) = lu(1457) - lu(1201) * lu(1452) 5648 lu(1458) = lu(1458) - lu(1202) * lu(1452) 5649 lu(1459) = lu(1459) - lu(1203) * lu(1452) 5650 lu(1479) = lu(1479) - lu(1197) * lu(1478) 5651 lu(1480) = lu(1480) - lu(1198) * lu(1478) 5652 lu(1481) = lu(1481) - lu(1199) * lu(1478) 5653 lu(1482) = lu(1482) - lu(1200) * lu(1478) 5654 lu(1483) = lu(1483) - lu(1201) * lu(1478) 5655 lu(1484) = lu(1484) - lu(1202) * lu(1478) 5656 lu(1485) = lu(1485) - lu(1203) * lu(1478) 5657 lu(1503) = lu(1503) - lu(1197) * lu(1502) 5658 lu(1504) = lu(1504) - lu(1198) * lu(1502) 5659 lu(1505) = lu(1505) - lu(1199) * lu(1502) 5660 lu(1506) = lu(1506) - lu(1200) * lu(1502) 5661 lu(1507) = lu(1507) - lu(1201) * lu(1502) 5662 lu(1508) = lu(1508) - lu(1202) * lu(1502) 5663 lu(1509) = lu(1509) - lu(1203) * lu(1502) 5664 lu(1252) = 1._r8 / lu(1252) 5665 lu(1253) = lu(1253) * lu(1252) 5666 lu(1254) = lu(1254) * lu(1252) 5667 lu(1255) = lu(1255) * lu(1252) 5668 lu(1256) = lu(1256) * lu(1252) 5669 lu(1257) = lu(1257) * lu(1252) 5670 lu(1258) = lu(1258) * lu(1252) 5671 lu(1290) = lu(1290) - lu(1253) * lu(1289) 5672 lu(1291) = lu(1291) - lu(1254) * lu(1289) 5673 lu(1292) = lu(1292) - lu(1255) * lu(1289) 5674 lu(1293) = lu(1293) - lu(1256) * lu(1289) 5675 lu(1294) = lu(1294) - lu(1257) * lu(1289) 5676 lu(1295) = lu(1295) - lu(1258) * lu(1289) 5677 lu(1388) = lu(1388) - lu(1253) * lu(1387) 5678 lu(1389) = lu(1389) - lu(1254) * lu(1387) 5679 lu(1390) = lu(1390) - lu(1255) * lu(1387) 5680 lu(1391) = lu(1391) - lu(1256) * lu(1387) 5681 lu(1392) = lu(1392) - lu(1257) * lu(1387) 5682 lu(1393) = lu(1393) - lu(1258) * lu(1387) 5683 lu(1432) = lu(1432) - lu(1253) * lu(1431) 5684 lu(1433) = lu(1433) - lu(1254) * lu(1431) 5685 lu(1434) = lu(1434) - lu(1255) * lu(1431) 5686 lu(1435) = lu(1435) - lu(1256) * lu(1431) 5687 lu(1436) = lu(1436) - lu(1257) * lu(1431) 5688 lu(1437) = lu(1437) - lu(1258) * lu(1431) 5689 lu(1454) = lu(1454) - lu(1253) * lu(1453) 5690 lu(1455) = lu(1455) - lu(1254) * lu(1453) 5691 lu(1456) = lu(1456) - lu(1255) * lu(1453) 5692 lu(1457) = lu(1457) - lu(1256) * lu(1453) 5693 lu(1458) = lu(1458) - lu(1257) * lu(1453) 5694 lu(1459) = lu(1459) - lu(1258) * lu(1453) 5695 lu(1480) = lu(1480) - lu(1253) * lu(1479) 5696 lu(1481) = lu(1481) - lu(1254) * lu(1479) 5697 lu(1482) = lu(1482) - lu(1255) * lu(1479) 5698 lu(1483) = lu(1483) - lu(1256) * lu(1479) 5699 lu(1484) = lu(1484) - lu(1257) * lu(1479) 5700 lu(1485) = lu(1485) - lu(1258) * lu(1479) 5701 lu(1504) = lu(1504) - lu(1253) * lu(1503) 5702 lu(1505) = lu(1505) - lu(1254) * lu(1503) 5703 lu(1506) = lu(1506) - lu(1255) * lu(1503) 5704 lu(1507) = lu(1507) - lu(1256) * lu(1503) 5705 lu(1508) = lu(1508) - lu(1257) * lu(1503) 5706 lu(1509) = lu(1509) - lu(1258) * lu(1503) 5707 lu(1290) = 1._r8 / lu(1290) 5708 lu(1291) = lu(1291) * lu(1290) 5709 lu(1292) = lu(1292) * lu(1290) 5710 lu(1293) = lu(1293) * lu(1290) 5711 lu(1294) = lu(1294) * lu(1290) 5712 lu(1295) = lu(1295) * lu(1290) 5713 lu(1389) = lu(1389) - lu(1291) * lu(1388) 5714 lu(1390) = lu(1390) - lu(1292) * lu(1388) 5715 lu(1391) = lu(1391) - lu(1293) * lu(1388) 5716 lu(1392) = lu(1392) - lu(1294) * lu(1388) 5717 lu(1393) = lu(1393) - lu(1295) * lu(1388) 5718 lu(1433) = lu(1433) - lu(1291) * lu(1432) 5719 lu(1434) = lu(1434) - lu(1292) * lu(1432) 5720 lu(1435) = lu(1435) - lu(1293) * lu(1432) 5721 lu(1436) = lu(1436) - lu(1294) * lu(1432) 5722 lu(1437) = lu(1437) - lu(1295) * lu(1432) 5723 lu(1455) = lu(1455) - lu(1291) * lu(1454) 5724 lu(1456) = lu(1456) - lu(1292) * lu(1454) 5725 lu(1457) = lu(1457) - lu(1293) * lu(1454) 5726 lu(1458) = lu(1458) - lu(1294) * lu(1454) 5727 lu(1459) = lu(1459) - lu(1295) * lu(1454) 5728 lu(1481) = lu(1481) - lu(1291) * lu(1480) 5729 lu(1482) = lu(1482) - lu(1292) * lu(1480) 5730 lu(1483) = lu(1483) - lu(1293) * lu(1480) 5731 lu(1484) = lu(1484) - lu(1294) * lu(1480) 5732 lu(1485) = lu(1485) - lu(1295) * lu(1480) 5733 lu(1505) = lu(1505) - lu(1291) * lu(1504) 5734 lu(1506) = lu(1506) - lu(1292) * lu(1504) 5735 lu(1507) = lu(1507) - lu(1293) * lu(1504) 5736 lu(1508) = lu(1508) - lu(1294) * lu(1504) 5737 lu(1509) = lu(1509) - lu(1295) * lu(1504) 5738 END SUBROUTINE lu_fac20 5739 5740 SUBROUTINE lu_fac21(lu) 5741 USE shr_kind_mod, ONLY: r8 => shr_kind_r8 5742 IMPLICIT NONE 5743 !----------------------------------------------------------------------- 5744 ! ... dummy args 5745 !----------------------------------------------------------------------- 5746 REAL(KIND=r8), intent(inout) :: lu(:) 5747 lu(1389) = 1._r8 / lu(1389) 5748 lu(1390) = lu(1390) * lu(1389) 5749 lu(1391) = lu(1391) * lu(1389) 5750 lu(1392) = lu(1392) * lu(1389) 5751 lu(1393) = lu(1393) * lu(1389) 5752 lu(1434) = lu(1434) - lu(1390) * lu(1433) 5753 lu(1435) = lu(1435) - lu(1391) * lu(1433) 5754 lu(1436) = lu(1436) - lu(1392) * lu(1433) 5755 lu(1437) = lu(1437) - lu(1393) * lu(1433) 5756 lu(1456) = lu(1456) - lu(1390) * lu(1455) 5757 lu(1457) = lu(1457) - lu(1391) * lu(1455) 5758 lu(1458) = lu(1458) - lu(1392) * lu(1455) 5759 lu(1459) = lu(1459) - lu(1393) * lu(1455) 5760 lu(1482) = lu(1482) - lu(1390) * lu(1481) 5761 lu(1483) = lu(1483) - lu(1391) * lu(1481) 5762 lu(1484) = lu(1484) - lu(1392) * lu(1481) 5763 lu(1485) = lu(1485) - lu(1393) * lu(1481) 5764 lu(1506) = lu(1506) - lu(1390) * lu(1505) 5765 lu(1507) = lu(1507) - lu(1391) * lu(1505) 5766 lu(1508) = lu(1508) - lu(1392) * lu(1505) 5767 lu(1509) = lu(1509) - lu(1393) * lu(1505) 5768 lu(1434) = 1._r8 / lu(1434) 5769 lu(1435) = lu(1435) * lu(1434) 5770 lu(1436) = lu(1436) * lu(1434) 5771 lu(1437) = lu(1437) * lu(1434) 5772 lu(1457) = lu(1457) - lu(1435) * lu(1456) 5773 lu(1458) = lu(1458) - lu(1436) * lu(1456) 5774 lu(1459) = lu(1459) - lu(1437) * lu(1456) 5775 lu(1483) = lu(1483) - lu(1435) * lu(1482) 5776 lu(1484) = lu(1484) - lu(1436) * lu(1482) 5777 lu(1485) = lu(1485) - lu(1437) * lu(1482) 5778 lu(1507) = lu(1507) - lu(1435) * lu(1506) 5779 lu(1508) = lu(1508) - lu(1436) * lu(1506) 5780 lu(1509) = lu(1509) - lu(1437) * lu(1506) 5781 lu(1457) = 1._r8 / lu(1457) 5782 lu(1458) = lu(1458) * lu(1457) 5783 lu(1459) = lu(1459) * lu(1457) 5784 lu(1484) = lu(1484) - lu(1458) * lu(1483) 5785 lu(1485) = lu(1485) - lu(1459) * lu(1483) 5786 lu(1508) = lu(1508) - lu(1458) * lu(1507) 5787 lu(1509) = lu(1509) - lu(1459) * lu(1507) 5788 lu(1484) = 1._r8 / lu(1484) 5789 lu(1485) = lu(1485) * lu(1484) 5790 lu(1509) = lu(1509) - lu(1485) * lu(1508) 5791 lu(1509) = 1._r8 / lu(1509) 5792 END SUBROUTINE lu_fac21 5793 5794 SUBROUTINE lu_fac(lu) 5795 USE shr_kind_mod, ONLY: r8 => shr_kind_r8 5796 IMPLICIT NONE 5797 !----------------------------------------------------------------------- 5798 ! ... dummy args 5799 !----------------------------------------------------------------------- 5800 REAL(KIND=r8), intent(inout) :: lu(:) 5801 CALL lu_fac01(lu) 5802 CALL lu_fac02(lu) 5803 CALL lu_fac03(lu) 5804 CALL lu_fac04(lu) 5805 CALL lu_fac05(lu) 5806 CALL lu_fac06(lu) 5807 CALL lu_fac07(lu) 5808 CALL lu_fac08(lu) 5809 CALL lu_fac09(lu) 5810 CALL lu_fac10(lu) 5811 CALL lu_fac11(lu) 5812 CALL lu_fac12(lu) 5813 CALL lu_fac13(lu) 5814 CALL lu_fac14(lu) 5815 CALL lu_fac15(lu) 5816 CALL lu_fac16(lu) 5817 CALL lu_fac17(lu) 5818 CALL lu_fac18(lu) 5819 CALL lu_fac19(lu) 5820 CALL lu_fac20(lu) 5821 CALL lu_fac21(lu) 5822 END SUBROUTINE lu_fac 5823 END MODULE mo_lu_factor 5824