🚀 go-pugleaf

Many thanks to all who responded to my query about coding non-standard
bit manipulation functions in fortran, especially to Eric Haug, who provided
the simple (ouch !) solution in C:
long btest (long *a, long *b)
           return(*a>>*b);
long iand (long *a, long *b)
           return(*a & *b);
long ior (long *a, long *b)
           return(*a | *b);
After my plea for help I had finally found a clumsy solution in fortran, but
this one naturally beats it easily.
Martin (who promises to try harder next time :-) )
-- 
Dipl.Ing Martin Kroeker                   kroeker@oc1.oc.chemie.th-darmstadt.de
Inst. f. Organ. Chemie                    martin@oc2.oc.chemie.th-darmstadt.de
Univ. (TH) Darmstadt                           db7p@mvs.hrz.th-darmstadt.de
Germany                                     (in real life: <not determined> )