<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div class="moz-cite-prefix">I agree with Paul it is very possible
somebody fixed that somewhere.<br>
<br>
Just in case if You'll not find it.<br>
-----------------------------------------<br>
stbit=int(iw(ind3+1)/2**31)<br>
htbit=int((iw(ind3+1)-stbit*2**31)/2**30)<br>
<br>
These type of commands are happening in more than one place.<br>
I guess it is just first one encountered.<br>
It is just a way of extracting some bits(#32 and #31) from 32 bit
from integer iw.<br>
<br>
I've used a replacement code using ibits intrinsic function
(available for FORTRAN95 and later versions).<br>
stbit=ibits(iw(ind3+1),31,1)<br>
htbit=ibits(iw(ind3+1),30,1)<br>
Then in the code using preprocessor commands use appropriate code
depending on g77 or gfortran compiler is used.<br>
<br>
HTH,<br>
Nerses<br>
<br>
<br>
On 08/30/2013 01:47 PM, Jixie Zhang wrote:<br>
</div>
<blockquote
cite="mid:CAGz-G1whSM_4X+SSh0giUQ-9nc_X2coUV974T=gFUJTHsQfUzw@mail.gmail.com"
type="cite">
<div dir="ltr">
<div>HI,<br>
<br>
</div>
<div> I am trying to compile some old version of CLASPACK for
CentOS6.2 with gfortran.<br clear="all">
</div>
<div>
<div><br>
</div>
<div>I have already done this job using g77 with 32-bit
option: "g77 -m32".<br>
</div>
<div>But I encountered with some problem when I switched to
gfortran with 64 bit option.<br>
<br>
</div>
<div>The source file that give me error message is <br>
</div>
<div>/w/hallb-1/bonus/jixie/clas/builds/release-4-15/packages/ana/fill_seb_ntn.F<br>
</div>
<div>The error is Arithmetic overflow. <br>
<br>
Again, it works fine if you switch the compiler to g77 -m32
<br>
I think the best way to solve this error to do some small
changes in the source code. <br>
I think the owner|author of this file will know it better.<br>
I also know that using option -fno-range-<em>check </em>with
gfortran will also get it through. <br>
But I am not very sure if this option will cause any
potential problem.<br>
</div>
<br>
<br>
<br>
<br>
<div>The compile command and error message is here:<br>
</div>
<div><br>
ifarm1102> gfortran -O2 -m64 -fno-automatic
-finit-local-zero -ffixed-line-length-none
-fno-second-underscore -DLinux -DLinux64 -I.
-I../inc_derived/ -I../include/ -I./ -I../ec -I../sc -I../cc
-I../seb -I../trk -I../lac -I../user -I../icf
-I/w/hallb-1/bonus/jixie/clas/builds/release-4-15/packages/ec
-I/w/hallb-1/bonus/jixie/clas/builds/release-4-15/packages/sc
-I/w/hallb-1/bonus/jixie/clas/builds/release-4-15/packages/cc
-I/w/hallb-1/bonus/jixie/clas/builds/release-4-15/packages/seb
-I/w/hallb-1/bonus/jixie/clas/builds/release-4-15/packages/trk
-I/w/hallb-1/bonus/jixie/clas/builds/release-4-15/packages/lac
-I/w/hallb-1/bonus/jixie/clas/builds/release-4-15/packages/user
-I/w/hallb-1/bonus/jixie/clas/builds/release-4-15/packages/icf
-I/w/hallb-1/bonus/jixie/clas/builds/release-4-15/packages/include
-I/w/hallb-1/bonus/jixie/clas/builds/release-4-15/packages/inc_derived
-I/usr/include -I/usr/include -c fill_seb_ntn.F -o
/w/hallb-1/bonus/jixie/clas/builds/release-4-15/obj/Linux64RH6/ana/fill_seb_ntn.o<br>
<br>
fill_seb_ntn.F:139.31:<br>
<br>
stbit=int(iw(ind3+1)/2**31)<br>
1<br>
Error: Arithmetic overflow at (1)<br>
fill_seb_ntn.F:140.38:<br>
<br>
htbit=int((iw(ind3+1)-stbit*2**31)/2**30)<br>
1<br>
Error: Arithmetic overflow at (1)<br>
<br>
</div>
</div>
</div>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
Clas_offline mailing list
<a class="moz-txt-link-abbreviated" href="mailto:Clas_offline@jlab.org">Clas_offline@jlab.org</a>
<a class="moz-txt-link-freetext" href="https://mailman.jlab.org/mailman/listinfo/clas_offline">https://mailman.jlab.org/mailman/listinfo/clas_offline</a></pre>
</blockquote>
<br>
</body>
</html>