From e60ecd91fc99ec54a5b193baf8a5e45ef21cbab6 Mon Sep 17 00:00:00 2001 From: William Ball Date: Sun, 2 Aug 2020 15:45:40 -0700 Subject: [PATCH] fixed overflow error in indices --- fortran/fourthfree | Bin 18168 -> 18168 bytes fortran/fourthfree.f90 | 3 +-- 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/fortran/fourthfree b/fortran/fourthfree index 4539bd00b20723dfa201017ddc995a9799ba4a84..d4ea72464704f511e0a84329909c18e74df2ed2c 100755 GIT binary patch delta 2847 zcmZuzeQZK%|CNlNQP<`hWsy0*MJ9-tXLJ zvLNmK;d}47=lst1xz5=vXS1GS_CSF9^cUcn`Ro`gyZBCVPi(sNgRftjrZ38|=D=N;pJ!m%~>Zi zr9=-XhH4j0a;Qawae$f@QL8tqMQk|! z$>AgV$K;9~kXmRaE3K6Op;S`jaQ&?UE2Y>KWD%mewQsH_kGdaDQ{YG42hZiQ4-@@?#=czud%|~D*lA6C1-pH$4z^_gl>Z(-7q`KnnzX4l= z$9SrX5X?cAFwY>cV}`nsm^z=}2mdM68L0*hH7(h3ndApYq#Bd#qyz)qveV$3#dA^? zSk#q!S=c9uh5=bIvZGU)aGFWPJ}S-CqTVM>m&yLKenWNpDW(#uPLJsq;CmE-fU^kR z_M|8_;P_m_dLCg=<5J~}*k?v;SO!n=^!Ynz5TqjdRC+SO6N88df31rE0ZtD0Qf=bn ziH1Sm^;6_griYJGK}uDIdTE_@dvlad9Mai@8se#HVuH$gZ7fhAE z{pbAdhlnG3q*r70f903FCFj0GSZW~gOC$!#ll{3>v}uER{I$Fu7eF!89f^Dp%4Us{ zciSNt%gPlbv=9Q^z6Nf?+L`pa8C67`hNLzhA&rKGPB1K#{H3tYF=dj9vQ4M6VH+Y= zafk2xIhYgXN6b*)&}|qI6}1WTQv~P>|C4qZDrAdMGDfx-Y|@wq>k-Xn9tq9s%OC&! z3Zu2*9Mu%UwO!O36&H8BfmR9KPlQoJg~Uu_*?~ElI@3TC#k!NJ1G}8=(gls{$j9S% zn?~A)v}orAHm76Lc&ld-DTM80r&YNv3dh8q5AcVt3s2(iSiv# zhe3t`hErt{r`h944rO&2ME2-O#v^<61iR3M0^-%39tdA_(BQ;nFjN3z;#dBc9sKBrZ4kUz_V++2=mBx5xw+2;`Vl+kh%X2Cu-bT zG28==gc>DE;dOY0qKb)yF_gS_4qb+FL!FHs2b%mo<}cN~)$J7wqPrevFWP37!I!${ z3s75e;f=18c$0)^F!>mjC-in`7_Z()@h+UH=(*&N%7qyZ}j6yebJ)eYL zJS5cCwG(_E=BpY)uedZ%Y&Ph5u-pZG zqX0U;0J;y1Gnjv#@G#f>U(9l_J~m_N?pdHu6+n+bo-8Go`Y6<7;Eiz)v|zAw9;{sW z%t}aO8r$)Tg6K;H)dN^#*;w9PgiXR6z(X?v7?)aXJ^eM>B+aoVoznG2aEua1apCDV zomVTP$(2+?cH?HCqQm;nmAFA|Q~V+CqDEi1*I*OaPJkH8y3c~8Z^Ma7DvH}w&vv6p z>?HmPINgUdMtMkM#8-LXcH{4`aW8yBP~{i3+>hd(0w6p_mnU$!aVf7(!9*BY?VI3L z)6LHrcH_coJh{&%)JXH1gu33mx>?;?Bkj5n$j=y&+tU2H*nK+lLe)>$?(k=9ne%yg zKl`Ec+rili-!|YM~R_Ln4WtZ4-A=~fF zUW4z$otZP|eCM2R&YYRC*^JG4^V!1p7aRI}e{p&V8(_h08!s$)={N1``|f`5%MAxl zJaDW;EKR$4D|!AK1%@H*MP=#5OO~?7PKyleqv3`|Q+6HGUh31foBl>cSt-J*&|FF~!(M~>`B zPfpi8aVMLFjk}c~QvND(rn1h>qLRRmu{FsH{WqM#U_IOGSi#D;4>H0nC)~CSPwqf0 zR_Ybe0{_2#&@guKJ&zn&L@r9V=9X2Rw7j2>i6uPp$}X`9D7>;qG|mllxL&PkhMYO}C-S*sS<{ukg(s&Sz9A~wPyf12eKFd!!xeI!3i`PlwV+9)aV zy;Ep#E{BTaB@_%8Yw9c1>f`RQSxR->t-+XjO(V69^0oyyDl65cgR@dS;v}gfNHWut zVwyDauB)t(eQqfs%*0ThrCt{KX5!D_c!wyb)jFB-37Og~@;~B+5jSMr@JAX#4Vvnr zTt3F_H?i*KJlTgadK%G#rvKb5-^I&fl+gvL{vp+XrM_~He2G{C13cLdCHP}GSC=hy z-JJg1e}5H&5p?PY2-lbhHZlSk?_9x?i-) z1d?VFL>J1$W>IX&gv(_AWgqIpN7uqqryXnA^6$!&CCX)LD^gaIQq9QlB^mx$2F~-g ze|?2IPwfzejcth19Fl5~ANn4hlNyjGso3yw*?+}n)(!FYbx!ZHV7zyRjw&cn>83iv zlehfP2a(0OSk#yd48Ia2NugA?EHzH{?lDkgscR>3eGS=v%_n(m#@z`hRU)Y3$`JxT z^hbTWwdIJVZfVQC+H%}&hH~5Ac>K_-P@<@j)Z6;bMgO2tQ6+Ro=;BpNb;(NY6SXmQ zGlod4Ms?LxLpO_gS*|1#gE*rzh4m$Zx7WZrniycaqI^%IVQwFg>^u=^CWcv*R~BG$ z(TEU=U>&<&zrYPY2GqkMkAfgYSo2zb#)&5Tj_gLPI_QHGbO^e+t6}>;MNMel@3Zt4F4=sV2B~b2lGg^h0TENE zDu}3hDexJL@MO3vh>z_-p{pl+PJTV9yCd}hVgycz&}~ExL*c^2U^r9|5orak$9g;| zT1Y#U>!p@@P5heH@U$1BZakQGU{3X9sV)sk5j8``D^G}4jP6DxN@unPBUNp398%Oa zy8A_(iM#(cqD2w5;OY1);y2abb?a1~$()udWEi--U#HWN7Egf3sPH zy-!q!N5h%uNgSi`A-!y%`z3&*LTn7Y^0eqA{Tk2LHmdgKDLhOa@QAiS&sRjdL0hNG zSUbfZLdR1hQjNLw*qP!#^oc1R|3L=HO!DVrV(-02GF7@7Fd(BBsTIM|B!39|_$S4$ zC>p$`bV}}a0QGtCEu{FsOFMF)^Pqb%SMctmB*f-uZnRX7ekewgPFKm2IzA63vmggk z@4zR`$6bDmuf99u@`}f zN70Tv?g75x+1|n!&V;k>lbBG8FxR0ySZabU)i%0R%`!2u35Q6_zzmfQF~Qr0ocBtr z<1d0XoZ{<%#og(@vdFC=WIOUyZo|?WZmAYFd;wuNgN?S|cD=y%VVYApJ!scuI%N7bEYrCqfZ z;%BVNyE5_beD_HD_bZ=f&O|}e;qpuDo6cX#kFr|lz^XbHc22EY%Od!f9$wuM_yi5( z4$}LU^XBT^Y@_3^Sj*mVsw(R9&dxeNsrZh60`Ip!-CuDn;56kGINen(tUJAG{kMG> zepIuCv5n~uH;gmZ>HIFz4q4q}(~MQ8!?izU>>KIMx|TrR)dJ_?C)NkLSHcgz?)3Mc HIJ)5fEn4rP diff --git a/fortran/fourthfree.f90 b/fortran/fourthfree.f90 index 41f51b5..12047ff 100644 --- a/fortran/fourthfree.f90 +++ b/fortran/fourthfree.f90 @@ -116,8 +116,7 @@ implicit none 1 format(1i10) integer (kind = 16), dimension (:), allocatable :: temp, temp2 - integer (kind = 16) :: current, next - integer :: i, j, templen, ios + integer (kind = 16) :: current, next, i, j, templen, ios logical :: done templen = 0