|
version 1.2, 1996/11/22 17:06:27
|
version 1.3, 1999/11/04 20:36:32
|
|
|
|
| * from standard f77s. | * from standard f77s. |
| * | * |
| * $Log$ | * $Log$ |
| |
* Revision 1.3 1999/11/04 20:36:32 saw |
| |
* Linux/G77 compatibility fixes - Add jieor function |
| |
* |
| * Revision 1.2 1996/11/22 17:06:27 saw | * Revision 1.2 1996/11/22 17:06:27 saw |
| * (SAW) Move trig routines to trig_wrappers.f | * (SAW) Move trig routines to trig_wrappers.f |
| * | * |
|
|
|
| return | return |
| end | end |
| | |
| |
integer*4 function jieor(a1,a2) |
| |
integer*4 a1,a2 |
| |
jieor = xor(a1,a2) |
| |
return |
| |
end |
| |
|
| integer*4 function jibset(a1,a2) | integer*4 function jibset(a1,a2) |
| integer*4 a1,a2 | integer*4 a1,a2 |
| jibset = or(a1,lshift(1,a2)) | jibset = or(a1,lshift(1,a2)) |
Return to
bit_wrappers.f
CVS log
Up to [HallC] / Analyzer / PORT