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;
}
