00001
00002 c Declarations of interface routines (no trailing underscores!)
00003
00004 external f_cpu_init !$pragma C (f_cpu_init)
00005 external f_cpu_time !$pragma C (f_cpu_time)
00006
00007 external f_srandinter !$pragma C (f_srandinter)
00008 external f_randinter !$pragma C (f_randinter)
00009
00010 external f_print_initial_random_parameters
00011 !$ pragma C (f_print_initial_random_parameters)
00012
00013 external f_make_standard_init !$pragma C (f_make_standard_init)
00014 external f_initialize_angles !$pragma C (f_initialize_angles)
00015
00016 external f_print_scatter3_info !$pragma C (f_print_scatter3_info)
00017 external f_print_intermediate_descriptor
00018 1 !$pragma C (f_print_intermediate_descriptor)
00019 external f_print_final_descriptor
00020 1 !$pragma C (f_print_final_descriptor)
00021
00022 c Note that some brain-dead FORTRANs demand that the $pragma
00023 c descriptor be on the SAME line as the external declaration.
00024
00025 external f_scatter3 !$pragma C (f_scatter3)
00026
