├── .gitignore ├── INPUT_FILES ├── STOLKEN.inp ├── STOLKEN_CLA.inp ├── STOLKEN_KIN.inp ├── TEST_INDENT_UEL.inp ├── TEST_INDENT_UMAT.inp ├── UEL8_ECL_AXY.for ├── UNIUSER9CS.inp ├── UNIUSER_CLA.inp ├── UNIUSER_CLA_CAE.inp ├── UNIUSER_CLA_ELA.inp ├── UNIUSER_CLA_KIN.inp ├── UNIUSER_CLA_UEL8.inp ├── UNIUSER_CLA_UEL9.inp ├── UNIUSER_COS.inp ├── UNIUSER_COS_ELA.inp ├── UNIUSER_COS_KIN.inp ├── UNIUSER_UEL8.inp └── uniaxial_axi_uel.inp ├── LICENSE.md ├── README.md ├── SAMPLE ├── FIGURE_6_13_A.inp ├── UEL9_VPDCO.for ├── fatiga.dat ├── material_co.inp └── material_template.txt ├── UELS ├── UEL8_ECL.for ├── UEL8_ECO.for ├── UEL8_PCLI.for ├── UEL8_PCLI_R.for ├── UEL8_PCLK.for ├── UEL8_PCOI.for ├── UEL8_PCOR.for ├── UEL8_PCOR_KIN.for ├── UEL8_VPDCL.for ├── UEL8_VPDCO.for ├── UEL9_ECL.for ├── UEL9_ECO.for ├── UEL9_ECO_m.for ├── UEL9_PCLI.for ├── UEL9_PCLI_R.for ├── UEL9_PCLK.for ├── UEL9_PCOI.for ├── UEL9_PCON.for ├── UEL9_PCOR.for ├── UEL9_PCOR_KIN.for ├── UEL9_VPDCL.for ├── UEL9_VPDCL_R.for └── UEL9_VPDCO.for ├── UMATS ├── UMAT_ECL_TEMP.for ├── UMAT_ECO.for ├── UMAT_HIN.for ├── UMAT_NKH_1.02.for ├── UMAT_PCL.for ├── UMAT_PCLI.for ├── UMAT_PCLI_R.for ├── UMAT_PCLK.for ├── UMAT_PCO.for ├── UMAT_VPDCL.for ├── UMAT_VPDCL_R.for └── UMAT_VPDCO.for └── versheet.md /.gitignore: -------------------------------------------------------------------------------- 1 | ### Fortran files ### 2 | ##################### 3 | # Compiled Object files 4 | *.slo 5 | *.lo 6 | *.o 7 | *.obj 8 | 9 | # Precompiled Headers 10 | *.gch 11 | *.pch 12 | 13 | # Compiled Dynamic libraries 14 | *.so 15 | *.dylib 16 | *.dll 17 | 18 | # Fortran module files 19 | *.mod 20 | 21 | # Compiled Static libraries 22 | *.lai 23 | *.la 24 | *.a 25 | *.lib 26 | 27 | # Executables 28 | *.exe 29 | *.out 30 | *.app 31 | 32 | 33 | ### Abaqus files ### 34 | #################### 35 | *.com 36 | *.dat 37 | *.log 38 | *.msg 39 | *.odb 40 | *.prt 41 | *.sim 42 | *.sta 43 | 44 | # OS generated files # 45 | ###################### 46 | .DS_Store 47 | .DS_Store? 48 | ._* 49 | .Spotlight-V100 50 | .Trashes 51 | Trash-* 52 | ehthumbs.db 53 | Thumbs.db 54 | Desktop.ini 55 | -------------------------------------------------------------------------------- /INPUT_FILES/STOLKEN.inp: -------------------------------------------------------------------------------- 1 | *HEADING 2 | Microbending-thickness 12.5 microns-Cosserat solid 3 | *NODE 4 | 1, 0.00000, 0.00000 5 | 2, 0.00500, 0.00000 6 | 3, 0.01000, 0.00000 7 | 4, 0.01500, 0.00000 8 | 5, 0.02000, 0.00000 9 | 6, 0.02500, 0.00000 10 | 7, 0.03000, 0.00000 11 | 8, 0.03500, 0.00000 12 | 9, 0.04000, 0.00000 13 | 10, 0.04500, 0.00000 14 | 11, 0.05000, 0.00000 15 | 12, 0.05500, 0.00000 16 | 13, 0.06000, 0.00000 17 | 14, 0.06500, 0.00000 18 | 15, 0.07000, 0.00000 19 | 16, 0.07500, 0.00000 20 | 17, 0.08000, 0.00000 21 | 18, 0.08500, 0.00000 22 | 19, 0.09000, 0.00000 23 | 20, 0.09500, 0.00000 24 | 21, 0.10000, 0.00000 25 | 22, 0.10500, 0.00000 26 | 23, 0.11000, 0.00000 27 | 24, 0.11500, 0.00000 28 | 25, 0.12000, 0.00000 29 | 26, 0.12500, 0.00000 30 | 27, 0.13000, 0.00000 31 | 28, 0.13500, 0.00000 32 | 29, 0.14000, 0.00000 33 | 30, 0.14500, 0.00000 34 | 31, 0.15000, 0.00000 35 | 32, 0.15500, 0.00000 36 | 33, 0.16000, 0.00000 37 | 34, 0.16500, 0.00000 38 | 35, 0.17000, 0.00000 39 | 36, 0.17500, 0.00000 40 | 37, 0.18000, 0.00000 41 | 38, 0.18500, 0.00000 42 | 39, 0.19000, 0.00000 43 | 40, 0.19500, 0.00000 44 | 41, 0.20000, 0.00000 45 | 42, 0.20500, 0.00000 46 | 43, 0.21000, 0.00000 47 | 44, 0.21500, 0.00000 48 | 45, 0.22000, 0.00000 49 | 46, 0.22500, 0.00000 50 | 47, 0.23000, 0.00000 51 | 48, 0.23500, 0.00000 52 | 49, 0.24000, 0.00000 53 | 50, 0.24500, 0.00000 54 | 51, 0.25000, 0.00000 55 | 52, 0.00000, 0.00125 56 | 53, 0.00500, 0.00125 57 | 54, 0.01000, 0.00125 58 | 55, 0.01500, 0.00125 59 | 56, 0.02000, 0.00125 60 | 57, 0.02500, 0.00125 61 | 58, 0.03000, 0.00125 62 | 59, 0.03500, 0.00125 63 | 60, 0.04000, 0.00125 64 | 61, 0.04500, 0.00125 65 | 62, 0.05000, 0.00125 66 | 63, 0.05500, 0.00125 67 | 64, 0.06000, 0.00125 68 | 65, 0.06500, 0.00125 69 | 66, 0.07000, 0.00125 70 | 67, 0.07500, 0.00125 71 | 68, 0.08000, 0.00125 72 | 69, 0.08500, 0.00125 73 | 70, 0.09000, 0.00125 74 | 71, 0.09500, 0.00125 75 | 72, 0.10000, 0.00125 76 | 73, 0.10500, 0.00125 77 | 74, 0.11000, 0.00125 78 | 75, 0.11500, 0.00125 79 | 76, 0.12000, 0.00125 80 | 77, 0.12500, 0.00125 81 | 78, 0.13000, 0.00125 82 | 79, 0.13500, 0.00125 83 | 80, 0.14000, 0.00125 84 | 81, 0.14500, 0.00125 85 | 82, 0.15000, 0.00125 86 | 83, 0.15500, 0.00125 87 | 84, 0.16000, 0.00125 88 | 85, 0.16500, 0.00125 89 | 86, 0.17000, 0.00125 90 | 87, 0.17500, 0.00125 91 | 88, 0.18000, 0.00125 92 | 89, 0.18500, 0.00125 93 | 90, 0.19000, 0.00125 94 | 91, 0.19500, 0.00125 95 | 92, 0.20000, 0.00125 96 | 93, 0.20500, 0.00125 97 | 94, 0.21000, 0.00125 98 | 95, 0.21500, 0.00125 99 | 96, 0.22000, 0.00125 100 | 97, 0.22500, 0.00125 101 | 98, 0.23000, 0.00125 102 | 99, 0.23500, 0.00125 103 | 100, 0.24000, 0.00125 104 | 101, 0.24500, 0.00125 105 | 102, 0.25000, 0.00125 106 | 103, 0.00000, 0.00250 107 | 104, 0.00500, 0.00250 108 | 105, 0.01000, 0.00250 109 | 106, 0.01500, 0.00250 110 | 107, 0.02000, 0.00250 111 | 108, 0.02500, 0.00250 112 | 109, 0.03000, 0.00250 113 | 110, 0.03500, 0.00250 114 | 111, 0.04000, 0.00250 115 | 112, 0.04500, 0.00250 116 | 113, 0.05000, 0.00250 117 | 114, 0.05500, 0.00250 118 | 115, 0.06000, 0.00250 119 | 116, 0.06500, 0.00250 120 | 117, 0.07000, 0.00250 121 | 118, 0.07500, 0.00250 122 | 119, 0.08000, 0.00250 123 | 120, 0.08500, 0.00250 124 | 121, 0.09000, 0.00250 125 | 122, 0.09500, 0.00250 126 | 123, 0.10000, 0.00250 127 | 124, 0.10500, 0.00250 128 | 125, 0.11000, 0.00250 129 | 126, 0.11500, 0.00250 130 | 127, 0.12000, 0.00250 131 | 128, 0.12500, 0.00250 132 | 129, 0.13000, 0.00250 133 | 130, 0.13500, 0.00250 134 | 131, 0.14000, 0.00250 135 | 132, 0.14500, 0.00250 136 | 133, 0.15000, 0.00250 137 | 134, 0.15500, 0.00250 138 | 135, 0.16000, 0.00250 139 | 136, 0.16500, 0.00250 140 | 137, 0.17000, 0.00250 141 | 138, 0.17500, 0.00250 142 | 139, 0.18000, 0.00250 143 | 140, 0.18500, 0.00250 144 | 141, 0.19000, 0.00250 145 | 142, 0.19500, 0.00250 146 | 143, 0.20000, 0.00250 147 | 144, 0.20500, 0.00250 148 | 145, 0.21000, 0.00250 149 | 146, 0.21500, 0.00250 150 | 147, 0.22000, 0.00250 151 | 148, 0.22500, 0.00250 152 | 149, 0.23000, 0.00250 153 | 150, 0.23500, 0.00250 154 | 151, 0.24000, 0.00250 155 | 152, 0.24500, 0.00250 156 | 153, 0.25000, 0.00250 157 | 154, 0.00000, 0.00375 158 | 155, 0.00500, 0.00375 159 | 156, 0.01000, 0.00375 160 | 157, 0.01500, 0.00375 161 | 158, 0.02000, 0.00375 162 | 159, 0.02500, 0.00375 163 | 160, 0.03000, 0.00375 164 | 161, 0.03500, 0.00375 165 | 162, 0.04000, 0.00375 166 | 163, 0.04500, 0.00375 167 | 164, 0.05000, 0.00375 168 | 165, 0.05500, 0.00375 169 | 166, 0.06000, 0.00375 170 | 167, 0.06500, 0.00375 171 | 168, 0.07000, 0.00375 172 | 169, 0.07500, 0.00375 173 | 170, 0.08000, 0.00375 174 | 171, 0.08500, 0.00375 175 | 172, 0.09000, 0.00375 176 | 173, 0.09500, 0.00375 177 | 174, 0.10000, 0.00375 178 | 175, 0.10500, 0.00375 179 | 176, 0.11000, 0.00375 180 | 177, 0.11500, 0.00375 181 | 178, 0.12000, 0.00375 182 | 179, 0.12500, 0.00375 183 | 180, 0.13000, 0.00375 184 | 181, 0.13500, 0.00375 185 | 182, 0.14000, 0.00375 186 | 183, 0.14500, 0.00375 187 | 184, 0.15000, 0.00375 188 | 185, 0.15500, 0.00375 189 | 186, 0.16000, 0.00375 190 | 187, 0.16500, 0.00375 191 | 188, 0.17000, 0.00375 192 | 189, 0.17500, 0.00375 193 | 190, 0.18000, 0.00375 194 | 191, 0.18500, 0.00375 195 | 192, 0.19000, 0.00375 196 | 193, 0.19500, 0.00375 197 | 194, 0.20000, 0.00375 198 | 195, 0.20500, 0.00375 199 | 196, 0.21000, 0.00375 200 | 197, 0.21500, 0.00375 201 | 198, 0.22000, 0.00375 202 | 199, 0.22500, 0.00375 203 | 200, 0.23000, 0.00375 204 | 201, 0.23500, 0.00375 205 | 202, 0.24000, 0.00375 206 | 203, 0.24500, 0.00375 207 | 204, 0.25000, 0.00375 208 | 205, 0.00000, 0.00500 209 | 206, 0.00500, 0.00500 210 | 207, 0.01000, 0.00500 211 | 208, 0.01500, 0.00500 212 | 209, 0.02000, 0.00500 213 | 210, 0.02500, 0.00500 214 | 211, 0.03000, 0.00500 215 | 212, 0.03500, 0.00500 216 | 213, 0.04000, 0.00500 217 | 214, 0.04500, 0.00500 218 | 215, 0.05000, 0.00500 219 | 216, 0.05500, 0.00500 220 | 217, 0.06000, 0.00500 221 | 218, 0.06500, 0.00500 222 | 219, 0.07000, 0.00500 223 | 220, 0.07500, 0.00500 224 | 221, 0.08000, 0.00500 225 | 222, 0.08500, 0.00500 226 | 223, 0.09000, 0.00500 227 | 224, 0.09500, 0.00500 228 | 225, 0.10000, 0.00500 229 | 226, 0.10500, 0.00500 230 | 227, 0.11000, 0.00500 231 | 228, 0.11500, 0.00500 232 | 229, 0.12000, 0.00500 233 | 230, 0.12500, 0.00500 234 | 231, 0.13000, 0.00500 235 | 232, 0.13500, 0.00500 236 | 233, 0.14000, 0.00500 237 | 234, 0.14500, 0.00500 238 | 235, 0.15000, 0.00500 239 | 236, 0.15500, 0.00500 240 | 237, 0.16000, 0.00500 241 | 238, 0.16500, 0.00500 242 | 239, 0.17000, 0.00500 243 | 240, 0.17500, 0.00500 244 | 241, 0.18000, 0.00500 245 | 242, 0.18500, 0.00500 246 | 243, 0.19000, 0.00500 247 | 244, 0.19500, 0.00500 248 | 245, 0.20000, 0.00500 249 | 246, 0.20500, 0.00500 250 | 247, 0.21000, 0.00500 251 | 248, 0.21500, 0.00500 252 | 249, 0.22000, 0.00500 253 | 250, 0.22500, 0.00500 254 | 251, 0.23000, 0.00500 255 | 252, 0.23500, 0.00500 256 | 253, 0.24000, 0.00500 257 | 254, 0.24500, 0.00500 258 | 255, 0.25000, 0.00500 259 | 256, 0.00000, 0.00625 260 | 257, 0.00500, 0.00625 261 | 258, 0.01000, 0.00625 262 | 259, 0.01500, 0.00625 263 | 260, 0.02000, 0.00625 264 | 261, 0.02500, 0.00625 265 | 262, 0.03000, 0.00625 266 | 263, 0.03500, 0.00625 267 | 264, 0.04000, 0.00625 268 | 265, 0.04500, 0.00625 269 | 266, 0.05000, 0.00625 270 | 267, 0.05500, 0.00625 271 | 268, 0.06000, 0.00625 272 | 269, 0.06500, 0.00625 273 | 270, 0.07000, 0.00625 274 | 271, 0.07500, 0.00625 275 | 272, 0.08000, 0.00625 276 | 273, 0.08500, 0.00625 277 | 274, 0.09000, 0.00625 278 | 275, 0.09500, 0.00625 279 | 276, 0.10000, 0.00625 280 | 277, 0.10500, 0.00625 281 | 278, 0.11000, 0.00625 282 | 279, 0.11500, 0.00625 283 | 280, 0.12000, 0.00625 284 | 281, 0.12500, 0.00625 285 | 282, 0.13000, 0.00625 286 | 283, 0.13500, 0.00625 287 | 284, 0.14000, 0.00625 288 | 285, 0.14500, 0.00625 289 | 286, 0.15000, 0.00625 290 | 287, 0.15500, 0.00625 291 | 288, 0.16000, 0.00625 292 | 289, 0.16500, 0.00625 293 | 290, 0.17000, 0.00625 294 | 291, 0.17500, 0.00625 295 | 292, 0.18000, 0.00625 296 | 293, 0.18500, 0.00625 297 | 294, 0.19000, 0.00625 298 | 295, 0.19500, 0.00625 299 | 296, 0.20000, 0.00625 300 | 297, 0.20500, 0.00625 301 | 298, 0.21000, 0.00625 302 | 299, 0.21500, 0.00625 303 | 300, 0.22000, 0.00625 304 | 301, 0.22500, 0.00625 305 | 302, 0.23000, 0.00625 306 | 303, 0.23500, 0.00625 307 | 304, 0.24000, 0.00625 308 | 305, 0.24500, 0.00625 309 | 306, 0.25000, 0.00625 310 | 307, 0.00000, 0.00750 311 | 308, 0.00500, 0.00750 312 | 309, 0.01000, 0.00750 313 | 310, 0.01500, 0.00750 314 | 311, 0.02000, 0.00750 315 | 312, 0.02500, 0.00750 316 | 313, 0.03000, 0.00750 317 | 314, 0.03500, 0.00750 318 | 315, 0.04000, 0.00750 319 | 316, 0.04500, 0.00750 320 | 317, 0.05000, 0.00750 321 | 318, 0.05500, 0.00750 322 | 319, 0.06000, 0.00750 323 | 320, 0.06500, 0.00750 324 | 321, 0.07000, 0.00750 325 | 322, 0.07500, 0.00750 326 | 323, 0.08000, 0.00750 327 | 324, 0.08500, 0.00750 328 | 325, 0.09000, 0.00750 329 | 326, 0.09500, 0.00750 330 | 327, 0.10000, 0.00750 331 | 328, 0.10500, 0.00750 332 | 329, 0.11000, 0.00750 333 | 330, 0.11500, 0.00750 334 | 331, 0.12000, 0.00750 335 | 332, 0.12500, 0.00750 336 | 333, 0.13000, 0.00750 337 | 334, 0.13500, 0.00750 338 | 335, 0.14000, 0.00750 339 | 336, 0.14500, 0.00750 340 | 337, 0.15000, 0.00750 341 | 338, 0.15500, 0.00750 342 | 339, 0.16000, 0.00750 343 | 340, 0.16500, 0.00750 344 | 341, 0.17000, 0.00750 345 | 342, 0.17500, 0.00750 346 | 343, 0.18000, 0.00750 347 | 344, 0.18500, 0.00750 348 | 345, 0.19000, 0.00750 349 | 346, 0.19500, 0.00750 350 | 347, 0.20000, 0.00750 351 | 348, 0.20500, 0.00750 352 | 349, 0.21000, 0.00750 353 | 350, 0.21500, 0.00750 354 | 351, 0.22000, 0.00750 355 | 352, 0.22500, 0.00750 356 | 353, 0.23000, 0.00750 357 | 354, 0.23500, 0.00750 358 | 355, 0.24000, 0.00750 359 | 356, 0.24500, 0.00750 360 | 357, 0.25000, 0.00750 361 | 358, 0.00000, 0.00875 362 | 359, 0.00500, 0.00875 363 | 360, 0.01000, 0.00875 364 | 361, 0.01500, 0.00875 365 | 362, 0.02000, 0.00875 366 | 363, 0.02500, 0.00875 367 | 364, 0.03000, 0.00875 368 | 365, 0.03500, 0.00875 369 | 366, 0.04000, 0.00875 370 | 367, 0.04500, 0.00875 371 | 368, 0.05000, 0.00875 372 | 369, 0.05500, 0.00875 373 | 370, 0.06000, 0.00875 374 | 371, 0.06500, 0.00875 375 | 372, 0.07000, 0.00875 376 | 373, 0.07500, 0.00875 377 | 374, 0.08000, 0.00875 378 | 375, 0.08500, 0.00875 379 | 376, 0.09000, 0.00875 380 | 377, 0.09500, 0.00875 381 | 378, 0.10000, 0.00875 382 | 379, 0.10500, 0.00875 383 | 380, 0.11000, 0.00875 384 | 381, 0.11500, 0.00875 385 | 382, 0.12000, 0.00875 386 | 383, 0.12500, 0.00875 387 | 384, 0.13000, 0.00875 388 | 385, 0.13500, 0.00875 389 | 386, 0.14000, 0.00875 390 | 387, 0.14500, 0.00875 391 | 388, 0.15000, 0.00875 392 | 389, 0.15500, 0.00875 393 | 390, 0.16000, 0.00875 394 | 391, 0.16500, 0.00875 395 | 392, 0.17000, 0.00875 396 | 393, 0.17500, 0.00875 397 | 394, 0.18000, 0.00875 398 | 395, 0.18500, 0.00875 399 | 396, 0.19000, 0.00875 400 | 397, 0.19500, 0.00875 401 | 398, 0.20000, 0.00875 402 | 399, 0.20500, 0.00875 403 | 400, 0.21000, 0.00875 404 | 401, 0.21500, 0.00875 405 | 402, 0.22000, 0.00875 406 | 403, 0.22500, 0.00875 407 | 404, 0.23000, 0.00875 408 | 405, 0.23500, 0.00875 409 | 406, 0.24000, 0.00875 410 | 407, 0.24500, 0.00875 411 | 408, 0.25000, 0.00875 412 | 409, 0.00000, 0.01000 413 | 410, 0.00500, 0.01000 414 | 411, 0.01000, 0.01000 415 | 412, 0.01500, 0.01000 416 | 413, 0.02000, 0.01000 417 | 414, 0.02500, 0.01000 418 | 415, 0.03000, 0.01000 419 | 416, 0.03500, 0.01000 420 | 417, 0.04000, 0.01000 421 | 418, 0.04500, 0.01000 422 | 419, 0.05000, 0.01000 423 | 420, 0.05500, 0.01000 424 | 421, 0.06000, 0.01000 425 | 422, 0.06500, 0.01000 426 | 423, 0.07000, 0.01000 427 | 424, 0.07500, 0.01000 428 | 425, 0.08000, 0.01000 429 | 426, 0.08500, 0.01000 430 | 427, 0.09000, 0.01000 431 | 428, 0.09500, 0.01000 432 | 429, 0.10000, 0.01000 433 | 430, 0.10500, 0.01000 434 | 431, 0.11000, 0.01000 435 | 432, 0.11500, 0.01000 436 | 433, 0.12000, 0.01000 437 | 434, 0.12500, 0.01000 438 | 435, 0.13000, 0.01000 439 | 436, 0.13500, 0.01000 440 | 437, 0.14000, 0.01000 441 | 438, 0.14500, 0.01000 442 | 439, 0.15000, 0.01000 443 | 440, 0.15500, 0.01000 444 | 441, 0.16000, 0.01000 445 | 442, 0.16500, 0.01000 446 | 443, 0.17000, 0.01000 447 | 444, 0.17500, 0.01000 448 | 445, 0.18000, 0.01000 449 | 446, 0.18500, 0.01000 450 | 447, 0.19000, 0.01000 451 | 448, 0.19500, 0.01000 452 | 449, 0.20000, 0.01000 453 | 450, 0.20500, 0.01000 454 | 451, 0.21000, 0.01000 455 | 452, 0.21500, 0.01000 456 | 453, 0.22000, 0.01000 457 | 454, 0.22500, 0.01000 458 | 455, 0.23000, 0.01000 459 | 456, 0.23500, 0.01000 460 | 457, 0.24000, 0.01000 461 | 458, 0.24500, 0.01000 462 | 459, 0.25000, 0.01000 463 | 460, 0.00000, 0.01125 464 | 461, 0.00500, 0.01125 465 | 462, 0.01000, 0.01125 466 | 463, 0.01500, 0.01125 467 | 464, 0.02000, 0.01125 468 | 465, 0.02500, 0.01125 469 | 466, 0.03000, 0.01125 470 | 467, 0.03500, 0.01125 471 | 468, 0.04000, 0.01125 472 | 469, 0.04500, 0.01125 473 | 470, 0.05000, 0.01125 474 | 471, 0.05500, 0.01125 475 | 472, 0.06000, 0.01125 476 | 473, 0.06500, 0.01125 477 | 474, 0.07000, 0.01125 478 | 475, 0.07500, 0.01125 479 | 476, 0.08000, 0.01125 480 | 477, 0.08500, 0.01125 481 | 478, 0.09000, 0.01125 482 | 479, 0.09500, 0.01125 483 | 480, 0.10000, 0.01125 484 | 481, 0.10500, 0.01125 485 | 482, 0.11000, 0.01125 486 | 483, 0.11500, 0.01125 487 | 484, 0.12000, 0.01125 488 | 485, 0.12500, 0.01125 489 | 486, 0.13000, 0.01125 490 | 487, 0.13500, 0.01125 491 | 488, 0.14000, 0.01125 492 | 489, 0.14500, 0.01125 493 | 490, 0.15000, 0.01125 494 | 491, 0.15500, 0.01125 495 | 492, 0.16000, 0.01125 496 | 493, 0.16500, 0.01125 497 | 494, 0.17000, 0.01125 498 | 495, 0.17500, 0.01125 499 | 496, 0.18000, 0.01125 500 | 497, 0.18500, 0.01125 501 | 498, 0.19000, 0.01125 502 | 499, 0.19500, 0.01125 503 | 500, 0.20000, 0.01125 504 | 501, 0.20500, 0.01125 505 | 502, 0.21000, 0.01125 506 | 503, 0.21500, 0.01125 507 | 504, 0.22000, 0.01125 508 | 505, 0.22500, 0.01125 509 | 506, 0.23000, 0.01125 510 | 507, 0.23500, 0.01125 511 | 508, 0.24000, 0.01125 512 | 509, 0.24500, 0.01125 513 | 510, 0.25000, 0.01125 514 | 511, 0.00000, 0.01250 515 | 512, 0.00500, 0.01250 516 | 513, 0.01000, 0.01250 517 | 514, 0.01500, 0.01250 518 | 515, 0.02000, 0.01250 519 | 516, 0.02500, 0.01250 520 | 517, 0.03000, 0.01250 521 | 518, 0.03500, 0.01250 522 | 519, 0.04000, 0.01250 523 | 520, 0.04500, 0.01250 524 | 521, 0.05000, 0.01250 525 | 522, 0.05500, 0.01250 526 | 523, 0.06000, 0.01250 527 | 524, 0.06500, 0.01250 528 | 525, 0.07000, 0.01250 529 | 526, 0.07500, 0.01250 530 | 527, 0.08000, 0.01250 531 | 528, 0.08500, 0.01250 532 | 529, 0.09000, 0.01250 533 | 530, 0.09500, 0.01250 534 | 531, 0.10000, 0.01250 535 | 532, 0.10500, 0.01250 536 | 533, 0.11000, 0.01250 537 | 534, 0.11500, 0.01250 538 | 535, 0.12000, 0.01250 539 | 536, 0.12500, 0.01250 540 | 537, 0.13000, 0.01250 541 | 538, 0.13500, 0.01250 542 | 539, 0.14000, 0.01250 543 | 540, 0.14500, 0.01250 544 | 541, 0.15000, 0.01250 545 | 542, 0.15500, 0.01250 546 | 543, 0.16000, 0.01250 547 | 544, 0.16500, 0.01250 548 | 545, 0.17000, 0.01250 549 | 546, 0.17500, 0.01250 550 | 547, 0.18000, 0.01250 551 | 548, 0.18500, 0.01250 552 | 549, 0.19000, 0.01250 553 | 550, 0.19500, 0.01250 554 | 551, 0.20000, 0.01250 555 | 552, 0.20500, 0.01250 556 | 553, 0.21000, 0.01250 557 | 554, 0.21500, 0.01250 558 | 555, 0.22000, 0.01250 559 | 556, 0.22500, 0.01250 560 | 557, 0.23000, 0.01250 561 | 558, 0.23500, 0.01250 562 | 559, 0.24000, 0.01250 563 | 560, 0.24500, 0.01250 564 | 561, 0.25000, 0.01250 565 | *********************************************************************** 566 | *********************************************************************** 567 | *USER ELEMENT,NODES=9,TYPE=U1,PROPERTIES=8,COORDINATES=2,VARIABLES=253 568 | 1,2,6 569 | *********************************************************************** 570 | *ELEMENT,TYPE=U1, ELSET=TODOS 571 | 1, 1, 3, 105, 103, 2, 54, 104, 52, 53 572 | 2, 3, 5, 107, 105, 4, 56, 106, 54, 55 573 | 3, 5, 7, 109, 107, 6, 58, 108, 56, 57 574 | 4, 7, 9, 111, 109, 8, 60, 110, 58, 59 575 | 5, 9, 11, 113, 111, 10, 62, 112, 60, 61 576 | 6, 11, 13, 115, 113, 12, 64, 114, 62, 63 577 | 7, 13, 15, 117, 115, 14, 66, 116, 64, 65 578 | 8, 15, 17, 119, 117, 16, 68, 118, 66, 67 579 | 9, 17, 19, 121, 119, 18, 70, 120, 68, 69 580 | 10, 19, 21, 123, 121, 20, 72, 122, 70, 71 581 | 11, 21, 23, 125, 123, 22, 74, 124, 72, 73 582 | 12, 23, 25, 127, 125, 24, 76, 126, 74, 75 583 | 13, 25, 27, 129, 127, 26, 78, 128, 76, 77 584 | 14, 27, 29, 131, 129, 28, 80, 130, 78, 79 585 | 15, 29, 31, 133, 131, 30, 82, 132, 80, 81 586 | 16, 31, 33, 135, 133, 32, 84, 134, 82, 83 587 | 17, 33, 35, 137, 135, 34, 86, 136, 84, 85 588 | 18, 35, 37, 139, 137, 36, 88, 138, 86, 87 589 | 19, 37, 39, 141, 139, 38, 90, 140, 88, 89 590 | 20, 39, 41, 143, 141, 40, 92, 142, 90, 91 591 | 21, 41, 43, 145, 143, 42, 94, 144, 92, 93 592 | 22, 43, 45, 147, 145, 44, 96, 146, 94, 95 593 | 23, 45, 47, 149, 147, 46, 98, 148, 96, 97 594 | 24, 47, 49, 151, 149, 48, 100, 150, 98, 99 595 | 25, 49, 51, 153, 151, 50, 102, 152, 100, 101 596 | 26, 103, 105, 207, 205, 104, 156, 206, 154, 155 597 | 27, 105, 107, 209, 207, 106, 158, 208, 156, 157 598 | 28, 107, 109, 211, 209, 108, 160, 210, 158, 159 599 | 29, 109, 111, 213, 211, 110, 162, 212, 160, 161 600 | 30, 111, 113, 215, 213, 112, 164, 214, 162, 163 601 | 31, 113, 115, 217, 215, 114, 166, 216, 164, 165 602 | 32, 115, 117, 219, 217, 116, 168, 218, 166, 167 603 | 33, 117, 119, 221, 219, 118, 170, 220, 168, 169 604 | 34, 119, 121, 223, 221, 120, 172, 222, 170, 171 605 | 35, 121, 123, 225, 223, 122, 174, 224, 172, 173 606 | 36, 123, 125, 227, 225, 124, 176, 226, 174, 175 607 | 37, 125, 127, 229, 227, 126, 178, 228, 176, 177 608 | 38, 127, 129, 231, 229, 128, 180, 230, 178, 179 609 | 39, 129, 131, 233, 231, 130, 182, 232, 180, 181 610 | 40, 131, 133, 235, 233, 132, 184, 234, 182, 183 611 | 41, 133, 135, 237, 235, 134, 186, 236, 184, 185 612 | 42, 135, 137, 239, 237, 136, 188, 238, 186, 187 613 | 43, 137, 139, 241, 239, 138, 190, 240, 188, 189 614 | 44, 139, 141, 243, 241, 140, 192, 242, 190, 191 615 | 45, 141, 143, 245, 243, 142, 194, 244, 192, 193 616 | 46, 143, 145, 247, 245, 144, 196, 246, 194, 195 617 | 47, 145, 147, 249, 247, 146, 198, 248, 196, 197 618 | 48, 147, 149, 251, 249, 148, 200, 250, 198, 199 619 | 49, 149, 151, 253, 251, 150, 202, 252, 200, 201 620 | 50, 151, 153, 255, 253, 152, 204, 254, 202, 203 621 | 51, 205, 207, 309, 307, 206, 258, 308, 256, 257 622 | 52, 207, 209, 311, 309, 208, 260, 310, 258, 259 623 | 53, 209, 211, 313, 311, 210, 262, 312, 260, 261 624 | 54, 211, 213, 315, 313, 212, 264, 314, 262, 263 625 | 55, 213, 215, 317, 315, 214, 266, 316, 264, 265 626 | 56, 215, 217, 319, 317, 216, 268, 318, 266, 267 627 | 57, 217, 219, 321, 319, 218, 270, 320, 268, 269 628 | 58, 219, 221, 323, 321, 220, 272, 322, 270, 271 629 | 59, 221, 223, 325, 323, 222, 274, 324, 272, 273 630 | 60, 223, 225, 327, 325, 224, 276, 326, 274, 275 631 | 61, 225, 227, 329, 327, 226, 278, 328, 276, 277 632 | 62, 227, 229, 331, 329, 228, 280, 330, 278, 279 633 | 63, 229, 231, 333, 331, 230, 282, 332, 280, 281 634 | 64, 231, 233, 335, 333, 232, 284, 334, 282, 283 635 | 65, 233, 235, 337, 335, 234, 286, 336, 284, 285 636 | 66, 235, 237, 339, 337, 236, 288, 338, 286, 287 637 | 67, 237, 239, 341, 339, 238, 290, 340, 288, 289 638 | 68, 239, 241, 343, 341, 240, 292, 342, 290, 291 639 | 69, 241, 243, 345, 343, 242, 294, 344, 292, 293 640 | 70, 243, 245, 347, 345, 244, 296, 346, 294, 295 641 | 71, 245, 247, 349, 347, 246, 298, 348, 296, 297 642 | 72, 247, 249, 351, 349, 248, 300, 350, 298, 299 643 | 73, 249, 251, 353, 351, 250, 302, 352, 300, 301 644 | 74, 251, 253, 355, 353, 252, 304, 354, 302, 303 645 | 75, 253, 255, 357, 355, 254, 306, 356, 304, 305 646 | 76, 307, 309, 411, 409, 308, 360, 410, 358, 359 647 | 77, 309, 311, 413, 411, 310, 362, 412, 360, 361 648 | 78, 311, 313, 415, 413, 312, 364, 414, 362, 363 649 | 79, 313, 315, 417, 415, 314, 366, 416, 364, 365 650 | 80, 315, 317, 419, 417, 316, 368, 418, 366, 367 651 | 81, 317, 319, 421, 419, 318, 370, 420, 368, 369 652 | 82, 319, 321, 423, 421, 320, 372, 422, 370, 371 653 | 83, 321, 323, 425, 423, 322, 374, 424, 372, 373 654 | 84, 323, 325, 427, 425, 324, 376, 426, 374, 375 655 | 85, 325, 327, 429, 427, 326, 378, 428, 376, 377 656 | 86, 327, 329, 431, 429, 328, 380, 430, 378, 379 657 | 87, 329, 331, 433, 431, 330, 382, 432, 380, 381 658 | 88, 331, 333, 435, 433, 332, 384, 434, 382, 383 659 | 89, 333, 335, 437, 435, 334, 386, 436, 384, 385 660 | 90, 335, 337, 439, 437, 336, 388, 438, 386, 387 661 | 91, 337, 339, 441, 439, 338, 390, 440, 388, 389 662 | 92, 339, 341, 443, 441, 340, 392, 442, 390, 391 663 | 93, 341, 343, 445, 443, 342, 394, 444, 392, 393 664 | 94, 343, 345, 447, 445, 344, 396, 446, 394, 395 665 | 95, 345, 347, 449, 447, 346, 398, 448, 396, 397 666 | 96, 347, 349, 451, 449, 348, 400, 450, 398, 399 667 | 97, 349, 351, 453, 451, 350, 402, 452, 400, 401 668 | 98, 351, 353, 455, 453, 352, 404, 454, 402, 403 669 | 99, 353, 355, 457, 455, 354, 406, 456, 404, 405 670 | 100, 355, 357, 459, 457, 356, 408, 458, 406, 407 671 | 101, 409, 411, 513, 511, 410, 462, 512, 460, 461 672 | 102, 411, 413, 515, 513, 412, 464, 514, 462, 463 673 | 103, 413, 415, 517, 515, 414, 466, 516, 464, 465 674 | 104, 415, 417, 519, 517, 416, 468, 518, 466, 467 675 | 105, 417, 419, 521, 519, 418, 470, 520, 468, 469 676 | 106, 419, 421, 523, 521, 420, 472, 522, 470, 471 677 | 107, 421, 423, 525, 523, 422, 474, 524, 472, 473 678 | 108, 423, 425, 527, 525, 424, 476, 526, 474, 475 679 | 109, 425, 427, 529, 527, 426, 478, 528, 476, 477 680 | 110, 427, 429, 531, 529, 428, 480, 530, 478, 479 681 | 111, 429, 431, 533, 531, 430, 482, 532, 480, 481 682 | 112, 431, 433, 535, 533, 432, 484, 534, 482, 483 683 | 113, 433, 435, 537, 535, 434, 486, 536, 484, 485 684 | 114, 435, 437, 539, 537, 436, 488, 538, 486, 487 685 | 115, 437, 439, 541, 539, 438, 490, 540, 488, 489 686 | 116, 439, 441, 543, 541, 440, 492, 542, 490, 491 687 | 117, 441, 443, 545, 543, 442, 494, 544, 492, 493 688 | 118, 443, 445, 547, 545, 444, 496, 546, 494, 495 689 | 119, 445, 447, 549, 547, 446, 498, 548, 496, 497 690 | 120, 447, 449, 551, 549, 448, 500, 550, 498, 499 691 | 121, 449, 451, 553, 551, 450, 502, 552, 500, 501 692 | 122, 451, 453, 555, 553, 452, 504, 554, 502, 503 693 | 123, 453, 455, 557, 555, 454, 506, 556, 504, 505 694 | 124, 455, 457, 559, 557, 456, 508, 558, 506, 507 695 | 125, 457, 459, 561, 559, 458, 510, 560, 508, 509 696 | *************************************************** 697 | *************************************************** 698 | *ELSET,ELSET=RESULTS 699 | 101 700 | *ELSET,ELSET=LEDGE 701 | 1,26,51,76, 702 | 101 703 | *NSET,NSET=LEFT1 704 | 1,52,103,154,205, 705 | 256,307,358,409,460, 706 | 511 707 | *NSET,NSET=LEFT2 708 | 256 709 | *NSET, NSET=EDGE 710 | 561 711 | *NSET,NSET=REDGE1 712 | 51,102,53,204, 713 | 255,306,357,408, 714 | 459,510,561 715 | *NSET,NSET=REDGE2 716 | 306 717 | *************************************************** 718 | *************************************************** 719 | *************************************************** 720 | **************MATERIAL PROPERTIES****************** 721 | *************************************************** 722 | *UEL PROPERTY,ELSET=TODOS 723 | 220.E3,0.3,0.005,1000.0,56.,0.0,343.5,0.25 724 | *************************************************** 725 | *************************************************** 726 | **** 727 | *************************************************** 728 | ******B O U N D A R Y C O N D I T I O N S********* 729 | *************************************************** 730 | ** Name: BC-1 Type: Displacement/Rotation 731 | *Boundary 732 | LEFT1,1,1,0.0 733 | LEFT2,2,2,0.0 734 | LEFT2,6,6,0.0 735 | *************************************************** 736 | *****A M P L I T U D E D E F I N I T I O N******* 737 | *************************************************** 738 | *** 739 | *AMPLITUDE,NAME=DIS 740 | 0.000, 0.000,1.0,1.0 741 | *** 742 | *** 743 | **************STEP: Step-1************************* 744 | *************************************************** 745 | ** 746 | *Step,INC=10000, EXTRAPOLATION=NO, name=Step-1 747 | elastoplastic anaylisis 748 | *Static,direct 749 | 0.05,1.0 750 | ***** 751 | ******************************************* 752 | **************L O A D S******************** 753 | ******************************************* 754 | *** 755 | **ACTIVATE THIS LINE FOR DISP. CONTROLLED** 756 | ******************************************* 757 | *** 758 | **BOUNDARY,AMPLITUDE=DIS 759 | **EDGE,2,2,-0.060 760 | ** 761 | ** 762 | **ACTIVATE THIS LINE FOR FORC. CONTROLLED** 763 | ******************************************* 764 | ** Name: Load-1 Type: Concentrated force 765 | *Cload,AMPLITUDE=DIS 766 | EDGE,2,-0.019 767 | ** 768 | *MONITOR, NODE=561,DOF=2 769 | ** 770 | ****************************************** 771 | ******* OUTPUT REQUEST********************* 772 | ******************************************* 773 | **** 774 | **** 775 | *ELPRINT, ELSET=RESULTS, FREQUENCY=1 776 | sdv252,sdv253 777 | *End Step -------------------------------------------------------------------------------- /INPUT_FILES/STOLKEN_CLA.inp: -------------------------------------------------------------------------------- 1 | *HEADING 2 | Microbending-thickness 12.5 microns-Classical solid-Damaged Coupled Viscoplasticity 3 | *NODE 4 | 1, 0.00000, 0.00000 5 | 2, 0.00500, 0.00000 6 | 3, 0.01000, 0.00000 7 | 4, 0.01500, 0.00000 8 | 5, 0.02000, 0.00000 9 | 6, 0.02500, 0.00000 10 | 7, 0.03000, 0.00000 11 | 8, 0.03500, 0.00000 12 | 9, 0.04000, 0.00000 13 | 10, 0.04500, 0.00000 14 | 11, 0.05000, 0.00000 15 | 12, 0.05500, 0.00000 16 | 13, 0.06000, 0.00000 17 | 14, 0.06500, 0.00000 18 | 15, 0.07000, 0.00000 19 | 16, 0.07500, 0.00000 20 | 17, 0.08000, 0.00000 21 | 18, 0.08500, 0.00000 22 | 19, 0.09000, 0.00000 23 | 20, 0.09500, 0.00000 24 | 21, 0.10000, 0.00000 25 | 22, 0.10500, 0.00000 26 | 23, 0.11000, 0.00000 27 | 24, 0.11500, 0.00000 28 | 25, 0.12000, 0.00000 29 | 26, 0.12500, 0.00000 30 | 27, 0.13000, 0.00000 31 | 28, 0.13500, 0.00000 32 | 29, 0.14000, 0.00000 33 | 30, 0.14500, 0.00000 34 | 31, 0.15000, 0.00000 35 | 32, 0.15500, 0.00000 36 | 33, 0.16000, 0.00000 37 | 34, 0.16500, 0.00000 38 | 35, 0.17000, 0.00000 39 | 36, 0.17500, 0.00000 40 | 37, 0.18000, 0.00000 41 | 38, 0.18500, 0.00000 42 | 39, 0.19000, 0.00000 43 | 40, 0.19500, 0.00000 44 | 41, 0.20000, 0.00000 45 | 42, 0.20500, 0.00000 46 | 43, 0.21000, 0.00000 47 | 44, 0.21500, 0.00000 48 | 45, 0.22000, 0.00000 49 | 46, 0.22500, 0.00000 50 | 47, 0.23000, 0.00000 51 | 48, 0.23500, 0.00000 52 | 49, 0.24000, 0.00000 53 | 50, 0.24500, 0.00000 54 | 51, 0.25000, 0.00000 55 | 52, 0.00000, 0.00125 56 | 53, 0.00500, 0.00125 57 | 54, 0.01000, 0.00125 58 | 55, 0.01500, 0.00125 59 | 56, 0.02000, 0.00125 60 | 57, 0.02500, 0.00125 61 | 58, 0.03000, 0.00125 62 | 59, 0.03500, 0.00125 63 | 60, 0.04000, 0.00125 64 | 61, 0.04500, 0.00125 65 | 62, 0.05000, 0.00125 66 | 63, 0.05500, 0.00125 67 | 64, 0.06000, 0.00125 68 | 65, 0.06500, 0.00125 69 | 66, 0.07000, 0.00125 70 | 67, 0.07500, 0.00125 71 | 68, 0.08000, 0.00125 72 | 69, 0.08500, 0.00125 73 | 70, 0.09000, 0.00125 74 | 71, 0.09500, 0.00125 75 | 72, 0.10000, 0.00125 76 | 73, 0.10500, 0.00125 77 | 74, 0.11000, 0.00125 78 | 75, 0.11500, 0.00125 79 | 76, 0.12000, 0.00125 80 | 77, 0.12500, 0.00125 81 | 78, 0.13000, 0.00125 82 | 79, 0.13500, 0.00125 83 | 80, 0.14000, 0.00125 84 | 81, 0.14500, 0.00125 85 | 82, 0.15000, 0.00125 86 | 83, 0.15500, 0.00125 87 | 84, 0.16000, 0.00125 88 | 85, 0.16500, 0.00125 89 | 86, 0.17000, 0.00125 90 | 87, 0.17500, 0.00125 91 | 88, 0.18000, 0.00125 92 | 89, 0.18500, 0.00125 93 | 90, 0.19000, 0.00125 94 | 91, 0.19500, 0.00125 95 | 92, 0.20000, 0.00125 96 | 93, 0.20500, 0.00125 97 | 94, 0.21000, 0.00125 98 | 95, 0.21500, 0.00125 99 | 96, 0.22000, 0.00125 100 | 97, 0.22500, 0.00125 101 | 98, 0.23000, 0.00125 102 | 99, 0.23500, 0.00125 103 | 100, 0.24000, 0.00125 104 | 101, 0.24500, 0.00125 105 | 102, 0.25000, 0.00125 106 | 103, 0.00000, 0.00250 107 | 104, 0.00500, 0.00250 108 | 105, 0.01000, 0.00250 109 | 106, 0.01500, 0.00250 110 | 107, 0.02000, 0.00250 111 | 108, 0.02500, 0.00250 112 | 109, 0.03000, 0.00250 113 | 110, 0.03500, 0.00250 114 | 111, 0.04000, 0.00250 115 | 112, 0.04500, 0.00250 116 | 113, 0.05000, 0.00250 117 | 114, 0.05500, 0.00250 118 | 115, 0.06000, 0.00250 119 | 116, 0.06500, 0.00250 120 | 117, 0.07000, 0.00250 121 | 118, 0.07500, 0.00250 122 | 119, 0.08000, 0.00250 123 | 120, 0.08500, 0.00250 124 | 121, 0.09000, 0.00250 125 | 122, 0.09500, 0.00250 126 | 123, 0.10000, 0.00250 127 | 124, 0.10500, 0.00250 128 | 125, 0.11000, 0.00250 129 | 126, 0.11500, 0.00250 130 | 127, 0.12000, 0.00250 131 | 128, 0.12500, 0.00250 132 | 129, 0.13000, 0.00250 133 | 130, 0.13500, 0.00250 134 | 131, 0.14000, 0.00250 135 | 132, 0.14500, 0.00250 136 | 133, 0.15000, 0.00250 137 | 134, 0.15500, 0.00250 138 | 135, 0.16000, 0.00250 139 | 136, 0.16500, 0.00250 140 | 137, 0.17000, 0.00250 141 | 138, 0.17500, 0.00250 142 | 139, 0.18000, 0.00250 143 | 140, 0.18500, 0.00250 144 | 141, 0.19000, 0.00250 145 | 142, 0.19500, 0.00250 146 | 143, 0.20000, 0.00250 147 | 144, 0.20500, 0.00250 148 | 145, 0.21000, 0.00250 149 | 146, 0.21500, 0.00250 150 | 147, 0.22000, 0.00250 151 | 148, 0.22500, 0.00250 152 | 149, 0.23000, 0.00250 153 | 150, 0.23500, 0.00250 154 | 151, 0.24000, 0.00250 155 | 152, 0.24500, 0.00250 156 | 153, 0.25000, 0.00250 157 | 154, 0.00000, 0.00375 158 | 155, 0.00500, 0.00375 159 | 156, 0.01000, 0.00375 160 | 157, 0.01500, 0.00375 161 | 158, 0.02000, 0.00375 162 | 159, 0.02500, 0.00375 163 | 160, 0.03000, 0.00375 164 | 161, 0.03500, 0.00375 165 | 162, 0.04000, 0.00375 166 | 163, 0.04500, 0.00375 167 | 164, 0.05000, 0.00375 168 | 165, 0.05500, 0.00375 169 | 166, 0.06000, 0.00375 170 | 167, 0.06500, 0.00375 171 | 168, 0.07000, 0.00375 172 | 169, 0.07500, 0.00375 173 | 170, 0.08000, 0.00375 174 | 171, 0.08500, 0.00375 175 | 172, 0.09000, 0.00375 176 | 173, 0.09500, 0.00375 177 | 174, 0.10000, 0.00375 178 | 175, 0.10500, 0.00375 179 | 176, 0.11000, 0.00375 180 | 177, 0.11500, 0.00375 181 | 178, 0.12000, 0.00375 182 | 179, 0.12500, 0.00375 183 | 180, 0.13000, 0.00375 184 | 181, 0.13500, 0.00375 185 | 182, 0.14000, 0.00375 186 | 183, 0.14500, 0.00375 187 | 184, 0.15000, 0.00375 188 | 185, 0.15500, 0.00375 189 | 186, 0.16000, 0.00375 190 | 187, 0.16500, 0.00375 191 | 188, 0.17000, 0.00375 192 | 189, 0.17500, 0.00375 193 | 190, 0.18000, 0.00375 194 | 191, 0.18500, 0.00375 195 | 192, 0.19000, 0.00375 196 | 193, 0.19500, 0.00375 197 | 194, 0.20000, 0.00375 198 | 195, 0.20500, 0.00375 199 | 196, 0.21000, 0.00375 200 | 197, 0.21500, 0.00375 201 | 198, 0.22000, 0.00375 202 | 199, 0.22500, 0.00375 203 | 200, 0.23000, 0.00375 204 | 201, 0.23500, 0.00375 205 | 202, 0.24000, 0.00375 206 | 203, 0.24500, 0.00375 207 | 204, 0.25000, 0.00375 208 | 205, 0.00000, 0.00500 209 | 206, 0.00500, 0.00500 210 | 207, 0.01000, 0.00500 211 | 208, 0.01500, 0.00500 212 | 209, 0.02000, 0.00500 213 | 210, 0.02500, 0.00500 214 | 211, 0.03000, 0.00500 215 | 212, 0.03500, 0.00500 216 | 213, 0.04000, 0.00500 217 | 214, 0.04500, 0.00500 218 | 215, 0.05000, 0.00500 219 | 216, 0.05500, 0.00500 220 | 217, 0.06000, 0.00500 221 | 218, 0.06500, 0.00500 222 | 219, 0.07000, 0.00500 223 | 220, 0.07500, 0.00500 224 | 221, 0.08000, 0.00500 225 | 222, 0.08500, 0.00500 226 | 223, 0.09000, 0.00500 227 | 224, 0.09500, 0.00500 228 | 225, 0.10000, 0.00500 229 | 226, 0.10500, 0.00500 230 | 227, 0.11000, 0.00500 231 | 228, 0.11500, 0.00500 232 | 229, 0.12000, 0.00500 233 | 230, 0.12500, 0.00500 234 | 231, 0.13000, 0.00500 235 | 232, 0.13500, 0.00500 236 | 233, 0.14000, 0.00500 237 | 234, 0.14500, 0.00500 238 | 235, 0.15000, 0.00500 239 | 236, 0.15500, 0.00500 240 | 237, 0.16000, 0.00500 241 | 238, 0.16500, 0.00500 242 | 239, 0.17000, 0.00500 243 | 240, 0.17500, 0.00500 244 | 241, 0.18000, 0.00500 245 | 242, 0.18500, 0.00500 246 | 243, 0.19000, 0.00500 247 | 244, 0.19500, 0.00500 248 | 245, 0.20000, 0.00500 249 | 246, 0.20500, 0.00500 250 | 247, 0.21000, 0.00500 251 | 248, 0.21500, 0.00500 252 | 249, 0.22000, 0.00500 253 | 250, 0.22500, 0.00500 254 | 251, 0.23000, 0.00500 255 | 252, 0.23500, 0.00500 256 | 253, 0.24000, 0.00500 257 | 254, 0.24500, 0.00500 258 | 255, 0.25000, 0.00500 259 | 256, 0.00000, 0.00625 260 | 257, 0.00500, 0.00625 261 | 258, 0.01000, 0.00625 262 | 259, 0.01500, 0.00625 263 | 260, 0.02000, 0.00625 264 | 261, 0.02500, 0.00625 265 | 262, 0.03000, 0.00625 266 | 263, 0.03500, 0.00625 267 | 264, 0.04000, 0.00625 268 | 265, 0.04500, 0.00625 269 | 266, 0.05000, 0.00625 270 | 267, 0.05500, 0.00625 271 | 268, 0.06000, 0.00625 272 | 269, 0.06500, 0.00625 273 | 270, 0.07000, 0.00625 274 | 271, 0.07500, 0.00625 275 | 272, 0.08000, 0.00625 276 | 273, 0.08500, 0.00625 277 | 274, 0.09000, 0.00625 278 | 275, 0.09500, 0.00625 279 | 276, 0.10000, 0.00625 280 | 277, 0.10500, 0.00625 281 | 278, 0.11000, 0.00625 282 | 279, 0.11500, 0.00625 283 | 280, 0.12000, 0.00625 284 | 281, 0.12500, 0.00625 285 | 282, 0.13000, 0.00625 286 | 283, 0.13500, 0.00625 287 | 284, 0.14000, 0.00625 288 | 285, 0.14500, 0.00625 289 | 286, 0.15000, 0.00625 290 | 287, 0.15500, 0.00625 291 | 288, 0.16000, 0.00625 292 | 289, 0.16500, 0.00625 293 | 290, 0.17000, 0.00625 294 | 291, 0.17500, 0.00625 295 | 292, 0.18000, 0.00625 296 | 293, 0.18500, 0.00625 297 | 294, 0.19000, 0.00625 298 | 295, 0.19500, 0.00625 299 | 296, 0.20000, 0.00625 300 | 297, 0.20500, 0.00625 301 | 298, 0.21000, 0.00625 302 | 299, 0.21500, 0.00625 303 | 300, 0.22000, 0.00625 304 | 301, 0.22500, 0.00625 305 | 302, 0.23000, 0.00625 306 | 303, 0.23500, 0.00625 307 | 304, 0.24000, 0.00625 308 | 305, 0.24500, 0.00625 309 | 306, 0.25000, 0.00625 310 | 307, 0.00000, 0.00750 311 | 308, 0.00500, 0.00750 312 | 309, 0.01000, 0.00750 313 | 310, 0.01500, 0.00750 314 | 311, 0.02000, 0.00750 315 | 312, 0.02500, 0.00750 316 | 313, 0.03000, 0.00750 317 | 314, 0.03500, 0.00750 318 | 315, 0.04000, 0.00750 319 | 316, 0.04500, 0.00750 320 | 317, 0.05000, 0.00750 321 | 318, 0.05500, 0.00750 322 | 319, 0.06000, 0.00750 323 | 320, 0.06500, 0.00750 324 | 321, 0.07000, 0.00750 325 | 322, 0.07500, 0.00750 326 | 323, 0.08000, 0.00750 327 | 324, 0.08500, 0.00750 328 | 325, 0.09000, 0.00750 329 | 326, 0.09500, 0.00750 330 | 327, 0.10000, 0.00750 331 | 328, 0.10500, 0.00750 332 | 329, 0.11000, 0.00750 333 | 330, 0.11500, 0.00750 334 | 331, 0.12000, 0.00750 335 | 332, 0.12500, 0.00750 336 | 333, 0.13000, 0.00750 337 | 334, 0.13500, 0.00750 338 | 335, 0.14000, 0.00750 339 | 336, 0.14500, 0.00750 340 | 337, 0.15000, 0.00750 341 | 338, 0.15500, 0.00750 342 | 339, 0.16000, 0.00750 343 | 340, 0.16500, 0.00750 344 | 341, 0.17000, 0.00750 345 | 342, 0.17500, 0.00750 346 | 343, 0.18000, 0.00750 347 | 344, 0.18500, 0.00750 348 | 345, 0.19000, 0.00750 349 | 346, 0.19500, 0.00750 350 | 347, 0.20000, 0.00750 351 | 348, 0.20500, 0.00750 352 | 349, 0.21000, 0.00750 353 | 350, 0.21500, 0.00750 354 | 351, 0.22000, 0.00750 355 | 352, 0.22500, 0.00750 356 | 353, 0.23000, 0.00750 357 | 354, 0.23500, 0.00750 358 | 355, 0.24000, 0.00750 359 | 356, 0.24500, 0.00750 360 | 357, 0.25000, 0.00750 361 | 358, 0.00000, 0.00875 362 | 359, 0.00500, 0.00875 363 | 360, 0.01000, 0.00875 364 | 361, 0.01500, 0.00875 365 | 362, 0.02000, 0.00875 366 | 363, 0.02500, 0.00875 367 | 364, 0.03000, 0.00875 368 | 365, 0.03500, 0.00875 369 | 366, 0.04000, 0.00875 370 | 367, 0.04500, 0.00875 371 | 368, 0.05000, 0.00875 372 | 369, 0.05500, 0.00875 373 | 370, 0.06000, 0.00875 374 | 371, 0.06500, 0.00875 375 | 372, 0.07000, 0.00875 376 | 373, 0.07500, 0.00875 377 | 374, 0.08000, 0.00875 378 | 375, 0.08500, 0.00875 379 | 376, 0.09000, 0.00875 380 | 377, 0.09500, 0.00875 381 | 378, 0.10000, 0.00875 382 | 379, 0.10500, 0.00875 383 | 380, 0.11000, 0.00875 384 | 381, 0.11500, 0.00875 385 | 382, 0.12000, 0.00875 386 | 383, 0.12500, 0.00875 387 | 384, 0.13000, 0.00875 388 | 385, 0.13500, 0.00875 389 | 386, 0.14000, 0.00875 390 | 387, 0.14500, 0.00875 391 | 388, 0.15000, 0.00875 392 | 389, 0.15500, 0.00875 393 | 390, 0.16000, 0.00875 394 | 391, 0.16500, 0.00875 395 | 392, 0.17000, 0.00875 396 | 393, 0.17500, 0.00875 397 | 394, 0.18000, 0.00875 398 | 395, 0.18500, 0.00875 399 | 396, 0.19000, 0.00875 400 | 397, 0.19500, 0.00875 401 | 398, 0.20000, 0.00875 402 | 399, 0.20500, 0.00875 403 | 400, 0.21000, 0.00875 404 | 401, 0.21500, 0.00875 405 | 402, 0.22000, 0.00875 406 | 403, 0.22500, 0.00875 407 | 404, 0.23000, 0.00875 408 | 405, 0.23500, 0.00875 409 | 406, 0.24000, 0.00875 410 | 407, 0.24500, 0.00875 411 | 408, 0.25000, 0.00875 412 | 409, 0.00000, 0.01000 413 | 410, 0.00500, 0.01000 414 | 411, 0.01000, 0.01000 415 | 412, 0.01500, 0.01000 416 | 413, 0.02000, 0.01000 417 | 414, 0.02500, 0.01000 418 | 415, 0.03000, 0.01000 419 | 416, 0.03500, 0.01000 420 | 417, 0.04000, 0.01000 421 | 418, 0.04500, 0.01000 422 | 419, 0.05000, 0.01000 423 | 420, 0.05500, 0.01000 424 | 421, 0.06000, 0.01000 425 | 422, 0.06500, 0.01000 426 | 423, 0.07000, 0.01000 427 | 424, 0.07500, 0.01000 428 | 425, 0.08000, 0.01000 429 | 426, 0.08500, 0.01000 430 | 427, 0.09000, 0.01000 431 | 428, 0.09500, 0.01000 432 | 429, 0.10000, 0.01000 433 | 430, 0.10500, 0.01000 434 | 431, 0.11000, 0.01000 435 | 432, 0.11500, 0.01000 436 | 433, 0.12000, 0.01000 437 | 434, 0.12500, 0.01000 438 | 435, 0.13000, 0.01000 439 | 436, 0.13500, 0.01000 440 | 437, 0.14000, 0.01000 441 | 438, 0.14500, 0.01000 442 | 439, 0.15000, 0.01000 443 | 440, 0.15500, 0.01000 444 | 441, 0.16000, 0.01000 445 | 442, 0.16500, 0.01000 446 | 443, 0.17000, 0.01000 447 | 444, 0.17500, 0.01000 448 | 445, 0.18000, 0.01000 449 | 446, 0.18500, 0.01000 450 | 447, 0.19000, 0.01000 451 | 448, 0.19500, 0.01000 452 | 449, 0.20000, 0.01000 453 | 450, 0.20500, 0.01000 454 | 451, 0.21000, 0.01000 455 | 452, 0.21500, 0.01000 456 | 453, 0.22000, 0.01000 457 | 454, 0.22500, 0.01000 458 | 455, 0.23000, 0.01000 459 | 456, 0.23500, 0.01000 460 | 457, 0.24000, 0.01000 461 | 458, 0.24500, 0.01000 462 | 459, 0.25000, 0.01000 463 | 460, 0.00000, 0.01125 464 | 461, 0.00500, 0.01125 465 | 462, 0.01000, 0.01125 466 | 463, 0.01500, 0.01125 467 | 464, 0.02000, 0.01125 468 | 465, 0.02500, 0.01125 469 | 466, 0.03000, 0.01125 470 | 467, 0.03500, 0.01125 471 | 468, 0.04000, 0.01125 472 | 469, 0.04500, 0.01125 473 | 470, 0.05000, 0.01125 474 | 471, 0.05500, 0.01125 475 | 472, 0.06000, 0.01125 476 | 473, 0.06500, 0.01125 477 | 474, 0.07000, 0.01125 478 | 475, 0.07500, 0.01125 479 | 476, 0.08000, 0.01125 480 | 477, 0.08500, 0.01125 481 | 478, 0.09000, 0.01125 482 | 479, 0.09500, 0.01125 483 | 480, 0.10000, 0.01125 484 | 481, 0.10500, 0.01125 485 | 482, 0.11000, 0.01125 486 | 483, 0.11500, 0.01125 487 | 484, 0.12000, 0.01125 488 | 485, 0.12500, 0.01125 489 | 486, 0.13000, 0.01125 490 | 487, 0.13500, 0.01125 491 | 488, 0.14000, 0.01125 492 | 489, 0.14500, 0.01125 493 | 490, 0.15000, 0.01125 494 | 491, 0.15500, 0.01125 495 | 492, 0.16000, 0.01125 496 | 493, 0.16500, 0.01125 497 | 494, 0.17000, 0.01125 498 | 495, 0.17500, 0.01125 499 | 496, 0.18000, 0.01125 500 | 497, 0.18500, 0.01125 501 | 498, 0.19000, 0.01125 502 | 499, 0.19500, 0.01125 503 | 500, 0.20000, 0.01125 504 | 501, 0.20500, 0.01125 505 | 502, 0.21000, 0.01125 506 | 503, 0.21500, 0.01125 507 | 504, 0.22000, 0.01125 508 | 505, 0.22500, 0.01125 509 | 506, 0.23000, 0.01125 510 | 507, 0.23500, 0.01125 511 | 508, 0.24000, 0.01125 512 | 509, 0.24500, 0.01125 513 | 510, 0.25000, 0.01125 514 | 511, 0.00000, 0.01250 515 | 512, 0.00500, 0.01250 516 | 513, 0.01000, 0.01250 517 | 514, 0.01500, 0.01250 518 | 515, 0.02000, 0.01250 519 | 516, 0.02500, 0.01250 520 | 517, 0.03000, 0.01250 521 | 518, 0.03500, 0.01250 522 | 519, 0.04000, 0.01250 523 | 520, 0.04500, 0.01250 524 | 521, 0.05000, 0.01250 525 | 522, 0.05500, 0.01250 526 | 523, 0.06000, 0.01250 527 | 524, 0.06500, 0.01250 528 | 525, 0.07000, 0.01250 529 | 526, 0.07500, 0.01250 530 | 527, 0.08000, 0.01250 531 | 528, 0.08500, 0.01250 532 | 529, 0.09000, 0.01250 533 | 530, 0.09500, 0.01250 534 | 531, 0.10000, 0.01250 535 | 532, 0.10500, 0.01250 536 | 533, 0.11000, 0.01250 537 | 534, 0.11500, 0.01250 538 | 535, 0.12000, 0.01250 539 | 536, 0.12500, 0.01250 540 | 537, 0.13000, 0.01250 541 | 538, 0.13500, 0.01250 542 | 539, 0.14000, 0.01250 543 | 540, 0.14500, 0.01250 544 | 541, 0.15000, 0.01250 545 | 542, 0.15500, 0.01250 546 | 543, 0.16000, 0.01250 547 | 544, 0.16500, 0.01250 548 | 545, 0.17000, 0.01250 549 | 546, 0.17500, 0.01250 550 | 547, 0.18000, 0.01250 551 | 548, 0.18500, 0.01250 552 | 549, 0.19000, 0.01250 553 | 550, 0.19500, 0.01250 554 | 551, 0.20000, 0.01250 555 | 552, 0.20500, 0.01250 556 | 553, 0.21000, 0.01250 557 | 554, 0.21500, 0.01250 558 | 555, 0.22000, 0.01250 559 | 556, 0.22500, 0.01250 560 | 557, 0.23000, 0.01250 561 | 558, 0.23500, 0.01250 562 | 559, 0.24000, 0.01250 563 | 560, 0.24500, 0.01250 564 | 561, 0.25000, 0.01250 565 | *********************************************************************** 566 | *********************************************************************** 567 | *USER ELEMENT,NODES=9,TYPE=U1,PROPERTIES=6,COORDINATES=2,VARIABLES=200 568 | 1,2 569 | *********************************************************************** 570 | *ELEMENT,TYPE=U1, ELSET=TODOS 571 | 1, 1, 3, 105, 103, 2, 54, 104, 52, 53 572 | 2, 3, 5, 107, 105, 4, 56, 106, 54, 55 573 | 3, 5, 7, 109, 107, 6, 58, 108, 56, 57 574 | 4, 7, 9, 111, 109, 8, 60, 110, 58, 59 575 | 5, 9, 11, 113, 111, 10, 62, 112, 60, 61 576 | 6, 11, 13, 115, 113, 12, 64, 114, 62, 63 577 | 7, 13, 15, 117, 115, 14, 66, 116, 64, 65 578 | 8, 15, 17, 119, 117, 16, 68, 118, 66, 67 579 | 9, 17, 19, 121, 119, 18, 70, 120, 68, 69 580 | 10, 19, 21, 123, 121, 20, 72, 122, 70, 71 581 | 11, 21, 23, 125, 123, 22, 74, 124, 72, 73 582 | 12, 23, 25, 127, 125, 24, 76, 126, 74, 75 583 | 13, 25, 27, 129, 127, 26, 78, 128, 76, 77 584 | 14, 27, 29, 131, 129, 28, 80, 130, 78, 79 585 | 15, 29, 31, 133, 131, 30, 82, 132, 80, 81 586 | 16, 31, 33, 135, 133, 32, 84, 134, 82, 83 587 | 17, 33, 35, 137, 135, 34, 86, 136, 84, 85 588 | 18, 35, 37, 139, 137, 36, 88, 138, 86, 87 589 | 19, 37, 39, 141, 139, 38, 90, 140, 88, 89 590 | 20, 39, 41, 143, 141, 40, 92, 142, 90, 91 591 | 21, 41, 43, 145, 143, 42, 94, 144, 92, 93 592 | 22, 43, 45, 147, 145, 44, 96, 146, 94, 95 593 | 23, 45, 47, 149, 147, 46, 98, 148, 96, 97 594 | 24, 47, 49, 151, 149, 48, 100, 150, 98, 99 595 | 25, 49, 51, 153, 151, 50, 102, 152, 100, 101 596 | 26, 103, 105, 207, 205, 104, 156, 206, 154, 155 597 | 27, 105, 107, 209, 207, 106, 158, 208, 156, 157 598 | 28, 107, 109, 211, 209, 108, 160, 210, 158, 159 599 | 29, 109, 111, 213, 211, 110, 162, 212, 160, 161 600 | 30, 111, 113, 215, 213, 112, 164, 214, 162, 163 601 | 31, 113, 115, 217, 215, 114, 166, 216, 164, 165 602 | 32, 115, 117, 219, 217, 116, 168, 218, 166, 167 603 | 33, 117, 119, 221, 219, 118, 170, 220, 168, 169 604 | 34, 119, 121, 223, 221, 120, 172, 222, 170, 171 605 | 35, 121, 123, 225, 223, 122, 174, 224, 172, 173 606 | 36, 123, 125, 227, 225, 124, 176, 226, 174, 175 607 | 37, 125, 127, 229, 227, 126, 178, 228, 176, 177 608 | 38, 127, 129, 231, 229, 128, 180, 230, 178, 179 609 | 39, 129, 131, 233, 231, 130, 182, 232, 180, 181 610 | 40, 131, 133, 235, 233, 132, 184, 234, 182, 183 611 | 41, 133, 135, 237, 235, 134, 186, 236, 184, 185 612 | 42, 135, 137, 239, 237, 136, 188, 238, 186, 187 613 | 43, 137, 139, 241, 239, 138, 190, 240, 188, 189 614 | 44, 139, 141, 243, 241, 140, 192, 242, 190, 191 615 | 45, 141, 143, 245, 243, 142, 194, 244, 192, 193 616 | 46, 143, 145, 247, 245, 144, 196, 246, 194, 195 617 | 47, 145, 147, 249, 247, 146, 198, 248, 196, 197 618 | 48, 147, 149, 251, 249, 148, 200, 250, 198, 199 619 | 49, 149, 151, 253, 251, 150, 202, 252, 200, 201 620 | 50, 151, 153, 255, 253, 152, 204, 254, 202, 203 621 | 51, 205, 207, 309, 307, 206, 258, 308, 256, 257 622 | 52, 207, 209, 311, 309, 208, 260, 310, 258, 259 623 | 53, 209, 211, 313, 311, 210, 262, 312, 260, 261 624 | 54, 211, 213, 315, 313, 212, 264, 314, 262, 263 625 | 55, 213, 215, 317, 315, 214, 266, 316, 264, 265 626 | 56, 215, 217, 319, 317, 216, 268, 318, 266, 267 627 | 57, 217, 219, 321, 319, 218, 270, 320, 268, 269 628 | 58, 219, 221, 323, 321, 220, 272, 322, 270, 271 629 | 59, 221, 223, 325, 323, 222, 274, 324, 272, 273 630 | 60, 223, 225, 327, 325, 224, 276, 326, 274, 275 631 | 61, 225, 227, 329, 327, 226, 278, 328, 276, 277 632 | 62, 227, 229, 331, 329, 228, 280, 330, 278, 279 633 | 63, 229, 231, 333, 331, 230, 282, 332, 280, 281 634 | 64, 231, 233, 335, 333, 232, 284, 334, 282, 283 635 | 65, 233, 235, 337, 335, 234, 286, 336, 284, 285 636 | 66, 235, 237, 339, 337, 236, 288, 338, 286, 287 637 | 67, 237, 239, 341, 339, 238, 290, 340, 288, 289 638 | 68, 239, 241, 343, 341, 240, 292, 342, 290, 291 639 | 69, 241, 243, 345, 343, 242, 294, 344, 292, 293 640 | 70, 243, 245, 347, 345, 244, 296, 346, 294, 295 641 | 71, 245, 247, 349, 347, 246, 298, 348, 296, 297 642 | 72, 247, 249, 351, 349, 248, 300, 350, 298, 299 643 | 73, 249, 251, 353, 351, 250, 302, 352, 300, 301 644 | 74, 251, 253, 355, 353, 252, 304, 354, 302, 303 645 | 75, 253, 255, 357, 355, 254, 306, 356, 304, 305 646 | 76, 307, 309, 411, 409, 308, 360, 410, 358, 359 647 | 77, 309, 311, 413, 411, 310, 362, 412, 360, 361 648 | 78, 311, 313, 415, 413, 312, 364, 414, 362, 363 649 | 79, 313, 315, 417, 415, 314, 366, 416, 364, 365 650 | 80, 315, 317, 419, 417, 316, 368, 418, 366, 367 651 | 81, 317, 319, 421, 419, 318, 370, 420, 368, 369 652 | 82, 319, 321, 423, 421, 320, 372, 422, 370, 371 653 | 83, 321, 323, 425, 423, 322, 374, 424, 372, 373 654 | 84, 323, 325, 427, 425, 324, 376, 426, 374, 375 655 | 85, 325, 327, 429, 427, 326, 378, 428, 376, 377 656 | 86, 327, 329, 431, 429, 328, 380, 430, 378, 379 657 | 87, 329, 331, 433, 431, 330, 382, 432, 380, 381 658 | 88, 331, 333, 435, 433, 332, 384, 434, 382, 383 659 | 89, 333, 335, 437, 435, 334, 386, 436, 384, 385 660 | 90, 335, 337, 439, 437, 336, 388, 438, 386, 387 661 | 91, 337, 339, 441, 439, 338, 390, 440, 388, 389 662 | 92, 339, 341, 443, 441, 340, 392, 442, 390, 391 663 | 93, 341, 343, 445, 443, 342, 394, 444, 392, 393 664 | 94, 343, 345, 447, 445, 344, 396, 446, 394, 395 665 | 95, 345, 347, 449, 447, 346, 398, 448, 396, 397 666 | 96, 347, 349, 451, 449, 348, 400, 450, 398, 399 667 | 97, 349, 351, 453, 451, 350, 402, 452, 400, 401 668 | 98, 351, 353, 455, 453, 352, 404, 454, 402, 403 669 | 99, 353, 355, 457, 455, 354, 406, 456, 404, 405 670 | 100, 355, 357, 459, 457, 356, 408, 458, 406, 407 671 | 101, 409, 411, 513, 511, 410, 462, 512, 460, 461 672 | 102, 411, 413, 515, 513, 412, 464, 514, 462, 463 673 | 103, 413, 415, 517, 515, 414, 466, 516, 464, 465 674 | 104, 415, 417, 519, 517, 416, 468, 518, 466, 467 675 | 105, 417, 419, 521, 519, 418, 470, 520, 468, 469 676 | 106, 419, 421, 523, 521, 420, 472, 522, 470, 471 677 | 107, 421, 423, 525, 523, 422, 474, 524, 472, 473 678 | 108, 423, 425, 527, 525, 424, 476, 526, 474, 475 679 | 109, 425, 427, 529, 527, 426, 478, 528, 476, 477 680 | 110, 427, 429, 531, 529, 428, 480, 530, 478, 479 681 | 111, 429, 431, 533, 531, 430, 482, 532, 480, 481 682 | 112, 431, 433, 535, 533, 432, 484, 534, 482, 483 683 | 113, 433, 435, 537, 535, 434, 486, 536, 484, 485 684 | 114, 435, 437, 539, 537, 436, 488, 538, 486, 487 685 | 115, 437, 439, 541, 539, 438, 490, 540, 488, 489 686 | 116, 439, 441, 543, 541, 440, 492, 542, 490, 491 687 | 117, 441, 443, 545, 543, 442, 494, 544, 492, 493 688 | 118, 443, 445, 547, 545, 444, 496, 546, 494, 495 689 | 119, 445, 447, 549, 547, 446, 498, 548, 496, 497 690 | 120, 447, 449, 551, 549, 448, 500, 550, 498, 499 691 | 121, 449, 451, 553, 551, 450, 502, 552, 500, 501 692 | 122, 451, 453, 555, 553, 452, 504, 554, 502, 503 693 | 123, 453, 455, 557, 555, 454, 506, 556, 504, 505 694 | 124, 455, 457, 559, 557, 456, 508, 558, 506, 507 695 | 125, 457, 459, 561, 559, 458, 510, 560, 508, 509 696 | *ELSET,ELSET=RESULTS 697 | 101 698 | *ELSET,ELSET=LEDGE 699 | 1,26,51,76, 700 | 101 701 | *************************************************** 702 | *************************************************** 703 | *NSET,NSET=LEFT1 704 | 1,52,103,154,205, 705 | 256,307,358,409,460, 706 | 511 707 | *NSET,NSET=LEFT2 708 | 256 709 | *NSET, NSET=EDGE 710 | 561 711 | ** 712 | *************************************************** 713 | **************MATERIAL PROPERTIES****************** 714 | *************************************************** 715 | *UEL PROPERTY,ELSET=TODOS 716 | 42.34E3,0.34,21.77,15.542,383.3,6227.4 717 | *************************************************** 718 | *************************************************** 719 | ** 720 | ** 721 | **** 722 | **** 723 | **** 724 | ** STEP: Step-1 725 | ** 726 | *Step,INC=10000, EXTRAPOLATION=NO, name=Step-1 727 | elastoplastic anaylisis 728 | *Static,direct 729 | 0.05,1.0 730 | *** 731 | *** 732 | *************************************************** 733 | *****A M P L I T U D E D E F I N I T I O N******* 734 | *************************************************** 735 | *AMPLITUDE,NAME=DIS 736 | 0.000, 0.000,1.0,1.0 737 | *************************************************** 738 | *************************************************** 739 | ******B O U N D A R Y C O N D I T I O N S********* 740 | *************************************************** 741 | ** 742 | ** Name: BC-1 Type: Displacement/Rotation 743 | *Boundary 744 | LEFT1, 1,1,0.0 745 | LEFT2, 2,2,0.0 746 | ***** 747 | ******************************************* 748 | **************L O A D S******************** 749 | ******************************************* 750 | ******************************************* 751 | **ACTIVATE THIS LINE FOR DISP. CONTROLLED** 752 | ******************************************* 753 | **BOUNDARY,AMPLITUDE=DIS 754 | **EDGE,2,2,-0.045 755 | ** 756 | ******************************************* 757 | **ACTIVATE THIS LINE FOR FORC. CONTROLLED** 758 | ******************************************* 759 | ** Name: Load-1 Type: Concentrated force 760 | *Cload,AMPLITUDE=DIS 761 | EDGE,2,-0.025 762 | ******************************************* 763 | ** 764 | *MONITOR, NODE=561,DOF=2 765 | ** 766 | ****************************************** 767 | ******* OUTPUT REQUEST********************* 768 | ******************************************* 769 | *ELPRINT, ELSET=RESULTS, FREQUENCY=1 770 | SDV133,sdv134,sdv135,sdv136,sdv137,sdv138,sdv139,sdv140 771 | *ELPRINT, ELSET=RESULTS, FREQUENCY=1 772 | sdv199,sdv200 773 | *End Step -------------------------------------------------------------------------------- /INPUT_FILES/STOLKEN_KIN.inp: -------------------------------------------------------------------------------- 1 | *HEADING 2 | Microbending-thickness 12.5 microns-Cosserat solid 3 | *NODE 4 | 1, 0.00000, 0.00000 5 | 2, 0.00500, 0.00000 6 | 3, 0.01000, 0.00000 7 | 4, 0.01500, 0.00000 8 | 5, 0.02000, 0.00000 9 | 6, 0.02500, 0.00000 10 | 7, 0.03000, 0.00000 11 | 8, 0.03500, 0.00000 12 | 9, 0.04000, 0.00000 13 | 10, 0.04500, 0.00000 14 | 11, 0.05000, 0.00000 15 | 12, 0.05500, 0.00000 16 | 13, 0.06000, 0.00000 17 | 14, 0.06500, 0.00000 18 | 15, 0.07000, 0.00000 19 | 16, 0.07500, 0.00000 20 | 17, 0.08000, 0.00000 21 | 18, 0.08500, 0.00000 22 | 19, 0.09000, 0.00000 23 | 20, 0.09500, 0.00000 24 | 21, 0.10000, 0.00000 25 | 22, 0.10500, 0.00000 26 | 23, 0.11000, 0.00000 27 | 24, 0.11500, 0.00000 28 | 25, 0.12000, 0.00000 29 | 26, 0.12500, 0.00000 30 | 27, 0.13000, 0.00000 31 | 28, 0.13500, 0.00000 32 | 29, 0.14000, 0.00000 33 | 30, 0.14500, 0.00000 34 | 31, 0.15000, 0.00000 35 | 32, 0.15500, 0.00000 36 | 33, 0.16000, 0.00000 37 | 34, 0.16500, 0.00000 38 | 35, 0.17000, 0.00000 39 | 36, 0.17500, 0.00000 40 | 37, 0.18000, 0.00000 41 | 38, 0.18500, 0.00000 42 | 39, 0.19000, 0.00000 43 | 40, 0.19500, 0.00000 44 | 41, 0.20000, 0.00000 45 | 42, 0.20500, 0.00000 46 | 43, 0.21000, 0.00000 47 | 44, 0.21500, 0.00000 48 | 45, 0.22000, 0.00000 49 | 46, 0.22500, 0.00000 50 | 47, 0.23000, 0.00000 51 | 48, 0.23500, 0.00000 52 | 49, 0.24000, 0.00000 53 | 50, 0.24500, 0.00000 54 | 51, 0.25000, 0.00000 55 | 52, 0.00000, 0.00125 56 | 53, 0.00500, 0.00125 57 | 54, 0.01000, 0.00125 58 | 55, 0.01500, 0.00125 59 | 56, 0.02000, 0.00125 60 | 57, 0.02500, 0.00125 61 | 58, 0.03000, 0.00125 62 | 59, 0.03500, 0.00125 63 | 60, 0.04000, 0.00125 64 | 61, 0.04500, 0.00125 65 | 62, 0.05000, 0.00125 66 | 63, 0.05500, 0.00125 67 | 64, 0.06000, 0.00125 68 | 65, 0.06500, 0.00125 69 | 66, 0.07000, 0.00125 70 | 67, 0.07500, 0.00125 71 | 68, 0.08000, 0.00125 72 | 69, 0.08500, 0.00125 73 | 70, 0.09000, 0.00125 74 | 71, 0.09500, 0.00125 75 | 72, 0.10000, 0.00125 76 | 73, 0.10500, 0.00125 77 | 74, 0.11000, 0.00125 78 | 75, 0.11500, 0.00125 79 | 76, 0.12000, 0.00125 80 | 77, 0.12500, 0.00125 81 | 78, 0.13000, 0.00125 82 | 79, 0.13500, 0.00125 83 | 80, 0.14000, 0.00125 84 | 81, 0.14500, 0.00125 85 | 82, 0.15000, 0.00125 86 | 83, 0.15500, 0.00125 87 | 84, 0.16000, 0.00125 88 | 85, 0.16500, 0.00125 89 | 86, 0.17000, 0.00125 90 | 87, 0.17500, 0.00125 91 | 88, 0.18000, 0.00125 92 | 89, 0.18500, 0.00125 93 | 90, 0.19000, 0.00125 94 | 91, 0.19500, 0.00125 95 | 92, 0.20000, 0.00125 96 | 93, 0.20500, 0.00125 97 | 94, 0.21000, 0.00125 98 | 95, 0.21500, 0.00125 99 | 96, 0.22000, 0.00125 100 | 97, 0.22500, 0.00125 101 | 98, 0.23000, 0.00125 102 | 99, 0.23500, 0.00125 103 | 100, 0.24000, 0.00125 104 | 101, 0.24500, 0.00125 105 | 102, 0.25000, 0.00125 106 | 103, 0.00000, 0.00250 107 | 104, 0.00500, 0.00250 108 | 105, 0.01000, 0.00250 109 | 106, 0.01500, 0.00250 110 | 107, 0.02000, 0.00250 111 | 108, 0.02500, 0.00250 112 | 109, 0.03000, 0.00250 113 | 110, 0.03500, 0.00250 114 | 111, 0.04000, 0.00250 115 | 112, 0.04500, 0.00250 116 | 113, 0.05000, 0.00250 117 | 114, 0.05500, 0.00250 118 | 115, 0.06000, 0.00250 119 | 116, 0.06500, 0.00250 120 | 117, 0.07000, 0.00250 121 | 118, 0.07500, 0.00250 122 | 119, 0.08000, 0.00250 123 | 120, 0.08500, 0.00250 124 | 121, 0.09000, 0.00250 125 | 122, 0.09500, 0.00250 126 | 123, 0.10000, 0.00250 127 | 124, 0.10500, 0.00250 128 | 125, 0.11000, 0.00250 129 | 126, 0.11500, 0.00250 130 | 127, 0.12000, 0.00250 131 | 128, 0.12500, 0.00250 132 | 129, 0.13000, 0.00250 133 | 130, 0.13500, 0.00250 134 | 131, 0.14000, 0.00250 135 | 132, 0.14500, 0.00250 136 | 133, 0.15000, 0.00250 137 | 134, 0.15500, 0.00250 138 | 135, 0.16000, 0.00250 139 | 136, 0.16500, 0.00250 140 | 137, 0.17000, 0.00250 141 | 138, 0.17500, 0.00250 142 | 139, 0.18000, 0.00250 143 | 140, 0.18500, 0.00250 144 | 141, 0.19000, 0.00250 145 | 142, 0.19500, 0.00250 146 | 143, 0.20000, 0.00250 147 | 144, 0.20500, 0.00250 148 | 145, 0.21000, 0.00250 149 | 146, 0.21500, 0.00250 150 | 147, 0.22000, 0.00250 151 | 148, 0.22500, 0.00250 152 | 149, 0.23000, 0.00250 153 | 150, 0.23500, 0.00250 154 | 151, 0.24000, 0.00250 155 | 152, 0.24500, 0.00250 156 | 153, 0.25000, 0.00250 157 | 154, 0.00000, 0.00375 158 | 155, 0.00500, 0.00375 159 | 156, 0.01000, 0.00375 160 | 157, 0.01500, 0.00375 161 | 158, 0.02000, 0.00375 162 | 159, 0.02500, 0.00375 163 | 160, 0.03000, 0.00375 164 | 161, 0.03500, 0.00375 165 | 162, 0.04000, 0.00375 166 | 163, 0.04500, 0.00375 167 | 164, 0.05000, 0.00375 168 | 165, 0.05500, 0.00375 169 | 166, 0.06000, 0.00375 170 | 167, 0.06500, 0.00375 171 | 168, 0.07000, 0.00375 172 | 169, 0.07500, 0.00375 173 | 170, 0.08000, 0.00375 174 | 171, 0.08500, 0.00375 175 | 172, 0.09000, 0.00375 176 | 173, 0.09500, 0.00375 177 | 174, 0.10000, 0.00375 178 | 175, 0.10500, 0.00375 179 | 176, 0.11000, 0.00375 180 | 177, 0.11500, 0.00375 181 | 178, 0.12000, 0.00375 182 | 179, 0.12500, 0.00375 183 | 180, 0.13000, 0.00375 184 | 181, 0.13500, 0.00375 185 | 182, 0.14000, 0.00375 186 | 183, 0.14500, 0.00375 187 | 184, 0.15000, 0.00375 188 | 185, 0.15500, 0.00375 189 | 186, 0.16000, 0.00375 190 | 187, 0.16500, 0.00375 191 | 188, 0.17000, 0.00375 192 | 189, 0.17500, 0.00375 193 | 190, 0.18000, 0.00375 194 | 191, 0.18500, 0.00375 195 | 192, 0.19000, 0.00375 196 | 193, 0.19500, 0.00375 197 | 194, 0.20000, 0.00375 198 | 195, 0.20500, 0.00375 199 | 196, 0.21000, 0.00375 200 | 197, 0.21500, 0.00375 201 | 198, 0.22000, 0.00375 202 | 199, 0.22500, 0.00375 203 | 200, 0.23000, 0.00375 204 | 201, 0.23500, 0.00375 205 | 202, 0.24000, 0.00375 206 | 203, 0.24500, 0.00375 207 | 204, 0.25000, 0.00375 208 | 205, 0.00000, 0.00500 209 | 206, 0.00500, 0.00500 210 | 207, 0.01000, 0.00500 211 | 208, 0.01500, 0.00500 212 | 209, 0.02000, 0.00500 213 | 210, 0.02500, 0.00500 214 | 211, 0.03000, 0.00500 215 | 212, 0.03500, 0.00500 216 | 213, 0.04000, 0.00500 217 | 214, 0.04500, 0.00500 218 | 215, 0.05000, 0.00500 219 | 216, 0.05500, 0.00500 220 | 217, 0.06000, 0.00500 221 | 218, 0.06500, 0.00500 222 | 219, 0.07000, 0.00500 223 | 220, 0.07500, 0.00500 224 | 221, 0.08000, 0.00500 225 | 222, 0.08500, 0.00500 226 | 223, 0.09000, 0.00500 227 | 224, 0.09500, 0.00500 228 | 225, 0.10000, 0.00500 229 | 226, 0.10500, 0.00500 230 | 227, 0.11000, 0.00500 231 | 228, 0.11500, 0.00500 232 | 229, 0.12000, 0.00500 233 | 230, 0.12500, 0.00500 234 | 231, 0.13000, 0.00500 235 | 232, 0.13500, 0.00500 236 | 233, 0.14000, 0.00500 237 | 234, 0.14500, 0.00500 238 | 235, 0.15000, 0.00500 239 | 236, 0.15500, 0.00500 240 | 237, 0.16000, 0.00500 241 | 238, 0.16500, 0.00500 242 | 239, 0.17000, 0.00500 243 | 240, 0.17500, 0.00500 244 | 241, 0.18000, 0.00500 245 | 242, 0.18500, 0.00500 246 | 243, 0.19000, 0.00500 247 | 244, 0.19500, 0.00500 248 | 245, 0.20000, 0.00500 249 | 246, 0.20500, 0.00500 250 | 247, 0.21000, 0.00500 251 | 248, 0.21500, 0.00500 252 | 249, 0.22000, 0.00500 253 | 250, 0.22500, 0.00500 254 | 251, 0.23000, 0.00500 255 | 252, 0.23500, 0.00500 256 | 253, 0.24000, 0.00500 257 | 254, 0.24500, 0.00500 258 | 255, 0.25000, 0.00500 259 | 256, 0.00000, 0.00625 260 | 257, 0.00500, 0.00625 261 | 258, 0.01000, 0.00625 262 | 259, 0.01500, 0.00625 263 | 260, 0.02000, 0.00625 264 | 261, 0.02500, 0.00625 265 | 262, 0.03000, 0.00625 266 | 263, 0.03500, 0.00625 267 | 264, 0.04000, 0.00625 268 | 265, 0.04500, 0.00625 269 | 266, 0.05000, 0.00625 270 | 267, 0.05500, 0.00625 271 | 268, 0.06000, 0.00625 272 | 269, 0.06500, 0.00625 273 | 270, 0.07000, 0.00625 274 | 271, 0.07500, 0.00625 275 | 272, 0.08000, 0.00625 276 | 273, 0.08500, 0.00625 277 | 274, 0.09000, 0.00625 278 | 275, 0.09500, 0.00625 279 | 276, 0.10000, 0.00625 280 | 277, 0.10500, 0.00625 281 | 278, 0.11000, 0.00625 282 | 279, 0.11500, 0.00625 283 | 280, 0.12000, 0.00625 284 | 281, 0.12500, 0.00625 285 | 282, 0.13000, 0.00625 286 | 283, 0.13500, 0.00625 287 | 284, 0.14000, 0.00625 288 | 285, 0.14500, 0.00625 289 | 286, 0.15000, 0.00625 290 | 287, 0.15500, 0.00625 291 | 288, 0.16000, 0.00625 292 | 289, 0.16500, 0.00625 293 | 290, 0.17000, 0.00625 294 | 291, 0.17500, 0.00625 295 | 292, 0.18000, 0.00625 296 | 293, 0.18500, 0.00625 297 | 294, 0.19000, 0.00625 298 | 295, 0.19500, 0.00625 299 | 296, 0.20000, 0.00625 300 | 297, 0.20500, 0.00625 301 | 298, 0.21000, 0.00625 302 | 299, 0.21500, 0.00625 303 | 300, 0.22000, 0.00625 304 | 301, 0.22500, 0.00625 305 | 302, 0.23000, 0.00625 306 | 303, 0.23500, 0.00625 307 | 304, 0.24000, 0.00625 308 | 305, 0.24500, 0.00625 309 | 306, 0.25000, 0.00625 310 | 307, 0.00000, 0.00750 311 | 308, 0.00500, 0.00750 312 | 309, 0.01000, 0.00750 313 | 310, 0.01500, 0.00750 314 | 311, 0.02000, 0.00750 315 | 312, 0.02500, 0.00750 316 | 313, 0.03000, 0.00750 317 | 314, 0.03500, 0.00750 318 | 315, 0.04000, 0.00750 319 | 316, 0.04500, 0.00750 320 | 317, 0.05000, 0.00750 321 | 318, 0.05500, 0.00750 322 | 319, 0.06000, 0.00750 323 | 320, 0.06500, 0.00750 324 | 321, 0.07000, 0.00750 325 | 322, 0.07500, 0.00750 326 | 323, 0.08000, 0.00750 327 | 324, 0.08500, 0.00750 328 | 325, 0.09000, 0.00750 329 | 326, 0.09500, 0.00750 330 | 327, 0.10000, 0.00750 331 | 328, 0.10500, 0.00750 332 | 329, 0.11000, 0.00750 333 | 330, 0.11500, 0.00750 334 | 331, 0.12000, 0.00750 335 | 332, 0.12500, 0.00750 336 | 333, 0.13000, 0.00750 337 | 334, 0.13500, 0.00750 338 | 335, 0.14000, 0.00750 339 | 336, 0.14500, 0.00750 340 | 337, 0.15000, 0.00750 341 | 338, 0.15500, 0.00750 342 | 339, 0.16000, 0.00750 343 | 340, 0.16500, 0.00750 344 | 341, 0.17000, 0.00750 345 | 342, 0.17500, 0.00750 346 | 343, 0.18000, 0.00750 347 | 344, 0.18500, 0.00750 348 | 345, 0.19000, 0.00750 349 | 346, 0.19500, 0.00750 350 | 347, 0.20000, 0.00750 351 | 348, 0.20500, 0.00750 352 | 349, 0.21000, 0.00750 353 | 350, 0.21500, 0.00750 354 | 351, 0.22000, 0.00750 355 | 352, 0.22500, 0.00750 356 | 353, 0.23000, 0.00750 357 | 354, 0.23500, 0.00750 358 | 355, 0.24000, 0.00750 359 | 356, 0.24500, 0.00750 360 | 357, 0.25000, 0.00750 361 | 358, 0.00000, 0.00875 362 | 359, 0.00500, 0.00875 363 | 360, 0.01000, 0.00875 364 | 361, 0.01500, 0.00875 365 | 362, 0.02000, 0.00875 366 | 363, 0.02500, 0.00875 367 | 364, 0.03000, 0.00875 368 | 365, 0.03500, 0.00875 369 | 366, 0.04000, 0.00875 370 | 367, 0.04500, 0.00875 371 | 368, 0.05000, 0.00875 372 | 369, 0.05500, 0.00875 373 | 370, 0.06000, 0.00875 374 | 371, 0.06500, 0.00875 375 | 372, 0.07000, 0.00875 376 | 373, 0.07500, 0.00875 377 | 374, 0.08000, 0.00875 378 | 375, 0.08500, 0.00875 379 | 376, 0.09000, 0.00875 380 | 377, 0.09500, 0.00875 381 | 378, 0.10000, 0.00875 382 | 379, 0.10500, 0.00875 383 | 380, 0.11000, 0.00875 384 | 381, 0.11500, 0.00875 385 | 382, 0.12000, 0.00875 386 | 383, 0.12500, 0.00875 387 | 384, 0.13000, 0.00875 388 | 385, 0.13500, 0.00875 389 | 386, 0.14000, 0.00875 390 | 387, 0.14500, 0.00875 391 | 388, 0.15000, 0.00875 392 | 389, 0.15500, 0.00875 393 | 390, 0.16000, 0.00875 394 | 391, 0.16500, 0.00875 395 | 392, 0.17000, 0.00875 396 | 393, 0.17500, 0.00875 397 | 394, 0.18000, 0.00875 398 | 395, 0.18500, 0.00875 399 | 396, 0.19000, 0.00875 400 | 397, 0.19500, 0.00875 401 | 398, 0.20000, 0.00875 402 | 399, 0.20500, 0.00875 403 | 400, 0.21000, 0.00875 404 | 401, 0.21500, 0.00875 405 | 402, 0.22000, 0.00875 406 | 403, 0.22500, 0.00875 407 | 404, 0.23000, 0.00875 408 | 405, 0.23500, 0.00875 409 | 406, 0.24000, 0.00875 410 | 407, 0.24500, 0.00875 411 | 408, 0.25000, 0.00875 412 | 409, 0.00000, 0.01000 413 | 410, 0.00500, 0.01000 414 | 411, 0.01000, 0.01000 415 | 412, 0.01500, 0.01000 416 | 413, 0.02000, 0.01000 417 | 414, 0.02500, 0.01000 418 | 415, 0.03000, 0.01000 419 | 416, 0.03500, 0.01000 420 | 417, 0.04000, 0.01000 421 | 418, 0.04500, 0.01000 422 | 419, 0.05000, 0.01000 423 | 420, 0.05500, 0.01000 424 | 421, 0.06000, 0.01000 425 | 422, 0.06500, 0.01000 426 | 423, 0.07000, 0.01000 427 | 424, 0.07500, 0.01000 428 | 425, 0.08000, 0.01000 429 | 426, 0.08500, 0.01000 430 | 427, 0.09000, 0.01000 431 | 428, 0.09500, 0.01000 432 | 429, 0.10000, 0.01000 433 | 430, 0.10500, 0.01000 434 | 431, 0.11000, 0.01000 435 | 432, 0.11500, 0.01000 436 | 433, 0.12000, 0.01000 437 | 434, 0.12500, 0.01000 438 | 435, 0.13000, 0.01000 439 | 436, 0.13500, 0.01000 440 | 437, 0.14000, 0.01000 441 | 438, 0.14500, 0.01000 442 | 439, 0.15000, 0.01000 443 | 440, 0.15500, 0.01000 444 | 441, 0.16000, 0.01000 445 | 442, 0.16500, 0.01000 446 | 443, 0.17000, 0.01000 447 | 444, 0.17500, 0.01000 448 | 445, 0.18000, 0.01000 449 | 446, 0.18500, 0.01000 450 | 447, 0.19000, 0.01000 451 | 448, 0.19500, 0.01000 452 | 449, 0.20000, 0.01000 453 | 450, 0.20500, 0.01000 454 | 451, 0.21000, 0.01000 455 | 452, 0.21500, 0.01000 456 | 453, 0.22000, 0.01000 457 | 454, 0.22500, 0.01000 458 | 455, 0.23000, 0.01000 459 | 456, 0.23500, 0.01000 460 | 457, 0.24000, 0.01000 461 | 458, 0.24500, 0.01000 462 | 459, 0.25000, 0.01000 463 | 460, 0.00000, 0.01125 464 | 461, 0.00500, 0.01125 465 | 462, 0.01000, 0.01125 466 | 463, 0.01500, 0.01125 467 | 464, 0.02000, 0.01125 468 | 465, 0.02500, 0.01125 469 | 466, 0.03000, 0.01125 470 | 467, 0.03500, 0.01125 471 | 468, 0.04000, 0.01125 472 | 469, 0.04500, 0.01125 473 | 470, 0.05000, 0.01125 474 | 471, 0.05500, 0.01125 475 | 472, 0.06000, 0.01125 476 | 473, 0.06500, 0.01125 477 | 474, 0.07000, 0.01125 478 | 475, 0.07500, 0.01125 479 | 476, 0.08000, 0.01125 480 | 477, 0.08500, 0.01125 481 | 478, 0.09000, 0.01125 482 | 479, 0.09500, 0.01125 483 | 480, 0.10000, 0.01125 484 | 481, 0.10500, 0.01125 485 | 482, 0.11000, 0.01125 486 | 483, 0.11500, 0.01125 487 | 484, 0.12000, 0.01125 488 | 485, 0.12500, 0.01125 489 | 486, 0.13000, 0.01125 490 | 487, 0.13500, 0.01125 491 | 488, 0.14000, 0.01125 492 | 489, 0.14500, 0.01125 493 | 490, 0.15000, 0.01125 494 | 491, 0.15500, 0.01125 495 | 492, 0.16000, 0.01125 496 | 493, 0.16500, 0.01125 497 | 494, 0.17000, 0.01125 498 | 495, 0.17500, 0.01125 499 | 496, 0.18000, 0.01125 500 | 497, 0.18500, 0.01125 501 | 498, 0.19000, 0.01125 502 | 499, 0.19500, 0.01125 503 | 500, 0.20000, 0.01125 504 | 501, 0.20500, 0.01125 505 | 502, 0.21000, 0.01125 506 | 503, 0.21500, 0.01125 507 | 504, 0.22000, 0.01125 508 | 505, 0.22500, 0.01125 509 | 506, 0.23000, 0.01125 510 | 507, 0.23500, 0.01125 511 | 508, 0.24000, 0.01125 512 | 509, 0.24500, 0.01125 513 | 510, 0.25000, 0.01125 514 | 511, 0.00000, 0.01250 515 | 512, 0.00500, 0.01250 516 | 513, 0.01000, 0.01250 517 | 514, 0.01500, 0.01250 518 | 515, 0.02000, 0.01250 519 | 516, 0.02500, 0.01250 520 | 517, 0.03000, 0.01250 521 | 518, 0.03500, 0.01250 522 | 519, 0.04000, 0.01250 523 | 520, 0.04500, 0.01250 524 | 521, 0.05000, 0.01250 525 | 522, 0.05500, 0.01250 526 | 523, 0.06000, 0.01250 527 | 524, 0.06500, 0.01250 528 | 525, 0.07000, 0.01250 529 | 526, 0.07500, 0.01250 530 | 527, 0.08000, 0.01250 531 | 528, 0.08500, 0.01250 532 | 529, 0.09000, 0.01250 533 | 530, 0.09500, 0.01250 534 | 531, 0.10000, 0.01250 535 | 532, 0.10500, 0.01250 536 | 533, 0.11000, 0.01250 537 | 534, 0.11500, 0.01250 538 | 535, 0.12000, 0.01250 539 | 536, 0.12500, 0.01250 540 | 537, 0.13000, 0.01250 541 | 538, 0.13500, 0.01250 542 | 539, 0.14000, 0.01250 543 | 540, 0.14500, 0.01250 544 | 541, 0.15000, 0.01250 545 | 542, 0.15500, 0.01250 546 | 543, 0.16000, 0.01250 547 | 544, 0.16500, 0.01250 548 | 545, 0.17000, 0.01250 549 | 546, 0.17500, 0.01250 550 | 547, 0.18000, 0.01250 551 | 548, 0.18500, 0.01250 552 | 549, 0.19000, 0.01250 553 | 550, 0.19500, 0.01250 554 | 551, 0.20000, 0.01250 555 | 552, 0.20500, 0.01250 556 | 553, 0.21000, 0.01250 557 | 554, 0.21500, 0.01250 558 | 555, 0.22000, 0.01250 559 | 556, 0.22500, 0.01250 560 | 557, 0.23000, 0.01250 561 | 558, 0.23500, 0.01250 562 | 559, 0.24000, 0.01250 563 | 560, 0.24500, 0.01250 564 | 561, 0.25000, 0.01250 565 | *********************************************************************** 566 | *********************************************************************** 567 | *USER ELEMENT,NODES=9,TYPE=U1,PROPERTIES=8,COORDINATES=2,VARIABLES=307 568 | 1,2,6 569 | *********************************************************************** 570 | *ELEMENT,TYPE=U1, ELSET=TODOS 571 | 1, 1, 3, 105, 103, 2, 54, 104, 52, 53 572 | 2, 3, 5, 107, 105, 4, 56, 106, 54, 55 573 | 3, 5, 7, 109, 107, 6, 58, 108, 56, 57 574 | 4, 7, 9, 111, 109, 8, 60, 110, 58, 59 575 | 5, 9, 11, 113, 111, 10, 62, 112, 60, 61 576 | 6, 11, 13, 115, 113, 12, 64, 114, 62, 63 577 | 7, 13, 15, 117, 115, 14, 66, 116, 64, 65 578 | 8, 15, 17, 119, 117, 16, 68, 118, 66, 67 579 | 9, 17, 19, 121, 119, 18, 70, 120, 68, 69 580 | 10, 19, 21, 123, 121, 20, 72, 122, 70, 71 581 | 11, 21, 23, 125, 123, 22, 74, 124, 72, 73 582 | 12, 23, 25, 127, 125, 24, 76, 126, 74, 75 583 | 13, 25, 27, 129, 127, 26, 78, 128, 76, 77 584 | 14, 27, 29, 131, 129, 28, 80, 130, 78, 79 585 | 15, 29, 31, 133, 131, 30, 82, 132, 80, 81 586 | 16, 31, 33, 135, 133, 32, 84, 134, 82, 83 587 | 17, 33, 35, 137, 135, 34, 86, 136, 84, 85 588 | 18, 35, 37, 139, 137, 36, 88, 138, 86, 87 589 | 19, 37, 39, 141, 139, 38, 90, 140, 88, 89 590 | 20, 39, 41, 143, 141, 40, 92, 142, 90, 91 591 | 21, 41, 43, 145, 143, 42, 94, 144, 92, 93 592 | 22, 43, 45, 147, 145, 44, 96, 146, 94, 95 593 | 23, 45, 47, 149, 147, 46, 98, 148, 96, 97 594 | 24, 47, 49, 151, 149, 48, 100, 150, 98, 99 595 | 25, 49, 51, 153, 151, 50, 102, 152, 100, 101 596 | 26, 103, 105, 207, 205, 104, 156, 206, 154, 155 597 | 27, 105, 107, 209, 207, 106, 158, 208, 156, 157 598 | 28, 107, 109, 211, 209, 108, 160, 210, 158, 159 599 | 29, 109, 111, 213, 211, 110, 162, 212, 160, 161 600 | 30, 111, 113, 215, 213, 112, 164, 214, 162, 163 601 | 31, 113, 115, 217, 215, 114, 166, 216, 164, 165 602 | 32, 115, 117, 219, 217, 116, 168, 218, 166, 167 603 | 33, 117, 119, 221, 219, 118, 170, 220, 168, 169 604 | 34, 119, 121, 223, 221, 120, 172, 222, 170, 171 605 | 35, 121, 123, 225, 223, 122, 174, 224, 172, 173 606 | 36, 123, 125, 227, 225, 124, 176, 226, 174, 175 607 | 37, 125, 127, 229, 227, 126, 178, 228, 176, 177 608 | 38, 127, 129, 231, 229, 128, 180, 230, 178, 179 609 | 39, 129, 131, 233, 231, 130, 182, 232, 180, 181 610 | 40, 131, 133, 235, 233, 132, 184, 234, 182, 183 611 | 41, 133, 135, 237, 235, 134, 186, 236, 184, 185 612 | 42, 135, 137, 239, 237, 136, 188, 238, 186, 187 613 | 43, 137, 139, 241, 239, 138, 190, 240, 188, 189 614 | 44, 139, 141, 243, 241, 140, 192, 242, 190, 191 615 | 45, 141, 143, 245, 243, 142, 194, 244, 192, 193 616 | 46, 143, 145, 247, 245, 144, 196, 246, 194, 195 617 | 47, 145, 147, 249, 247, 146, 198, 248, 196, 197 618 | 48, 147, 149, 251, 249, 148, 200, 250, 198, 199 619 | 49, 149, 151, 253, 251, 150, 202, 252, 200, 201 620 | 50, 151, 153, 255, 253, 152, 204, 254, 202, 203 621 | 51, 205, 207, 309, 307, 206, 258, 308, 256, 257 622 | 52, 207, 209, 311, 309, 208, 260, 310, 258, 259 623 | 53, 209, 211, 313, 311, 210, 262, 312, 260, 261 624 | 54, 211, 213, 315, 313, 212, 264, 314, 262, 263 625 | 55, 213, 215, 317, 315, 214, 266, 316, 264, 265 626 | 56, 215, 217, 319, 317, 216, 268, 318, 266, 267 627 | 57, 217, 219, 321, 319, 218, 270, 320, 268, 269 628 | 58, 219, 221, 323, 321, 220, 272, 322, 270, 271 629 | 59, 221, 223, 325, 323, 222, 274, 324, 272, 273 630 | 60, 223, 225, 327, 325, 224, 276, 326, 274, 275 631 | 61, 225, 227, 329, 327, 226, 278, 328, 276, 277 632 | 62, 227, 229, 331, 329, 228, 280, 330, 278, 279 633 | 63, 229, 231, 333, 331, 230, 282, 332, 280, 281 634 | 64, 231, 233, 335, 333, 232, 284, 334, 282, 283 635 | 65, 233, 235, 337, 335, 234, 286, 336, 284, 285 636 | 66, 235, 237, 339, 337, 236, 288, 338, 286, 287 637 | 67, 237, 239, 341, 339, 238, 290, 340, 288, 289 638 | 68, 239, 241, 343, 341, 240, 292, 342, 290, 291 639 | 69, 241, 243, 345, 343, 242, 294, 344, 292, 293 640 | 70, 243, 245, 347, 345, 244, 296, 346, 294, 295 641 | 71, 245, 247, 349, 347, 246, 298, 348, 296, 297 642 | 72, 247, 249, 351, 349, 248, 300, 350, 298, 299 643 | 73, 249, 251, 353, 351, 250, 302, 352, 300, 301 644 | 74, 251, 253, 355, 353, 252, 304, 354, 302, 303 645 | 75, 253, 255, 357, 355, 254, 306, 356, 304, 305 646 | 76, 307, 309, 411, 409, 308, 360, 410, 358, 359 647 | 77, 309, 311, 413, 411, 310, 362, 412, 360, 361 648 | 78, 311, 313, 415, 413, 312, 364, 414, 362, 363 649 | 79, 313, 315, 417, 415, 314, 366, 416, 364, 365 650 | 80, 315, 317, 419, 417, 316, 368, 418, 366, 367 651 | 81, 317, 319, 421, 419, 318, 370, 420, 368, 369 652 | 82, 319, 321, 423, 421, 320, 372, 422, 370, 371 653 | 83, 321, 323, 425, 423, 322, 374, 424, 372, 373 654 | 84, 323, 325, 427, 425, 324, 376, 426, 374, 375 655 | 85, 325, 327, 429, 427, 326, 378, 428, 376, 377 656 | 86, 327, 329, 431, 429, 328, 380, 430, 378, 379 657 | 87, 329, 331, 433, 431, 330, 382, 432, 380, 381 658 | 88, 331, 333, 435, 433, 332, 384, 434, 382, 383 659 | 89, 333, 335, 437, 435, 334, 386, 436, 384, 385 660 | 90, 335, 337, 439, 437, 336, 388, 438, 386, 387 661 | 91, 337, 339, 441, 439, 338, 390, 440, 388, 389 662 | 92, 339, 341, 443, 441, 340, 392, 442, 390, 391 663 | 93, 341, 343, 445, 443, 342, 394, 444, 392, 393 664 | 94, 343, 345, 447, 445, 344, 396, 446, 394, 395 665 | 95, 345, 347, 449, 447, 346, 398, 448, 396, 397 666 | 96, 347, 349, 451, 449, 348, 400, 450, 398, 399 667 | 97, 349, 351, 453, 451, 350, 402, 452, 400, 401 668 | 98, 351, 353, 455, 453, 352, 404, 454, 402, 403 669 | 99, 353, 355, 457, 455, 354, 406, 456, 404, 405 670 | 100, 355, 357, 459, 457, 356, 408, 458, 406, 407 671 | 101, 409, 411, 513, 511, 410, 462, 512, 460, 461 672 | 102, 411, 413, 515, 513, 412, 464, 514, 462, 463 673 | 103, 413, 415, 517, 515, 414, 466, 516, 464, 465 674 | 104, 415, 417, 519, 517, 416, 468, 518, 466, 467 675 | 105, 417, 419, 521, 519, 418, 470, 520, 468, 469 676 | 106, 419, 421, 523, 521, 420, 472, 522, 470, 471 677 | 107, 421, 423, 525, 523, 422, 474, 524, 472, 473 678 | 108, 423, 425, 527, 525, 424, 476, 526, 474, 475 679 | 109, 425, 427, 529, 527, 426, 478, 528, 476, 477 680 | 110, 427, 429, 531, 529, 428, 480, 530, 478, 479 681 | 111, 429, 431, 533, 531, 430, 482, 532, 480, 481 682 | 112, 431, 433, 535, 533, 432, 484, 534, 482, 483 683 | 113, 433, 435, 537, 535, 434, 486, 536, 484, 485 684 | 114, 435, 437, 539, 537, 436, 488, 538, 486, 487 685 | 115, 437, 439, 541, 539, 438, 490, 540, 488, 489 686 | 116, 439, 441, 543, 541, 440, 492, 542, 490, 491 687 | 117, 441, 443, 545, 543, 442, 494, 544, 492, 493 688 | 118, 443, 445, 547, 545, 444, 496, 546, 494, 495 689 | 119, 445, 447, 549, 547, 446, 498, 548, 496, 497 690 | 120, 447, 449, 551, 549, 448, 500, 550, 498, 499 691 | 121, 449, 451, 553, 551, 450, 502, 552, 500, 501 692 | 122, 451, 453, 555, 553, 452, 504, 554, 502, 503 693 | 123, 453, 455, 557, 555, 454, 506, 556, 504, 505 694 | 124, 455, 457, 559, 557, 456, 508, 558, 506, 507 695 | 125, 457, 459, 561, 559, 458, 510, 560, 508, 509 696 | *************************************************** 697 | *************************************************** 698 | *ELSET,ELSET=RESULTS 699 | 101 700 | *ELSET,ELSET=LEDGE 701 | 1,26,51,76, 702 | 101 703 | *NSET,NSET=LEFT1 704 | 1,52,103,154,205, 705 | 256,307,358,409,460, 706 | 511 707 | *NSET,NSET=LEFT2 708 | 256 709 | *NSET, NSET=EDGE 710 | 561 711 | *NSET,NSET=REDGE1 712 | 51,102,53,204, 713 | 255,306,357,408, 714 | 459,510,561 715 | *NSET,NSET=REDGE2 716 | 306 717 | *************************************************** 718 | *************************************************** 719 | *************************************************** 720 | **************MATERIAL PROPERTIES****************** 721 | *************************************************** 722 | *UEL PROPERTY,ELSET=TODOS 723 | 42.34E3,0.34,0.005,100.0,21.77,15.542,383.3,6227.4 724 | *************************************************** 725 | *************************************************** 726 | **** 727 | *************************************************** 728 | ******B O U N D A R Y C O N D I T I O N S********* 729 | *************************************************** 730 | ** Name: BC-1 Type: Displacement/Rotation 731 | *Boundary 732 | LEFT1,1,1,0.0 733 | LEFT2,2,2,0.0 734 | LEFT2,6,6,0.0 735 | *************************************************** 736 | *****A M P L I T U D E D E F I N I T I O N******* 737 | *************************************************** 738 | *** 739 | *AMPLITUDE,NAME=DIS 740 | 0.000, 0.000,1.0,1.0 741 | *** 742 | *** 743 | **************STEP: Step-1************************* 744 | *************************************************** 745 | ** 746 | *Step,INC=10000, EXTRAPOLATION=NO, name=Step-1 747 | elastoplastic anaylisis 748 | *Static,direct 749 | 0.05,1.0 750 | ***** 751 | ******************************************* 752 | **************L O A D S******************** 753 | ******************************************* 754 | **ACTIVATE THIS LINE FOR DISP. CONTROLLED** 755 | ******************************************* 756 | *** 757 | **BOUNDARY,AMPLITUDE=DIS 758 | **EDGE,2,2,-0.060 759 | ** 760 | ******************************************* 761 | **ACTIVATE THIS LINE FOR FORC. CONTROLLED** 762 | ******************************************* 763 | *Cload,AMPLITUDE=DIS 764 | EDGE,2,-0.025 765 | ** 766 | *MONITOR, NODE=561,DOF=2 767 | ** 768 | ****************************************** 769 | ******* OUTPUT REQUEST********************* 770 | ******************************************* 771 | **** 772 | **** 773 | *ELPRINT, ELSET=RESULTS, FREQUENCY=1 774 | SDV199,sdv200,sdv201,sdv202,sdv205,sdv206,sdv207,sdv208 775 | *ELPRINT, ELSET=RESULTS, FREQUENCY=1 776 | sdv306,sdv307 777 | *End Step -------------------------------------------------------------------------------- /INPUT_FILES/UNIUSER9CS.inp: -------------------------------------------------------------------------------- 1 | *HEADING 2 | Uniaxial tension-Cosserat solid 3 | *NODE 4 | 1, 0.0,0.0 5 | 2, 1.0,0.0 6 | 3, 1.0,1.0 7 | 4, 0.0,1.0 8 | 5, 0.5,0.0 9 | 6, 1.0,0.5 10 | 7, 0.5,1.0 11 | 8, 0.0,0.5 12 | 9, 0.5,0.5 13 | ** 14 | ** 15 | *NSET,NSET=BOTTOM 16 | 1,2,5 17 | *NSET,NSET=TOP 18 | 3,4,7 19 | *NSET, NSET=MIDDLE 20 | 6,8 21 | *NSET, NSET=EDGES 22 | 3,4,6,8 23 | *NSET, NSET=ALLNODES 24 | BOTTOM,TOP,MIDDLE 25 | ** 26 | ** 27 | ********************************************************************** 28 | *USER ELEMENT,NODES=9,TYPE=U1,PROPERTIES=8,COORDINATES=2,VARIABLES=253 29 | 1,2,6 30 | *ELEMENT,TYPE=U1, ELSET=TODOS 31 | 1,1,2,3,4,5,6,7,8,9 32 | *************************************************** 33 | **************MATERIAL PROPERTIES****************** 34 | *************************************************** 35 | *UEL PROPERTY,ELSET=TODOS 36 | 220.E3,0.3,0.005,9000.0,56.,0.0,343.5,0.25 37 | *************************************************** 38 | *************************************************** 39 | ** 40 | *BOUNDARY 41 | BOTTOM,ENCASTRE 42 | ** 43 | *STEP,INC=10000, EXTRAPOLATION=NO 44 | *STATIC,DIRECT 45 | 0.05,1.0 46 | *AMPLITUDE,NAME=DIS 47 | 0.000, 0.000,1.0,1.0 48 | ***BOUNDARY,AMPLITUDE=DIS 49 | ***TOP,2,2,0.002 50 | ************** 51 | *************** 52 | *CLOAD 53 | TOP,2,35.0 54 | ** 55 | *NODE PRINT,NSET=TOP, FREQUENCY=1 56 | U1,U2,RF 57 | *EL PRINT,ELSET=TODOS, POSITION=INTEGRATION POINTS 58 | SDV1,sdv2,SDV3,SDV4,SDV5,SDV6,SDV7,SDV8,sDV9,SDV10,SDV11,SDV12, 59 | SDV28,sdv29,SDV30,SDV31,SDV32,SDV33,SDV34,SDV35,sDV36,SDV37,SDV38,SDV39, 60 | SDV55,sdv56,SDV57,SDV58,SDV59,SDV60,SDV61,SDV62,sDV63,SDV64,SDV65,SDV66, 61 | SDV82,sdv83,SDV84,SDV85,SDV86,SDV87,SDV88,SDV89,sDV90,SDV91,SDV92,SDV93, 62 | SDV109,sdv110,SDV111,SDV112,SDV113,SDV114,SDV115,SDV116,sDV117,SDV118,SDV119,SDV120, 63 | sdv136,SDV137,sdv138,SDV139,SDV140,SDV141,SDV142,SDV143,SDV144,sDV145,SDV146,SDV147, 64 | sdv163,SDV164,sdv165,SDV166,SDV167,SDV168,SDV169,SDV170,SDV171,sDV172,SDV173,SDV174, 65 | sdv190,SDV191,sdv192,SDV193,SDV194,SDV195,SDV196,SDV197,SDV198,sDV199,SDV200,SDV201, 66 | sdv217,SDV218,sdv219,SDV220,SDV221,SDV222,SDV223,SDV224,SDV225,sDV226,SDV227,SDV228 67 | *END STEP -------------------------------------------------------------------------------- /INPUT_FILES/UNIUSER_CLA.inp: -------------------------------------------------------------------------------- 1 | *HEADING 2 | Uniaxial tension-Classical solid 3 | *NODE 4 | 1, 0.0,0.0 5 | 2, 1.0,0.0 6 | 3, 1.0,1.0 7 | 4, 0.0,1.0 8 | 5, 0.5,0.0 9 | 6, 1.0,0.5 10 | 7, 0.5,1.0 11 | 8, 0.0,0.5 12 | ** 13 | ** 14 | *NSET,NSET=BOTTOM 15 | 1,2,5 16 | *NSET,NSET=TOP 17 | 3,4,7 18 | *NSET, NSET=MIDDLE 19 | 6,8 20 | *NSET, NSET=EDGES 21 | 3,4,6,8 22 | *NSET, NSET=ALLNODES 23 | BOTTOM,TOP,MIDDLE 24 | ** 25 | ** 26 | *AMPLITUDE,NAME=DIS 27 | 0.000,0.000,1.0,1.0 28 | ********************************************************************** 29 | *USER ELEMENT,NODES=8,TYPE=U1,PROPERTIES=6,COORDINATES=2,VARIABLES=164 30 | 1,2 31 | *ELEMENT,TYPE=U1, ELSET=TODOS 32 | 1,1,2,3,4,5,6,7,8 33 | *UEL PROPERTY,ELSET=TODOS 34 | 220.E3,0.3,56.,0.0,343.5,0.25 35 | ********************************************************************** 36 | ** 37 | *BOUNDARY 38 | BOTTOM,ENCASTRE 39 | ** 40 | ** HISTORY DATA 41 | ** 42 | *STEP,INC=10000, EXTRAPOLATION=NO 43 | *STATIC 44 | 0.05,1.0 45 | *** 46 | *** 47 | **BOUNDARY,AMPLITUDE=DIS 48 | **TOP,2,2,0.002 49 | *** 50 | *CLOAD 51 | TOP,2,35.0 52 | ** 53 | ** 54 | *NODE PRINT,NSET=TOP, FREQUENCY=1 55 | U1,U2,RF 56 | *EL PRINT,ELSET=TODOS 57 | SDV1,sdv2,SDV3,SDV4,SDV5,SDV6,SDV7,SDV8, 58 | SDV19,sdv20,SDV21,SDV22,SDV23,SDV24,SDV25,SDV26, 59 | SDV37,sdv38,SDV39,SDV40,SDV41,SDV42,SDV43,SDV44, 60 | SDV55,sdv56,SDV57,SDV58,SDV59,SDV60,SDV61,SDV62, 61 | SDV73,sdv74,SDV75,SDV76,SDV77,SDV78,SDV79,SDV80, 62 | SDV91,sdv92,SDV93,SDV94,SDV95,SDV96,SDV97,SDV98, 63 | SDV109,sdv110,SDV111,SDV112,SDV113,SDV114,SDV115,SDV116, 64 | SDV127,sdv128,SDV129,SDV130,SDV131,SDV132,SDV133,SDV134, 65 | SDV145,sdv146,SDV147,SDV148,SDV149,SDV150,SDV151,SDV152 66 | *END STEP -------------------------------------------------------------------------------- /INPUT_FILES/UNIUSER_CLA_CAE.inp: -------------------------------------------------------------------------------- 1 | *HEADING 2 | Uniaxial tension-Cosserat solid 3 | *NODE 4 | 1, 0.0,0.0 5 | 2, 1.0,0.0 6 | 3, 1.0,1.0 7 | 4, 0.0,1.0 8 | 5, 0.5,0.0 9 | 6, 1.0,0.5 10 | 7, 0.5,1.0 11 | 8, 0.0,0.5 12 | ** 13 | ** 14 | *NSET,NSET=BOTTOM 15 | 1,2,5 16 | *NSET,NSET=TOP 17 | 3,4,7 18 | *NSET, NSET=MIDDLE 19 | 6,8 20 | *NSET, NSET=EDGES 21 | 3,4,6,8 22 | *NSET, NSET=ALLNODES 23 | BOTTOM,TOP,MIDDLE 24 | ** 25 | *Element, type=CPE8,ELSET=TODOS 26 | 1,1,2,3,4,5,6,7,8 27 | ** 28 | *Solid Section, elset=todos, material=stolken 29 | *Material, name=stolken 30 | *Elastic 31 | 220.0E3, 0.3 32 | ************ 33 | *AMPLITUDE,NAME=DIS 34 | 0.000, 0.000,1.0,1.0 35 | ** 36 | *BOUNDARY 37 | BOTTOM,ENCASTRE 38 | ** 39 | ** HISTORY DATA 40 | ** 41 | *STEP,INC=10000, EXTRAPOLATION=NO 42 | *STATIC,DIRECT 43 | 1.0,1.0 44 | *** 45 | *** 46 | *BOUNDARY,AMPLITUDE=DIS 47 | TOP,2,2,0.0002 48 | ** 49 | ** 50 | *NODE PRINT,NSET=TOP, FREQUENCY=1 51 | U1,U2,RF 52 | *EL PRINT,ELSET=TODOS,POSITION=INTEGRATION POINTS 53 | S,E 54 | *END STEP -------------------------------------------------------------------------------- /INPUT_FILES/UNIUSER_CLA_ELA.inp: -------------------------------------------------------------------------------- 1 | *HEADING 2 | Uniaxial tension-Cosserat solid 3 | *NODE 4 | 1, 0.0,0.0 5 | 2, 1.0,0.0 6 | 3, 1.0,1.0 7 | 4, 0.0,1.0 8 | 5, 0.5,0.0 9 | 6, 1.0,0.5 10 | 7, 0.5,1.0 11 | 8, 0.0,0.5 12 | ** 13 | ** 14 | *NSET,NSET=BOTTOM 15 | 1,2,5 16 | *NSET,NSET=TOP 17 | 3,4,7 18 | *NSET, NSET=MIDDLE 19 | 6,8 20 | *NSET, NSET=EDGES 21 | 3,4,6,8 22 | *NSET, NSET=ALLNODES 23 | BOTTOM,TOP,MIDDLE 24 | ** 25 | ** 26 | *AMPLITUDE,NAME=DIS 27 | 0.000, 0.000,1.0,1.0 28 | ********************************************************************** 29 | *USER ELEMENT,NODES=8,TYPE=U1,PROPERTIES=2,COORDINATES=2,VARIABLES=74 30 | 1,2 31 | *ELEMENT,TYPE=U1, ELSET=TODOS 32 | 1,1,2,3,4,5,6,7,8 33 | *UEL PROPERTY,ELSET=TODOS 34 | 220.E3,0.3 35 | ********************************************************************** 36 | ** 37 | *BOUNDARY 38 | BOTTOM,ENCASTRE 39 | ** 40 | ** HISTORY DATA 41 | ** 42 | *STEP,INC=10000, EXTRAPOLATION=NO 43 | *STATIC,DIRECT 44 | 1.0,1.0 45 | *** 46 | *** 47 | *BOUNDARY,AMPLITUDE=DIS 48 | TOP,2,2,0.0002 49 | ** 50 | ** 51 | *NODE PRINT,NSET=TOP, FREQUENCY=1 52 | U1,U2,RF 53 | *EL PRINT,ELSET=TODOS 54 | SDV1,sdv2,SDV3,SDV4,SDV5,SDV6,SDV7,SDV8, 55 | SDV9,sdv10,SDV11,SDV12,SDV13,SDV14,SDV15,SDV16, 56 | SDV17,sdv18,SDV19,SDV20,SDV21,SDV22,SDV23,SDV24, 57 | SDV25,sdv26,SDV27,SDV28,SDV29,SDV30,SDV31,SDV32, 58 | SDV33,sdv34,SDV35,SDV36,SDV37,SDV38,SDV39,SDV40, 59 | SDV41,sdv42,SDV43,SDV44,SDV45,SDV46,SDV47,SDV48, 60 | SDV49,sdv50,SDV51,SDV52,SDV53,SDV54,SDV55,SDV56, 61 | SDV57,sdv58,SDV59,SDV60,SDV61,SDV62,SDV63,SDV64, 62 | SDV65,sdv66,SDV67,SDV68,SDV69,SDV70,SDV71,SDV72 63 | *END STEP -------------------------------------------------------------------------------- /INPUT_FILES/UNIUSER_CLA_KIN.inp: -------------------------------------------------------------------------------- 1 | *HEADING 2 | Uniaxial tension-Cosserat solid 3 | *NODE 4 | 1, 0.0,0.0 5 | 2, 1.0,0.0 6 | 3, 1.0,1.0 7 | 4, 0.0,1.0 8 | 5, 0.5,0.0 9 | 6, 1.0,0.5 10 | 7, 0.5,1.0 11 | 8, 0.0,0.5 12 | ** 13 | ** 14 | *NSET,NSET=BOTTOM 15 | 1,2,5 16 | *NSET,NSET=TOP 17 | 3,4,7 18 | *NSET, NSET=MIDDLE 19 | 6,8 20 | *NSET, NSET=EDGES 21 | 3,4,6,8 22 | *NSET, NSET=ALLNODES 23 | BOTTOM,TOP,MIDDLE 24 | ** 25 | ** 26 | *************************************************** 27 | *Element, type=CPE8,ELSET=TODOS 28 | 1,1,2,3,4,5,6,7,8 29 | *************************************************** 30 | **************MATERIAL PROPERTIES****************** 31 | *************************************************** 32 | *SOLID SECTION,ELSET=TODOS,MATERIAL=STOLKEN 33 | *MATERIAL, NAME=STOLKEN 34 | *USER MATERIAL,CONSTANTS=6 35 | 42.34E3,0.342,21.77,15.54,383.3,6227.4 36 | *DEPVAR 37 | 14 38 | *************************************************** 39 | *************************************************** 40 | ** 41 | *BOUNDARY 42 | 1,2,2,0.0 43 | 2,2,2,0.0 44 | 5,1,2,0.0 45 | ** 46 | *STEP,INC=10000, EXTRAPOLATION=NO 47 | *STATIC,DIRECT 48 | 0.05,1.0 49 | *AMPLITUDE,NAME=DIS 50 | 0.000, 0.000,1.0,1.0 51 | ***BOUNDARY,AMPLITUDE=DIS 52 | ***TOP,2,2,0.002 53 | ************** 54 | *************** 55 | *CLOAD 56 | TOP,2,8.0 57 | ** 58 | *NODE PRINT,NSET=TOP, FREQUENCY=1 59 | U1,U2,RF 60 | *EL PRINT,ELSET=TODOS, POSITION=INTEGRATION POINTS 61 | S,E 62 | *END STEP -------------------------------------------------------------------------------- /INPUT_FILES/UNIUSER_CLA_UEL8.inp: -------------------------------------------------------------------------------- 1 | *HEADING 2 | Uniaxial tension-Cosserat solid 3 | *NODE 4 | 1, 0.0,0.0 5 | 2, 1.0,0.0 6 | 3, 1.0,1.0 7 | 4, 0.0,1.0 8 | 5, 0.5,0.0 9 | 6, 1.0,0.5 10 | 7, 0.5,1.0 11 | 8, 0.0,0.5 12 | ** 13 | ** 14 | *NSET,NSET=BOTTOM 15 | 1,2,5 16 | *NSET,NSET=TOP 17 | 3,4,7 18 | *NSET, NSET=MIDDLE 19 | 6,8 20 | *NSET, NSET=EDGES 21 | 3,4,6,8 22 | *NSET, NSET=ALLNODES 23 | BOTTOM,TOP,MIDDLE 24 | ** 25 | ** 26 | ********************************************************************** 27 | *USER ELEMENT,NODES=8,TYPE=U1,PROPERTIES=6,COORDINATES=2,VARIABLES=200 28 | 1,2 29 | *ELEMENT,TYPE=U1, ELSET=TODOS 30 | 1,1,2,3,4,5,6,7,8 31 | *************************************************** 32 | **************MATERIAL PROPERTIES****************** 33 | *************************************************** 34 | *UEL PROPERTY,ELSET=TODOS 35 | 42.34E3,0.342,21.77,15.54,383.3,6227.4 36 | *************************************************** 37 | *************************************************** 38 | ** 39 | *BOUNDARY 40 | 1,2,2,0.0 41 | 2,2,2,0.0 42 | 5,1,2,0.0 43 | ** 44 | *STEP,INC=10000, EXTRAPOLATION=NO 45 | *STATIC,DIRECT 46 | 0.05,1.0 47 | *AMPLITUDE,NAME=DIS 48 | 0.000, 0.000,1.0,1.0 49 | ***BOUNDARY,AMPLITUDE=DIS 50 | ***TOP,2,2,0.002 51 | ************** 52 | *************** 53 | *CLOAD 54 | TOP,2,8.0 55 | ** 56 | *NODE PRINT,NSET=TOP, FREQUENCY=1 57 | U1,U2,RF 58 | *EL PRINT,ELSET=TODOS, POSITION=INTEGRATION POINTS 59 | SDV1,sdv2,SDV3,SDV4,SDV5,SDV6,SDV7,SDV8, 60 | SDV23,sdv24,SDV25,SDV26,SDV27,SDV28,SDV29,SDV30, 61 | SDV45,sdv46,SDV47,SDV48,SDV49,SDV50,SDV51,SDV52, 62 | SDV67,sdv68,SDV69,SDV70,SDV71,SDV72,SDV73,SDV74, 63 | SDV89,sdv90,SDV91,SDV92,SDV93,SDV94,SDV95,SDV96, 64 | sdv111,SDV112,sdv113,SDV114,SDV115,SDV116,SDV117,SDV118, 65 | sdv133,SDV134,sdv135,SDV136,SDV137,SDV138,SDV139,SDV140, 66 | sdv155,SDV156,sdv157,SDV158,SDV159,SDV160,SDV161,SDV162, 67 | sdv177,SDV178,sdv179,SDV180,SDV181,SDV182,SDV183,SDV184 68 | *END STEP -------------------------------------------------------------------------------- /INPUT_FILES/UNIUSER_CLA_UEL9.inp: -------------------------------------------------------------------------------- 1 | *HEADING 2 | Uniaxial tension-Cosserat solid 3 | *NODE 4 | 1, 0.0,0.0 5 | 2, 1.0,0.0 6 | 3, 1.0,1.0 7 | 4, 0.0,1.0 8 | 5, 0.5,0.0 9 | 6, 1.0,0.5 10 | 7, 0.5,1.0 11 | 8, 0.0,0.5 12 | 9, 0.5,0.5 13 | ** 14 | ** 15 | *NSET,NSET=BOTTOM 16 | 1,2,5 17 | *NSET,NSET=TOP 18 | 3,4,7 19 | *NSET, NSET=MIDDLE 20 | 6,8 21 | *NSET, NSET=EDGES 22 | 3,4,6,8 23 | *NSET, NSET=ALLNODES 24 | BOTTOM,TOP,MIDDLE 25 | ** 26 | ** 27 | ********************************************************************** 28 | *USER ELEMENT,NODES=9,TYPE=U1,PROPERTIES=6,COORDINATES=2,VARIABLES=200 29 | 1,2 30 | *ELEMENT,TYPE=U1, ELSET=TODOS 31 | 1,1,2,3,4,5,6,7,8,9 32 | *************************************************** 33 | **************MATERIAL PROPERTIES****************** 34 | *************************************************** 35 | *UEL PROPERTY,ELSET=TODOS 36 | 42.34E3,0.342,21.77,15.54,383.3,6227.4 37 | *************************************************** 38 | *************************************************** 39 | ** 40 | *BOUNDARY 41 | 1,2,2,0.0 42 | 2,2,2,0.0 43 | 5,1,2,0.0 44 | ** 45 | *STEP,INC=10000, EXTRAPOLATION=NO 46 | *STATIC,DIRECT 47 | 0.05,1.0 48 | *AMPLITUDE,NAME=DIS 49 | 0.000, 0.000,1.0,1.0 50 | ***BOUNDARY,AMPLITUDE=DIS 51 | ***TOP,2,2,0.002 52 | ************** 53 | *************** 54 | *CLOAD 55 | TOP,2,8.0 56 | ** 57 | *NODE PRINT,NSET=TOP, FREQUENCY=1 58 | U1,U2,RF 59 | *EL PRINT,ELSET=TODOS, POSITION=INTEGRATION POINTS 60 | SDV1,sdv2,SDV3,SDV4,SDV5,SDV6,SDV7,SDV8, 61 | SDV23,sdv24,SDV25,SDV26,SDV27,SDV28,SDV29,SDV30, 62 | SDV45,sdv46,SDV47,SDV48,SDV49,SDV50,SDV51,SDV52, 63 | SDV67,sdv68,SDV69,SDV70,SDV71,SDV72,SDV73,SDV74, 64 | SDV89,sdv90,SDV91,SDV92,SDV93,SDV94,SDV95,SDV96, 65 | sdv111,SDV112,sdv113,SDV114,SDV115,SDV116,SDV117,SDV118, 66 | sdv133,SDV134,sdv135,SDV136,SDV137,SDV138,SDV139,SDV140, 67 | sdv155,SDV156,sdv157,SDV158,SDV159,SDV160,SDV161,SDV162, 68 | sdv177,SDV178,sdv179,SDV180,SDV181,SDV182,SDV183,SDV184 69 | *END STEP -------------------------------------------------------------------------------- /INPUT_FILES/UNIUSER_COS.inp: -------------------------------------------------------------------------------- 1 | *HEADING 2 | Uniaxial tension-Cosserat solid 3 | *NODE 4 | 1, 0.0,0.0 5 | 2, 1.0,0.0 6 | 3, 1.0,1.0 7 | 4, 0.0,1.0 8 | 5, 0.5,0.0 9 | 6, 1.0,0.5 10 | 7, 0.5,1.0 11 | 8, 0.0,0.5 12 | ** 13 | ** 14 | *NSET,NSET=BOTTOM 15 | 1,2,5 16 | *NSET,NSET=TOP 17 | 3,4,7 18 | *NSET, NSET=MIDDLE 19 | 6,8 20 | *NSET, NSET=EDGES 21 | 3,4,6,8 22 | *NSET, NSET=ALLNODES 23 | BOTTOM,TOP,MIDDLE 24 | ** 25 | ** 26 | *********************************************************************** 27 | *********************************************************************** 28 | *USER ELEMENT,NODES=8,TYPE=U1,PROPERTIES=8,COORDINATES=2,VARIABLES=253 29 | 1,2,6 30 | *********************************************************************** 31 | *ELEMENT,TYPE=U1, ELSET=TODOS 32 | 1,1,2,3,4,5,6,7,8 33 | *************************************************** 34 | **************MATERIAL PROPERTIES****************** 35 | *************************************************** 36 | *UEL PROPERTY,ELSET=TODOS 37 | 220.E3,0.3,0.005,900000.0,56.,0.0,343.5,0.25 38 | *************************************************** 39 | ** 40 | *BOUNDARY 41 | BOTTOM,ENCASTRE 42 | **1,1,2,0.0 43 | **2,1,2,0.0 44 | **5,1,2,0.0 45 | **5,6,6,0.0 46 | ** 47 | ** HISTORY DATA 48 | ** 49 | *STEP,INC=10000, EXTRAPOLATION=NO 50 | *STATIC,DIRECT 51 | 0.05,1.0 52 | *AMPLITUDE,NAME=DIS 53 | 0.000, 0.000,1.0,1.0 54 | ***BOUNDARY,AMPLITUDE=DIS 55 | ***TOP,2,2,0.002 56 | ************** 57 | *************** 58 | *CLOAD 59 | TOP,2,35.0 60 | ** 61 | *NODE PRINT,NSET=TOP, FREQUENCY=1 62 | U1,U2,RF 63 | *EL PRINT,ELSET=TODOS, POSITION=INTEGRATION POINTS 64 | SDV1,sdv2,SDV3,SDV4,SDV5,SDV6,SDV7,SDV8,sDV9,SDV10,SDV11,SDV12, 65 | SDV28,sdv29,SDV30,SDV31,SDV32,SDV33,SDV34,SDV35,sDV36,SDV37,SDV38,SDV39, 66 | SDV55,sdv56,SDV57,SDV58,SDV59,SDV60,SDV61,SDV62,sDV63,SDV64,SDV65,SDV66, 67 | SDV82,sdv83,SDV84,SDV85,SDV86,SDV87,SDV88,SDV89,sDV90,SDV91,SDV92,SDV93, 68 | SDV109,sdv110,SDV111,SDV112,SDV113,SDV114,SDV115,SDV116,sDV117,SDV118,SDV119,SDV120, 69 | sdv136,SDV137,sdv138,SDV139,SDV140,SDV141,SDV142,SDV143,SDV144,sDV145,SDV146,SDV147, 70 | sdv163,SDV164,sdv165,SDV166,SDV167,SDV168,SDV169,SDV170,SDV171,sDV172,SDV173,SDV174, 71 | sdv190,SDV191,sdv192,SDV193,SDV194,SDV195,SDV196,SDV197,SDV198,sDV199,SDV200,SDV201, 72 | sdv217,SDV218,sdv219,SDV220,SDV221,SDV222,SDV223,SDV224,SDV225,sDV226,SDV227,SDV228 73 | *END STEP -------------------------------------------------------------------------------- /INPUT_FILES/UNIUSER_COS_ELA.inp: -------------------------------------------------------------------------------- 1 | *HEADING 2 | Uniaxial tension-Cosserat solid 3 | *NODE 4 | 1, 0.0,0.0 5 | 2, 1.0,0.0 6 | 3, 1.0,1.0 7 | 4, 0.0,1.0 8 | 5, 0.5,0.0 9 | 6, 1.0,0.5 10 | 7, 0.5,1.0 11 | 8, 0.0,0.5 12 | ** 13 | ** 14 | *NSET,NSET=BOTTOM 15 | 1,2,5 16 | *NSET,NSET=TOP 17 | 3,4,7 18 | *NSET, NSET=MIDDLE 19 | 6,8 20 | *NSET, NSET=EDGES 21 | 3,4,6,8 22 | *NSET, NSET=ALLNODES 23 | BOTTOM,TOP,MIDDLE 24 | ** 25 | ** 26 | *********************************************************************** 27 | *********************************************************************** 28 | *USER ELEMENT,NODES=8,TYPE=U1,PROPERTIES=4,COORDINATES=2,VARIABLES=118 29 | 1,2,6 30 | *********************************************************************** 31 | *ELEMENT,TYPE=U1, ELSET=TODOS 32 | 1,1,2,3,4,5,6,7,8 33 | *************************************************** 34 | **************MATERIAL PROPERTIES****************** 35 | *************************************************** 36 | *UEL PROPERTY,ELSET=TODOS 37 | 220.E3,0.3,0.00005,220000.0 38 | *************************************************** 39 | ** 40 | *BOUNDARY 41 | 1,1,2,0.0 42 | 2,1,2,0.0 43 | 5,1,2,0.0 44 | 5,6,6,0.0 45 | ** 46 | ** HISTORY DATA 47 | ** 48 | *STEP,INC=10000, EXTRAPOLATION=NO 49 | *STATIC,DIRECT 50 | 1.0,1.0 51 | *AMPLITUDE,NAME=DIS 52 | 0.000, 0.000,1.0,1.0 53 | *BOUNDARY,AMPLITUDE=DIS 54 | TOP,2,2,0.0002 55 | ************** 56 | *************** 57 | ** 58 | ** 59 | *NODE PRINT,NSET=TOP, FREQUENCY=1 60 | U1,U2,RF 61 | *EL PRINT,ELSET=TODOS 62 | SDV1,sdv2,SDV3,SDV4,SDV5,SDV6,SDV7,SDV8,SDV9,sdv10,SDV11,SDV12, 63 | SDV13,SDV14,SDV15,SDV16,SDV17,sdv18,SDV19,SDV20,SDV21,SDV22,SDV23,SDV24, 64 | SDV25,sdv26,SDV27,SDV28,SDV29,SDV30,SDV31,SDV32,SDV33,sdv34,SDV35,SDV36, 65 | SDV37,SDV38,SDV39,SDV40,SDV41,sdv42,SDV43,SDV44,SDV45,SDV46,SDV47,SDV48, 66 | SDV49,sdv50,SDV51,SDV52,SDV53,SDV54,SDV55,SDV56,SDV57,sdv58,SDV59,SDV60, 67 | SDV61,SDV62,SDV63,SDV64,SDV65,sdv66,SDV67,SDV68,SDV69,SDV70,SDV71,SDV72, 68 | SDV73,SDV74,SDV75,SDV76,SDV77,sdv78,SDV79,SDV80,SDV81,SDV82,SDV83,SDV84, 69 | SDV85,SDV86,SDV87,SDV88,SDV89,sdv90,SDV91,SDV92,SDV93,SDV94,SDV95,SDV96, 70 | SDV97,SDV98,SDV99,SDV100,SDV101,sdv102,SDV103,SDV104,SDV105,SDV106,SDV107,SDV108 71 | *END STEP -------------------------------------------------------------------------------- /INPUT_FILES/UNIUSER_COS_KIN.inp: -------------------------------------------------------------------------------- 1 | *HEADING 2 | Uniaxial tension-Cosserat solid 3 | *NODE 4 | 1, 0.0,0.0 5 | 2, 1.0,0.0 6 | 3, 1.0,1.0 7 | 4, 0.0,1.0 8 | 5, 0.5,0.0 9 | 6, 1.0,0.5 10 | 7, 0.5,1.0 11 | 8, 0.0,0.5 12 | ** 13 | ** 14 | *NSET,NSET=BOTTOM 15 | 1,2,5 16 | *NSET,NSET=TOP 17 | 3,4,7 18 | *NSET, NSET=MIDDLE 19 | 6,8 20 | *NSET, NSET=EDGES 21 | 3,4,6,8 22 | *NSET, NSET=ALLNODES 23 | BOTTOM,TOP,MIDDLE 24 | ** 25 | ** 26 | *********************************************************************** 27 | *********************************************************************** 28 | *USER ELEMENT,NODES=8,TYPE=U1,PROPERTIES=8,COORDINATES=2,VARIABLES=307 29 | 1,2,6 30 | *********************************************************************** 31 | *ELEMENT,TYPE=U1, ELSET=TODOS 32 | 1,1,2,3,4,5,6,7,8 33 | *************************************************** 34 | **************MATERIAL PROPERTIES****************** 35 | *************************************************** 36 | *UEL PROPERTY,ELSET=TODOS 37 | 42.34E3,0.34,0.005,90000.0,21.77,15.542,383.3,6227.4 38 | *************************************************** 39 | ** 40 | *BOUNDARY 41 | BOTTOM,ENCASTRE 42 | **1,1,2,0.0 43 | **2,1,2,0.0 44 | **5,1,2,0.0 45 | **5,6,6,0.0 46 | ** 47 | ** HISTORY DATA 48 | ** 49 | *STEP,INC=10000, EXTRAPOLATION=NO 50 | *STATIC,DIRECT 51 | 0.05,1.0 52 | *AMPLITUDE,NAME=DIS 53 | 0.000, 0.000,1.0,1.0 54 | ***BOUNDARY,AMPLITUDE=DIS 55 | ***TOP,2,2,0.002 56 | ************** 57 | *************** 58 | *CLOAD 59 | TOP,2,8.0 60 | ** 61 | *NODE PRINT,NSET=TOP, FREQUENCY=1 62 | U1,U2,RF 63 | *EL PRINT,ELSET=TODOS, POSITION=INTEGRATION POINTS 64 | SDV1, sdv2, SDV3, SDV4, SDV7, SDV8, sDV9, SDV10, 65 | SDV34, sdv35, SDV36, SDV37, SDV40, SDV41, SDV42, SDV43, 66 | SDV67, sdv68, SDV69, SDV70, SDV73, SDV74, SDV75, SDV76, 67 | SDV100,sdv101,SDV102,SDV103,SDV106,SDV107,SDV108,SDV109, 68 | SDV133,sdv134,SDV135,SDV136,SDV139,SDV140,SDV141,SDV142, 69 | sdv166,SDV167,sdv168,SDV169,SDV172,SDV173,SDV174,SDV175, 70 | sdv199,SDV200,sdv201,SDV202,SDV205,SDV206,SDV207,SDV208, 71 | sdv232,SDV233,sdv234,SDV235,SDV238,SDV239,SDV240,SDV241, 72 | sdv265,SDV266,sdv267,SDV268,SDV271,SDV272,SDV273,SDV274 73 | *END STEP -------------------------------------------------------------------------------- /INPUT_FILES/UNIUSER_UEL8.inp: -------------------------------------------------------------------------------- 1 | *HEADING 2 | Uniaxial tension-Cosserat solid 3 | *NODE 4 | 1, 0.0,0.0 5 | 2, 1.0,0.0 6 | 3, 1.0,1.0 7 | 4, 0.0,1.0 8 | 5, 0.5,0.0 9 | 6, 1.0,0.5 10 | 7, 0.5,1.0 11 | 8, 0.0,0.5 12 | ** 13 | ** 14 | *NSET,NSET=BOTTOM 15 | 1,2,5 16 | *NSET,NSET=TOP 17 | 3,4,7 18 | *NSET, NSET=MIDDLE 19 | 6,8 20 | *NSET, NSET=EDGES 21 | 3,4,6,8 22 | *NSET, NSET=ALLNODES 23 | BOTTOM,TOP,MIDDLE 24 | ** 25 | ** 26 | *********************************************************************** 27 | *********************************************************************** 28 | *USER ELEMENT,NODES=8,TYPE=U1,PROPERTIES=6,COORDINATES=2,VARIABLES=200 29 | 1,2 30 | *********************************************************************** 31 | *ELEMENT,TYPE=U1, ELSET=TODOS 32 | 1,1,2,3,4,5,6,7,8 33 | *************************************************** 34 | **************MATERIAL PROPERTIES****************** 35 | *************************************************** 36 | *UEL PROPERTY,ELSET=TODOS 37 | 42.34E3,0.34,21.77,15.542,383.3,6227.4 38 | *************************************************** 39 | *************************************************** 40 | ** 41 | *BOUNDARY 42 | bottom,encastre 43 | **1,2,2,0.0 44 | **2,2,2,0.0 45 | **5,1,2,0.0 46 | ** 47 | *STEP,INC=10000, EXTRAPOLATION=NO 48 | *STATIC,DIRECT 49 | 0.05,1.0 50 | *AMPLITUDE,NAME=DIS 51 | 0.000, 0.000,1.0,1.0 52 | ***BOUNDARY,AMPLITUDE=DIS 53 | ***TOP,2,2,0.002 54 | ************** 55 | *************** 56 | *CLOAD 57 | TOP,2,8.0 58 | ** 59 | *NODE PRINT,NSET=TOP, FREQUENCY=1 60 | U1,U2,RF 61 | *EL PRINT,ELSET=TODOS 62 | SDV1,sdv2,SDV3,SDV4,SDV5,SDV6,SDV7,SDV8, 63 | sDV23,SDV24,SDV25,SDV26,SDV27,sdv28,SDV29,SDV30, 64 | SDV45,SDV46,SDV47,SDV48,sDV49,SDV50,SDV51,SDV52, 65 | SDV67,sdv68,SDV69,SDV70,SDV71,SDV72,SDV73,SDV74, 66 | sDV89,SDV90,SDV91,SDV92,SDV93,sdv94,SDV95,SDV96, 67 | SDV111,SDV112,SDV113,SDV114,sDV115,SDV116,SDV117,SDV118, 68 | SDV133,sdv134,SDV135,SDV136,SDV137,SDV138,SDV139,SDV140, 69 | sDV155,SDV156,SDV157,SDV158,sdv159,SDV160,sdv161,SDV162, 70 | SDV177,SDV178,SDV179,SDV180,SDV181,sDV182,SDV183,SDV184 71 | *END STEP -------------------------------------------------------------------------------- /INPUT_FILES/uniaxial_axi_uel.inp: -------------------------------------------------------------------------------- 1 | *HEADING 2 | Axysimmetric analysis 3 | *NODE 4 | 1, 0.0,0.0 5 | 2, 1.0,0.0 6 | 3, 1.0,1.0 7 | 4, 0.0,1.0 8 | 5, 0.5,0.0 9 | 6, 1.0,0.5 10 | 7, 0.5,1.0 11 | 8, 0.0,0.5 12 | ** 13 | *********************************************************************** 14 | *********************************************************************** 15 | *USER ELEMENT,NODES=8,TYPE=U1,PROPERTIES=2,COORDINATES=2,VARIABLES=74 16 | 1,2 17 | *********************************************************************** 18 | *ELEMENT,TYPE=U1, ELSET=TODOS 19 | 1,1,2,3,4,5,6,7,8 20 | *************************************************** 21 | **************MATERIAL PROPERTIES****************** 22 | *************************************************** 23 | *UEL PROPERTY,ELSET=TODOS 24 | 1000.0, 0.3 25 | *************************************************** 26 | *************************************************** 27 | ** 28 | *NSET,NSET=BOTTOM 29 | 1,2,5 30 | *NSET,NSET=TOP 31 | 3,4,7 32 | *NSET, NSET=MIDDLE 33 | 6,8 34 | *NSET, NSET=EDGES 35 | 3,4,6,8 36 | *NSET,NSET=LEFT 37 | 1,4,8 38 | *NSET,NSET=RIGHT 39 | 2,3,6 40 | *NSET, NSET=ALLNODES 41 | BOTTOM,TOP,MIDDLE 42 | ******************************* 43 | ** 44 | *BOUNDARY 45 | bottom,2,2,0.0 46 | LEFT,1,1,0.0 47 | ** 48 | ** HISTORY DATA 49 | ** 50 | *STEP,INC=10000, EXTRAPOLATION=NO 51 | *STATIC,DIRECT 52 | 1.0,1.0 53 | *AMPLITUDE,NAME=DIS 54 | 0.000, 0.000,1.0,1.0 55 | *********************** 56 | *BOUNDARY,AMPLITUDE=DIS 57 | RIGHT,1,1,1.0 58 | ** 59 | *NODE PRINT,NSET=RIGHT, FREQUENCY=1 60 | U1,U2,RF 61 | *EL PRINT,ELSET=TODOS 62 | SDV1, SDV2, SDV3, SDV4, SDV5, SDV6, SDV7, SDV8, 63 | SDV9, SDV10,SDV11,SDV12,SDV13,SDV14,SDV15,SDV16, 64 | SDV17, SDV18,SDV19,SDV20,SDV21,SDV22,SDV23,SDV24, 65 | SDV25, SDV26,SDV27,SDV28,SDV29,SDV30,SDV31,SDV32, 66 | SDV33, SDV34,SDV35,SDV36,SDV37,SDV38,SDV39,SDV40, 67 | SDV41, SDV42,SDV43,SDV44,SDV45,SDV46,SDV47,SDV48, 68 | SDV49, SDV50,SDV51,SDV52,SDV53,SDV54,SDV55,SDV56, 69 | SDV57, SDV58,SDV59,SDV60,SDV61,SDV62,SDV63,SDV64, 70 | SDV65, SDV66,SDV67,SDV68,SDV69,SDV70,SDV71,SDV72 71 | *END STEP -------------------------------------------------------------------------------- /LICENSE.md: -------------------------------------------------------------------------------- 1 | Copyright (c) [2015] [Juan Gomez] 2 | 3 | Permission is hereby granted, free of charge, to any person obtaining a copy 4 | of this software and associated documentation files (the "Software"), to deal 5 | in the Software without restriction, including without limitation the rights 6 | to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 7 | copies of the Software, and to permit persons to whom the Software is 8 | furnished to do so, subject to the following conditions: 9 | 10 | The above copyright notice and this permission notice shall be included in all 11 | copies or substantial portions of the Software. 12 | 13 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 14 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 15 | FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 16 | AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 17 | LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 18 | OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 19 | SOFTWARE. 20 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # ABAQUS-US 2 | 3 | This REPO contains a variety of ABAQUS user element (UEL) and user material (UMAT) subroutines. A list of input files and the related subroutine is defined in the file versheet.dat.In the future I will add more details on how to use the subroutines. The subroutines include classical and Cosserat elements with various constitutive models in the form of UMATs. 4 | 5 | ## Author 6 | - [Juan David Gómez Cataño](http://www.eafit.edu.co/docentes-investigadores/Paginas/juan-gomez.aspx), Professor at Universidad EAFIT. 7 | 8 | ## Installation 9 | Download the subroutines and run the Abaqus with the input file (`.inp`) that accompanies the subroutines. 10 | 11 | abaqus job=filename user=user_routine 12 | 13 | The list of cases is presented in this [table](./versheet.md) 14 | 15 | ### Example 16 | This is a uniaxial test with classical plasticity 17 | 18 | abaqus job=UNIUSER_CLA_KIN user=UMAT_PCLK 19 | 20 | 21 | ## License 22 | It is licensed under the [MIT license](http://en.wikipedia.org/wiki/MIT_License). 23 | -------------------------------------------------------------------------------- /SAMPLE/FIGURE_6_13_A.inp: -------------------------------------------------------------------------------- 1 | *HEADING 2 | Microbending-thickness 25.0 microns-Couple Stress solid 3 | *NODE 4 | 1, 0.00000, 0.00000 5 | 2, 0.00500, 0.00000 6 | 3, 0.01000, 0.00000 7 | 4, 0.01500, 0.00000 8 | 5, 0.02000, 0.00000 9 | 6, 0.02500, 0.00000 10 | 7, 0.03000, 0.00000 11 | 8, 0.03500, 0.00000 12 | 9, 0.04000, 0.00000 13 | 10, 0.04500, 0.00000 14 | 11, 0.05000, 0.00000 15 | 12, 0.05500, 0.00000 16 | 13, 0.06000, 0.00000 17 | 14, 0.06500, 0.00000 18 | 15, 0.07000, 0.00000 19 | 16, 0.07500, 0.00000 20 | 17, 0.08000, 0.00000 21 | 18, 0.08500, 0.00000 22 | 19, 0.09000, 0.00000 23 | 20, 0.09500, 0.00000 24 | 21, 0.10000, 0.00000 25 | 22, 0.10500, 0.00000 26 | 23, 0.11000, 0.00000 27 | 24, 0.11500, 0.00000 28 | 25, 0.12000, 0.00000 29 | 26, 0.12500, 0.00000 30 | 27, 0.13000, 0.00000 31 | 28, 0.13500, 0.00000 32 | 29, 0.14000, 0.00000 33 | 30, 0.14500, 0.00000 34 | 31, 0.15000, 0.00000 35 | 32, 0.15500, 0.00000 36 | 33, 0.16000, 0.00000 37 | 34, 0.16500, 0.00000 38 | 35, 0.17000, 0.00000 39 | 36, 0.17500, 0.00000 40 | 37, 0.18000, 0.00000 41 | 38, 0.18500, 0.00000 42 | 39, 0.19000, 0.00000 43 | 40, 0.19500, 0.00000 44 | 41, 0.20000, 0.00000 45 | 42, 0.20500, 0.00000 46 | 43, 0.21000, 0.00000 47 | 44, 0.21500, 0.00000 48 | 45, 0.22000, 0.00000 49 | 46, 0.22500, 0.00000 50 | 47, 0.23000, 0.00000 51 | 48, 0.23500, 0.00000 52 | 49, 0.24000, 0.00000 53 | 50, 0.24500, 0.00000 54 | 51, 0.25000, 0.00000 55 | 52, 0.00000, 0.00250 56 | 53, 0.00500, 0.00250 57 | 54, 0.01000, 0.00250 58 | 55, 0.01500, 0.00250 59 | 56, 0.02000, 0.00250 60 | 57, 0.02500, 0.00250 61 | 58, 0.03000, 0.00250 62 | 59, 0.03500, 0.00250 63 | 60, 0.04000, 0.00250 64 | 61, 0.04500, 0.00250 65 | 62, 0.05000, 0.00250 66 | 63, 0.05500, 0.00250 67 | 64, 0.06000, 0.00250 68 | 65, 0.06500, 0.00250 69 | 66, 0.07000, 0.00250 70 | 67, 0.07500, 0.00250 71 | 68, 0.08000, 0.00250 72 | 69, 0.08500, 0.00250 73 | 70, 0.09000, 0.00250 74 | 71, 0.09500, 0.00250 75 | 72, 0.10000, 0.00250 76 | 73, 0.10500, 0.00250 77 | 74, 0.11000, 0.00250 78 | 75, 0.11500, 0.00250 79 | 76, 0.12000, 0.00250 80 | 77, 0.12500, 0.00250 81 | 78, 0.13000, 0.00250 82 | 79, 0.13500, 0.00250 83 | 80, 0.14000, 0.00250 84 | 81, 0.14500, 0.00250 85 | 82, 0.15000, 0.00250 86 | 83, 0.15500, 0.00250 87 | 84, 0.16000, 0.00250 88 | 85, 0.16500, 0.00250 89 | 86, 0.17000, 0.00250 90 | 87, 0.17500, 0.00250 91 | 88, 0.18000, 0.00250 92 | 89, 0.18500, 0.00250 93 | 90, 0.19000, 0.00250 94 | 91, 0.19500, 0.00250 95 | 92, 0.20000, 0.00250 96 | 93, 0.20500, 0.00250 97 | 94, 0.21000, 0.00250 98 | 95, 0.21500, 0.00250 99 | 96, 0.22000, 0.00250 100 | 97, 0.22500, 0.00250 101 | 98, 0.23000, 0.00250 102 | 99, 0.23500, 0.00250 103 | 100, 0.24000, 0.00250 104 | 101, 0.24500, 0.00250 105 | 102, 0.25000, 0.00250 106 | 103, 0.00000, 0.00500 107 | 104, 0.00500, 0.00500 108 | 105, 0.01000, 0.00500 109 | 106, 0.01500, 0.00500 110 | 107, 0.02000, 0.00500 111 | 108, 0.02500, 0.00500 112 | 109, 0.03000, 0.00500 113 | 110, 0.03500, 0.00500 114 | 111, 0.04000, 0.00500 115 | 112, 0.04500, 0.00500 116 | 113, 0.05000, 0.00500 117 | 114, 0.05500, 0.00500 118 | 115, 0.06000, 0.00500 119 | 116, 0.06500, 0.00500 120 | 117, 0.07000, 0.00500 121 | 118, 0.07500, 0.00500 122 | 119, 0.08000, 0.00500 123 | 120, 0.08500, 0.00500 124 | 121, 0.09000, 0.00500 125 | 122, 0.09500, 0.00500 126 | 123, 0.10000, 0.00500 127 | 124, 0.10500, 0.00500 128 | 125, 0.11000, 0.00500 129 | 126, 0.11500, 0.00500 130 | 127, 0.12000, 0.00500 131 | 128, 0.12500, 0.00500 132 | 129, 0.13000, 0.00500 133 | 130, 0.13500, 0.00500 134 | 131, 0.14000, 0.00500 135 | 132, 0.14500, 0.00500 136 | 133, 0.15000, 0.00500 137 | 134, 0.15500, 0.00500 138 | 135, 0.16000, 0.00500 139 | 136, 0.16500, 0.00500 140 | 137, 0.17000, 0.00500 141 | 138, 0.17500, 0.00500 142 | 139, 0.18000, 0.00500 143 | 140, 0.18500, 0.00500 144 | 141, 0.19000, 0.00500 145 | 142, 0.19500, 0.00500 146 | 143, 0.20000, 0.00500 147 | 144, 0.20500, 0.00500 148 | 145, 0.21000, 0.00500 149 | 146, 0.21500, 0.00500 150 | 147, 0.22000, 0.00500 151 | 148, 0.22500, 0.00500 152 | 149, 0.23000, 0.00500 153 | 150, 0.23500, 0.00500 154 | 151, 0.24000, 0.00500 155 | 152, 0.24500, 0.00500 156 | 153, 0.25000, 0.00500 157 | 154, 0.00000, 0.00750 158 | 155, 0.00500, 0.00750 159 | 156, 0.01000, 0.00750 160 | 157, 0.01500, 0.00750 161 | 158, 0.02000, 0.00750 162 | 159, 0.02500, 0.00750 163 | 160, 0.03000, 0.00750 164 | 161, 0.03500, 0.00750 165 | 162, 0.04000, 0.00750 166 | 163, 0.04500, 0.00750 167 | 164, 0.05000, 0.00750 168 | 165, 0.05500, 0.00750 169 | 166, 0.06000, 0.00750 170 | 167, 0.06500, 0.00750 171 | 168, 0.07000, 0.00750 172 | 169, 0.07500, 0.00750 173 | 170, 0.08000, 0.00750 174 | 171, 0.08500, 0.00750 175 | 172, 0.09000, 0.00750 176 | 173, 0.09500, 0.00750 177 | 174, 0.10000, 0.00750 178 | 175, 0.10500, 0.00750 179 | 176, 0.11000, 0.00750 180 | 177, 0.11500, 0.00750 181 | 178, 0.12000, 0.00750 182 | 179, 0.12500, 0.00750 183 | 180, 0.13000, 0.00750 184 | 181, 0.13500, 0.00750 185 | 182, 0.14000, 0.00750 186 | 183, 0.14500, 0.00750 187 | 184, 0.15000, 0.00750 188 | 185, 0.15500, 0.00750 189 | 186, 0.16000, 0.00750 190 | 187, 0.16500, 0.00750 191 | 188, 0.17000, 0.00750 192 | 189, 0.17500, 0.00750 193 | 190, 0.18000, 0.00750 194 | 191, 0.18500, 0.00750 195 | 192, 0.19000, 0.00750 196 | 193, 0.19500, 0.00750 197 | 194, 0.20000, 0.00750 198 | 195, 0.20500, 0.00750 199 | 196, 0.21000, 0.00750 200 | 197, 0.21500, 0.00750 201 | 198, 0.22000, 0.00750 202 | 199, 0.22500, 0.00750 203 | 200, 0.23000, 0.00750 204 | 201, 0.23500, 0.00750 205 | 202, 0.24000, 0.00750 206 | 203, 0.24500, 0.00750 207 | 204, 0.25000, 0.00750 208 | 205, 0.00000, 0.01000 209 | 206, 0.00500, 0.01000 210 | 207, 0.01000, 0.01000 211 | 208, 0.01500, 0.01000 212 | 209, 0.02000, 0.01000 213 | 210, 0.02500, 0.01000 214 | 211, 0.03000, 0.01000 215 | 212, 0.03500, 0.01000 216 | 213, 0.04000, 0.01000 217 | 214, 0.04500, 0.01000 218 | 215, 0.05000, 0.01000 219 | 216, 0.05500, 0.01000 220 | 217, 0.06000, 0.01000 221 | 218, 0.06500, 0.01000 222 | 219, 0.07000, 0.01000 223 | 220, 0.07500, 0.01000 224 | 221, 0.08000, 0.01000 225 | 222, 0.08500, 0.01000 226 | 223, 0.09000, 0.01000 227 | 224, 0.09500, 0.01000 228 | 225, 0.10000, 0.01000 229 | 226, 0.10500, 0.01000 230 | 227, 0.11000, 0.01000 231 | 228, 0.11500, 0.01000 232 | 229, 0.12000, 0.01000 233 | 230, 0.12500, 0.01000 234 | 231, 0.13000, 0.01000 235 | 232, 0.13500, 0.01000 236 | 233, 0.14000, 0.01000 237 | 234, 0.14500, 0.01000 238 | 235, 0.15000, 0.01000 239 | 236, 0.15500, 0.01000 240 | 237, 0.16000, 0.01000 241 | 238, 0.16500, 0.01000 242 | 239, 0.17000, 0.01000 243 | 240, 0.17500, 0.01000 244 | 241, 0.18000, 0.01000 245 | 242, 0.18500, 0.01000 246 | 243, 0.19000, 0.01000 247 | 244, 0.19500, 0.01000 248 | 245, 0.20000, 0.01000 249 | 246, 0.20500, 0.01000 250 | 247, 0.21000, 0.01000 251 | 248, 0.21500, 0.01000 252 | 249, 0.22000, 0.01000 253 | 250, 0.22500, 0.01000 254 | 251, 0.23000, 0.01000 255 | 252, 0.23500, 0.01000 256 | 253, 0.24000, 0.01000 257 | 254, 0.24500, 0.01000 258 | 255, 0.25000, 0.01000 259 | 256, 0.00000, 0.01250 260 | 257, 0.00500, 0.01250 261 | 258, 0.01000, 0.01250 262 | 259, 0.01500, 0.01250 263 | 260, 0.02000, 0.01250 264 | 261, 0.02500, 0.01250 265 | 262, 0.03000, 0.01250 266 | 263, 0.03500, 0.01250 267 | 264, 0.04000, 0.01250 268 | 265, 0.04500, 0.01250 269 | 266, 0.05000, 0.01250 270 | 267, 0.05500, 0.01250 271 | 268, 0.06000, 0.01250 272 | 269, 0.06500, 0.01250 273 | 270, 0.07000, 0.01250 274 | 271, 0.07500, 0.01250 275 | 272, 0.08000, 0.01250 276 | 273, 0.08500, 0.01250 277 | 274, 0.09000, 0.01250 278 | 275, 0.09500, 0.01250 279 | 276, 0.10000, 0.01250 280 | 277, 0.10500, 0.01250 281 | 278, 0.11000, 0.01250 282 | 279, 0.11500, 0.01250 283 | 280, 0.12000, 0.01250 284 | 281, 0.12500, 0.01250 285 | 282, 0.13000, 0.01250 286 | 283, 0.13500, 0.01250 287 | 284, 0.14000, 0.01250 288 | 285, 0.14500, 0.01250 289 | 286, 0.15000, 0.01250 290 | 287, 0.15500, 0.01250 291 | 288, 0.16000, 0.01250 292 | 289, 0.16500, 0.01250 293 | 290, 0.17000, 0.01250 294 | 291, 0.17500, 0.01250 295 | 292, 0.18000, 0.01250 296 | 293, 0.18500, 0.01250 297 | 294, 0.19000, 0.01250 298 | 295, 0.19500, 0.01250 299 | 296, 0.20000, 0.01250 300 | 297, 0.20500, 0.01250 301 | 298, 0.21000, 0.01250 302 | 299, 0.21500, 0.01250 303 | 300, 0.22000, 0.01250 304 | 301, 0.22500, 0.01250 305 | 302, 0.23000, 0.01250 306 | 303, 0.23500, 0.01250 307 | 304, 0.24000, 0.01250 308 | 305, 0.24500, 0.01250 309 | 306, 0.25000, 0.01250 310 | 307, 0.00000, 0.01500 311 | 308, 0.00500, 0.01500 312 | 309, 0.01000, 0.01500 313 | 310, 0.01500, 0.01500 314 | 311, 0.02000, 0.01500 315 | 312, 0.02500, 0.01500 316 | 313, 0.03000, 0.01500 317 | 314, 0.03500, 0.01500 318 | 315, 0.04000, 0.01500 319 | 316, 0.04500, 0.01500 320 | 317, 0.05000, 0.01500 321 | 318, 0.05500, 0.01500 322 | 319, 0.06000, 0.01500 323 | 320, 0.06500, 0.01500 324 | 321, 0.07000, 0.01500 325 | 322, 0.07500, 0.01500 326 | 323, 0.08000, 0.01500 327 | 324, 0.08500, 0.01500 328 | 325, 0.09000, 0.01500 329 | 326, 0.09500, 0.01500 330 | 327, 0.10000, 0.01500 331 | 328, 0.10500, 0.01500 332 | 329, 0.11000, 0.01500 333 | 330, 0.11500, 0.01500 334 | 331, 0.12000, 0.01500 335 | 332, 0.12500, 0.01500 336 | 333, 0.13000, 0.01500 337 | 334, 0.13500, 0.01500 338 | 335, 0.14000, 0.01500 339 | 336, 0.14500, 0.01500 340 | 337, 0.15000, 0.01500 341 | 338, 0.15500, 0.01500 342 | 339, 0.16000, 0.01500 343 | 340, 0.16500, 0.01500 344 | 341, 0.17000, 0.01500 345 | 342, 0.17500, 0.01500 346 | 343, 0.18000, 0.01500 347 | 344, 0.18500, 0.01500 348 | 345, 0.19000, 0.01500 349 | 346, 0.19500, 0.01500 350 | 347, 0.20000, 0.01500 351 | 348, 0.20500, 0.01500 352 | 349, 0.21000, 0.01500 353 | 350, 0.21500, 0.01500 354 | 351, 0.22000, 0.01500 355 | 352, 0.22500, 0.01500 356 | 353, 0.23000, 0.01500 357 | 354, 0.23500, 0.01500 358 | 355, 0.24000, 0.01500 359 | 356, 0.24500, 0.01500 360 | 357, 0.25000, 0.01500 361 | 358, 0.00000, 0.01750 362 | 359, 0.00500, 0.01750 363 | 360, 0.01000, 0.01750 364 | 361, 0.01500, 0.01750 365 | 362, 0.02000, 0.01750 366 | 363, 0.02500, 0.01750 367 | 364, 0.03000, 0.01750 368 | 365, 0.03500, 0.01750 369 | 366, 0.04000, 0.01750 370 | 367, 0.04500, 0.01750 371 | 368, 0.05000, 0.01750 372 | 369, 0.05500, 0.01750 373 | 370, 0.06000, 0.01750 374 | 371, 0.06500, 0.01750 375 | 372, 0.07000, 0.01750 376 | 373, 0.07500, 0.01750 377 | 374, 0.08000, 0.01750 378 | 375, 0.08500, 0.01750 379 | 376, 0.09000, 0.01750 380 | 377, 0.09500, 0.01750 381 | 378, 0.10000, 0.01750 382 | 379, 0.10500, 0.01750 383 | 380, 0.11000, 0.01750 384 | 381, 0.11500, 0.01750 385 | 382, 0.12000, 0.01750 386 | 383, 0.12500, 0.01750 387 | 384, 0.13000, 0.01750 388 | 385, 0.13500, 0.01750 389 | 386, 0.14000, 0.01750 390 | 387, 0.14500, 0.01750 391 | 388, 0.15000, 0.01750 392 | 389, 0.15500, 0.01750 393 | 390, 0.16000, 0.01750 394 | 391, 0.16500, 0.01750 395 | 392, 0.17000, 0.01750 396 | 393, 0.17500, 0.01750 397 | 394, 0.18000, 0.01750 398 | 395, 0.18500, 0.01750 399 | 396, 0.19000, 0.01750 400 | 397, 0.19500, 0.01750 401 | 398, 0.20000, 0.01750 402 | 399, 0.20500, 0.01750 403 | 400, 0.21000, 0.01750 404 | 401, 0.21500, 0.01750 405 | 402, 0.22000, 0.01750 406 | 403, 0.22500, 0.01750 407 | 404, 0.23000, 0.01750 408 | 405, 0.23500, 0.01750 409 | 406, 0.24000, 0.01750 410 | 407, 0.24500, 0.01750 411 | 408, 0.25000, 0.01750 412 | 409, 0.00000, 0.02000 413 | 410, 0.00500, 0.02000 414 | 411, 0.01000, 0.02000 415 | 412, 0.01500, 0.02000 416 | 413, 0.02000, 0.02000 417 | 414, 0.02500, 0.02000 418 | 415, 0.03000, 0.02000 419 | 416, 0.03500, 0.02000 420 | 417, 0.04000, 0.02000 421 | 418, 0.04500, 0.02000 422 | 419, 0.05000, 0.02000 423 | 420, 0.05500, 0.02000 424 | 421, 0.06000, 0.02000 425 | 422, 0.06500, 0.02000 426 | 423, 0.07000, 0.02000 427 | 424, 0.07500, 0.02000 428 | 425, 0.08000, 0.02000 429 | 426, 0.08500, 0.02000 430 | 427, 0.09000, 0.02000 431 | 428, 0.09500, 0.02000 432 | 429, 0.10000, 0.02000 433 | 430, 0.10500, 0.02000 434 | 431, 0.11000, 0.02000 435 | 432, 0.11500, 0.02000 436 | 433, 0.12000, 0.02000 437 | 434, 0.12500, 0.02000 438 | 435, 0.13000, 0.02000 439 | 436, 0.13500, 0.02000 440 | 437, 0.14000, 0.02000 441 | 438, 0.14500, 0.02000 442 | 439, 0.15000, 0.02000 443 | 440, 0.15500, 0.02000 444 | 441, 0.16000, 0.02000 445 | 442, 0.16500, 0.02000 446 | 443, 0.17000, 0.02000 447 | 444, 0.17500, 0.02000 448 | 445, 0.18000, 0.02000 449 | 446, 0.18500, 0.02000 450 | 447, 0.19000, 0.02000 451 | 448, 0.19500, 0.02000 452 | 449, 0.20000, 0.02000 453 | 450, 0.20500, 0.02000 454 | 451, 0.21000, 0.02000 455 | 452, 0.21500, 0.02000 456 | 453, 0.22000, 0.02000 457 | 454, 0.22500, 0.02000 458 | 455, 0.23000, 0.02000 459 | 456, 0.23500, 0.02000 460 | 457, 0.24000, 0.02000 461 | 458, 0.24500, 0.02000 462 | 459, 0.25000, 0.02000 463 | 460, 0.00000, 0.02250 464 | 461, 0.00500, 0.02250 465 | 462, 0.01000, 0.02250 466 | 463, 0.01500, 0.02250 467 | 464, 0.02000, 0.02250 468 | 465, 0.02500, 0.02250 469 | 466, 0.03000, 0.02250 470 | 467, 0.03500, 0.02250 471 | 468, 0.04000, 0.02250 472 | 469, 0.04500, 0.02250 473 | 470, 0.05000, 0.02250 474 | 471, 0.05500, 0.02250 475 | 472, 0.06000, 0.02250 476 | 473, 0.06500, 0.02250 477 | 474, 0.07000, 0.02250 478 | 475, 0.07500, 0.02250 479 | 476, 0.08000, 0.02250 480 | 477, 0.08500, 0.02250 481 | 478, 0.09000, 0.02250 482 | 479, 0.09500, 0.02250 483 | 480, 0.10000, 0.02250 484 | 481, 0.10500, 0.02250 485 | 482, 0.11000, 0.02250 486 | 483, 0.11500, 0.02250 487 | 484, 0.12000, 0.02250 488 | 485, 0.12500, 0.02250 489 | 486, 0.13000, 0.02250 490 | 487, 0.13500, 0.02250 491 | 488, 0.14000, 0.02250 492 | 489, 0.14500, 0.02250 493 | 490, 0.15000, 0.02250 494 | 491, 0.15500, 0.02250 495 | 492, 0.16000, 0.02250 496 | 493, 0.16500, 0.02250 497 | 494, 0.17000, 0.02250 498 | 495, 0.17500, 0.02250 499 | 496, 0.18000, 0.02250 500 | 497, 0.18500, 0.02250 501 | 498, 0.19000, 0.02250 502 | 499, 0.19500, 0.02250 503 | 500, 0.20000, 0.02250 504 | 501, 0.20500, 0.02250 505 | 502, 0.21000, 0.02250 506 | 503, 0.21500, 0.02250 507 | 504, 0.22000, 0.02250 508 | 505, 0.22500, 0.02250 509 | 506, 0.23000, 0.02250 510 | 507, 0.23500, 0.02250 511 | 508, 0.24000, 0.02250 512 | 509, 0.24500, 0.02250 513 | 510, 0.25000, 0.02250 514 | 511, 0.00000, 0.02500 515 | 512, 0.00500, 0.02500 516 | 513, 0.01000, 0.02500 517 | 514, 0.01500, 0.02500 518 | 515, 0.02000, 0.02500 519 | 516, 0.02500, 0.02500 520 | 517, 0.03000, 0.02500 521 | 518, 0.03500, 0.02500 522 | 519, 0.04000, 0.02500 523 | 520, 0.04500, 0.02500 524 | 521, 0.05000, 0.02500 525 | 522, 0.05500, 0.02500 526 | 523, 0.06000, 0.02500 527 | 524, 0.06500, 0.02500 528 | 525, 0.07000, 0.02500 529 | 526, 0.07500, 0.02500 530 | 527, 0.08000, 0.02500 531 | 528, 0.08500, 0.02500 532 | 529, 0.09000, 0.02500 533 | 530, 0.09500, 0.02500 534 | 531, 0.10000, 0.02500 535 | 532, 0.10500, 0.02500 536 | 533, 0.11000, 0.02500 537 | 534, 0.11500, 0.02500 538 | 535, 0.12000, 0.02500 539 | 536, 0.12500, 0.02500 540 | 537, 0.13000, 0.02500 541 | 538, 0.13500, 0.02500 542 | 539, 0.14000, 0.02500 543 | 540, 0.14500, 0.02500 544 | 541, 0.15000, 0.02500 545 | 542, 0.15500, 0.02500 546 | 543, 0.16000, 0.02500 547 | 544, 0.16500, 0.02500 548 | 545, 0.17000, 0.02500 549 | 546, 0.17500, 0.02500 550 | 547, 0.18000, 0.02500 551 | 548, 0.18500, 0.02500 552 | 549, 0.19000, 0.02500 553 | 550, 0.19500, 0.02500 554 | 551, 0.20000, 0.02500 555 | 552, 0.20500, 0.02500 556 | 553, 0.21000, 0.02500 557 | 554, 0.21500, 0.02500 558 | 555, 0.22000, 0.02500 559 | 556, 0.22500, 0.02500 560 | 557, 0.23000, 0.02500 561 | 558, 0.23500, 0.02500 562 | 559, 0.24000, 0.02500 563 | 560, 0.24500, 0.02500 564 | 561, 0.25000, 0.02500 565 | *********************************************************************** 566 | *********************************************************************** 567 | *USER ELEMENT,NODES=9,TYPE=U1,PROPERTIES=26,COORDINATES=2,VARIABLES=316 568 | 1,2,6 569 | *********************************************************************** 570 | *ELEMENT,TYPE=U1, ELSET=TODOS 571 | 1, 1, 3, 105, 103, 2, 54, 104, 52, 53 572 | 2, 3, 5, 107, 105, 4, 56, 106, 54, 55 573 | 3, 5, 7, 109, 107, 6, 58, 108, 56, 57 574 | 4, 7, 9, 111, 109, 8, 60, 110, 58, 59 575 | 5, 9, 11, 113, 111, 10, 62, 112, 60, 61 576 | 6, 11, 13, 115, 113, 12, 64, 114, 62, 63 577 | 7, 13, 15, 117, 115, 14, 66, 116, 64, 65 578 | 8, 15, 17, 119, 117, 16, 68, 118, 66, 67 579 | 9, 17, 19, 121, 119, 18, 70, 120, 68, 69 580 | 10, 19, 21, 123, 121, 20, 72, 122, 70, 71 581 | 11, 21, 23, 125, 123, 22, 74, 124, 72, 73 582 | 12, 23, 25, 127, 125, 24, 76, 126, 74, 75 583 | 13, 25, 27, 129, 127, 26, 78, 128, 76, 77 584 | 14, 27, 29, 131, 129, 28, 80, 130, 78, 79 585 | 15, 29, 31, 133, 131, 30, 82, 132, 80, 81 586 | 16, 31, 33, 135, 133, 32, 84, 134, 82, 83 587 | 17, 33, 35, 137, 135, 34, 86, 136, 84, 85 588 | 18, 35, 37, 139, 137, 36, 88, 138, 86, 87 589 | 19, 37, 39, 141, 139, 38, 90, 140, 88, 89 590 | 20, 39, 41, 143, 141, 40, 92, 142, 90, 91 591 | 21, 41, 43, 145, 143, 42, 94, 144, 92, 93 592 | 22, 43, 45, 147, 145, 44, 96, 146, 94, 95 593 | 23, 45, 47, 149, 147, 46, 98, 148, 96, 97 594 | 24, 47, 49, 151, 149, 48, 100, 150, 98, 99 595 | 25, 49, 51, 153, 151, 50, 102, 152, 100, 101 596 | 26, 103, 105, 207, 205, 104, 156, 206, 154, 155 597 | 27, 105, 107, 209, 207, 106, 158, 208, 156, 157 598 | 28, 107, 109, 211, 209, 108, 160, 210, 158, 159 599 | 29, 109, 111, 213, 211, 110, 162, 212, 160, 161 600 | 30, 111, 113, 215, 213, 112, 164, 214, 162, 163 601 | 31, 113, 115, 217, 215, 114, 166, 216, 164, 165 602 | 32, 115, 117, 219, 217, 116, 168, 218, 166, 167 603 | 33, 117, 119, 221, 219, 118, 170, 220, 168, 169 604 | 34, 119, 121, 223, 221, 120, 172, 222, 170, 171 605 | 35, 121, 123, 225, 223, 122, 174, 224, 172, 173 606 | 36, 123, 125, 227, 225, 124, 176, 226, 174, 175 607 | 37, 125, 127, 229, 227, 126, 178, 228, 176, 177 608 | 38, 127, 129, 231, 229, 128, 180, 230, 178, 179 609 | 39, 129, 131, 233, 231, 130, 182, 232, 180, 181 610 | 40, 131, 133, 235, 233, 132, 184, 234, 182, 183 611 | 41, 133, 135, 237, 235, 134, 186, 236, 184, 185 612 | 42, 135, 137, 239, 237, 136, 188, 238, 186, 187 613 | 43, 137, 139, 241, 239, 138, 190, 240, 188, 189 614 | 44, 139, 141, 243, 241, 140, 192, 242, 190, 191 615 | 45, 141, 143, 245, 243, 142, 194, 244, 192, 193 616 | 46, 143, 145, 247, 245, 144, 196, 246, 194, 195 617 | 47, 145, 147, 249, 247, 146, 198, 248, 196, 197 618 | 48, 147, 149, 251, 249, 148, 200, 250, 198, 199 619 | 49, 149, 151, 253, 251, 150, 202, 252, 200, 201 620 | 50, 151, 153, 255, 253, 152, 204, 254, 202, 203 621 | 51, 205, 207, 309, 307, 206, 258, 308, 256, 257 622 | 52, 207, 209, 311, 309, 208, 260, 310, 258, 259 623 | 53, 209, 211, 313, 311, 210, 262, 312, 260, 261 624 | 54, 211, 213, 315, 313, 212, 264, 314, 262, 263 625 | 55, 213, 215, 317, 315, 214, 266, 316, 264, 265 626 | 56, 215, 217, 319, 317, 216, 268, 318, 266, 267 627 | 57, 217, 219, 321, 319, 218, 270, 320, 268, 269 628 | 58, 219, 221, 323, 321, 220, 272, 322, 270, 271 629 | 59, 221, 223, 325, 323, 222, 274, 324, 272, 273 630 | 60, 223, 225, 327, 325, 224, 276, 326, 274, 275 631 | 61, 225, 227, 329, 327, 226, 278, 328, 276, 277 632 | 62, 227, 229, 331, 329, 228, 280, 330, 278, 279 633 | 63, 229, 231, 333, 331, 230, 282, 332, 280, 281 634 | 64, 231, 233, 335, 333, 232, 284, 334, 282, 283 635 | 65, 233, 235, 337, 335, 234, 286, 336, 284, 285 636 | 66, 235, 237, 339, 337, 236, 288, 338, 286, 287 637 | 67, 237, 239, 341, 339, 238, 290, 340, 288, 289 638 | 68, 239, 241, 343, 341, 240, 292, 342, 290, 291 639 | 69, 241, 243, 345, 343, 242, 294, 344, 292, 293 640 | 70, 243, 245, 347, 345, 244, 296, 346, 294, 295 641 | 71, 245, 247, 349, 347, 246, 298, 348, 296, 297 642 | 72, 247, 249, 351, 349, 248, 300, 350, 298, 299 643 | 73, 249, 251, 353, 351, 250, 302, 352, 300, 301 644 | 74, 251, 253, 355, 353, 252, 304, 354, 302, 303 645 | 75, 253, 255, 357, 355, 254, 306, 356, 304, 305 646 | 76, 307, 309, 411, 409, 308, 360, 410, 358, 359 647 | 77, 309, 311, 413, 411, 310, 362, 412, 360, 361 648 | 78, 311, 313, 415, 413, 312, 364, 414, 362, 363 649 | 79, 313, 315, 417, 415, 314, 366, 416, 364, 365 650 | 80, 315, 317, 419, 417, 316, 368, 418, 366, 367 651 | 81, 317, 319, 421, 419, 318, 370, 420, 368, 369 652 | 82, 319, 321, 423, 421, 320, 372, 422, 370, 371 653 | 83, 321, 323, 425, 423, 322, 374, 424, 372, 373 654 | 84, 323, 325, 427, 425, 324, 376, 426, 374, 375 655 | 85, 325, 327, 429, 427, 326, 378, 428, 376, 377 656 | 86, 327, 329, 431, 429, 328, 380, 430, 378, 379 657 | 87, 329, 331, 433, 431, 330, 382, 432, 380, 381 658 | 88, 331, 333, 435, 433, 332, 384, 434, 382, 383 659 | 89, 333, 335, 437, 435, 334, 386, 436, 384, 385 660 | 90, 335, 337, 439, 437, 336, 388, 438, 386, 387 661 | 91, 337, 339, 441, 439, 338, 390, 440, 388, 389 662 | 92, 339, 341, 443, 441, 340, 392, 442, 390, 391 663 | 93, 341, 343, 445, 443, 342, 394, 444, 392, 393 664 | 94, 343, 345, 447, 445, 344, 396, 446, 394, 395 665 | 95, 345, 347, 449, 447, 346, 398, 448, 396, 397 666 | 96, 347, 349, 451, 449, 348, 400, 450, 398, 399 667 | 97, 349, 351, 453, 451, 350, 402, 452, 400, 401 668 | 98, 351, 353, 455, 453, 352, 404, 454, 402, 403 669 | 99, 353, 355, 457, 455, 354, 406, 456, 404, 405 670 | 100, 355, 357, 459, 457, 356, 408, 458, 406, 407 671 | 101, 409, 411, 513, 511, 410, 462, 512, 460, 461 672 | 102, 411, 413, 515, 513, 412, 464, 514, 462, 463 673 | 103, 413, 415, 517, 515, 414, 466, 516, 464, 465 674 | 104, 415, 417, 519, 517, 416, 468, 518, 466, 467 675 | 105, 417, 419, 521, 519, 418, 470, 520, 468, 469 676 | 106, 419, 421, 523, 521, 420, 472, 522, 470, 471 677 | 107, 421, 423, 525, 523, 422, 474, 524, 472, 473 678 | 108, 423, 425, 527, 525, 424, 476, 526, 474, 475 679 | 109, 425, 427, 529, 527, 426, 478, 528, 476, 477 680 | 110, 427, 429, 531, 529, 428, 480, 530, 478, 479 681 | 111, 429, 431, 533, 531, 430, 482, 532, 480, 481 682 | 112, 431, 433, 535, 533, 432, 484, 534, 482, 483 683 | 113, 433, 435, 537, 535, 434, 486, 536, 484, 485 684 | 114, 435, 437, 539, 537, 436, 488, 538, 486, 487 685 | 115, 437, 439, 541, 539, 438, 490, 540, 488, 489 686 | 116, 439, 441, 543, 541, 440, 492, 542, 490, 491 687 | 117, 441, 443, 545, 543, 442, 494, 544, 492, 493 688 | 118, 443, 445, 547, 545, 444, 496, 546, 494, 495 689 | 119, 445, 447, 549, 547, 446, 498, 548, 496, 497 690 | 120, 447, 449, 551, 549, 448, 500, 550, 498, 499 691 | 121, 449, 451, 553, 551, 450, 502, 552, 500, 501 692 | 122, 451, 453, 555, 553, 452, 504, 554, 502, 503 693 | 123, 453, 455, 557, 555, 454, 506, 556, 504, 505 694 | 124, 455, 457, 559, 557, 456, 508, 558, 506, 507 695 | 125, 457, 459, 561, 559, 458, 510, 560, 508, 509 696 | *ELSET,ELSET=RESULTS 697 | 101 698 | *ELSET,ELSET=LEDGE 699 | 1,26,51,76, 700 | 101 701 | *************************************************** 702 | *************************************************** 703 | *NSET,NSET=LEFT1 704 | 1,52,103,154,205, 705 | 256,307,358,409,460, 706 | 511 707 | *NSET,NSET=LEFT2 708 | 256 709 | *NSET, NSET=EDGE 710 | 561 711 | *NSET,NSET=REDGE1 712 | 51,102,53,204, 713 | 255,306,357,408, 714 | 459,510,561 715 | *NSET,NSET=REDGE2 716 | 306 717 | ** 718 | *************************************************** 719 | **************MATERIAL PROPERTIES****************** 720 | *************************************************** 721 | *UEL PROPERTY,ELSET=TODOS 722 | *INCLUDE, INPUT=material_co.inp 723 | *************************************************** 724 | *************************************************** 725 | **** 726 | **** 727 | **************STEP: Step-1************************* 728 | *************************************************** 729 | ** 730 | *Step,INC=10000000, EXTRAPOLATION=NO, name=Step-1 731 | elastoplastic anaylisis 732 | *Static,direct 733 | 0.05, 10.0 734 | *AMPLITUDE,NAME=DIS,INPUT=FATIGA.DAT 735 | *************************************************** 736 | ** BOUNDARY CONDITIONS 737 | ** 738 | ** Name: BC-1 Type: Displacement/Rotation 739 | *Boundary 740 | LEFT1,1,1,0.0 741 | LEFT2,2,2,0.0 742 | LEFT2,6,6,0.0 743 | ** 744 | ** 745 | *PRINT,FREQUENCY=100 746 | ** 747 | *** 748 | ***** 749 | **************LOADS************************ 750 | **************LOADS************************ 751 | ******************************************* 752 | **ACTIVATE THIS LINE FOR FORC. CONTROLLED** 753 | ******************************************* 754 | ** Name: Load-1 Type: Concentrated force 755 | *Cload,AMPLITUDE=DIS 756 | EDGE, 2,0.0504 757 | ** 758 | *MONITOR, NODE=561,DOF=2 759 | ** 760 | ****************************************** 761 | ******* OUTPUT REQUEST********************* 762 | ******************************************* 763 | ********************** 764 | ***stress-strains***** 765 | ********************** 766 | *ELPRINT, ELSET=RESULTS, FREQUENCY=1 767 | SDV217,SDV205,SDV220,SDV208,SDV236 768 | ** 769 | *End Step -------------------------------------------------------------------------------- /SAMPLE/material_co.inp: -------------------------------------------------------------------------------- 1 | 295.1500,62.0000,-0.0670,24.2800,-0.0290,76.94400,-0.18830,0.57E-5, 2 | 13.60000,457.900,37.4700,-0.0748,383.300,4.500E7,48.80000,3.180E-7, 3 | 1.38E-20,15.0E-3,3.34000,1.67000,44.70E6,8.314E3,6.023E23,20.14E3, 4 | 0.0003,10.00 5 | -------------------------------------------------------------------------------- /SAMPLE/material_template.txt: -------------------------------------------------------------------------------- 1 | TETA,E0,E1,G0,G1,SIGY0,SIGY1,CTE 2 | H',GAMMA,R0,R1,C,A,D0,b, 3 | k,d,p,n,Q,R,N0,ms, 4 | l,Ga 5 | 6 | --------------------------- 7 | TETA : Temperature (Kelvin) 8 | E0,E1 : Parameters to compute temperature dependent Young's modulus==> E(GPa)=E0+E1xTETA 9 | G0,G1 : Parameters to compute temperature dependent Shear modulus ==> G(GPa)=G0+G1xTETA 10 | SIGY0,SIGY1 : Parameters to compute temperature dependent Yield stress ==> SIGY(MPa)=SIG0+SIG1xTETA 11 | CTE : Coefficient of thermal expansion. 12 | H' : Kinematic hardening parameter (MPa). 13 | GAMMA : Kinematic hardening parameter. 14 | R0,R1 : Parameters to compute temperature dependent saturation value of Isotropic hardening component===> Rinfi(MPa)=R0+R1xTETA 15 | C : Isotropic hardening parameter. 16 | A : Rate dependency constant( flow rule) (Dimensionless). 17 | D0 : Frequency dependent difussion coeffiecient (mm^2/s). 18 | b : Burger's vector magnitude (mm). 19 | k : Boltzman's constant. 20 | d : Average phase size (mm) 21 | p : Grain size exponent (dimensionless). 22 | n : Stress exponent (dimensionless). 23 | Q : Creep activation energy (mJ/mol) 24 | R : Universal gas constant.(mJ/molxKelvin) 25 | N0 : Avogadro's number. 26 | ms : Atomic weight (Kg). 27 | l : Plastic length scale prameter(mm) 28 | Ga : Penalty number 29 | 30 | 295.1500,52.1000,-0.1059,19.4400,-0.0395,60.0690,-0.14000,0.57E-5 31 | 13.60000,457.900,37.4700,-0.0748,383.300,7.600E9,48.80000,3.18E-7 32 | 1.38E-20,10.6E-3,3.34000,1.67000,44.70E6,8.314E3,6.023E23,20.14E3 33 | 34 | -------------------------------------------------------------------------------- /UMATS/UMAT_ECL_TEMP.for: -------------------------------------------------------------------------------- 1 | C23456789012345678901234567890123456789012345678901234567890123456789012 2 | C11111111122222222223333333333444444444455555555556666666666777777777777 3 | C23456789012345678901234567890123456789012345678901234567890123456789012 4 | C C 5 | C UMAT_ECL_TEMP.for C 6 | C Elasticity CLasical theory C 7 | C Temperature dependent material properties C 8 | C C 9 | C SUBROUTINE UMAT C 10 | C C 11 | C ISOTROPIC ELASTICITY C 12 | C CANNOT BE USED FOR PLANE STRESS C 13 | C NTENS: LENGTH OF STRESS VECTOR C 14 | C NDI: NUMBER OF NORMAL STRESS COMPONENTS C 15 | C C 16 | C UNIVERSIDAD EAFIT C 17 | C LABORATORIO DE MECANICA APLICADA C 18 | C BLOQUE 14-PISO 2 C 19 | C MEDELLIN, COLOMBIA C 20 | C C 21 | C LAST UPDATED APRIL 16/2015 C 22 | C C 23 | C LOCAL ARRAYS C 24 | C C 25 | C PROPS(1) - E1 C 26 | C PROPS(2).- E2 C 27 | C PROPS(3) - G1 C 28 | C PROPS(4) - G2 C 29 | C PROPS(5) - CTE C 30 | C C 31 | C DDSDDE() - MATERIAL JACOBIAN C 32 | C STRESS() - UPDATED STRESS VECTOR C 33 | C C 34 | C STATE VARIABLES DEFINITION C 35 | C C 36 | C 1-4: Elastic strain vector C 37 | C 5-8: Thermal strain vector C 38 | C C 39 | C23456789012345678901234567890123456789012345678901234567890123456789012 40 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 41 | C 42 | SUBROUTINE UMAT(STRESS, STATEV, DDSDDE, SSE, SPD, SCD, RPL, 43 | 1DDSDDT, DRPLDE, DRPLDT, STRAN, DSTRAN, TIME, DTIME, TEMP, 44 | 2DTEMP, PREDEF, DPRED, CMNAME, NDI, NSHR, NTENS, NSTATV, 45 | 3PROPS, NPROPS, COORDS, DROT, PNEWDT, CELENT, DFGRD0, 46 | 4DFGRD1, NOEL, NPT, LAYER, KSPT, KSTEP, KINC) 47 | C 48 | INCLUDE 'ABA_PARAM.INC' 49 | C 50 | CHARACTER*80 CMNAME 51 | C 52 | DIMENSION STRESS(NTENS), STATEV(NSTATV),DDSDDE(NTENS, NTENS), 53 | 1DDSDDT(NTENS),DRPLDE(NTENS),STRAN(NTENS),DSTRAN(NTENS),TIME(2), 54 | 2PREDEF(1), DPRED(1), PROPS(NPROPS),COORDS(3),DROT(3, 3), 55 | 3 DFGRD0(3, 3), DFGRD1(3, 3) 56 | C 57 | DIMENSION DS(NTENS),DSTRTHER(NTENS),DSTRANM(NTENS),EELAS(NTENS), 58 | 1ETHER(NTENS) 59 | C 60 | PARAMETER (ZERO=0.D0, ONE=1.D0, TWO=2.D0, THREE=3.D0, SIX=6.0D0, 61 | 1 ENUMAX=0.4999D0, NEWTON=10, TOLER=1.0D-7,MAXITER=30, 62 | 2 FOUR=4.D0) 63 | C 64 | C********************************************************************** 65 | C C L A S S I C A L E L A S T I C I T Y 66 | C********************************************************************** 67 | C 68 | DO K1=1, NTENS 69 | EELAS(K1)=STATEV(K1) 70 | ETHER(K1)=STATEV(K1+NTENS) 71 | END DO 72 | C 73 | C Temperature at the end of the step 74 | C 75 | THETA=TEMP 76 | DTHETA=DTEMP 77 | C 78 | C Temperature Dependent Elastic properties 79 | C 80 | EMOD=(PROPS(1)+PROPS(2)*THETA)*1000.0 81 | C Shear modulus 82 | GMOD=(PROPS(3)+PROPS(4)*THETA)*1000.0 83 | C Poisson's ratio 84 | ENU=(EMOD/(TWO*GMOD))-ONE 85 | C Coefficient of thermal expansion 86 | CTE=PROPS(5) 87 | C 88 | EBULK3=EMOD/(ONE-TWO*ENU) 89 | EG2=two*GMOD 90 | EG=GMOD 91 | EG3=THREE*EG 92 | ELAM=(EBULK3-EG2)/THREE 93 | C 94 | C Elastic stiffness 95 | C 96 | DO K1=1, 3 97 | DO K2=1, 3 98 | DDSDDE(K2, K1)=ELAM 99 | END DO 100 | DDSDDE(K1, K1)=EG2+ELAM 101 | END DO 102 | DO K1=4, 4 103 | DDSDDE(K1, K1)=EG 104 | END DO 105 | C 106 | C Thermal strain increment 107 | C 108 | CALL KCLEAR(DSTRTHER,NTENS,1) 109 | DO K1=1,NDI 110 | DSTRTHER(K1)=CTE*DTHETA 111 | END DO 112 | C 113 | C Mechanical strain increment 114 | C 115 | DO K1=1,NDI 116 | DSTRANM(K1)=DSTRAN(K1)-DSTRTHER(K1) 117 | END DO 118 | DSTRANM(NDI+1)=DSTRAN(NDI+1) 119 | C 120 | C Elastic strain 121 | C 122 | DO K1=1,NDI 123 | EELAS(K1)=EELAS(K1)+DSTRANM(K1) 124 | ETHER(K1)=ETHER(K1)+DSTRTHER(K1) 125 | END DO 126 | C 127 | C 128 | C Calculate the stress increment and 129 | C updates the stress vector. 130 | C 131 | CALL KMAVEC(DDSDDE,NTENS,NTENS,DSTRANM,DS) 132 | CALL KUPDVEC(STRESS,NTENS,DS) 133 | C 134 | RETURN 135 | C 136 | END 137 | C 138 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 139 | C C 140 | C M A T R I X H A N D L I N G C 141 | C-------------U T I L I T I E S B L O C K-------------- C 142 | C C 143 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 144 | C23456789012345678901234567890123456789012345678901234567890123456789012 145 | C23456789012345678901234567890123456789012345678901234567890123456789012 146 | C C 147 | C SUBROUTINE KCLEAR(A,N,M) C 148 | C Clear a real matrix C 149 | C C 150 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 151 | C23456789012345678901234567890123456789012345678901234567890123456789012 152 | C 153 | SUBROUTINE KCLEAR(A,N,M) 154 | C 155 | IMPLICIT REAL*8(A-H,O-Z) 156 | C 157 | PARAMETER(ZERO=0.0D0) 158 | DIMENSION A(N,M) 159 | C 160 | DO I=1,N 161 | DO J=1,M 162 | A(I,J)=ZERO 163 | END DO 164 | END DO 165 | C 166 | RETURN 167 | C 168 | END 169 | C 170 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 171 | C23456789012345678901234567890123456789012345678901234567890123456789012 172 | C C 173 | C SUBROUTINE KMMULT(A,NRA,NCA,B,NRB,NCB,C) C 174 | C Real matrix product C 175 | C C 176 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 177 | C23456789012345678901234567890123456789012345678901234567890123456789012 178 | C 179 | SUBROUTINE KMMULT(A,NRA,NCA,B,NRB,NCB,C) 180 | C 181 | IMPLICIT REAL*8 (A-H,O-Z) 182 | C 183 | PARAMETER(ZERO=0.D0) 184 | DIMENSION A(NRA,NCA),B(NRB,NCB),C(NRA,NCB) 185 | C 186 | CALL KCLEAR(C,NRA,NCB) 187 | DUM=ZERO 188 | DO I=1,NRA 189 | DO J=1,NCB 190 | DO K=1,NCA 191 | DUM=DUM+A(I,K)*B(K,J) 192 | END DO 193 | C(I,J)=DUM 194 | DUM=ZERO 195 | END DO 196 | END DO 197 | C 198 | RETURN 199 | C 200 | END 201 | C 202 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 203 | C23456789012345678901234567890123456789012345678901234567890123456789012 204 | C C 205 | C SUBROUTINE KSMULT(A,NR,NC,S) C 206 | C Matrix times a scalar. C 207 | C C 208 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 209 | C23456789012345678901234567890123456789012345678901234567890123456789012 210 | C 211 | SUBROUTINE KSMULT(A,NR,NC,S) 212 | C 213 | IMPLICIT REAL*8 (A-H,O-Z) 214 | C 215 | DIMENSION A(NR,NC) 216 | C 217 | DO I=1,NR 218 | DO J=1,NC 219 | DUM=A(I,J) 220 | A(I,J)=S*DUM 221 | DUM=0.D0 222 | END DO 223 | END DO 224 | C 225 | RETURN 226 | C 227 | END 228 | C 229 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 230 | C23456789012345678901234567890123456789012345678901234567890123456789012 231 | C C 232 | C SUBROUTINE KUPDMAT(A,NR,NC,B) C 233 | C Updates an existing matrix with an incremental matrix. C 234 | C C 235 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 236 | C23456789012345678901234567890123456789012345678901234567890123456789012 237 | C 238 | SUBROUTINE KUPDMAT(A,NR,NC,B) 239 | C 240 | IMPLICIT REAL*8 (A-H,O-Z) 241 | C 242 | PARAMETER(ZERO=0.D0) 243 | C 244 | DIMENSION A(NR,NC),B(NR,NC) 245 | C 246 | DO I=1,NR 247 | DO J=1,NC 248 | DUM=A(I,J) 249 | A(I,J)=ZERO 250 | A(I,J)=DUM+B(I,J) 251 | DUM=ZERO 252 | END DO 253 | END DO 254 | C 255 | RETURN 256 | C 257 | END 258 | C 259 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 260 | C23456789012345678901234567890123456789012345678901234567890123456789012 261 | C C 262 | C SUBROUTINE KMTRAN(A,NRA,NCA,B) C 263 | C Matrix transpose C 264 | C C 265 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 266 | C23456789012345678901234567890123456789012345678901234567890123456789012 267 | C 268 | SUBROUTINE KMTRAN(A,NRA,NCA,B) 269 | C 270 | IMPLICIT REAL*8 (A-H,O-Z) 271 | C 272 | DIMENSION A(NRA,NCA),B(NCA,NRA) 273 | C 274 | CALL KCLEAR(B,NCA,NRA) 275 | DO I=1,NRA 276 | DO J=1,NCA 277 | B(J,I)=A(I,J) 278 | END DO 279 | END DO 280 | C 281 | RETURN 282 | C 283 | END 284 | C 285 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 286 | C23456789012345678901234567890123456789012345678901234567890123456789012 287 | C C 288 | C SUBROUTINE KMAVEC(A,NRA,NCA,B,C) C 289 | C Real matrix times vector C 290 | C C 291 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 292 | C23456789012345678901234567890123456789012345678901234567890123456789012 293 | C 294 | SUBROUTINE KMAVEC(A,NRA,NCA,B,C) 295 | C 296 | IMPLICIT REAL*8 (A-H,O-Z) 297 | C 298 | PARAMETER(ZERO=0.D0) 299 | DIMENSION A(NRA,NCA),B(NCA),C(NRA) 300 | C 301 | CALL KCLEARV(C,NRA) 302 | C 303 | DO K1=1,NRA 304 | DO K2=1,NCA 305 | C(K1)=C(K1)+A(K1,K2)*B(K2) 306 | END DO 307 | END DO 308 | C 309 | RETURN 310 | C 311 | END 312 | C 313 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 314 | C23456789012345678901234567890123456789012345678901234567890123456789012 315 | C C 316 | C SUBROUTINE KCLEARV(A,N) C 317 | C Clear a real vector C 318 | C C 319 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 320 | C23456789012345678901234567890123456789012345678901234567890123456789012 321 | C 322 | SUBROUTINE KCLEARV(A,N) 323 | C 324 | IMPLICIT REAL*8(A-H,O-Z) 325 | C 326 | PARAMETER(ZERO=0.0D0) 327 | C 328 | DIMENSION A(N) 329 | C 330 | DO I=1,N 331 | A(I)=ZERO 332 | END DO 333 | C 334 | RETURN 335 | C 336 | END 337 | C 338 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 339 | C23456789012345678901234567890123456789012345678901234567890123456789012 340 | C C 341 | C SUBROUTINE KUPDVEC(A,NR,B) C 342 | C Updates an existing vector with an incremental vector. C 343 | C C 344 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 345 | C23456789012345678901234567890123456789012345678901234567890123456789012 346 | C 347 | SUBROUTINE KUPDVEC(A,NR,B) 348 | C 349 | IMPLICIT REAL*8 (A-H,O-Z) 350 | C 351 | PARAMETER(ZERO=0.D0) 352 | C 353 | DIMENSION A(NR),B(NR) 354 | C 355 | DO I=1,NR 356 | DUM=A(I) 357 | A(I)=ZERO 358 | A(I)=DUM+B(I) 359 | DUM=ZERO 360 | END DO 361 | C 362 | RETURN 363 | C 364 | END 365 | C 366 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 367 | C23456789012345678901234567890123456789012345678901234567890123456789012 368 | C C 369 | C SUBROUTINE KVECSUB(A,NRA,B,NRB,C) C 370 | C Substracts one column vector from another column vector C 371 | C IFLAG=0 for substraction C 372 | C IFLAG=1 for addition C 373 | C C 374 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 375 | C23456789012345678901234567890123456789012345678901234567890123456789012 376 | C 377 | SUBROUTINE KVECSUB(A,NRA,B,NRB,C,IFLAG) 378 | C 379 | IMPLICIT REAL*8(A-H,O-Z) 380 | C 381 | PARAMETER (ONE=1.0D0, ONENEG=-1.0D0) 382 | C 383 | DIMENSION A(NRA,1),B(NRB,1),C(NRB,1) 384 | C 385 | SCALAR=ONENEG 386 | C 387 | IF (IFLAG.EQ.1) SCALAR=ONE 388 | C 389 | DO I=1,NRA 390 | C(I,1)=A(I,1)+B(I,1)*SCALAR 391 | END DO 392 | C 393 | RETURN 394 | C 395 | END 396 | C 397 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 398 | C23456789012345678901234567890123456789012345678901234567890123456789012 399 | C C 400 | C SUBROUTINE KMATSUB(A,NRA,NCA,B,C,IFLAG) C 401 | C Substracts one rectangular matrix from another rectangular C 402 | C matrix C 403 | C IFLAG=0 for substraction C 404 | C IFLAG=1 for addition C 405 | C C 406 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 407 | C23456789012345678901234567890123456789012345678901234567890123456789012 408 | C 409 | SUBROUTINE KMATSUB(A,NRA,NCA,B,C,IFLAG) 410 | C 411 | IMPLICIT REAL*8(A-H,O-Z) 412 | C 413 | PARAMETER (ONE=1.0D0, ONENEG=-1.0D0) 414 | C 415 | DIMENSION A(NRA,NCA),B(NRA,NCA),C(NRA,NCA) 416 | C 417 | CALL KCLEAR(C,NRA,NCA) 418 | C 419 | SCALAR=ONENEG 420 | C 421 | IF (IFLAG.EQ.1) SCALAR=ONE 422 | C 423 | DO I=1,NRA 424 | DO J=1,NCA 425 | C(I,J)=A(I,J)+B(I,J)*SCALAR 426 | END DO 427 | END DO 428 | C 429 | RETURN 430 | C 431 | END 432 | C 433 | C11111111122222222223333333333444444444455555555556666666666777777777777 434 | C23456789012345678901234567890123456789012345678901234567890123456789012 435 | C C 436 | C SUBROUTINE IDENTITY C 437 | C CREATES AN IDENTITY MATRIX OF DIMENSIONS NDIM,NDIM C 438 | C C 439 | C23456789012345678901234567890123456789012345678901234567890123456789012 440 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 441 | C 442 | SUBROUTINE KIDENTITY(DEL,NDIM) 443 | C 444 | IMPLICIT REAL*8(A-H,O-Z) 445 | C 446 | PARAMETER(ONE=1.D0) 447 | C 448 | DIMENSION DEL(NDIM,NDIM) 449 | C 450 | CALL KCLEAR(DEL,NDIM,NDIM) 451 | C 452 | DO K1=1,NDIM 453 | DEL(K1,K1)=ONE 454 | END DO 455 | C 456 | RETURN 457 | C 458 | END 459 | C 460 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 461 | C23456789012345678901234567890123456789012345678901234567890123456789012 462 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 463 | C C 464 | C SUBROUTINE KINVERSE C 465 | C C 466 | C IVEERSE OF A MATRIX USING LU DECOMPOSITION C 467 | C TAKEN FROM NUMERICAL RECIPES By Press et al C 468 | C C 469 | C A Matrix to be inverted. C 470 | C Y Inverse of A C 471 | C N Dimension C 472 | C C 473 | C C 474 | C C 475 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 476 | C23456789012345678901234567890123456789012345678901234567890123456789012 477 | C 478 | SUBROUTINE KINVERSE(A,Y,NP,N) 479 | C 480 | IMPLICIT REAL*8(A-H,O-Z) 481 | C 482 | PARAMETER (ZERO=0.D0,ONE=1.D0) 483 | C 484 | DIMENSION A(NP,NP),Y(NP,NP),INDX(NP),AUX(NP,NP) 485 | C 486 | CALL KCLEAR(AUX,NP,NP) 487 | CALL KCOPYMAT(A,AUX,N) 488 | C 489 | DO I=1,N 490 | DO J=1,N 491 | Y(I,J)=ZERO 492 | END DO 493 | Y(I,I)=ONE 494 | END DO 495 | CALL KLUDCMP(AUX,N,NP,INDX,D) 496 | DO J=1,N 497 | CALL KLUBKSB(AUX,N,NP,INDX,Y(1,J)) 498 | END DO 499 | C 500 | RETURN 501 | C 502 | END 503 | C 504 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 505 | C23456789012345678901234567890123456789012345678901234567890123456789012 506 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 507 | C C 508 | C SUBROUTINE KLUDCMP C 509 | C C 510 | C LU MATRIX DECOMPOSITION C 511 | C TAKEN FROM NUMERICAL RECIPES By Press et al C 512 | C C 513 | C C 514 | C C 515 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 516 | C23456789012345678901234567890123456789012345678901234567890123456789012 517 | C 518 | SUBROUTINE KLUDCMP(A,N,NP,INDX,D) 519 | C 520 | IMPLICIT REAL*8(A-H,O-Z) 521 | C 522 | PARAMETER(NMAX=500,TINY=1.0E-20,ZERO=0.D0,ONE=1.D0) 523 | C 524 | DIMENSION INDX(N),A(NP,NP),VV(NMAX) 525 | C 526 | D=ONE 527 | DO I=1,N 528 | AAMAX=ZERO 529 | DO J=1,N 530 | IF(ABS(A(I,J)).GT.AAMAX) AAMAX=ABS(A(I,J)) 531 | END DO 532 | IF(AAMAX.EQ.0.) PAUSE 'SINGULAR MATRIX IN LUDCMP' 533 | VV(I)=ONE/AAMAX 534 | END DO 535 | C 536 | DO J=1,N 537 | DO I=1,J-1 538 | SUM=A(I,J) 539 | DO K=1,I-1 540 | SUM=SUM-A(I,K)*A(K,J) 541 | END DO 542 | A(I,J)=SUM 543 | END DO 544 | AAMAX=ZERO 545 | DO I=J,N 546 | SUM=A(I,J) 547 | DO K=1,J-1 548 | SUM=SUM-A(I,K)*A(K,J) 549 | END DO 550 | A(I,J)=SUM 551 | DUM=VV(I)*ABS(SUM) 552 | IF(DUM.GE.AAMAX) THEN 553 | IMAX=I 554 | AAMAX=DUM 555 | END IF 556 | END DO 557 | IF(J.NE.IMAX) THEN 558 | DO K=1,N 559 | DUM=A(IMAX,K) 560 | A(IMAX,K)=A(J,K) 561 | A(J,K)=DUM 562 | END DO 563 | D=-D 564 | VV(IMAX)=-VV(J) 565 | END IF 566 | INDX(J)=IMAX 567 | IF(A(J,J).EQ.0.) A(J,J)=TINY 568 | IF(J.NE.N) THEN 569 | DUM=ONE/A(J,J) 570 | DO I=J+1,N 571 | A(I,J)=A(I,J)*DUM 572 | END DO 573 | END IF 574 | END DO 575 | C 576 | RETURN 577 | C 578 | END 579 | C 580 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 581 | C23456789012345678901234567890123456789012345678901234567890123456789012 582 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 583 | C C 584 | C SUBROUTINE KLUBKSB C 585 | C C 586 | C FORWARD SUBSTITUTION C 587 | C TAKEN FROM NUMERICAL RECIPES By Press et al C 588 | C C 589 | C C 590 | C C 591 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 592 | C23456789012345678901234567890123456789012345678901234567890123456789012 593 | C 594 | SUBROUTINE KLUBKSB(A,N,NP,INDX,B) 595 | C 596 | IMPLICIT REAL*8(A-H,O-Z) 597 | C 598 | PARAMETER (ZERO=0.D0) 599 | C 600 | DIMENSION INDX(N),A(NP,NP),B(NP) 601 | C 602 | II=0 603 | DO I=1,N 604 | LL=INDX(I) 605 | SUM=B(LL) 606 | B(LL)=B(I) 607 | IF(II.NE.0) THEN 608 | DO J=II,I-1 609 | SUM=SUM-A(I,J)*B(J) 610 | END DO 611 | ELSE IF(SUM.NE.ZERO) THEN 612 | II=I 613 | END IF 614 | B(I)=SUM 615 | END DO 616 | C 617 | DO I=N,1,-1 618 | SUM=B(I) 619 | DO J=I+1,N 620 | SUM=SUM-A(I,J)*B(J) 621 | END DO 622 | B(I)=SUM/A(I,I) 623 | END DO 624 | C 625 | RETURN 626 | C 627 | END 628 | C 629 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 630 | C23456789012345678901234567890123456789012345678901234567890123456789012 631 | C C 632 | C SUBROUTINE KCOPYMAT C 633 | C C 634 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 635 | C 636 | SUBROUTINE KCOPYMAT(A,B,N) 637 | C 638 | IMPLICIT REAL*8(A-H,O-Z) 639 | C 640 | DIMENSION A(N,N),B(N,N) 641 | C 642 | CALL KCLEAR(B,N,N) 643 | C 644 | DO K1=1,N 645 | DO K2=1,N 646 | B(K1,K2)=A(K1,K2) 647 | END DO 648 | END DO 649 | C 650 | RETURN 651 | C 652 | END -------------------------------------------------------------------------------- /UMATS/UMAT_ECO.for: -------------------------------------------------------------------------------- 1 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 2 | C23456789012345678901234567890123456789012345678901234567890123456789012 3 | C11111111122222222223333333333444444444455555555556666666666777777777777 4 | C23456789012345678901234567890123456789012345678901234567890123456789012 5 | C C 6 | C UMAT_ECO.for Elasticity Couple Stress Theory C 7 | C REQUIERES AN UEL.for subroutine C 8 | C C 9 | C SUBROUTINE UMAT C 10 | C ISOTROPIC COUPLE STRESS ELASTICITY C 11 | C CANNOT BE USED FOR PLANE STRESS C 12 | C NTENS: LENGTH OF STRESS VECTOR C 13 | C NDI: NUMBER OF NORMAL STRESS COMPONENTS C 14 | C UNIVERSIDAD EAFIT C 15 | C LABORATORIO DE MECANICA APLICADA C 16 | C BLOQUE 14-PISO 2 C 17 | C MEDELLIN, COLOMBIA C 18 | C C 19 | C LAST UPDATED APRIL 16/2015 C 20 | C C 21 | C LOCAL ARRAYS C 22 | C C 23 | C PROPS(1) - E C 24 | C PROPS(2) - NU C 25 | C C 26 | C DDSDDE() - MATERIAL JACOBIAN C 27 | C STRESS() - UPDATED STRESS VECTOR C 28 | C C 29 | C23456789012345678901234567890123456789012345678901234567890123456789012 30 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 31 | C 32 | SUBROUTINE UMAT(STRESS, STATEV, DDSDDE, SSE, SPD, SCD, RPL, 33 | 1DDSDDT, DRPLDE, DRPLDT, STRAN, DSTRAN, TIME, DTIME, TEMP, 34 | 2DTEMP, PREDEF, DPRED, CMNAME, NDI, NSHR, NTENS, NSTATV, 35 | 3PROPS, NPROPS, COORDS, DROT, PNEWDT, CELENT, DFGRD0, 36 | 4DFGRD1, NOEL, NPT, LAYER, KSPT, KSTEP, KINC) 37 | C 38 | INCLUDE 'ABA_PARAM.INC' 39 | C 40 | CHARACTER*80 CMNAME 41 | C 42 | DIMENSION STRESS(NTENS), STATEV(NSTATV),DDSDDE(NTENS, NTENS), 43 | 1DDSDDT(NTENS),DRPLDE(NTENS),STRAN(NTENS),DSTRAN(NTENS),TIME(2), 44 | 2PREDEF(1), DPRED(1), PROPS(NPROPS),COORDS(3),DROT(3, 3), 45 | 3 DFGRD0(3, 3), DFGRD1(3, 3) 46 | C 47 | DIMENSION DS(NTENS) 48 | C 49 | PARAMETER (ZERO=0.D0, ONE=1.D0, TWO=2.D0, THREE=3.D0, SIX=6.0D0, 50 | 1 ENUMAX=0.4999D0, NEWTON=10, TOLER=1.0D-7,MAXITER=30, 51 | 2 FOUR=4.D0) 52 | C 53 | C********************************************************************** 54 | C C O S S E R A T E L A S T I C I T Y 55 | C********************************************************************** 56 | C 57 | C Elastic properties 58 | C 59 | EMOD=PROPS(1) 60 | ENU=MIN(PROPS(2),ENUMAX) 61 | PLS=PROPS(3) 62 | EBULK3=EMOD/(ONE-TWO*ENU) 63 | EG2=EMOD/(ONE+ENU) 64 | EG=EG2/TWO 65 | EG3=THREE*EG 66 | ELAM=(EBULK3-EG2)/THREE 67 | C 68 | C Elastic stiffness 69 | C 70 | DO K1=1, 3 71 | DO K2=1, 3 72 | DDSDDE(K2, K1)=ELAM 73 | END DO 74 | DDSDDE(K1, K1)=EG2+ELAM 75 | END DO 76 | DO K1=4, 4 77 | DDSDDE(K1, K1)=EG 78 | END DO 79 | DDSDDE(5,5)=EG2 80 | DDSDDE(6,6)=EG2 81 | C 82 | C Calculate the stress increment and 83 | C updates the stress vector. 84 | C 85 | CALL KMAVEC(DDSDDE,NTENS,NTENS,DSTRAN,DS) 86 | CALL KUPDVEC(STRESS,NTENS,DS) 87 | C 88 | RETURN 89 | C 90 | END 91 | C -------------------------------------------------------------------------------- /UMATS/UMAT_PCO.for: -------------------------------------------------------------------------------- 1 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 2 | C11111111122222222223333333333444444444455555555556666666666777777777777 3 | C23456789012345678901234567890123456789012345678901234567890123456789012 4 | C C 5 | C UMAT_PCO.for Plasticity Couple Stress Theory C 6 | C Requires a UEL.for subroutine C 7 | C C 8 | C SUBROUTINE UMAT C 9 | C RATE INDEPENDENT ISOTROPIC HARDENING PLASTICITY C 10 | C REDUCED COSSERAT COUPLE STRESS SOLID-FLOW THEORY FORM C 11 | C NTENS: LENGTH OF STRESS VECTOR C 12 | C NDI: NUMBER OF NORMAL STRESS COMPONENTS C 13 | C C 14 | C CREATED BY JUAN GOMEZ C 15 | C UNIVERSIDAD EAFIT C 16 | C LABORATORIO DE MECANICA APLICADA C 17 | C BLOQUE 14-PISO 2 C 18 | C MEDELLIN, COLOMBIA C 19 | C C 20 | C LAST UPDATED APRIL 16/2015 C 21 | C C 22 | C EELAS - ELASTIC STRAINS STATEV(1..NTENS) C 23 | C EPLAS - PLASTIC STRAINS STATEV(NTENS+1...2*NTENS) C 24 | C FLOW - PLASTIC FLOW DIRECTION C 25 | C HARD - HARDENING MODULUS C 26 | C C 27 | C23456789012345678901234567890123456789012345678901234567890123456789012 28 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 29 | C 30 | SUBROUTINE UMAT(STRESS, STATEV, DDSDDE, SSE, SPD, SCD, RPL, 31 | 1DDSDDT, DRPLDE, DRPLDT, STRAN, DSTRAN, TIME, DTIME, TEMP, 32 | 2DTEMP, PREDEF, DPRED, CMNAME, NDI, NSHR, NTENS, NSTATV, 33 | 3PROPS, NPROPS, COORDS, DROT, PNEWDT, CELENT, DFGRD0, 34 | 4DFGRD1, NOEL, NPT, LAYER, KSPT, KSTEP, KINC) 35 | C 36 | INCLUDE 'ABA_PARAM.INC' 37 | C 38 | CHARACTER*80 CMNAME 39 | C 40 | DIMENSION STRESS(NTENS), STATEV(NSTATV),DDSDDE(NTENS, NTENS), 41 | 1DDSDDT(NTENS),DRPLDE(NTENS),STRAN(NTENS),DSTRAN(NTENS),TIME(2), 42 | 2PREDEF(1), DPRED(1), PROPS(NPROPS),COORDS(3),DROT(3, 3), 43 | 3DFGRD0(3, 3), DFGRD1(3, 3) 44 | C 45 | DIMENSION EELAS(NTENS), EPLAS(NTENS),DS(NTENS),DSTRESS(NTENS) 46 | C 47 | C 48 | DIMENSION AUX1(1,NTENS),AUX2(NTENS,NTENS),AUX3(NTENS,NTENS), 49 | 1AUX4(NTENS,NTENS),AUX5(NTENS,NTENS),AUX6(NTENS,1),AUX7(1,NTENS), 50 | 2AUX8(1,1),AUX9(1,NTENS),AUX10(1,1),AUX11(NTENS,NTENS), 51 | 3AUX12(NTENS,1),AUX13(1,NTENS),AUX14(1,1),AUX15(1,NTENS), 52 | 4AUX16(NTENS,NTENS),AUX17(NTENS,NTENS),STRESST(1,NTENS), 53 | 5P(NTENS,NTENS),SINVAR(1,1),BI(NTENS,NTENS),STRESSUPD(NTENS,1), 54 | 6SDEV(NTENS,1),EM(NTENS,NTENS),B(NTENS,NTENS),Q(NTENS,NTENS), 55 | 7QT(NTENS,NTENS),DP(NTENS,NTENS),DC(NTENS,NTENS),DEL(NTENS,NTENS), 56 | 8BT(NTENS,NTENS),DIAG(NTENS,NTENS),GDIA(NTENS,NTENS) 57 | C 58 | PARAMETER (ZERO=0.D0, ONE=1.D0, TWO=2.D0, THREE=3.D0, SIX=6.0D0, 59 | 1 ENUMAX=0.4999D0, NEWTON=10, TOLER=1.0D-7,MAXITER=30, 60 | 2 FOUR=4.D0) 61 | C 62 | C Inititalize arrays 63 | C 64 | CALL KCLEAR(AUX1,1,NTENS) 65 | CALL KCLEAR(AUX2,NTENS,NTENS) 66 | CALL KCLEAR(AUX3,NTENS,NTENS) 67 | CALL KCLEAR(AUX4,NTENS,NTENS) 68 | CALL KCLEAR(AUX5,NTENS,NTENS) 69 | CALL KCLEAR(AUX6,NTENS,1) 70 | CALL KCLEAR(AUX7,1,NTENS) 71 | CALL KCLEAR(AUX8,1,1) 72 | CALL KCLEAR(AUX9,1,NTENS) 73 | CALL KCLEAR(AUX10,1,1) 74 | CALL KCLEAR(AUX11,NTENS,NTENS) 75 | CALL KCLEAR(AUX12,NTENS,1) 76 | CALL KCLEAR(AUX13,1,NTENS) 77 | CALL KCLEAR(AUX14,1,1) 78 | CALL KCLEAR(AUX15,1,NTENS) 79 | CALL KCLEAR(AUX16,NTENS,NTENS) 80 | CALL KCLEAR(AUX17,NTENS,NTENS) 81 | C 82 | CALL KCLEAR(P,NTENS,NTENS) 83 | CALL KCLEAR(Q,NTENS,NTENS) 84 | CALL KCLEAR(DP,NTENS,NTENS) 85 | CALL KCLEAR(DC,NTENS,NTENS) 86 | CALL KCLEAR(QT,NTENS,NTENS) 87 | CALL KCLEAR(DEL,NTENS,NTENS) 88 | C 89 | CALL KCLEAR(STRESST,1,NTENS) 90 | CALL KCLEAR(SINVAR,1,1) 91 | C 92 | CALL KCLEAR(STRESSUPD,NTENS,1) 93 | CALL KCLEAR(AUX17,NTENS,NTENS) 94 | CALL KCLEAR(B,NTENS,NTENS) 95 | CALL KCLEAR(BT,NTENS,NTENS) 96 | C 97 | C Recover equivalent plastic strain, elastic strains, and plastic 98 | C strains. Also initialize user definde data sets. 99 | C 100 | DO K1=1, NTENS 101 | EELAS(K1)=STATEV(K1) 102 | EPLAS(K1)=STATEV(K1+NTENS) 103 | END DO 104 | EQPLAS=STATEV(1+2*NTENS) 105 | C 106 | C Elastic properties 107 | C 108 | EMOD=PROPS(1) 109 | ENU=MIN(PROPS(2),ENUMAX) 110 | EBULK3=EMOD/(ONE-TWO*ENU) 111 | EG2=EMOD/(ONE+ENU) 112 | EG=EG2/TWO 113 | EG3=THREE*EG 114 | ELAM=(EBULK3-EG2)/THREE 115 | C 116 | C Elastic stiffness 117 | C 118 | DO K1=1, 3 119 | DO K2=1, 3 120 | DDSDDE(K2, K1)=ELAM 121 | END DO 122 | DDSDDE(K1, K1)=EG2+ELAM 123 | END DO 124 | DO K1=4, 4 125 | DDSDDE(K1, K1)=EG 126 | END DO 127 | DDSDDE(5,5)=EG2 128 | DDSDDE(6,6)=EG2 129 | C 130 | C Form proyector and diagonal decomposition matrices 131 | C 132 | CALL KPROYECTOR(P) 133 | C 134 | C Calculate predictor stress and elastic strains 135 | C 136 | CALL KMAVEC(DDSDDE,NTENS,NTENS,DSTRAN,DS) 137 | CALL KUPDVEC(STRESS,NTENS,DS) 138 | CALL KUPDVEC(EELAS,NTENS,DSTRAN) 139 | C 140 | C Calculate equivalent mises stress 141 | C 142 | CALL KMTRAN(STRESS,NTENS,1,STRESST) 143 | CALL KMMULT(P,NTENS,NTENS,STRESS,NTENS,1,SDEV) 144 | CALL KMMULT(STRESST,1,NTENS,SDEV,NTENS,1,SINVAR) 145 | FBAR=DSQRT(SINVAR(1,1)) 146 | C 147 | C Get the yield stress from the specifid hardening function. 148 | C 149 | CALL KUHARD(SYIEL0,EHARD,EQPLAS,2,PROPS(5)) 150 | C 151 | C Determine if actively yielding 152 | C 153 | SYIELD=SYIEL0 154 | IF(FBAR.GT.(ONE+TOLER)*SYIEL0) THEN 155 | C 156 | C Actively yielding-Perform local Newton iterations 157 | C to find consistncy parameter and equivalent plastic 158 | C strain 159 | C 160 | C Starts iterations 161 | C 162 | ITER=1 163 | GAM_PAR=ZERO 164 | IFLAG=0 165 | DO 166 | CALL KSPECTRAL(Q,DP,DC,DIAG,GDIA,GAM_PAR,EMOD,ENU) 167 | CALL KMTRAN(Q,NTENS,NTENS,QT) 168 | CALL KMMULT(STRESST,1,6,Q,NTENS,NTENS,AUX1) 169 | CALL KMMULT(QT,NTENS,NTENS,P,NTENS,NTENS,AUX2) 170 | CALL KMMULT(AUX2,NTENS,NTENS,Q,NTENS,NTENS,AUX3) 171 | CALL KMMULT(AUX3,NTENS,NTENS,DIAG,NTENS,NTENS,AUX4) 172 | CALL KMMULT(AUX4,NTENS,NTENS,QT,NTENS,NTENS,AUX5) 173 | CALL KMMULT(AUX5,NTENS,NTENS,STRESS,NTENS,1,AUX6) 174 | CALL KMMULT(AUX1,1,NTENS,DIAG,NTENS,NTENS,AUX7) 175 | CALL KMMULT(AUX7,1,NTENS,AUX6,NTENS,1,AUX8) 176 | CALL KMMULT(AUX1,1,NTENS,GDIA,NTENS,NTENS,AUX9) 177 | CALL KMMULT(AUX9,1,NTENS,AUX6,NTENS,1,AUX10) 178 | FBAR=DSQRT(AUX8(1,1)) 179 | TETA2=ONE-(TWO/THREE)*EHARD*GAM_PAR 180 | FJAC=TETA2*AUX10(1,1)/FBAR-(TWO/THREE)*EHARD*FBAR 181 | FGAM=FBAR-SYIELD 182 | C 183 | C Updates 184 | C 185 | GAM_PAR=GAM_PAR-FGAM/FJAC 186 | EQPLAS1=EQPLAS+DSQRT(TWO/THREE)*GAM_PAR*FBAR 187 | CALL KUHARD(SYIELD,EHARD,EQPLAS1,2,PROPS(5)) 188 | C 189 | IF(ABS(FGAM/FJAC).LT.TOLER) THEN 190 | IFLAG=0 191 | GOTO 801 192 | ELSE 193 | IF(ITER.GT.MAXITER) THEN 194 | IFLAG=1 195 | GOTO 802 196 | END IF 197 | END IF 198 | C 199 | ITER=ITER+1 200 | END DO 201 | C 202 | 801 CONTINUE 203 | C 204 | C Local Newton algorithm converged 205 | C Update stresses, elastic and plastic strains, equivalent plastic 206 | C strains 207 | C 208 | CALL KSPECTRAL(Q,DP,DC,DIAG,GDIA,GAM_PAR,EMOD,ENU) 209 | CALL KMMULT(Q,NTENS,NTENS,DIAG,NTENS,NTENS,AUX17) 210 | CALL KMMULT(AUX17,NTENS,NTENS,QT,NTENS,NTENS,B) 211 | CALL KMMULT(B,NTENS,NTENS,STRESS,NTENS,1,STRESSUPD) 212 | C 213 | CALL KCLEAR(STRESS,NTENS,1) 214 | DO K1=1,NTENS 215 | STRESS(K1)=STRESSUPD(K1,1) 216 | END DO 217 | C 218 | CALL KCLEAR(STRESST,1,NTENS) 219 | CALL KCLEAR(SDEV,NTENS,1) 220 | CALL KMTRAN(STRESS,NTENS,1,STRESST) 221 | CALL KMMULT(P,NTENS,NTENS,STRESS,NTENS,1,SDEV) 222 | CALL KMMULT(STRESST,1,NTENS,SDEV,NTENS,1,SINVAR) 223 | FBAR=DSQRT(SINVAR(1,1)) 224 | C 225 | DO K1=1,NTENS 226 | EPLAS(K1)=EPLAS(K1)+GAM_PAR*SDEV(K1,1) 227 | EELAS(K1)=EELAS(K1)-EPLAS(K1) 228 | END DO 229 | C 230 | EQPLAS=EQPLAS1 231 | C 232 | C Formulate the consistent material Jacobian (tangent) 233 | C 234 | CALL KCLEAR(EM,NTENS,NTENS) 235 | CALL KMMULT(B,NTENS,NTENS,DDSDDE,NTENS,NTENS,EM) 236 | CALL KMMULT(EM,NTENS,NTENS,P,NTENS,NTENS,AUX11) 237 | CALL KMMULT(AUX11,NTENS,NTENS,STRESS,NTENS,1,AUX12) 238 | CALL KMMULT(STRESST,1,NTENS,P,NTENS,NTENS,AUX13) 239 | CALL KMMULT(AUX13,1,NTENS,AUX12,NTENS,1,AUX14) 240 | CALL KMTRAN(AUX12,NTENS,1,AUX15) 241 | CALL KMMULT(AUX12,NTENS,1,AUX15,1,NTENS,AUX16) 242 | SCALAR1=ONE/AUX14(1,1) 243 | CALL KSMULT(AUX16,NTENS,NTENS,SCALAR1) 244 | TETA2=ONE-(TWO/THREE)*EHARD*GAM_PAR 245 | CBETA=(TWO/THREE/TETA2/AUX14(1,1))*FBAR*FBAR*EHARD 246 | SCALAR2=ONE/(ONE+CBETA) 247 | CALL KSMULT(AUX16,NTENS,NTENS,SCALAR2) 248 | CALL KCLEAR(DDSDDE,NTENS,NTENS) 249 | CALL KMATSUB(EM,NTENS,NTENS,AUX16,DDSDDE,0) 250 | C 251 | END IF 252 | C 253 | C Store elastic strains, (equivalent) plastic strains 254 | C in state variable array 255 | C 256 | DO K1=1,NTENS 257 | STATEV( K1)=EELAS(K1) 258 | STATEV(NTENS+K1)=EPLAS(K1) 259 | END DO 260 | STATEV(2*NTENS+1)=EQPLAS 261 | STATEV(2*NTENS+2)=DSQRT(THREE/TWO)*FBAR 262 | C 263 | 802 IF (IFLAG.EQ.1) THEN 264 | WRITE(*,*) 265 | WRITE(*,*) 'LOCAL PLASTICITY ALGORITHM DID NOT CONVREGED' 266 | WRITE(*,*) 'AT GAUSS POINT=',NPT, 'ELEMENT=',NOEL 267 | WRITE(*,*) 'AFTER=',ITER,' ITERATIONS' 268 | WRITE(*,*) 'LAST CORRECTION=',fgam/fjac 269 | CALL XIT 270 | END IF 271 | C 272 | RETURN 273 | C 274 | END 275 | C 276 | C11111111122222222223333333333444444444455555555556666666666777777777777 277 | C23456789012345678901234567890123456789012345678901234567890123456789012 278 | C C 279 | C SUBROUTINE UHARD C 280 | C C 281 | C23456789012345678901234567890123456789012345678901234567890123456789012 282 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 283 | C 284 | SUBROUTINE KUHARD(SYIELD,EHARD,EQPLAS,NVALUE,TABLE) 285 | C 286 | IMPLICIT REAL*8(A-H,O-Z) 287 | C 288 | DIMENSION TABLE(2,NVALUE) 289 | C 290 | PARAMETER(ZERO=0.D0,TWO=2.D0,THREE=3.D0) 291 | C 292 | SYIEL0=TABLE(1,1) 293 | C 294 | C Compute hardening modulus 295 | C 296 | EHARD=(TABLE(1,2)-TABLE(1,1))/TABLE(2,2) 297 | C 298 | C Compute yield stress corresponding to EQPLAS 299 | C 300 | SYIELD=DSQRT(TWO/THREE)*(SYIEL0+EHARD*EQPLAS) 301 | C 302 | RETURN 303 | C 304 | END 305 | C 306 | C11111111122222222223333333333444444444455555555556666666666777777777777 307 | C23456789012345678901234567890123456789012345678901234567890123456789012 308 | C C 309 | C SUBROUTINE SPECTRAL C 310 | C C 311 | C23456789012345678901234567890123456789012345678901234567890123456789012 312 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 313 | C 314 | SUBROUTINE KSPECTRAL(Q,DP,DC,DIAG,GDIA,GAM_PAR,E,ENU) 315 | C 316 | IMPLICIT REAL*8(A-H,O-Z) 317 | C 318 | PARAMETER(ZERO=0.D0,ONE=1.D0,TWO=2.D0,THREE=3.D0,FOUR=4.D0, 319 | 1 SIX=6.D0) 320 | C 321 | DIMENSION Q(6,6),DP(6,6),DC(6,6),DIAG(6,6),GDIA(6,6) 322 | C 323 | CALL KCLEAR(Q,6,6) 324 | CALL KCLEAR(DP,6,6) 325 | CALL KCLEAR(DC,6,6) 326 | CALL KCLEAR(DIAG,6,6) 327 | CALL KCLEAR(GDIA,6,6) 328 | C 329 | EG2=E/(ONE+ENU) 330 | EG=EG2/TWO 331 | ELAM=EG2*ENU/(ONE-TWO*ENU) 332 | CBETA2=EG2 333 | CALFA2=EG2 334 | C 335 | Q(1,1)=ZERO 336 | Q(1,2)=TWO/DSQRT(SIX) 337 | Q(1,3)=ONE/DSQRT(THREE) 338 | Q(2,1)=-DSQRT(TWO)/TWO 339 | Q(2,2)=-ONE/DSQRT(SIX) 340 | Q(2,3)=ONE/DSQRT(THREE) 341 | Q(3,1)=DSQRT(TWO)/TWO 342 | Q(3,2)=-ONE/DSQRT(SIX) 343 | Q(3,3)=ONE/DSQRT(THREE) 344 | Q(4,4)=ONE 345 | Q(5,5)=ONE 346 | Q(6,6)=ONE 347 | C 348 | DP(1,1)=ONE 349 | DP(2,2)=ONE 350 | DP(3,3)=ZERO 351 | DP(4,4)=TWO 352 | DP(5,5)=ONE 353 | DP(6,6)=ONE 354 | C 355 | DC(1,1)=EG2 356 | DC(2,2)=EG2 357 | DC(3,3)=THREE*ELAM+EG2 358 | DC(4,4)=EG 359 | DC(5,5)=EG2 360 | DC(6,6)=EG2 361 | C 362 | DIAG(1,1)=ONE/(ONE+CBETA2*GAM_PAR) 363 | DIAG(2,2)=ONE/(ONE+CBETA2*GAM_PAR) 364 | DIAG(3,3)=ONE 365 | DIAG(4,4)=ONE/(ONE+CBETA2*GAM_PAR) 366 | DIAG(5,5)=ONE/(ONE+CALFA2*GAM_PAR) 367 | DIAG(6,6)=ONE/(ONE+CALFA2*GAM_PAR) 368 | GDIA(1,1)=-(CBETA2/((ONE+CBETA2*GAM_PAR)**2)) 369 | GDIA(2,2)=-(CBETA2/((ONE+CBETA2*GAM_PAR)**2)) 370 | GDIA(3,3)=ZERO 371 | GDIA(4,4)=-(CBETA2/((ONE+CBETA2*GAM_PAR)**2)) 372 | GDIA(5,5)=-(CALFA2/((ONE+CALFA2*GAM_PAR)**2)) 373 | GDIA(6,6)=-(CALFA2/((ONE+CALFA2*GAM_PAR)**2)) 374 | C 375 | RETURN 376 | C 377 | END 378 | C 379 | C11111111122222222223333333333444444444455555555556666666666777777777777 380 | C23456789012345678901234567890123456789012345678901234567890123456789012 381 | C C 382 | C SUBROUTINE PROYECTOR C 383 | C C 384 | C23456789012345678901234567890123456789012345678901234567890123456789012 385 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 386 | C 387 | SUBROUTINE KPROYECTOR(P) 388 | C 389 | IMPLICIT REAL*8(A-H,O-Z) 390 | C 391 | PARAMETER(ZERO=0.D0,ONE=1.D0,TWO=2.D0,THREE=3.D0) 392 | C 393 | DIMENSION P(6,6) 394 | C 395 | CALL KCLEAR(P,6,6) 396 | C 397 | P(1,1)=TWO/THREE 398 | P(1,2)=-ONE/THREE 399 | P(1,3)=-ONE/THREE 400 | P(2,1)=-ONE/THREE 401 | P(2,2)=TWO/THREE 402 | P(2,3)=-ONE/THREE 403 | P(3,1)=-ONE/THREE 404 | P(3,2)=-ONE/THREE 405 | P(3,3)=TWO/THREE 406 | P(4,4)=TWO 407 | P(5,5)=ONE 408 | P(6,6)=ONE 409 | C 410 | RETURN 411 | C 412 | END 413 | C -------------------------------------------------------------------------------- /UMATS/UMAT_VPDCO.for: -------------------------------------------------------------------------------- 1 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 2 | C11111111122222222223333333333444444444455555555556666666666777777777777 3 | C23456789012345678901234567890123456789012345678901234567890123456789012 4 | C C 5 | C UMAT_VPDCO.for Viscoplasticity Damage Coupled Cosserat Couple C 6 | C Stress Theory C 7 | C Requires a UEL.for subroutine C 8 | C C 9 | C SUBROUTINE UMAT C 10 | C DAMAGE MECHANICS COUPLED RATE DEPENDENT HARDENING PLASTICITY C 11 | C COMBINED ISOTROPIC/KINEMATIC HARDENING C 12 | C RETURN MAPPING ALGORITHM C 13 | C C 14 | C NTENS: LENGTH OF STRESS VECTOR C 15 | C NDI: NUMBER OF NORMAL STRESS COMPONENTS C 16 | C CREATED BY JUAN GOMEZ C 17 | C UNIVERSIDAD EAFIT C 18 | C LABORATORIO DE MECANICA APLICADA C 19 | C BLOQUE 14-PISO 2 C 20 | C MEDELLIN, COLOMBIA C 21 | C C 22 | C LAST UPDATED APRIL 16/2015 C 23 | C C 24 | C23456789012345678901234567890123456789012345678901234567890123456789012 25 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 26 | C 27 | SUBROUTINE UMAT(STRESS, STATEV, DDSDDE, SSE, SPD, SCD, RPL, 28 | 1DDSDDT, DRPLDE, DRPLDT, STRAN, DSTRAN, TIME, DTIME, TEMP, 29 | 2DTEMP, PREDEF, DPRED, CMNAME, NDI, NSHR, NTENS, NSTATV, 30 | 3PROPS, NPROPS, COORDS, DROT, PNEWDT, CELENT, DFGRD0, 31 | 4DFGRD1, NOEL, NPT, LAYER, KSPT, KSTEP, KINC) 32 | C 33 | INCLUDE 'ABA_PARAM.INC' 34 | C 35 | CHARACTER*80 CMNAME 36 | C 37 | DIMENSION STRESS(NTENS), STATEV(NSTATV),DDSDDE(NTENS, NTENS), 38 | 1DDSDDT(NTENS),DRPLDE(NTENS),STRAN(NTENS),DSTRAN(NTENS),TIME(2), 39 | 2PREDEF(1), DPRED(1), PROPS(NPROPS),COORDS(3),DROT(3, 3), 40 | 3 DFGRD0(3, 3), DFGRD1(3, 3) 41 | C 42 | DIMENSION EELAS(NTENS), EPLAS(NTENS),DS(NTENS),DSTRESS(NTENS) 43 | C 44 | DIMENSION AUX1(1,NTENS),AUX2(NTENS,NTENS),AUX3(NTENS,NTENS), 45 | 1AUX4(NTENS,NTENS),AUX5(NTENS,NTENS),AUX6(NTENS,1),AUX7(1,NTENS), 46 | 2AUX8(1,1),AUX9(1,NTENS),AUX10(1,1),AUX11(NTENS,NTENS), 47 | 3AUX12(NTENS,1),AUX13(1,NTENS),AUX14(1,1),AUX15(1,NTENS), 48 | 4AUX16(NTENS,NTENS),AUX17(NTENS,NTENS),STSRELT(1,NTENS), 49 | 5P(NTENS,NTENS),SINVAR(1,1),BI(NTENS,NTENS),STRESSUPD(NTENS,1), 50 | 6SDEV(NTENS,1),EM(NTENS,NTENS),B(NTENS,NTENS),Q(NTENS,NTENS), 51 | 7QT(NTENS,NTENS),DP(NTENS,NTENS),DC(NTENS,NTENS),DEL(NTENS,NTENS), 52 | 8BT(NTENS,NTENS),DIAG(NTENS,NTENS),GDIA(NTENS,NTENS), 53 | 9PM(NTENS,NTENS),XBACK(NTENS),STSREL(NTENS),EPL(NTENS) 54 | C 55 | PARAMETER (ZERO=0.D0, ONE=1.D0, TWO=2.D0, THREE=3.D0, SIX=6.0D0, 56 | 1 ENUMAX=0.4999D0, NEWTON=10, TOLER=1.0D-7,MAXITER=16) 57 | C 58 | C********************************************************************** 59 | C C O S S E R A T E L A S T I C I T Y 60 | C********************************************************************** 61 | C 62 | C Inititalize arrays 63 | C 64 | CALL KCLEAR(AUX1,1,NTENS) 65 | CALL KCLEAR(AUX2,NTENS,NTENS) 66 | CALL KCLEAR(AUX3,NTENS,NTENS) 67 | CALL KCLEAR(AUX4,NTENS,NTENS) 68 | CALL KCLEAR(AUX5,NTENS,NTENS) 69 | CALL KCLEAR(AUX6,NTENS,1) 70 | CALL KCLEAR(AUX7,1,NTENS) 71 | CALL KCLEAR(AUX8,1,1) 72 | CALL KCLEAR(AUX9,1,NTENS) 73 | CALL KCLEAR(AUX10,1,1) 74 | CALL KCLEAR(AUX11,NTENS,NTENS) 75 | CALL KCLEAR(AUX12,NTENS,1) 76 | CALL KCLEAR(AUX13,1,NTENS) 77 | CALL KCLEAR(AUX14,1,1) 78 | CALL KCLEAR(AUX15,1,NTENS) 79 | CALL KCLEAR(AUX16,NTENS,NTENS) 80 | CALL KCLEAR(AUX17,NTENS,NTENS) 81 | CALL KCLEAR(STSREL,NTENS,1) 82 | CALL KCLEAR(P,NTENS,NTENS) 83 | CALL KCLEAR(Q,NTENS,NTENS) 84 | CALL KCLEAR(DP,NTENS,NTENS) 85 | CALL KCLEAR(DC,NTENS,NTENS) 86 | CALL KCLEAR(QT,NTENS,NTENS) 87 | C 88 | C Recover state variables 89 | C Elastic strain,Plastic strain,equivalent plastic strain 90 | C Back stress,Damage, Helmholtz free energy term. 91 | C 92 | DO K1=1, NTENS 93 | EELAS(K1)=STATEV(K1) 94 | EPLAS(K1)=STATEV(K1+NTENS) 95 | END DO 96 | EQPLAS=STATEV(1+2*NTENS) 97 | JJ=1 98 | DO II=14,2*NTENS+7 99 | XBACK(JJ)=STATEV(II) 100 | JJ=JJ+1 101 | END DO 102 | D=STATEV(20) 103 | ESTE=STATEV(21) 104 | SEQUIV=STATEV(22) 105 | C 106 | C Compute viscosity prameter sneta and assimilates material properties 107 | C 108 | CALL VSPRATE(PROPS,NPROPS,EMOD,ENU,SNETA,SIG0,SIGSAT, 109 | 1 HMOD,HRDRATE) 110 | C 111 | C Elastic properties 112 | C 113 | SN=PROPS(20) 114 | EBULK3=EMOD/(ONE-TWO*ENU) 115 | EG2=EMOD/(ONE+ENU) 116 | EG=EG2/TWO 117 | EG3=THREE*EG 118 | ELAM=(EBULK3-EG2)/THREE 119 | C 120 | C Elastic stiffness 121 | C 122 | DO K1=1, 3 123 | DO K2=1, 3 124 | DDSDDE(K2, K1)=ELAM 125 | END DO 126 | DDSDDE(K1, K1)=EG2+ELAM 127 | END DO 128 | DO K1=4, 4 129 | DDSDDE(K1, K1)=EG 130 | END DO 131 | DDSDDE(5,5)=EG2 132 | DDSDDE(6,6)=EG2 133 | C 134 | C Form proyector and diagonal decomposition matrices 135 | C 136 | CALL KPROYECTOR(P) 137 | C 138 | C Calculate predictor stress(using damage) and elastic strains 139 | C 140 | CALL KMAVEC(DDSDDE,NTENS,NTENS,DSTRAN,DS) 141 | CALL KSMULT(DS,NTENS,1,(ONE-D)) 142 | CALL KUPDVEC(STRESS,NTENS,DS) 143 | CALL KUPDVEC(EELAS,NTENS,DSTRAN) 144 | C 145 | DO K1=1,NTENS 146 | STSREL(K1)=STRESS(K1)-XBACK(K1) 147 | END DO 148 | C 149 | C Calculate equivalent mises stress 150 | C 151 | CALL KCLEAR(STSRELT,1,NTENS) 152 | CALL KCLEAR(SINVAR,1,1) 153 | CALL KMTRAN(STSREL,NTENS,1,STSRELT) 154 | CALL KMMULT(P,NTENS,NTENS,STSREL,NTENS,1,SDEV) 155 | CALL KMMULT(STSRELT,1,NTENS,SDEV,NTENS,1,SINVAR) 156 | FBAR=DSQRT(SINVAR(1,1)) 157 | C 158 | C Get the yield stress from the specifid hardening function. 159 | C 160 | CALL KUHARDNLIN(SYIEL0,SYIELDK,HMOD,SIG0,SIGSAT,HRDRATE, 161 | 1 EHARDI,EHARDK,EQPLAS) 162 | C 163 | C Determine if actively yielding 164 | C 165 | SYIELD=SYIEL0 166 | IF(FBAR.GT.(ONE+TOLER)*SYIEL0) THEN 167 | C 168 | C Actively yielding-Perform local Newton iterations 169 | C to find consistncy parameter and equivalent plastic 170 | C strain 171 | C 172 | C Starts iterations 173 | C 174 | ITER=1 175 | GAM_PAR=ZERO+1.0d-25 176 | PHIINV=0.0D0 177 | DETDG=0.D0 178 | IFLAG=0 179 | DO 180 | IF(SNETA.NE.0.0) THEN 181 | PHIINV=((SNETA/DTIME)**(ONE/SN))*(GAM_PAR**(ONE/SN)) 182 | DETDG=(ONE/SN)*((SNETA/DTIME)**(ONE/SN)) 183 | $ *(GAM_PAR**((ONE/SN)-ONE)) 184 | END IF 185 | CALL KSPECTRAL(Q,DP,DC,DIAG,GDIA,GAM_PAR,EMOD,ENU,EHARDK,D) 186 | CALL KMTRAN(Q,NTENS,NTENS,QT) 187 | CALL KMMULT(STSRELT,1,NTENS,Q,NTENS,NTENS,AUX1) 188 | CALL KMMULT(QT,NTENS,NTENS,P,NTENS,NTENS,AUX2) 189 | CALL KMMULT(AUX2,NTENS,NTENS,Q,NTENS,NTENS,AUX3) 190 | CALL KMMULT(AUX3,NTENS,NTENS,DIAG,NTENS,NTENS,AUX4) 191 | CALL KMMULT(AUX4,NTENS,NTENS,QT,NTENS,NTENS,AUX5) 192 | CALL KMMULT(AUX5,NTENS,NTENS,STSREL,NTENS,1,AUX6) 193 | CALL KMMULT(AUX1,1,NTENS,DIAG,NTENS,NTENS,AUX7) 194 | CALL KMMULT(AUX7,1,NTENS,AUX6,NTENS,1,AUX8) 195 | CALL KMMULT(AUX1,1,NTENS,GDIA,NTENS,NTENS,AUX9) 196 | CALL KMMULT(AUX9,1,NTENS,AUX6,NTENS,1,AUX10) 197 | FBAR=DSQRT(AUX8(1,1)) 198 | TETA2=ONE-(TWO/THREE)*EHARDI*GAM_PAR*(ONE-D) 199 | FJAC=TETA2*AUX10(1,1)/FBAR-(TWO/THREE)*EHARDI*(ONE-D) 200 | & *FBAR-DETDG 201 | FGAM=FBAR-SYIELD-PHIINV 202 | C 203 | C Updates 204 | C 205 | GAM_PAR=GAM_PAR-FGAM/FJAC 206 | EQPLAS1=EQPLAS+DSQRT(TWO/THREE)*GAM_PAR*(ONE-D)*FBAR 207 | CALL KUHARDNLIN(SYIELD,SYIELDK,HMOD,SIG0,SIGSAT,HRDRATE, 208 | 1 EHARDI,EHARDK,EQPLAS1) 209 | C 210 | IF(ABS(FGAM/FJAC).LT.TOLER) THEN 211 | IFLAG=0 212 | GOTO 801 213 | ELSE 214 | IF(ITER.GT.MAXITER) THEN 215 | IFLAG=1 216 | GOTO 802 217 | END IF 218 | END IF 219 | C 220 | ITER=ITER+1 221 | END DO 222 | C 223 | 801 CONTINUE 224 | C 225 | C Local Newton algorithm converged 226 | C Update stresses, elastic and plastic strains, equivalent plastic 227 | C strains, Back stress. 228 | C 229 | CALL KCLEAR(STRESSUPD,NTENS,1) 230 | CALL KCLEAR(AUX17,NTENS,NTENS) 231 | CALL KCLEAR(B,NTENS,NTENS) 232 | CALL KCLEAR(BT,NTENS,NTENS) 233 | CALL KSPECTRAL(Q,DP,DC,DIAG,GDIA,GAM_PAR,EMOD,ENU,EHARDK,D) 234 | CALL KMMULT(Q,NTENS,NTENS,DIAG,NTENS,NTENS,AUX17) 235 | CALL KMMULT(AUX17,NTENS,NTENS,QT,NTENS,NTENS,B) 236 | CALL KMTRAN(B,NTENS,NTENS,BT) 237 | CALL KMMULT(B,NTENS,NTENS,STSREL,NTENS,1,STRESSUPD) 238 | C 239 | CALL KCLEAR(STSREL,NTENS,1) 240 | DO K1=1,NTENS 241 | STSREL(K1)=STRESSUPD(K1,1) 242 | XBACK(K1 )=XBACK(K1)+(TWO/THREE)*GAM_PAR*EHARDK*(ONE-D) 243 | & *STSREL(K1) 244 | STRESS(K1)=STSREL(K1)+XBACK(K1) 245 | END DO 246 | C 247 | CALL KCLEAR(STSRELT,1,NTENS) 248 | CALL KCLEAR(SDEV,NTENS,1) 249 | CALL KMTRAN(STSREL,NTENS,1,STSRELT) 250 | CALL KMMULT(P,NTENS,NTENS,STSREL,NTENS,1,SDEV) 251 | CALL KMMULT(STSRELT,1,NTENS,SDEV,NTENS,1,SINVAR) 252 | FBAR=DSQRT(SINVAR(1,1)) 253 | C 254 | DO K1=1,NTENS 255 | EPL(K1)=GAM_PAR*SDEV(K1,1)/(ONE-D) 256 | EPLAS(K1)=EPLAS(K1)+(GAM_PAR*SDEV(K1,1)/(ONE-D)) 257 | EELAS(K1)=EELAS(K1)-EPLAS(K1) 258 | END DO 259 | EQPLAS=EQPLAS+DSQRT(TWO/THREE)*GAM_PAR*(ONE-D)*FBAR 260 | C 261 | C Formulate the consistent material Jacobian (tangent) 262 | C 263 | CALL KDAMACAL(STRESS,EPL,NTENS,PROPS,NPROPS,ESTE,D) 264 | CALL KCLEAR(EM,NTENS,NTENS) 265 | TETA1=ONE+(TWO/THREE)*EHARDK*GAM_PAR*(ONE-D) 266 | TETA2=ONE-(TWO/THREE)*EHARDI*GAM_PAR*(ONE-D) 267 | CALL KSMULT(B,NTENS,NTENS,TETA1) 268 | CALL KMMULT(B,NTENS,NTENS,DDSDDE,NTENS,NTENS,EM) 269 | CALL KMMULT(EM,NTENS,NTENS,P,NTENS,NTENS,AUX11) 270 | CALL KMMULT(AUX11,NTENS,NTENS,STSREL,NTENS,1,AUX12) 271 | CALL KMMULT(STSRELT,1,NTENS,P,NTENS,NTENS,AUX13) 272 | CALL KMMULT(AUX13,1,NTENS,AUX12,NTENS,1,AUX14) 273 | CALL KMTRAN(AUX12,NTENS,1,AUX15) 274 | CALL KMMULT(AUX12,NTENS,1,AUX15,1,NTENS,AUX16) 275 | SCALAR1=ONE/AUX14(1,1) 276 | CALL KSMULT(AUX16,NTENS,NTENS,SCALAR1) 277 | VPCONS=((TETA1**2)*FBAR)/(TETA2*AUX14(1,1)) 278 | CBETA=(TWO*TETA1*FBAR*FBAR*(ONE-D)*(EHARDI*TETA1+EHARDK*TETA2)) 279 | & /(THREE*TETA2*AUX14(1,1)) 280 | CBETA=CBETA+VPCONS 281 | SCALAR2=ONE/(ONE+CBETA) 282 | CALL KSMULT(AUX16,NTENS,NTENS,SCALAR2) 283 | CALL KCLEAR(DDSDDE,NTENS,NTENS) 284 | CALL KMATSUB(EM,NTENS,NTENS,AUX16,DDSDDE,0) 285 | CALL KSMULT(DDSDDE,NTENS,NTENS,(ONE-D)) 286 | C 287 | END IF 288 | C 289 | C Store elastic strains, (equivalent) plastic strains 290 | C in state variable array 291 | C 292 | DO K1=1,NTENS 293 | STATEV( K1)=EELAS(K1) 294 | STATEV(NTENS+K1)=EPLAS(K1) 295 | END DO 296 | STATEV(2*NTENS+1)=EQPLAS 297 | JJ=1 298 | DO II=14,2*NTENS+7 299 | STATEV(II)=XBACK(JJ) 300 | JJ=JJ+1 301 | END DO 302 | STATEV(20)=D 303 | STATEV(21)=ESTE 304 | SEQUIV=FBAR 305 | STATEV(22)=SEQUIV 306 | C 307 | 802 IF (IFLAG.EQ.1) THEN 308 | WRITE(*,*) 309 | WRITE(*,*) 'LOCAL PLASTICITY ALGORITHM DID NOT CONVERGED' 310 | WRITE(*,*) 'AT GAUSS POINT=',NPT, 'ELEMENT=',NOEL 311 | WRITE(*,*) 'AFTER=',ITER,' ITERATIONS' 312 | WRITE(*,*) 'LAST CORRECTION=',fgam/fjac 313 | CALL XIT 314 | END IF 315 | C 316 | RETURN 317 | C 318 | END 319 | C 320 | C11111111122222222223333333333444444444455555555556666666666777777777777 321 | C23456789012345678901234567890123456789012345678901234567890123456789012 322 | C C 323 | C SUBROUTINE VSPRATE C 324 | C C 325 | C C 326 | C23456789012345678901234567890123456789012345678901234567890123456789012 327 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 328 | C 329 | SUBROUTINE VSPRATE(PROPS,NPROPS,EMOD,ENU,SNETA,SIG0,SIGSAT,HMOD, 330 | 1 HRDRATE) 331 | C 332 | IMPLICIT REAL*8 (A-H,O-Z) 333 | C 334 | PARAMETER (ONE=1.0d0, TWO=2.0d0) 335 | C 336 | DIMENSION PROPS(NPROPS) 337 | C 338 | C Temperature 339 | THETA=PROPS(1) 340 | C Young's modulus 341 | EMOD=(PROPS(2)+PROPS(3)*THETA)*1000.0 342 | C Shear modulus 343 | GMOD=(PROPS(4)+PROPS(5)*THETA)*1000.0 344 | C Poisson's ratio 345 | ENU=(EMOD/(TWO*GMOD))-ONE 346 | C Initial yield stress 347 | SIG0=PROPS(6)+PROPS(7)*THETA 348 | C Coefficient of thermal expansion 349 | CTE=PROPS(8) 350 | C Kinematic hardening parameters 351 | XINFI=PROPS(9) 352 | GAMHARD=PROPS(10) 353 | C Isotropic hardening parameters 354 | RINFI=PROPS(11)+PROPS(12)*THETA 355 | CHARDI=PROPS(13) 356 | C Dimensionless strain rate constant 357 | A=PROPS(14) 358 | C Frequency factor 359 | D0=PROPS(15) 360 | C Burger's vector magnitude 361 | B=PROPS(16) 362 | C Boltzman's constant 363 | BK=PROPS(17) 364 | C Average grain size 365 | DS=PROPS(18) 366 | C Grain size eponent 367 | PS=props(19) 368 | C Stress exponent 369 | SN=PROPS(20) 370 | C Creep activation energy 371 | CQ=PROPS(21) 372 | C Universal gas constant 373 | RGAS=PROPS(22) 374 | C Avogadro's number 375 | AVNUM=PROPS(23) 376 | C Atomic weight 377 | AWEIGTH=PROPS(24) 378 | C Relative length scale 379 | PLS=PROPS(25) 380 | PENNUM=PROPS(26) 381 | C 382 | SNETA=0.D0 383 | POWER=EXP(-CQ/(RGAS*THETA)) 384 | FLUIDITY=((A*D0*EMOD*B)/(BK*THETA)*(EMOD**sn))*((B/DS)**PS)*POWER 385 | IF(FLUIDITY.NE.0.0) SNETA=ONE/FLUIDITY 386 | HMOD=GAMHARD*XINFI 387 | SIGSAT=RINFI 388 | HRDRATE=CHARDI 389 | C 390 | RETURN 391 | C 392 | END 393 | C 394 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 395 | C23456789012345678901234567890123456789012345678901234567890123456789012 396 | C C 397 | C SUBROUTINE KDAMACAL C 398 | C C 399 | C Calculates the energy and damage of constitutive model used C 400 | C for viscoplastic damage C 401 | C C 402 | C INPUT ARGUMENTS------ C 403 | C C 404 | C STR(4) :Stress vector C 405 | C STRAVP(4) :Visco-Plastic Strain increment C 406 | C C 407 | C ESTE :Internal and free energy terms. C 408 | C D :Damage variable . C 409 | C THTA :Temperature C 410 | C C 411 | C OUTPUT ARGUMENTS------- C 412 | C C 413 | C D :Damage variable . C 414 | C ESTE :Internal and free energy terms. C 415 | C C 416 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 417 | C23456789012345678901234567890123456789012345678901234567890123456789012 418 | C 419 | SUBROUTINE KDAMACAL(STR,EPL,NTENS,PROPS,NPROPS,ESTE,D) 420 | C 421 | IMPLICIT REAL*8 (A-H,O-Z) 422 | C 423 | PARAMETER (ONE=1.0D0,TWO=2.D0) 424 | C 425 | DIMENSION STR(NTENS),EPL(NTENS),PROPS(NPROPS) 426 | C 427 | AVNUM= PROPS(23) 428 | BK= PROPS(17) 429 | AWEIGHT= PROPS(24) 430 | CONST1 = AWEIGHT/(AVNUM*BK)/10.0 431 | THTA=PROPS(1) 432 | C 433 | DO 10 I =1,3 434 | ESTE=ESTE+ABS(STR(I)*EPL(I)/THTA) 435 | 10 CONTINUE 436 | C 437 | C Compute damage 438 | C 439 | D =ONE-EXP(-CONST1*ESTE) 440 | C 441 | RETURN 442 | C 443 | END 444 | C 445 | C11111111122222222223333333333444444444455555555556666666666777777777777 446 | C23456789012345678901234567890123456789012345678901234567890123456789012 447 | C C 448 | C SUBROUTINE KUHARDNLIN C 449 | C COMBINED ISOTROPIC/KINEMATIC HARDENING C 450 | C C 451 | C23456789012345678901234567890123456789012345678901234567890123456789012 452 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 453 | C 454 | SUBROUTINE KUHARDNLIN(SYIELDI,SYIELDK,HMOD,SIG0,SIGSAT,HRDRATE, 455 | 1 EHARDI,EHARDK,EQPLAS) 456 | C 457 | IMPLICIT REAL*8(A-H,O-Z) 458 | C 459 | PARAMETER(ZERO=0.D0,ONE=1.D0,TWO=2.D0,THREE=3.D0) 460 | C 461 | C Compute yield stress and hardening modulus corresponding to EQPLAS 462 | C Isotropic hardenining==> Nonlinear Chaboche model 463 | C Kinematic hardening ==> Linear 464 | C 465 | SYIELDI=DSQRT(TWO/THREE)*(SIG0+SIGSAT*(ONE-EXP(-HRDRATE*EQPLAS))) 466 | EHARDI=SIGSAT*HRDRATE*(EXP(-HRDRATE*EQPLAS)) 467 | SYIELDK=HMOD*EQPLAS 468 | EHARDK=HMOD 469 | C 470 | RETURN 471 | C 472 | END 473 | C 474 | C11111111122222222223333333333444444444455555555556666666666777777777777 475 | C23456789012345678901234567890123456789012345678901234567890123456789012 476 | C C 477 | C SUBROUTINE KSPECTRAL C 478 | C C 479 | C23456789012345678901234567890123456789012345678901234567890123456789012 480 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 481 | C 482 | SUBROUTINE KSPECTRAL(Q,DP,DC,DIAG,GDIA,GAM_PAR,E,ENU,EK,D) 483 | C 484 | IMPLICIT REAL*8(A-H,O-Z) 485 | C 486 | PARAMETER(ZERO=0.D0,ONE=1.D0,TWO=2.D0,THREE=3.D0,SIX=6.D0) 487 | C 488 | DIMENSION Q(6,6),DP(6,6),DC(6,6),DIAG(6,6),GDIA(6,6) 489 | C 490 | CALL KCLEAR(Q,6,6) 491 | CALL KCLEAR(DP,6,6) 492 | CALL KCLEAR(DC,6,6) 493 | CALL KCLEAR(DIAG,6,6) 494 | CALL KCLEAR(GDIA,6,6) 495 | C 496 | EG2=E/(ONE+ENU) 497 | EG=EG2/TWO 498 | ELAM=EG2*ENU/(ONE-TWO*ENU) 499 | TETA1=ONE+(TWO/THREE)*GAM_PAR*(1-D)*EK 500 | CBETA2=EG2+(TWO/THREE)*(1-D)*EK 501 | CALFA2=(EG2)+(TWO/THREE)*(1-D)*EK 502 | C 503 | Q(1,1)=ZERO 504 | Q(1,2)=TWO/DSQRT(SIX) 505 | Q(1,3)=ONE/DSQRT(THREE) 506 | Q(2,1)=-DSQRT(TWO)/TWO 507 | Q(2,2)=-ONE/DSQRT(SIX) 508 | Q(2,3)=ONE/DSQRT(THREE) 509 | Q(3,1)=DSQRT(TWO)/TWO 510 | Q(3,2)=-ONE/DSQRT(SIX) 511 | Q(3,3)=ONE/DSQRT(THREE) 512 | Q(4,4)=ONE 513 | Q(5,5)=ONE 514 | Q(6,6)=ONE 515 | C 516 | DP(1,1)=ONE 517 | DP(2,2)=ONE 518 | DP(3,3)=ZERO 519 | DP(4,4)=TWO 520 | DP(5,5)=ONE 521 | DP(6,6)=ONE 522 | C 523 | DC(1,1)=EG2 524 | DC(2,2)=EG2 525 | DC(3,3)=THREE*ELAM+EG2 526 | DC(4,4)=EG 527 | DC(5,5)=EG2 528 | DC(6,6)=EG2 529 | C 530 | DIAG(1,1)=ONE/(ONE+CBETA2*GAM_PAR) 531 | DIAG(2,2)=ONE/(ONE+CBETA2*GAM_PAR) 532 | DIAG(3,3)=ONE/TETA1 533 | DIAG(4,4)=ONE/(ONE+CBETA2*GAM_PAR) 534 | DIAG(5,5)=ONE/(ONE+CALFA2*GAM_PAR) 535 | DIAG(6,6)=ONE/(ONE+CALFA2*GAM_PAR) 536 | C 537 | GDIA(1,1)=-(CBETA2/((ONE+CBETA2*GAM_PAR)**2)) 538 | GDIA(2,2)=-(CBETA2/((ONE+CBETA2*GAM_PAR)**2)) 539 | GDIA(3,3)=-((TWO/THREE)*EK)/(TETA1**2) 540 | GDIA(4,4)=-(CBETA2/((ONE+CBETA2*GAM_PAR)**2)) 541 | GDIA(5,5)=-(CALFA2/((ONE+CALFA2*GAM_PAR)**2)) 542 | GDIA(6,6)=-(CALFA2/((ONE+CALFA2*GAM_PAR)**2)) 543 | C 544 | RETURN 545 | C 546 | END 547 | C 548 | C11111111122222222223333333333444444444455555555556666666666777777777777 549 | C23456789012345678901234567890123456789012345678901234567890123456789012 550 | C C 551 | C SUBROUTINE PROYECTOR C 552 | C C 553 | C23456789012345678901234567890123456789012345678901234567890123456789012 554 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 555 | C 556 | SUBROUTINE KPROYECTOR(P) 557 | C 558 | IMPLICIT REAL*8(A-H,O-Z) 559 | C 560 | PARAMETER(ZERO=0.D0,ONE=1.D0,TWO=2.D0,THREE=3.D0) 561 | C 562 | DIMENSION P(6,6) 563 | C 564 | CALL KCLEAR(P,6,6) 565 | C 566 | P(1,1)=TWO/THREE 567 | P(1,2)=-ONE/THREE 568 | P(1,3)=-ONE/THREE 569 | P(2,1)=-ONE/THREE 570 | P(2,2)=TWO/THREE 571 | P(2,3)=-ONE/THREE 572 | P(3,1)=-ONE/THREE 573 | P(3,2)=-ONE/THREE 574 | P(3,3)=TWO/THREE 575 | P(4,4)=TWO 576 | P(5,5)=ONE 577 | P(6,6)=ONE 578 | C 579 | RETURN 580 | C 581 | END 582 | C -------------------------------------------------------------------------------- /versheet.md: -------------------------------------------------------------------------------- 1 | | Problem | File | Observations | User Subroutine | 2 | |:-------------------|:------------------:|:-------------------------------------------------|:------------------------------:| 3 | | Uniaxial extension | `UNIUSER_CLA` | Uniaxial extension | `UEL8_PCLI_R.for` | 4 | | | | Classical plasticity theory | | 5 | | | | | | 6 | | Uniaxial extension | `UNIUSER_COS` | Uniaxial extension | `UEL8_PCOI.for UEL8_PCOR.for` | 7 | | | | Cosserat plasticity theory | | 8 | | | | Radial return and return mapping algorithms | | 9 | | | | | | 10 | | Uniaxial extension | `UNIUSER9CS` | Uniaxial extension | `UEL9_PCOI.for UEL9_PCOR.for` | 11 | | | | Cosserat plasticity theory | | 12 | | | | Radial return and return mapping algorithms | | 13 | | | | | | 14 | | Uniaxial extension | `UNIUSER_CLA_ELA` | Uniaxial extension | `UEL8_ECL.for` | 15 | | | | Classical elasticity | | 16 | | | | | | 17 | | Uniaxial extension | `UNIUSER_CLA_CAE` | Uniaxial extension | `Abaqus model` | 18 | | | | Classical elasticity | | 19 | | | | | | 20 | | Uniaxial extension | `UNIUSER_COS_ELA` | Uniaxial extension | `UEL8_COS.for` | 21 | | | | Cosserat elasticity | | 22 | | | | | | 23 | | Beam bending | `STOLKEN` | Beam with solid elements | `UEL9_PCOI.for UEL9_PCOR.for` | 24 | | | | | | 25 | | Uniaxial extension | `UNIUSER_CLA_UEL9` | Uniaxial extension | `UEL9_PCLK.for` | 26 | | | | Classical plasticity theory | | 27 | | | | Combined hardening | | 28 | | | | | | 29 | | Uniaxial extension | `UNIUSER_CLA_UEL8` | Uniaxial extension | `UEL8_PCLK.for` | 30 | | | | Classical plasticity theory | | 31 | | | | Combined hardening | | 32 | | | | | | 33 | | Uniaxial extension | `UNIUSER_CLA_KIN` | Uniaxial extension | `UMAT_PCLK.for` | 34 | | | | Classical plasticity theory | | 35 | | | | Combined hardening | | 36 | | | | | | 37 | | Uniaxial extension | `UNIUSER_UEL8` | Uniaxial extension | `UEL8_PCLK.for` | 38 | | | | Classical plasticity theory | | 39 | | | | Combined hardening different boundary conditions | | 40 | | | | | | 41 | | Uniaxial extension | `UNIUSER_COS_KIN` | Uniaxial extension | `UEL8_PCLK_KIN.for` | 42 | | | | Cosserat plasticity theory | | 43 | | | | Combined hardening | | 44 | | | | | | 45 | | Beam bending | `STOLKEN_CLA` | Beam bending | `UEL9_PCLK.for` | 46 | | | | Classical plasticity theory | | 47 | | | | Combined hardening | | 48 | | | | | | 49 | | Beam bending | `STOLKEN_KIN` | Uniaxial extension | `UEL9_PCOR_KIN.for` | 50 | | | | Cosserat plasticity theory | | 51 | | | | Combined hardening | | 52 | | | | | | 53 | | Uniaxial extension | `UNIAXIAL_AXI_UEL` | Uniaxial extension | `UEL8_ECL_AXY.for` | 54 | | | | Classical elasticity | | 55 | | | | Axisymmetric formulation | | --------------------------------------------------------------------------------