fixed overflow error in indices
This commit is contained in:
parent
d3a5fbd653
commit
e60ecd91fc
2 changed files with 1 additions and 2 deletions
Binary file not shown.
|
|
@ -116,8 +116,7 @@ implicit none
|
||||||
1 format(1i10)
|
1 format(1i10)
|
||||||
|
|
||||||
integer (kind = 16), dimension (:), allocatable :: temp, temp2
|
integer (kind = 16), dimension (:), allocatable :: temp, temp2
|
||||||
integer (kind = 16) :: current, next
|
integer (kind = 16) :: current, next, i, j, templen, ios
|
||||||
integer :: i, j, templen, ios
|
|
||||||
logical :: done
|
logical :: done
|
||||||
|
|
||||||
templen = 0
|
templen = 0
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue