7
* $Header: /tmp/hpctools/ga/tcgmsg/ipcv5.0/mitob.c,v 1.2 1994-12-30 20:55:54 d3h325 Exp $
9
* These routines use C's knowledge of the sizes of data types
10
* to generate a portable mechanism for FORTRAN to translate
11
* between bytes, integers and doubles. Note that we assume that
12
* FORTRAN integers are the same size as C longs.
19
* Return the no. of bytes that n ints=longs occupy
21
Integer MITOB_(Integer *n)
24
Error("MITOB_: negative argument",*n);
26
return (Integer) (*n * sizeof(Integer));