/*
?c-interface?routines?to?enable?use?of?the?cmod?tools?from?IDL
?Copyright?（C）?2004???J.?de?Kloe?（KNMI）
?License:?GPL?（see?file?COPYING）
*/

#include?
#include?

float?c_interface（int?argc?void?*argv[]）
{
????extern?float?calc_sigma0_cmod5_n_（）;??/*?FORTRAN?routine?*/

#define?MAX_STRLEN?256

????typedef?struct
??????{
	unsigned?int?slen;
	unsigned?int?stype;
	char?*s;
??????}?IDL_STRING;

????IDL_STRING?*fortran_function_name_struct;
????char????????fortran_function_name[MAX_STRLEN];
????float?*v;
????float?*phi;
????float?*theta;
????int?i;

????fortran_function_name_struct?=?（IDL_STRING?*）?argv[0];
????
????if?（fortran_function_name_struct?==?NULL）
??????{
	printf（“PROBLEM:?fortran_function_name_struct?=?NULL?!!!\n“）;
	exit（1）;
??????}
????
????if?（fortran_function

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----

?????文件???????1829??2008-05-07?23:04??idl_cmod\c_interface.c

?????文件???????3638??2008-05-07?22:51??idl_cmod\cmod5n.f90

?????文件????????232??2008-05-07?22:53??idl_cmod\cmodtest.f90

?????文件??????18007??2004-03-17?18:24??idl_cmod\COPYING

?????文件????????591??2008-05-07?23:03??idl_cmod\idltest.pro

?????文件????????538??2008-05-07?22:53??idl_cmod\Makefile

?????文件????????125??2004-03-17?18:32??idl_cmod\run

?????文件????????639??2008-05-07?23:05??idl_cmod\testoutput.txt

?????文件????????149??2004-03-17?18:33??idl_cmod\xxx

?????目錄??????????0??2007-12-24?20:32??idl_cmod

-----------?---------??----------?-----??----

????????????????25748????????????????????10