1 | ! This file contains compiler directives needed for |
---|
2 | ! Compaq Visual Fortran to handle the Linux-specific form |
---|
3 | ! of C/Fortran name-mangling used in the mad-X program. |
---|
4 | ! A single include file like this can be used in every |
---|
5 | ! Fortran program unit that makes calls to C (i.e. the many redundant |
---|
6 | ! declarations should do no harm). |
---|
7 | ! |
---|
8 | ! Here is a commented copy of the code that needs to be pasted in each program u |
---|
9 | !#ifdef _WIN32 |
---|
10 | ! include 'win32calls.fi' |
---|
11 | !#endif |
---|
12 | ! |
---|
13 | ! Note made at 18:19:27 on 4 Apr 2003 by JMJ |
---|
14 | |
---|
15 | !DEC$ ATTRIBUTES C,REFERENCE :: advance_node |
---|
16 | external advance_node |
---|
17 | !DEC$ ATTRIBUTES C,REFERENCE :: advance_to_pos |
---|
18 | external advance_to_pos |
---|
19 | !DEC$ ATTRIBUTES C,REFERENCE :: augment_count |
---|
20 | external augment_count |
---|
21 | !DEC$ ATTRIBUTES C,REFERENCE :: char_from_table |
---|
22 | external char_from_table |
---|
23 | !DEC$ ATTRIBUTES C,REFERENCE :: comm_para |
---|
24 | external comm_para |
---|
25 | !DEC$ ATTRIBUTES C,REFERENCE :: comment_to_table |
---|
26 | external comment_to_table |
---|
27 | !DEC$ ATTRIBUTES C,REFERENCE :: double_from_table |
---|
28 | external double_from_table |
---|
29 | !DEC$ ATTRIBUTES C,REFERENCE :: double_to_table |
---|
30 | external double_to_table |
---|
31 | !DEC$ ATTRIBUTES C,REFERENCE :: element_name |
---|
32 | external element_name |
---|
33 | !DEC$ ATTRIBUTES C,REFERENCE :: f_ctof |
---|
34 | external f_ctof |
---|
35 | !DEC$ ATTRIBUTES C,REFERENCE :: frndm |
---|
36 | external frndm |
---|
37 | !DEC$ ATTRIBUTES C,REFERENCE :: get_disp0 |
---|
38 | external get_disp0 |
---|
39 | !DEC$ ATTRIBUTES C,REFERENCE :: get_node_vector |
---|
40 | external get_node_vector |
---|
41 | !DEC$ ATTRIBUTES C,REFERENCE :: get_option |
---|
42 | external get_option |
---|
43 | !DEC$ ATTRIBUTES C,REFERENCE :: get_string |
---|
44 | external get_string |
---|
45 | !DEC$ ATTRIBUTES C,REFERENCE :: get_title |
---|
46 | external get_title |
---|
47 | !DEC$ ATTRIBUTES C,REFERENCE :: get_beam_value |
---|
48 | external get_beam_value |
---|
49 | !DEC$ ATTRIBUTES C,REFERENCE :: get_value |
---|
50 | external get_value |
---|
51 | !DEC$ ATTRIBUTES C,REFERENCE :: get_variable |
---|
52 | external get_variable |
---|
53 | !DEC$ ATTRIBUTES C,REFERENCE :: get_vector |
---|
54 | external get_vector |
---|
55 | !DEC$ ATTRIBUTES C,REFERENCE :: get_version |
---|
56 | external get_version |
---|
57 | !DEC$ ATTRIBUTES C,REFERENCE :: grndm |
---|
58 | external grndm |
---|
59 | !DEC$ ATTRIBUTES C,REFERENCE :: intrac |
---|
60 | external intrac |
---|
61 | !DEC$ ATTRIBUTES C,REFERENCE :: locf |
---|
62 | external locf |
---|
63 | !DEC$ ATTRIBUTES C,REFERENCE :: mtcond |
---|
64 | ! external mtcond this one is already in the original code of match.f |
---|
65 | !DEC$ ATTRIBUTES C,REFERENCE :: next_constraint |
---|
66 | external next_constraint |
---|
67 | !DEC$ ATTRIBUTES C,REFERENCE :: next_global |
---|
68 | external next_global |
---|
69 | !DEC$ ATTRIBUTES C,REFERENCE :: next_start |
---|
70 | external next_start |
---|
71 | !DEC$ ATTRIBUTES C,REFERENCE :: next_vary |
---|
72 | external next_vary |
---|
73 | !DEC$ ATTRIBUTES C,REFERENCE :: node_al_errors |
---|
74 | external node_al_errors |
---|
75 | !DEC$ ATTRIBUTES C,REFERENCE :: node_fd_errors |
---|
76 | external node_fd_errors |
---|
77 | !DEC$ ATTRIBUTES C,REFERENCE :: node_string |
---|
78 | external node_string |
---|
79 | !DEC$ ATTRIBUTES C,REFERENCE :: node_value |
---|
80 | external node_value |
---|
81 | !DEC$ ATTRIBUTES C,REFERENCE :: plot_option |
---|
82 | external plot_option |
---|
83 | !DEC$ ATTRIBUTES C,REFERENCE :: reset_count |
---|
84 | external reset_count |
---|
85 | !DEC$ ATTRIBUTES C,REFERENCE :: restart_sequ |
---|
86 | external restart_sequ |
---|
87 | !DEC$ ATTRIBUTES C,REFERENCE :: retreat_node |
---|
88 | external retreat_node |
---|
89 | !DEC$ ATTRIBUTES C,REFERENCE :: sector_out |
---|
90 | external sector_out |
---|
91 | !DEC$ ATTRIBUTES C,REFERENCE :: set_option |
---|
92 | external set_option |
---|
93 | !DEC$ ATTRIBUTES C,REFERENCE :: set_variable |
---|
94 | external set_variable |
---|
95 | !DEC$ ATTRIBUTES C,REFERENCE :: store_node_value |
---|
96 | external store_node_value |
---|
97 | !DEC$ ATTRIBUTES C,REFERENCE :: store_node_vector |
---|
98 | external store_node_vector |
---|
99 | !DEC$ ATTRIBUTES C,REFERENCE :: string_to_table |
---|
100 | external string_to_table |
---|
101 | !DEC$ ATTRIBUTES C,REFERENCE :: table_length |
---|
102 | external table_length |
---|
103 | !DEC$ ATTRIBUTES C,REFERENCE :: table_org |
---|
104 | external table_org |
---|
105 | !DEC$ ATTRIBUTES C,REFERENCE :: table_range |
---|
106 | external table_range |
---|
107 | !DEC$ ATTRIBUTES C,REFERENCE :: track_pteigen |
---|
108 | external track_pteigen |
---|
109 | !DEC$ ATTRIBUTES C,REFERENCE :: vdot |
---|
110 | external vdot |
---|
111 | !DEC$ ATTRIBUTES C,REFERENCE :: vector_to_table |
---|
112 | external vector_to_table |
---|
113 | !DEC$ ATTRIBUTES C,REFERENCE :: vmod |
---|
114 | external vmod |
---|