[Clas_offline] help needed in compiling clas package

[Nerses Gevorgyan]

I agree with Paul it is very possible somebody fixed that somewhere.

Just in case if You'll not find it.
-----------------------------------------
stbit=int(iw(ind3+1)/2**31)
htbit=int((iw(ind3+1)-stbit*2**31)/2**30)

These type of commands are happening in more than one place.
I guess it is just first one encountered.
It is just a way of extracting some bits(#32 and #31) from 32 bit from 
integer iw.

I've used a replacement code using ibits intrinsic function (available 
for FORTRAN95 and later versions).
          stbit=ibits(iw(ind3+1),31,1)
          htbit=ibits(iw(ind3+1),30,1)
Then in the code using preprocessor commands use appropriate code 
depending on g77 or gfortran compiler is used.

HTH,
Nerses


On 08/30/2013 01:47 PM, Jixie Zhang wrote:
> HI,
>
>   I am trying to compile some old version of CLASPACK for CentOS6.2 
> with gfortran.
>
> I have already done this job using g77 with 32-bit option: "g77 -m32".
> But I encountered with some problem when I switched to gfortran with 
> 64 bit option.
>
> The source file that give me error message is
> /w/hallb-1/bonus/jixie/clas/builds/release-4-15/packages/ana/fill_seb_ntn.F
> The error is Arithmetic overflow.
>
> Again, it works fine if you switch the compiler to g77 -m32
> I think the best way to solve this error to do some small changes in 
> the source code.
> I think the owner|author of this file will know it better.
> I also know that using option -fno-range-/check /with gfortran will 
> also get it through.
> But I am not very sure if this option will cause any potential problem.
>
>
>
>
> The compile command and error message is here:
>
> 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
>
> fill_seb_ntn.F:139.31:
>
>          stbit=int(iw(ind3+1)/2**31)
>                                1
> Error: Arithmetic overflow at (1)
> fill_seb_ntn.F:140.38:
>
>          htbit=int((iw(ind3+1)-stbit*2**31)/2**30)
>                                       1
> Error: Arithmetic overflow at (1)
>
>
>
> _______________________________________________
> Clas_offline mailing list
> Clas_offline at jlab.org
> https://mailman.jlab.org/mailman/listinfo/clas_offline

-------------- next part --------------
An HTML attachment was scrubbed...
URL: https://mailman.jlab.org/pipermail/clas_offline/attachments/20130830/47e69f0b/attachment.html