[430] | 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 |
---|