Commit 2a810f7c authored by Stefan's avatar Stefan
Browse files

avoid arithmetic overflow for large element counts

parent 13553c62
......@@ -63,12 +63,12 @@ c read nekton .rea file and make a .map file
$ , w3 (lpts) , w4 (lpts)
$ , w5 (lpts)
real w14(4*lpts)
real w14(4,lpts)
equivalence (w1,w14)
common /arrayr/ dx(4*lpts)
common /arrayr/ dx(4,lpts)
common /carrayr/ bc(5*6*lelm)
common /carrayr/ bc(5,6,lelm)
real*8 bc
common /carrayc/ cbc(6,lelm)
character*3 cbc
......@@ -355,6 +355,7 @@ c
real dx(1)
real x(8),y(8),z(8)
integer e,buf(50)
integer*8 l
integer h2s(8) ! hypercube to strange ordering
save h2s
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment