NCEPLIBS-g2  3.4.5
mova2i.c
Go to the documentation of this file.
1 
21 #ifdef CRAY90
22  #include <fortran.h>
23  int MOVA2I(unsigned char *a)
24 #endif
25 #ifdef HP
26  int mova2i(unsigned char *a)
27 #endif
28 #ifdef SGI
29  int mova2i_(unsigned char *a)
30 #endif
31 #ifdef LINUX
32  int mova2i_(unsigned char *a)
33 #endif
34 #ifdef LINUXF90
35  int MOVA2I(unsigned char *a)
36 #endif
37 #ifdef LINUXG95
38  int mova2i__(unsigned char *a)
39 #endif
40 #ifdef APPLE
41  int mova2i__(unsigned char *a)
42 #endif
43 #ifdef VPP5000
44  int mova2i_(unsigned char *a)
45 #endif
46 #ifdef IBM4
47  int mova2i(unsigned char *a)
48 #endif
49 #ifdef IBM8
50  long long int mova2i(unsigned char *a)
51 #endif
52 
53 {
54  return (int)(*a);
55 }