PyObject *PyInit_mvn(void) { #else #define RETVAL PyMODINIT_FUNC initmvn(void) { #endif int i; PyObject *m,*d, *s; #if PY_VERSION_HEX >= 0x03000000 m = mvn_module = PyModule_Create(&moduledef); #else m = mvn_module = Py_InitModule("mvn", f2py_module_methods); #endif Py_TYPE(&PyFortran_Type) = &PyType_Type; import_array(); if (PyErr_Occurred()) {PyErr_SetString(PyExc_ImportError, "can't initialize module mvn (failed to import numpy)"); return RETVAL;} d = PyModule_GetDict(m); s = PyString_FromString("$Revision: $"); PyDict_SetItemString(d, "__version__", s); #if PY_VERSION_HEX >= 0x03000000 s = PyUnicode_FromString( #else s = PyString_FromString( #endif "This module 'mvn' is auto-generated with f2py (version:2).\nFunctions:\n" " value,inform = mvnun(lower,upper,means,covar,maxpts=d*1000,abseps=1e-06,releps=1e-06)\n" " error,value,inform = mvndst(lower,upper,infin,correl,maxpts=2000,abseps=1e-06,releps=1e-06)\n" "COMMON blocks:\n"" /dkblck/ ivls\n""."); PyDict_SetItemString(d, "__doc__", s); mvn_error = PyErr_NewException ("mvn.error", NULL, NULL); Py_DECREF(s); for(i=0;f2py_routine_defs[i].name!=NULL;i++) PyDict_SetItemString(d, f2py_routine_defs[i].name,PyFortranObject_NewAsAttr(&f2py_routine_defs[i])); /*eof initf2pywraphooks*/ /*eof initf90modhooks*/ F2PyDict_SetItemString(d, "dkblck", PyFortranObject_New(f2py_dkblck_def,f2py_init_dkblck)); /*eof initcommonhooks*/ #ifdef F2PY_REPORT_ATEXIT if (! PyErr_Occurred()) on_exit(f2py_report_on_exit,(void*)"mvn"); #endif return RETVAL; }
PyObject *PyInit_iriFort(void) { #else #define RETVAL PyMODINIT_FUNC initiriFort(void) { #endif int i; PyObject *m,*d, *s; #if PY_VERSION_HEX >= 0x03000000 m = iriFort_module = PyModule_Create(&moduledef); #else m = iriFort_module = Py_InitModule("iriFort", f2py_module_methods); #endif Py_TYPE(&PyFortran_Type) = &PyType_Type; import_array(); if (PyErr_Occurred()) {PyErr_SetString(PyExc_ImportError, "can't initialize module iriFort (failed to import numpy)"); return RETVAL;} d = PyModule_GetDict(m); s = PyString_FromString("$Revision: $"); PyDict_SetItemString(d, "__version__", s); #if PY_VERSION_HEX >= 0x03000000 s = PyUnicode_FromString( #else s = PyString_FromString( #endif "This module 'iriFort' is auto-generated with f2py (version:2).\nFunctions:\n" " outf,oarr = iri_sub(jf,jmag,alati,along,iyyyy,mmdd,dhour,heibeg,heiend,heistp,oarr)\n" "COMMON blocks:\n"" /block7/ d1,xkk,fp30,fp3u,fp1,fp2\n"" /block6/ hmd,nmd,hdx\n"" /block5/ enight,e(4)\n"" /block4/ hme,nme,hef\n"" /const/ umr\n"" /block2/ b0,b1,c1\n"" /block1/ hmf2,nmf2,hmf1,f1reg\n"" /block8/ hs,tnhs,xsm(4),mm(5),dti(4),mxsm\n"" /argexp/ argmax\n"" /iounit/ konsol\n"" /blo11/ b2top,tc3,itopn,alg10,hcor1\n"" /blo10/ beta,eta,delta,zeta\n"" /const1/ humr,dumr\n"" /blote/ ahh(7),ate1,stte(6),dte(5)\n"" /const2/ icalls,nmono,iyearo,idaynro,rzino,igino,ut0\n"" /block3/ hz,t,hst\n"" /qtop/ y05,h05top,qf,xnetop,xm3000,hhalf,tau\n"" /findrlat/ flon,ryear\n""."); PyDict_SetItemString(d, "__doc__", s); iriFort_error = PyErr_NewException ("iriFort.error", NULL, NULL); Py_DECREF(s); for(i=0;f2py_routine_defs[i].name!=NULL;i++) PyDict_SetItemString(d, f2py_routine_defs[i].name,PyFortranObject_NewAsAttr(&f2py_routine_defs[i])); /*eof initf2pywraphooks*/ /*eof initf90modhooks*/ F2PyDict_SetItemString(d, "block7", PyFortranObject_New(f2py_block7_def,f2py_init_block7)); F2PyDict_SetItemString(d, "block6", PyFortranObject_New(f2py_block6_def,f2py_init_block6)); F2PyDict_SetItemString(d, "block5", PyFortranObject_New(f2py_block5_def,f2py_init_block5)); F2PyDict_SetItemString(d, "block4", PyFortranObject_New(f2py_block4_def,f2py_init_block4)); F2PyDict_SetItemString(d, "const", PyFortranObject_New(f2py_const_def,f2py_init_const)); F2PyDict_SetItemString(d, "block2", PyFortranObject_New(f2py_block2_def,f2py_init_block2)); F2PyDict_SetItemString(d, "block1", PyFortranObject_New(f2py_block1_def,f2py_init_block1)); F2PyDict_SetItemString(d, "block8", PyFortranObject_New(f2py_block8_def,f2py_init_block8)); F2PyDict_SetItemString(d, "argexp", PyFortranObject_New(f2py_argexp_def,f2py_init_argexp)); F2PyDict_SetItemString(d, "iounit", PyFortranObject_New(f2py_iounit_def,f2py_init_iounit)); F2PyDict_SetItemString(d, "blo11", PyFortranObject_New(f2py_blo11_def,f2py_init_blo11)); F2PyDict_SetItemString(d, "blo10", PyFortranObject_New(f2py_blo10_def,f2py_init_blo10)); F2PyDict_SetItemString(d, "const1", PyFortranObject_New(f2py_const1_def,f2py_init_const1)); F2PyDict_SetItemString(d, "blote", PyFortranObject_New(f2py_blote_def,f2py_init_blote)); F2PyDict_SetItemString(d, "const2", PyFortranObject_New(f2py_const2_def,f2py_init_const2)); F2PyDict_SetItemString(d, "block3", PyFortranObject_New(f2py_block3_def,f2py_init_block3)); F2PyDict_SetItemString(d, "qtop", PyFortranObject_New(f2py_qtop_def,f2py_init_qtop)); F2PyDict_SetItemString(d, "findrlat", PyFortranObject_New(f2py_findrlat_def,f2py_init_findrlat)); /*eof initcommonhooks*/ #ifdef F2PY_REPORT_ATEXIT if (! PyErr_Occurred()) on_exit(f2py_report_on_exit,(void*)"iriFort"); #endif return RETVAL; }