home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / lang / fortran / 5172 < prev    next >
Encoding:
Internet Message Format  |  1993-01-25  |  1.3 KB
  1. Path: sparky!uunet!seismo!darwin.sura.net!newsserver.jvnc.net!yale.edu!ira.uka.de!math.fu-berlin.de!news.th-darmstadt.de!oc1.oc.chemie.th-darmstadt.de!kroeker
  2. From: kroeker@oc1.oc.chemie.th-darmstadt.de (Martin Kroeker)
  3. Newsgroups: comp.lang.fortran
  4. Subject: IAND,IOR... - Thank you
  5. Message-ID: <1k1dcdINNpm3@rs2.hrz.th-darmstadt.de>
  6. Date: 25 Jan 93 19:00:29 GMT
  7. Organization: Technical University, Darmstadt, Germany
  8. Lines: 17
  9. NNTP-Posting-Host: oc1.oc.chemie.th-darmstadt.de
  10.  
  11. Many thanks to all who responded to my query about coding non-standard
  12. bit manipulation functions in fortran, especially to Eric Haug, who provided
  13. the simple (ouch !) solution in C:
  14. long btest (long *a, long *b)
  15.            return(*a>>*b);
  16. long iand (long *a, long *b)
  17.            return(*a & *b);
  18. long ior (long *a, long *b)
  19.            return(*a | *b);
  20. After my plea for help I had finally found a clumsy solution in fortran, but
  21. this one naturally beats it easily.
  22. Martin (who promises to try harder next time :-) )
  23. -- 
  24. Dipl.Ing Martin Kroeker                   kroeker@oc1.oc.chemie.th-darmstadt.de
  25. Inst. f. Organ. Chemie                    martin@oc2.oc.chemie.th-darmstadt.de
  26. Univ. (TH) Darmstadt                           db7p@mvs.hrz.th-darmstadt.de
  27. Germany                                     (in real life: <not determined> )
  28.