|
1 | 1 | //******************************************************************************** |
2 | 2 | //** ** |
3 | | -//** Pertains to CU-BEN ver 3.0 ** |
| 3 | +//** Pertains to CU-BEN ver 3.14 ** |
4 | 4 | //** ** |
5 | 5 | //** Copyright (c) 2016 C. J. Earls ** |
6 | 6 | //** Developed by C. J. Earls, Cornell University ** |
|
60 | 60 | //#include "f2c.h" |
61 | 61 |
|
62 | 62 | /* |
63 | | - CU-BEN Serial Version 3.0 (July 21, 2016) |
| 63 | + CU-BEN Serial Version 3.14 (October 26, 2016) |
64 | 64 |
|
65 | 65 | Analysis Options: |
66 | 66 | 1st order elastic, i.e. "linear elastic" |
@@ -595,8 +595,7 @@ int main (int argc, char **argv) |
595 | 595 | p2p2d[nd] = deffarea_ip; |
596 | 596 | nd++; |
597 | 597 |
|
598 | | - /* Longitudinal length and deformed longitudinal length (truss and frame elements |
599 | | - only) */ |
| 598 | + // Longitudinal length and deformed longitudinal length (truss and frame elements only) |
600 | 599 | double *llength = alloc_dbl (NE_TR+NE_FR); |
601 | 600 | if (llength == NULL) { |
602 | 601 | goto EXIT2; |
@@ -2433,8 +2432,8 @@ int main (int argc, char **argv) |
2433 | 2432 | lpfpp = lpfp; |
2434 | 2433 | lpfp = lpf; |
2435 | 2434 |
|
2436 | | - /* Set all temporary variables and variables which refer to the structure in its |
2437 | | - current configuration to values obtained at last successful load increment; |
| 2435 | + /* Set all temporary variables, and variables which refer to the structure in its |
| 2436 | + current configuration, to values obtained at last successful load increment; |
2438 | 2437 | this step is required so as not to overwrite structure properties prematurely |
2439 | 2438 | if load increment is unsuccessful / invalid */ |
2440 | 2439 | // General |
@@ -3253,8 +3252,8 @@ int main (int argc, char **argv) |
3253 | 3252 | if (lpf > lpfmax) { |
3254 | 3253 | lpf = lpfmax; |
3255 | 3254 | } |
3256 | | - /* Set all temporary variables and variables which refer to the structure |
3257 | | - in its current configuration to values obtained at last successful |
| 3255 | + /* Set all temporary variables, and variables which refer to the structure |
| 3256 | + in its current configuration, to values obtained at last successful |
3258 | 3257 | load increment; this step is required so as not to overwrite structure |
3259 | 3258 | properties prematurely if load increment is unsuccessful / invalid */ |
3260 | 3259 | for (i = 0; i < NEQ; ++i) { |
|
0 commit comments