Bitwise operations: Difference between revisions
Content added Content deleted
| Line 729: | Line 729: | ||
write(*,fmt2) 'rsh : ', a,' >> ',b,' = ',ishft(a, -abs(b)),ishft(a, -abs(b)) |
write(*,fmt2) 'rsh : ', a,' >> ',b,' = ',ishft(a, -abs(b)),ishft(a, -abs(b)) |
||
write(*,fmt2) 'not : ', a,' ~ ',b,' = ',not(a),not(a) |
write(*,fmt2) 'not : ', a,' ~ ',b,' = ',not(a),not(a) |
||
write(*,fmt2) 'rot : ', a,' |
write(*,fmt2) 'rot : ', a,' r ',b,' = ',ishftc(a,-abs(b)),ishftc(a,-abs(b)) |
||
end subroutine bitwise |
end subroutine bitwise |
||