5
'byte' : 'unsigned char',
13
'unsigned byte' : 'unsigned byte',
14
'unsigned integer*1' : 'unsigned byte',
15
'unsigned short' : 'unsigned short',
16
'unsigned integer*2' : 'unsigned short',
17
'unsigned integer' : 'unsigned integer',
18
'unsigned integer*4' : 'unsigned integer',
19
'unsigned long' : 'unsigned long',
20
'unsigned integer*8' : 'unsigned long',
24
'unsigned float' : 'unsigned float',
25
'unsigned real' : 'unsigned float',
26
'unsigned real*4' : 'unsigned float',
29
'unsigned double' : 'unsigned double',
30
'unsigned real*8' : 'unsigned double',
31
'complex' : 'complex',
32
'double complex' : 'double complex'
38
'integer*1' : 'integer*1',
39
'short' : 'integer*2',
40
'integer*2' : 'integer*2',
41
'integer' : 'integer*4',
42
'integer*4' : 'integer*4',
44
'integer*8' : 'integer*8',
45
'unsigned byte' : 'unsigned integer*1',
46
'unsigned integer*1' : 'unsigned integer*1',
47
'unsigned short' : 'unsigned integer*2',
48
'unsigned integer*2' : 'unsigned integer*2',
49
'unsigned integer' : 'unsigned integer*4',
50
'unsigned integer*4' : 'unsigned integer*4',
51
'unsigned long' : 'unsigned integer*8',
52
'unsigned integer*8' : 'unsigned integer*8',
56
'unsigned float' : 'unsigned real*4',
57
'unsigned real' : 'unsigned real*4',
58
'unsigned real*4' : 'unsigned real*4',
61
'unsigned double' : 'unsigned real*8',
62
'unsigned real*8' : 'unsigned real*8',
63
'complex' : 'complex',
64
'double complex' : 'double complex'
78
'unsigned integer*1' : 1,
80
'unsigned integer*2' : 2,
81
'unsigned integer' : 4,
82
'unsigned integer*4' : 4,
84
'unsigned integer*8' : 8,
90
'unsigned real*4' : 4,
93
'unsigned double' : 8,
94
'unsigned real*8' : 8,
99
def get_c_type (parsed_type):
100
return c_types [parsed_type]
102
def get_fortran_type (parsed_type):
103
return fortran_types [parsed_type]
105
def get_size (parsed_type):
106
return type_sizes [parsed_type]