Commit c90ee9d32e829cd43f6e37c15eb52c112a4e401f
1 parent
81b5d24e17
Exists in
master
and in
3 other branches
git-svn-id: https://lxsd.femto-st.fr/svn/fvn@32 b657c933-2333-4658-acf2-d3c7c2708721
Showing 1 changed file with 2 additions and 2 deletions Side-by-side Diff
fvnlib.f90
| ... | ... | @@ -1626,7 +1626,7 @@ |
| 1626 | 1626 | ! br is just a copy of x |
| 1627 | 1627 | br(:)=x(:) |
| 1628 | 1628 | |
| 1629 | - allocate(var(n)) | |
| 1629 | + allocate(var(n+3)) | |
| 1630 | 1630 | allocate(z(n)) |
| 1631 | 1631 | ! evaluate the variations |
| 1632 | 1632 | do i=1, n-1 |
| ... | ... | @@ -1688,7 +1688,7 @@ |
| 1688 | 1688 | ! br is just a copy of x |
| 1689 | 1689 | br(:)=x(:) |
| 1690 | 1690 | |
| 1691 | - allocate(var(n)) | |
| 1691 | + allocate(var(n+3)) | |
| 1692 | 1692 | allocate(z(n)) |
| 1693 | 1693 | ! evaluate the variations |
| 1694 | 1694 | do i=1, n-1 |