old f77 command for intel fortran compilator

[bombardi]

Hi,
I have a fortran77 script in which they made some bit manipulation. The intel compilator doens't accept some commands. I could adapt almost everything to fortran90 but one command: "intand"

The code line is:
iscr=intand(intrshft(isval,6*(nchs-iii)),63)

where "isval","nchs" and "iii" are integers. "iscr" is also supposed to be an integer. The command "intrshft" is recently used as "ishft" and it is used to shift bits to the right. The command "intand" is not used in the intel fortran compilator and should be related to some sort of bit manipulation.

I would appreciate any information about the functions of the commands "intand" and "ishft" and the current version of the command "intand"

Thank you very much,

 

[FJacq]

Try IAND instead of INTAND (bit-wise logical end). This is the official name of that routine since F90. Notice that IOR (bit-wise inclusive OR) and IEOR (bit-wise exclusive OR) are also available.

Idem for INTSHFT which F90 official intrinsic function is ISHFT

To move on the left instead of the right : LSHFT

For circular shift : ISHFTC, LSHFTC

François Jacq

 

[FJacq]

Sorry : I need to correct myself !

do not use LSHFT and LSHTF which are not official intrinsic functions.

ISHFT and ISHTC are the only official intrinsic shift functions which may be used with a negative second argument corresponding to a positive shift on the left.

François Jacq